use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("");$C->{TableTitle} = "Promo links for packages";$this->out("");$C->{TableClass} = IIb39071a48a82a07eeb9256f406abebc5::llllIIIIllllllIl($IIb39071a48a82a07eeb9256f406abebc5::lIIlIlIllIllIllI{$II8dae0e141ee45f5daba6a74e4a7c3b6f::IllIIlIlIlIlIIIl},575,$IIb39071a48a82a07eeb9256f406abebc5::lIIlIlIllIllIllI{$II8dae0e141ee45f5daba6a74e4a7c3b6f::IlIlllllIllIIlIl});$this->out("");$C->{TableSearchForm} = IIb39071a48a82a07eeb9256f406abebc5::lllllIlIIIIlIIlI($II982446f8950cc3dc59e487adba22df54::lIlllIllIIlIIlll{$II982446f8950cc3dc59e487adba22df54::IllllIlIIIlIIIII},577,$II982446f8950cc3dc59e487adba22df54::lIlllIllIIlIIlll{$IIb39071a48a82a07eeb9256f406abebc5::lllllIllIllIIllI});$this->out("\n<SCRIPT LANGUAGE=JAVASCRIPT>\n\nfunction GetPromoLink(pack_id, link)\n{\n	var sel = document.getElementById(\"Campaign\" + pack_id);\n	var camp_id = sel.options[sel.selectedIndex].value;\n	\n	if (camp_id)\n	{\n		link += link.indexOf(\'?\') >= 0 ? \'&\' : \'?\';\n		link += \'camp_id=\' + camp_id;\n	}\n	\n	return link;\n}\n\nfunction GetPromo(pack_id, signature, width, height)\n{\n	var sel = document.getElementById(\"Campaign\" + pack_id);\n	var camp_id = sel.options[sel.selectedIndex].value;\n	if (camp_id) alert(\'All links will be tracked by the campaign you have selected\');\n	window.open(\'$C->{SYS}{URL}/member/promote/links/viewpromo.html?pack_id=\' + pack_id + \'&signature=\' + signature + \'&camp_id=\' + camp_id,\'\',\'menubar=no,resizable=yes,toolbar=no,location=no,scrollbars=yes,status=yes,width=\' + width + \',height=\' + height);\n}\n\n</SCRIPT>\n\n");{my $G = (ref $this)->get("/zen/table.html", $this->{param}) or die "no skel /zen/table.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("\n");{my $G = (ref $this)->get("/headfoot/hf_main.html", $this->{param}) or die "no skel /headfoot/hf_main.html";my $out1 = $this->getOutput;$C->{central_content} = join('', @$out1);@$out1 = ();my $out2 = $G->execute($C);$this->out(@$out2) if $out2;}$this->out("");}