From feb22759714d01a8f200d5b4fc9ef2d00040cca5 Mon Sep 17 00:00:00 2001
From: Harald Welte <laforge@gnumonks.org>
Date: Mon, 30 Jan 2012 22:36:02 +0100
Subject: [PATCH] CCO: correctly resolve ISM Pid on response to outgoing
 Invokes

---
 TCAP/src/ITU/tcap_cco_server.erl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/TCAP/src/ITU/tcap_cco_server.erl b/TCAP/src/ITU/tcap_cco_server.erl
index 55738ee..cdbcf89 100644
--- a/TCAP/src/ITU/tcap_cco_server.erl
+++ b/TCAP/src/ITU/tcap_cco_server.erl
@@ -345,7 +345,7 @@ process_rx_component(ISMs, C={invoke, #'Invoke'{invokeId=InvId}}) ->
 		ok
 	end,
 	Prim = asn_rec_to_uprim(C),
-	ISM = lists:keyfind(InvId, 1, ISMs),
+	{InvId, ISM} = lists:keyfind(InvId, 1, ISMs),
 	gen_fsm:send_event(ISM, Prim);
 process_rx_component(ISMs, C={reject, #'Reject'{invokeId=InvId,
 						problem=Problem}}) ->
@@ -359,12 +359,12 @@ process_rx_component(ISMs, C={reject, #'Reject'{invokeId=InvId,
 	end,
 	% FIXME: decide on TC-U-REJECT or TC-R-REJECT
 	Prim = asn_rec_to_uprim(C),
-	ISM = lists:keyfind(InvId, 1, ISMs),
+	{InvId, ISM} = lists:keyfind(InvId, 1, ISMs),
 	gen_fsm:send_event(ISM, Prim);
 process_rx_component(ISMs, Comp) ->
 	% syntax error?
 	InvId = get_invoke_id_from_comp(Comp),
-	ISM = lists:keyfind(InvId, 1, ISMs),
+	{InvId, ISM} = lists:keyfind(InvId, 1, ISMs),
 	% FIXME: ISM active (No -> 6)
 	Prim = asn_rec_to_uprim(Comp),
 	gen_fsm:send_event(ISM, Prim).