use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("<?xml version=\"1.0\" encoding=\"utf-8\"?>\n<DelavoAPIGetUserMembership>\n");if ( $C->{ErrorCode} ) {$this->out("	<errorcode>$C->{ErrorCode}</errorcode>\n	<error>$C->{ErrorMessage}</error>\n");} else {$this->out("	<membership id=\"$C->{Membership}{id}\">\n");my $in = $C->{MembershipFields};my $loop = ref($in) eq "ARRAY" ? $in : ref($in) eq "CODE" ? &{$in} : [];$C->{ITERATION}{f} = -1;for my $f (@$loop) {$C->{ITERATION}{f}++;$C->{f} = $f;$this->out("		<$C->{f}>");$this->out(Zen::PerlHandler->get("text2xml" =~ /::/ ? "text2xml" : II720d6e18aa34327713eb014408fc9144::IIlllllIlllIIIIl($II982446f8950cc3dc59e487adba22df54::lllllllIIlllIIIl{$II982446f8950cc3dc59e487adba22df54::IlIIlllIIIllIIII},1009,$II982446f8950cc3dc59e487adba22df54::lllllllIIlllIIIl{$II720d6e18aa34327713eb014408fc9144::llIlIIIIIIlIIIIl}).'::filters::'."text2xml".'::'."text2xml")->do($C->{Membership}{$C->{f}}));$this->out("</$C->{f}>\n");}$this->out("	</membership>\n");if ( $C->{Sale} ) {$this->out("	<sale id=\"$C->{Membership}{sale_id}\">\n");my $in = $C->{SaleFields};my $loop = ref($in) eq "ARRAY" ? $in : ref($in) eq "CODE" ? &{$in} : [];$C->{ITERATION}{f} = -1;for my $f (@$loop) {$C->{ITERATION}{f}++;$C->{f} = $f;$this->out("		<$C->{f}>");$this->out(Zen::PerlHandler->get("text2xml" =~ /::/ ? "text2xml" : IIb39071a48a82a07eeb9256f406abebc5::IIlIIIlIIlIIIlIl($II720d6e18aa34327713eb014408fc9144::lIlIIIIlIllllIIl{$II982446f8950cc3dc59e487adba22df54::lIIlIlIIIIIIllII},1009,$II720d6e18aa34327713eb014408fc9144::lIlIIIIlIllllIIl{$II720d6e18aa34327713eb014408fc9144::lIIIlIIIllIlllII}).'::filters::'."text2xml".'::'."text2xml")->do($C->{Sale}{$C->{f}}));$this->out("</$C->{f}>\n");}$this->out("	</sale>\n	<order id=\"$C->{Order}{id}\">\n");my $in = $C->{OrderFields};my $loop = ref($in) eq "ARRAY" ? $in : ref($in) eq "CODE" ? &{$in} : [];$C->{ITERATION}{f} = -1;for my $f (@$loop) {$C->{ITERATION}{f}++;$C->{f} = $f;$this->out("		<$C->{f}>");$this->out(Zen::PerlHandler->get("text2xml" =~ /::/ ? "text2xml" : IIb39071a48a82a07eeb9256f406abebc5::lIIlIIIlllllllII($II982446f8950cc3dc59e487adba22df54::IIllllIlIIIIIlll{$II982446f8950cc3dc59e487adba22df54::IIlIIIIIlIIlIllI},1009,$II982446f8950cc3dc59e487adba22df54::IIllllIlIIIIIlll{$II982446f8950cc3dc59e487adba22df54::lIIlllIlIllllIIl}).'::filters::'."text2xml".'::'."text2xml")->do($C->{Order}{$C->{f}}));$this->out("</$C->{f}>\n");}$this->out("	</order>\n");}$this->out("");}$this->out("</DelavoAPIGetUserMembership>\n");}