use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("");$this->out(Zen::PerlHandler->get("IIff84efac6745bff28b1dd7b2b6217b3e->mnt_report")->do($this->{C}));$this->out("\n<div style=\"text-align:center;margin:20px\">\n	<input type=\"button\" value=\"Initiate Subscription Installments processing\" onClick=\"jinPopWin(\'$C->{CronCmd}\',600,400); return false;\">\n</div>\n\n<table class=\"atkMainTable\" border=\"0\" cellpadding=\"0\" cellspacing=\"1\">\n<tbody><tr>\n<td class=\"atkHeader\" colspan=\"4\">Internal subscriptions: Payments Report (last 50 days)</td>\n</tr>\n<tr>\n	<td class=\"atkListerFieldnames\">Date</td>\n	<td class=\"atkListerFieldnames\"># of installments<br>created</td>\n	<td class=\"atkListerFieldnames\"># of payments<br>processed</td>\n	<td class=\"atkListerFieldnames\"># of payments<br>failed</td>\n</tr>\n");my $in = $C->{Data};my $loop = ref($in) eq "ARRAY" ? $in : ref($in) eq "CODE" ? &{$in} : [];$C->{ITERATION}{r} = -1;for my $f (@$loop) {$C->{ITERATION}{r}++;$C->{r} = $f;$this->out("<tr>\n	<td class=\"atkCell\">$C->{r}{dateView}</td>\n	<td class=\"atkCell\" style=\"font-size:120\%;padding-left:40px\">$C->{r}{created}</td>\n	<td class=\"atkCell\" style=\"font-size:120\%;padding-left:40px\"><a target=\"_blank\" href=\"?TabCustom1=payreport&show_sales=$C->{r}{date}.processed\">$C->{r}{processed}</a></td>\n	<td class=\"atkCell\" style=\"font-size:120\%;padding-left:40px\"><a target=\"_blank\" href=\"?TabCustom1=payreport&show_sales=$C->{r}{date}.failed\">$C->{r}{failed}</a></td>\n</tr>\n");}$this->out("<tr>\n	<td class=\"atkListerControl\" align=\"center\" colspan=\"4\">&nbsp;</td>\n</tr>\n</tbody></table>\n	</td>\n</tr>\n</tbody></table>\n\n");}