| OkPayCommission-AirlineCmd# (a; s) { let d = s(Mailbox(a .cmd), a .to) in if isMessage(d) ∧ isOkPayCommission(d .msg .content) then let agl = d .msg .agentlist in { s(Mailbox(a .cmd), a .to) := null ; if agl ≠ [] ∧ exTravelPlanner(agl .first) then s(Mailbox(OkConfirmBooking-TravelPlannerCmd), agl .first) := wrapMessage2Data(mkMessage(agl .rest, mkOkConfirmBooking)) } } |