use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("");$C->{INPUT}{TabCustom1} ||= "list";$this->out("\n<div style=\"text-align: center\">\n");my $in = [ { name => 'list', title_menu => 'Subscriptions', }, { name => 'report', title_menu => 'Summary Report', }, { name => 'contretent', title_menu => 'Continuity Retention Report', }, { name => 'payreport', title_menu => 'Payments Report', } ];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("");if ( $C->{ITERATION}{t} ) {$this->out("|");}$this->out("");if ( $C->{INPUT}{TabCustom1} eq $C->{t}{name} ) {$this->out("		<b>$C->{t}{title_menu}</b>\n");} else {$this->out("		<a class=\"jinTableLink\" href=\"$C->{SYS}{URL}/master/customers/jvmsubs.html?TabCustom1=$C->{t}{name}\">$C->{t}{title_menu}</a>\n");}$this->out("");}$this->out("</div>\n<br>\n\n");if ( $C->{INPUT}{TabCustom1} eq 'list' ) {$this->out("");$C->{TableTitle} = "Internal subscriptions";$this->out("");$C->{TableClass} = II720d6e18aa34327713eb014408fc9144::IIllIIIlIIllllII($II8dae0e141ee45f5daba6a74e4a7c3b6f::IIllllIllllllIll{$II982446f8950cc3dc59e487adba22df54::IIlIIIIIlIIlIllI},353,$II8dae0e141ee45f5daba6a74e4a7c3b6f::IIllllIllllllIll{$II982446f8950cc3dc59e487adba22df54::lIIlllIlIllllIIl});$this->out("");$C->{TableSearchForm} = II8dae0e141ee45f5daba6a74e4a7c3b6f::IIlIlIlIIIlIIlll($II982446f8950cc3dc59e487adba22df54::IlllIlIlllIIllIl{$IIb39071a48a82a07eeb9256f406abebc5::lllllllIlIllIlIl},352,$II982446f8950cc3dc59e487adba22df54::IlllIlIlllIIllIl{$II982446f8950cc3dc59e487adba22df54::lIIlllIlIllllIIl});$this->out("	\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("");} elsif ( $C->{INPUT}{TabCustom1} eq 'report' ) {$this->out("");$C->{TableTitle} = "Internal subscriptions: Summary Report";$this->out("");$C->{TableClass} = II720d6e18aa34327713eb014408fc9144::IIlllllIlllIIIIl($IIb39071a48a82a07eeb9256f406abebc5::lllllIlIlllIllIl{$II982446f8950cc3dc59e487adba22df54::IllllIlIIIlIIIII},769,$IIb39071a48a82a07eeb9256f406abebc5::lllllIlIlllIllIl{$II8dae0e141ee45f5daba6a74e4a7c3b6f::IlllIllIIIIIllIl});$this->out("");$C->{TableSearchForm} = II982446f8950cc3dc59e487adba22df54::IIllIIllIIIlllll($II8dae0e141ee45f5daba6a74e4a7c3b6f::lIlllIlIlIlIlIll{$IIb39071a48a82a07eeb9256f406abebc5::lIIlIlIlIlllIIII},768,$II8dae0e141ee45f5daba6a74e4a7c3b6f::lIlllIlIlIlIlIll{$II8dae0e141ee45f5daba6a74e4a7c3b6f::IllIlllllllIlIll});$this->out("");{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("");} elsif ( $C->{INPUT}{TabCustom1} eq 'contretent' ) {$this->out("");$C->{TableTitle} = "Internal subscriptions: Continuity Retention Report";$this->out("");$C->{TableClass} = II8dae0e141ee45f5daba6a74e4a7c3b6f::IIlIlIlIIIlIIlll($II8dae0e141ee45f5daba6a74e4a7c3b6f::lIlllIIIlIlIlIII{$IIb39071a48a82a07eeb9256f406abebc5::lllllllIlIllIlIl},474,$II8dae0e141ee45f5daba6a74e4a7c3b6f::lIlllIIIlIlIlIII{$II982446f8950cc3dc59e487adba22df54::lIIlIIIIIlIlIllI});$this->out("");$C->{TableSearchForm} = II982446f8950cc3dc59e487adba22df54::IIllIIllIIIlllll($II720d6e18aa34327713eb014408fc9144::lIIllIIIlIlIlIIl{$IIb39071a48a82a07eeb9256f406abebc5::lIIIlIllllIIlIll},473,$II720d6e18aa34327713eb014408fc9144::lIIllIIIlIlIlIIl{$IIb39071a48a82a07eeb9256f406abebc5::llIlIIIIllIIIlII});$this->out("");{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("");} elsif ( $C->{INPUT}{TabCustom1} eq 'payreport' ) {$this->out("");$C->{TableTitle} = "Internal subscriptions: Payments Report";$this->out("");{my $G = (ref $this)->get("/master/customers/jvmsubs/payreport.html", $this->{param}) or die "no skel /master/customers/jvmsubs/payreport.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->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("");}