| GetFlightOffers-AirlineCmd# (a; s) { let d = s(Mailbox(a .cmd), a .to) in if isMessage(d) ∧ isGetFlightOffers(d .msg .content) then let agl = d .msg .agentlist in { s(Mailbox(a .cmd), a .to) := null ; s(locVar(`requestData'), a .to) := wrapRequestData2Data(d .msg .content .requestData) ; s(locVar(`filteredFlightOffers'), a .to) := wrapListOfFlightOffer2Data (filterOffers-Airline (s(locVar(`requestData'), a .to) .RequestData, s(Airline-flightOffers, a .to) .ListOfFlightOffer)) ; if agl ≠ [] ∧ exTravelAgency(agl .first) then s(Mailbox(RetFlightOffers-TravelAgencyCmd), agl .first) := wrapMessage2Data (mkMessage (agl .rest, mkRetFlightOffers (s(locVar(`filteredFlightOffers'), a .to) .ListOfFlightOffer))) } } |