forked from erlang/signerl
DHA: Store TR-END record in loop state on TC-END request
We need to put the TR-END record in the loop data state once we receive the TC-END.req from TCU, even in 'basic' termination mode. Only this way, code in the wait_for_end_components can actually access/use that record.
This commit is contained in:
parent
d5260e0a5d
commit
a7c2afc83e
|
@ -623,14 +623,14 @@ active({'TC', 'CONTINUE', request, ContParms}, State) when is_record(ContParms,
|
||||||
%% reference: Figure A.5/Q.774 (sheet 9 of 11)
|
%% reference: Figure A.5/Q.774 (sheet 9 of 11)
|
||||||
%% TC-END request from TCU
|
%% TC-END request from TCU
|
||||||
active({'TC', 'END', request, EndParms}, State) when is_record(EndParms, 'TC-END') ->
|
active({'TC', 'END', request, EndParms}, State) when is_record(EndParms, 'TC-END') ->
|
||||||
|
TrParms = #'TR-END'{qos = EndParms#'TC-END'.qos,
|
||||||
|
transactionID = State#state.otid,
|
||||||
|
termination = EndParms#'TC-END'.termination},
|
||||||
|
NewState = State#state{parms = TrParms},
|
||||||
%% Prearranged end?
|
%% Prearranged end?
|
||||||
case EndParms#'TC-END'.termination of
|
case EndParms#'TC-END'.termination of
|
||||||
prearranged ->
|
prearranged ->
|
||||||
%% TR-END request to TSL
|
%% TR-END request to TSL
|
||||||
TrParms = #'TR-END'{qos = EndParms#'TC-END'.qos,
|
|
||||||
transactionID = State#state.otid,
|
|
||||||
termination = EndParms#'TC-END'.termination},
|
|
||||||
NewState = State#state{parms = TrParms},
|
|
||||||
gen_server:cast(NewState#state.tco, {'TR', 'END', request, TrParms}),
|
gen_server:cast(NewState#state.tco, {'TR', 'END', request, TrParms}),
|
||||||
%% Dialogue terminated to CHA
|
%% Dialogue terminated to CHA
|
||||||
gen_server:cast(NewState#state.cco, 'dialogue-terminated'),
|
gen_server:cast(NewState#state.cco, 'dialogue-terminated'),
|
||||||
|
@ -640,7 +640,7 @@ active({'TC', 'END', request, EndParms}, State) when is_record(EndParms, 'TC-END
|
||||||
%% Request component to CHA
|
%% Request component to CHA
|
||||||
gen_server:cast(State#state.cco, 'request-components'),
|
gen_server:cast(State#state.cco, 'request-components'),
|
||||||
%% Process components
|
%% Process components
|
||||||
{next_state, wait_for_end_components, State}
|
{next_state, wait_for_end_components, NewState}
|
||||||
end;
|
end;
|
||||||
|
|
||||||
%% reference: Figuer A.5/Q774 (sheet 10 of 11)
|
%% reference: Figuer A.5/Q774 (sheet 10 of 11)
|
||||||
|
|
Loading…
Reference in New Issue