1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
<TR>
<TH ALIGN="right">Card number</TH>
<TD COLSPAN=6>
<TABLE>
<TR>
<TD>
<INPUT TYPE="text" NAME="payinfo" SIZE=20 MAXLENGTH=19 VALUE="<%=$payinfo%>"> </TD>
<TH>Exp.</TH>
<TD>
<SELECT NAME="month">
<%= for ( ( map "0$_", 1 .. 9 ), 10 .. 12 ) {
$OUT .= '<OPTION'. ($_ == $month ? ' SELECTED' : ''). ">$_\n";
} %>
</SELECT>
</TD>
<TD> / </TD>
<TD>
<SELECT NAME="year">
<%= my @a = localtime; for ( $a[5]+1900 .. $a[5]+1915 ) {
$OUT .= '<OPTION'. ($_ == $year ? ' SELECTED' : ''). ">$_\n";
} %>
</SELECT>
</TD>
</TR>
</TABLE>
</TD>
</TR>
<%=
if ( $withcvv ) {
$OUT .= qq!<TR>!;
$OUT .= qq!<TD ALIGN="right">CVV2 (<A HREF="javascript:myopen('cvv2.html','cvv2','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=yes,copyhistory=no,width=480,height=288')">help</A>)</TD>!;
$OUT .= qq!<TD><INPUT TYPE="text" NAME="paycvv" VALUE="" SIZE=4 MAXLENGTH=4></TD>!;
$OUT .= qq!</TR>!;
}
'';
%>
<TR>
<TH ALIGN="right">Exact name on card</TH>
<TD COLSPAN=6><INPUT TYPE="text" SIZE=32 MAXLENGTH=80 NAME="payname" VALUE="<%=$payname%>"></TD>
</TR>
<%= location_form( 'session_id' => $session_id,
'no_asterisks' => 1,
#'address1_label' => 'Card billing address',
'address1_label' => 'Card billing address',
)
%>
|