MyAccount
<%= $url = "$selfurl?session=$session_id;action="; ''; %>
MyAccount
Make a payment
Amount Due
$<%=sprintf("%.2f",$balance)%>
Payment amount
$
">
Card type
<%= foreach ( keys %$card_types ) { $selected = $card_type eq $card_types->{$_} ? ' SELECTED' : ''; $OUT .= qq(
$_\n); } %>
Card number
Exp.
<%= for ( ( map "0$_", 1 .. 9 ), 11, 12 ) { $OUT .= '
$_\n"; } %>
/
<%= for ( 2003 .. 2012 ) { $OUT .= '
$_\n"; } %>
Exact name on card
Card billing address
Address line 2
City
State
<%= for ( @$states ) { $OUT .= '
$_\n"; } %>
Zip
Remember this information
NAME="CARD"> Charge future payments to this card automatically
powered by
freeside