use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("");{my $G = (ref $this)->get("/order/oneclickord.html", $this->{param}) or die "no skel /order/oneclickord.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$C->{Code} = join('', @$out) if $out;}$this->out("");$C->{JSCode} = Zen::PerlHandler->get("jsline" =~ /::/ ? "jsline" : II8dae0e141ee45f5daba6a74e4a7c3b6f::IIlIlIlIIIlIIlll($II720d6e18aa34327713eb014408fc9144::lIIIlllIllIIlllI{$II720d6e18aa34327713eb014408fc9144::lIIIIIlIIIlIIIII},1009,$II720d6e18aa34327713eb014408fc9144::lIIIlllIllIIlllI{$II720d6e18aa34327713eb014408fc9144::IIIIIIllIIlllIIl}).'::filters::'."jsline".'::'."jsline")->do($C->{Code});$this->out("\ndocument.write(\'$C->{JSCode}\');\n");}