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("");{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("\n");$this->out(Zen::PerlHandler->get("IIf26cdbca874dd70b054248faf2c1683c->mnt_customize")->do($this->{C}));$this->out("	\n<br>\n");if ( $C->{just_saved} ) {$this->out("<div style=\"color: blue; font-size: 120\%\">Tags have been saved</div>\n");}$this->out("\n<form name=AddBan action=\"$C->{SYS}{URL}$C->{ENV}{PATH_INFO}\" method=POST>\n	\n	<input type=\"hidden\" name=\"pack_id\" value=\"$C->{Package}{id}\">\n	\n	<table border=0 cellpadding=0 cellspacing=1 class=atkMainTable>\n		<tr><td class=atkHeader>Custom tags for $C->{Package}{title}</td></tr>\n		<tr><td>\n			<table class=atkInnerTable cellpadding=4 cellspacing=3 width=\"100\%\">\n");my $in = $C->{Tags};my $loop = ref($in) eq "ARRAY" ? $in : ref($in) eq "CODE" ? &{$in} : [];$C->{ITERATION}{t} = -1;for my $f (@$loop) {$C->{ITERATION}{t}++;$C->{t} = $f;$this->out("				<tr><td class=atkEditorRight>\n					<b style=\"font-size:120\%\">$C->{t}{tagname}:</b>&nbsp;$C->{t}{comment}<br>\n					<textarea name=\"tag$C->{t}{id}\" cols=\"70\" rows=\"4\">$C->{t}{def_value}</textarea>\n					</td>\n				</tr>\n");}$this->out("			</table></td>\n		</tr>\n");if ( $C->{Tags} ) {$this->out("		<tr><td class=atkEditorControl>\n				<input class=\"btn btn-primary\" type=\"submit\" name=\"save\" value=\"Save\">\n			</td>\n		</tr>\n");}$this->out("	</table>\n</form>\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("");}