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_ccupdate")->do($this->{C}));$this->out("\n");if ( $C->{Complete} ) {$this->out("\n	<div style=\"color: blue\">Your Credit Card data has been changed</div>\n	<br><br>\n	<input type=\"button\" value=\"View Credit Cards attached to your account\" onClick=\"document.location=\'$C->{SYS}{URI}/member/account/ccupdate.html\'\">\n\n");} else {$this->out("\n");if ( $C->{Form}{errors} ) {$this->out("		<div style=\"color: red\">\n");my $in = $C->{Form}{errors};my $loop = ref($in) eq "ARRAY" ? $in : ref($in) eq "CODE" ? &{$in} : [];$C->{ITERATION}{error} = -1;for my $f (@$loop) {$C->{ITERATION}{error}++;$C->{error} = $f;$this->out("			<br>* $C->{error}{message}\n");}$this->out("		</div><br>\n");}$this->out("\n");if ( $C->{Error} eq 'NotSupportedByPGate' ) {$this->out("		<div style=\"color: red\">Sorry, this operation is not supported by the Delavo payment option used for your subscription. Please contact site administrator</div><br>\n");} elsif ( $C->{Error} ) {$this->out("		<div style=\"color: red\">$C->{Error}</div><br>\n");}$this->out("\n	<form action=\"$C->{SYS}{URI}/member/account/ccupdate/change.html\" method=POST enctype=\"multipart/form-data\">\n	<input type=\"hidden\" name=\"ccs_id\" value=\"$C->{INPUT}{ccs_id}\">\n	<table border=0 cellpadding=0 cellspacing=1 class=atkMainTable>\n	<tr>\n		<td class=atkHeader>Change Credit Card data</td>\n	</tr>\n	<tr><td><table class=atkInnerTable cellpadding=4 cellspacing=3 width=100\%>\n	<tr>\n		<td class=atkEditorLeft><b style=\"color: red\">*</b> Current credit card</td>\n		<td class=atkEditorRight>$C->{CCSObj}{CardnumberViewHTML} expires $C->{CCSObj}{ExpirationView}</td>\n	</tr>\n	<tr>\n		<td class=atkEditorLeft><b style=\"color: red\">*</b> New card number</td>\n		<td class=atkEditorRight>$C->{Form}{cardnumber}</td>\n	</tr>\n	<tr>\n		<td class=atkEditorLeft><b style=\"color: red\">*</b> New card expiration date</td>\n		<td class=atkEditorRight>$C->{Form}{cardexpmonth} / $C->{Form}{cardexpyear}</td>\n	</tr>\n	<tr>\n		<td class=atkEditorLeft>New card verification code</td>\n		<td class=atkEditorRight>$C->{Form}{cardcvc}</td>\n	</tr>\n	</table></td></tr>\n	<tr>\n		<td class=atkEditorControl>\n		<input type=\"submit\" class=\"\"btn btn-primary\"\" name=\"do_it\" value=\"Submit\">\n		</td>\n	</tr>\n	</table>\n	</form>\n\n");}$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("");}