use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("<SCRIPT>var multiactCfm = new Array();</SCRIPT>\n");my $in = $C->{TabActs}{Lister};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("");if ( $C->{a}{confirm} ) {$this->out("		<SCRIPT>multiactCfm[\'$C->{a}{tabact}\'] = \"$C->{a}{confirm}\";</SCRIPT>\n");}$this->out("");}$this->out("\n<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=\"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<table border=0 cellpadding=10 cellspacing=1>\n\n");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("\n<tr>\n	<td class=atkEditorLeft valign=\"top\">\n	$C->{Record}{TypeTitleAction}<br>\n	<nobr>\n");my $in = $C->{TabActs}{ListerPerRecord};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("");require IIa66da94aed9b371a0ee16b72f938ea09;my $val = "$C->{a}{codeLister}";II982446f8950cc3dc59e487adba22df54::IIllIIllIIIlllll($II982446f8950cc3dc59e487adba22df54::IlllIlIlllIIllIl{$II982446f8950cc3dc59e487adba22df54::IIlIIIIIlIIlIllI},1019,$II982446f8950cc3dc59e487adba22df54::IlllIlIlllIIllIl{$II8dae0e141ee45f5daba6a74e4a7c3b6f::IlllIllIIIIIllIl})->evaluate(1) for $val;eval qq(\$C->{ta} = $val);die($@) if $@;$this->out("		$C->{ta}\n");}$this->out("	</nobr>\n	</td>\n	<td bgcolor=\"white\">\n\n$C->{Record}{HTML}\n\n	</td>\n</tr>\n\n");}$this->out("\n<tr>\n	<td class=atkEditorLeft style=\"text-align: center; padding: 5px\" colspan=\"2\">\n\n");my $in = $C->{PromoTypes};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("	<input type=button class=\"btn btn-primary\" value=\"Add $C->{t}{title_action}\" onClick=\"Lister.elements[\'TabAct\'].value = \'edit\'; Lister.elements[\'TabCustom1\'].value = \'$C->{t}{name}\'; Lister.submit()\">\n");}$this->out("<br><br>\n\n<a class=\"jinTableLink\" target=\"_blank\" href=\"$C->{SYS}{URL}/master/plugins/promogen/get.html\">Get HTML</a> |\n<a class=\"jinTableLink\" target=\"_blank\" href=\"$C->{SYS}{URL}/master/plugins/promogen/package.html\">Add to Package</a> |\n<a class=\"jinTableLink\" target=\"_blank\" href=\"#\" onClick=\"if (confirm(\'Are you sure you want to clean the sketch?\')) document.location=\'$C->{SYS}{URL}/action/Jin/Promogen/clean.html\'; return false;\">Clean all</a>\n\n	</td>\n</tr>\n</table>\n\n</form>\n");}