| ReleaseCCD-CreditCardCenterCmd# (a; s) { let d = s(Mailbox(a .cmd), a .to) in if isMessage(d) ∧ isReleaseCCD(d .msg .content) then let agl = d .msg .agentlist in { s(Mailbox(a .cmd), a .to) := null ; s(locVar(`airline'), a .to) := wrapString2Data(d .msg .content .receiver) ; s(Mailbox(ConfirmRelease-UserCmd-3), mkUser(a .to .id)) := wrapMessage2Data (mkMessage (agl, mkConfirmRelease (wrapCreditCardDetails2Data (s(CreditCardCenter-ccd, a .to) .CreditCardDetails), s(locVar(`airline'), a .to) .String))) } } |