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");$this->out(Zen::PerlHandler->get("II51da5c26ac9a1e4b74fd1f1f1c4e9758->mnt_view")->do($this->{C}));$this->out("\n<div style=\"text-align: left; margin:30px\">\n\n");my $in = $C->{Display};my $loop = ref($in) eq "ARRAY" ? $in : ref($in) eq "CODE" ? &{$in} : [];$C->{ITERATION}{q} = -1;for my $f (@$loop) {$C->{ITERATION}{q}++;$C->{q} = $f;$this->out("<div style=\"margin-top: 20px; font-size:130\%\"><i>$C->{q}{question}</i><br><br><div>\n");my $in = $C->{q}{answers};my $loop = ref($in) eq "ARRAY" ? $in : ref($in) eq "CODE" ? &{$in} : [];$C->{ITERATION}{a} = -1;for my $f (@$loop) {$C->{ITERATION}{a}++;$C->{a} = $f;$this->out("	<div style=\"margin-left: 50px\"><li>$C->{a}</li></div>\n");}$this->out("");}$this->out("\n</div>\n\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("");}