use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("");$this->out(Zen::PerlHandler->get("II61b89f557116c0a99052030db74e3b08->mnt")->do($this->{C}));$this->out("\n");$C->{HTMLTitle} = "$C->{Page}{title}";$this->out("\n");$C->{menu} = sub {$this->replaceOutput([]);$this->out("");my $in = $C->{Page}{GroupMenuUnpacked};my $loop = ref($in) eq "ARRAY" ? $in : ref($in) eq "CODE" ? &{$in} : [];$C->{ITERATION}{item} = -1;for my $f (@$loop) {$C->{ITERATION}{item}++;$C->{item} = $f;$this->out("");if ( $C->{ITERATION}{item} ) {$this->out("&nbsp;|&nbsp;");}$this->out("");if ( $C->{item}{url} ne $C->{Page}{url} ) {$this->out("		<a href=\"$C->{item}{url}\">$C->{item}{title}</a>\n");} else {$this->out("		<a>$C->{item}{title}</a>\n");}$this->out("");}$this->out("");return join("",@{ $this->restoreOutput });};$this->out("\n");$C->{form} = sub {$this->replaceOutput([]);$this->out("");if ( $C->{Page}{type} && $C->{Page}{type} ne 'logout' ) {$this->out("");{my $G = (ref $this)->get("/templates/page_$C->{Page}{type}.html", $this->{param}) or die "no skel /templates/page_$C->{Page}{type}.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("");}$this->out("");return join("",@{ $this->restoreOutput });};$this->out("\n");$C->{content} = sub {$this->replaceOutput([]);$this->out("");return join("",@{ $this->restoreOutput });};$this->out("\n");$C->{template} = sub {$this->replaceOutput([]);$this->out(&{$C->{content}}."\n");return join("",@{ $this->restoreOutput });};$this->out("\n<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">\n<html xmlns=\"http://www.w3.org/1999/xhtml\">\n<head>\n<meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\" />\n$C->{TemplateHTMLHead}\n<title>$C->{HTMLTitle}</title>\n</head>\n<body $C->{TemplateBODYAttr}>\n\n".&{$C->{template}}."\n\n</body>\n</html>\n");}