From 205f58543589ca4a6e9762c8862dc4f0aca2911b Mon Sep 17 00:00:00 2001
From: Harald Welte <laforge@gnumonks.org>
Date: Sat, 17 Dec 2011 17:22:55 +0100
Subject: [PATCH] invocation supervisor: correctly call ISM

---
 TCAP/src/tcap_invocation_sup.erl | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/TCAP/src/tcap_invocation_sup.erl b/TCAP/src/tcap_invocation_sup.erl
index 3bd084d..cbd145f 100644
--- a/TCAP/src/tcap_invocation_sup.erl
+++ b/TCAP/src/tcap_invocation_sup.erl
@@ -46,11 +46,10 @@
 %% call backs needed for supervisor behaviour
 -export([init/1]).
 
-init([USAP, InvokeID]) ->
-	Name = list_to_atom("tcap_ism_" ++ integer_to_list(InvokeID)),
-	StartArgs = [{local, Name}, tcap_ism_fsm, [USAP, InvokeID], []],
-	StartFunc = {gen_fsm, start_link, StartArgs},
-	ChildSpec = {Name, StartFunc, temporary, 4000, worker,
+init([USAP, DlgId, InvokeID, OpClass, Timeout]) ->
+	StartArgs = [USAP, DlgId, InvokeID, OpClass, Timeout],
+	StartFunc = {tcap_ism_fsm, start_link, StartArgs},
+	ChildSpec = {ism, StartFunc, temporary, 4000, worker,
 			[tcap_ism_sup]},
 	{ok,{{one_for_all, 0, 1}, [ChildSpec]}}.