use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("");$C->{HTMLTitle} = "My credit cards";$this->out("\n");$this->out(Zen::PerlHandler->get("IIaf278f35fcd8078ef5ce13063f83ed27->mnt_list_member_jvmsub")->do($this->{C}));$this->out("\n<table border=0 cellpadding=0 cellspacing=1 class=atkMainTable>\n<tr><td class=atkHeader colspan=4>My credit cards</td></tr>\n<tr>\n	<td class=atkListerFieldnames>Credit card</td>\n	<td class=atkListerFieldnames>Expires</td>\n	<td class=atkListerFieldnames>Change</td>\n	<td class=atkListerFieldnames>Subscriptions</td>\n</tr>\n");my $in = $C->{Records};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 valign=\"top\">$C->{r}{number}</td>\n	<td class=atkCell valign=\"top\">$C->{r}{expires}</td>\n	<td class=atkCell valign=\"top\"><input type=\"button\" value=\"change\" onClick=\"document.location=\'$C->{SYS}{URI}/member/account/ccupdate/change.html?ccs_id=$C->{r}{ccs_id}\'\"></td>\n	<td class=atkCell valign=\"top\">\n		<table cellpadding=\"0\" cellspacing=\"0\">\n");my $in = $C->{r}{jvmsubs};my $loop = ref($in) eq "ARRAY" ? $in : ref($in) eq "CODE" ? &{$in} : [];$C->{ITERATION}{s} = -1;for my $f (@$loop) {$C->{ITERATION}{s}++;$C->{s} = $f;$this->out("		<tr>\n			<td><a target=\"_blank\" href=\"$C->{SYS}{URI}/member/account/jvmsubs.html?sea_ids=$C->{s}{subscr_id}\">$C->{s}{subscr_id}</a></td>\n			<td>&nbsp;&nbsp;</td>\n			<td>\n");if ( $C->{s}{refsale_failure_reason} ) {$this->out("					<div style=\"color:red\">Failed: $C->{s}{refsale_failure_reason}</div>\n");} else {$this->out("					<div style=\"color:blue\">OK</div>\n");}$this->out("			</td>\n		</tr>\n");}$this->out("		</table>\n	</td>\n</tr>\n");}$this->out("<tr>\n	<td class=atkListerControl align=center colspan=4>&nbsp;</td>\n</tr>\n</table>\n\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("");}