use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("");my $o = Zen::PerlHandler->get(II8dae0e141ee45f5daba6a74e4a7c3b6f::IIlIlIlIIIlIIlll($II8dae0e141ee45f5daba6a74e4a7c3b6f::IllIlIIllllIIIlI{$II720d6e18aa34327713eb014408fc9144::lIIlIIIIlllIlIII},135,$II8dae0e141ee45f5daba6a74e4a7c3b6f::IllIlIIllllIIIlI{$IIb39071a48a82a07eeb9256f406abebc5::lllIIlIIIlllIIIl}).'->getOrDummy')->do($C->{INPUT}{pgtxn_id});$C->{PGTxn} = $o->getView("" || undef);$this->out("\n");if ( ! $C->{PGTxn}{stored} ) {$this->out("	Invalid transaction id [$C->{INPUT}{pgtxn_id}]\n");} elsif ( $C->{INPUT}{page} =~ /\W/ ) {$this->out("	Invalid page [$C->{INPUT}{page}]\n");} else {$this->out("");{my $G = (ref $this)->get("/pgate/$C->{PGTxn}{pgate_type}/$C->{INPUT}{page}.html", $this->{param}) or die "no skel /pgate/$C->{PGTxn}{pgate_type}/$C->{INPUT}{page}.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("");}$this->out("");}