use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("");$C->{IFrameID} = "IFrameJin$C->{INPUT}{report}";$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");$this->out(Zen::PerlHandler->get("IIffdf54f1494b3bf443f066e7a818a029->mnt")->do($this->{C}));$this->out("\n");if ( $C->{INPUT}{report} ) {$this->out("\n<table border=0 cellpadding=0 cellspacing=1 style=\"background-color: black\">\n\n<tr>\n");my $in = $C->{Fields};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("	<td style=\"background-color: $C->{LegendColor}; color: #000000; font-weight: bold; text-align: center; padding : 2px 5px 2px 5px; border-top: 1px solid #FCFCFC; border-left: 1px solid #FCFCFC;\">$C->{f}{title}</td>\n");}$this->out("</tr>\n\n");my $in = $C->{Data};my $loop = ref($in) eq "ARRAY" ? $in : ref($in) eq "CODE" ? &{$in} : [];$C->{ITERATION}{r} = -1;for my $f (@$loop) {$C->{ITERATION}{r}++;$C->{r} = $f;$this->out("<tr>\n");my $in = $C->{Fields};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("	<td style=\"background-color: #FCFCFC; padding: 1px 2px 1px 5px;\">$C->{r}{$C->{f}{name}}</td>\n");}$this->out("</tr>\n");}$this->out("\n</table>\n\n");}$this->out("\n");{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("");}