use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("<form name=Lister method=POST action=\"$C->{SELF_URL_NO_QS}\">\n<input type=\"hidden\" name=\"TabAct\">\n<input type=\"hidden\" name=\"cgi_ret\" value=\"$C->{INPUT}{cgi_ret}\">\n<input type=\"hidden\" name=\"type\" value=\"$C->{INPUT}{type}\">\n<input type=\"hidden\" name=\"parent\" value=\"$C->{INPUT}{parent}\">\n<input type=\"hidden\" name=\"title\" value=\"$C->{INPUT}{title}\">\n<input type=\"hidden\" name=\"js_receiver\" value=\"$C->{INPUT}{js_receiver}\">\n<input type=\"hidden\" name=\"ObjectID\" id=\"ListerMainObjectID\">\n");my $in = $C->{KeepFields};my $loop = ref($in) eq "ARRAY" ? $in : ref($in) eq "CODE" ? &{$in} : [];$C->{ITERATION}{kf} = -1;for my $f (@$loop) {$C->{ITERATION}{kf}++;$C->{kf} = $f;$this->out("<input type=\"hidden\" name=\"$C->{kf}\" value=\"$C->{INPUT}{$C->{kf}}\">\n");}$this->out("\n");if ( $C->{TableSearchForm} ) {$this->out("<table cellpadding=0 cellspacing=0>\n<tr><td align=right>\n");{my $G = (ref $this)->get("$C->{TabActCfg}{template_search}", $this->{param}) or die "no skel $C->{TabActCfg}{template_search}";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("</td></tr>\n<tr><td align=right>\n<br><br>\n");}$this->out("\n<table border=0 cellpadding=0 cellspacing=1 class=atkMainTable>\n\n<tr>\n<td class=atkHeader colspan=$C->{colspan}>$C->{TableTitle}</td>\n</tr>\n\n");if ( $C->{Total} ) {$this->out("");if ( $C->{Pager}{enabled} ) {$this->out("<tr>\n	<td class=atkListerPager style=\"text-align: left;\" colspan=$C->{colspan}>\n		Total $C->{Total}\n		&nbsp;::&nbsp;\n");{my $G = (ref $this)->get("/zen/table/pager.html", $this->{param}) or die "no skel /zen/table/pager.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("		&nbsp;::&nbsp;\n		show by\n		<input type=text style=\"font-size: 70\%; width: 30px;\" name=\"TabPageSize\" value=\"$C->{Pager}{ipp}\">\n		<a class=atkControl href=\"#\" onClick=\"var form = document.forms[\'Lister\']; form.elements[\'TabAct\'].value = \'list\'; form.submit(); return false;\">&gt;&gt;</a>\n	</td>\n</tr>\n");}$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 class=atkListerFieldnames>$C->{Names}{$C->{f}}</td>\n");}$this->out("</tr>\n");}$this->out("");my $in = $C->{List};my $loop = ref($in) eq "ARRAY" ? $in : ref($in) eq "CODE" ? &{$in} : [];$C->{ITERATION}{Record} = -1;for my $f (@$loop) {$C->{ITERATION}{Record}++;$C->{Record} = $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 class=atkCell>$C->{Record}{$C->{f}}</td>\n");}$this->out("</tr>\n");}$this->out("</table>\n\n");if ( $C->{TableSearchForm} ) {$this->out("</td></tr>\n</table>\n");}$this->out("\n</form>\n");}