use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("");{my $G = (ref $this)->get("/headfoot/inner_header.html", $this->{param}) or die "no skel /headfoot/inner_header.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("	\n");$C->{Objs} = Zen::PerlHandler->get(II720d6e18aa34327713eb014408fc9144::IlIlIlIIIIllIlII($II982446f8950cc3dc59e487adba22df54::IIlIllIIIllllIIl{$II720d6e18aa34327713eb014408fc9144::llIlIlIIIIIlIIlI},133,$II982446f8950cc3dc59e487adba22df54::IIlIllIIIllllIIl{$II8dae0e141ee45f5daba6a74e4a7c3b6f::IlIlllllIllIIlIl}).'->search')->do(id => $C->{INPUT}{id}, NUM => 1);$_ = $_->getView for @{ $C->{Objs} };$this->out("");$C->{B} = $C->{Objs}->[0];$this->out("\n<div style=\"margin: 10px\" align=\"left\">\n\n	Below is the banner HTML code. You can copy it and paste into any HTML document.\n	<br><br>\n	<textarea rows=\"3\" cols=\"75\" readOnly>$C->{B}{jsBannerCode}</textarea>\n	\n</div>\n\n");{my $G = (ref $this)->get("/headfoot/inc_closewindow.html", $this->{param}) or die "no skel /headfoot/inc_closewindow.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("");{my $G = (ref $this)->get("/headfoot/inner_footer.html", $this->{param}) or die "no skel /headfoot/inner_footer.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("\n");}