fs_selfservice/FS-SelfService/cgi/card.html

   1 <TR>
   2   <TD ALIGN="right">Card&nbsp;number</TD>
   3   <TD>
   4     <TABLE>
   5       <TR>
   6         <TD>
   7           <INPUT TYPE="text" NAME="payinfo" SIZE=20 MAXLENGTH=19 VALUE="<%=$payinfo%>"> </TD>
   8         <TD>Exp.</TD>
   9         <TD>
  10           <SELECT NAME="month">
  11             <%= for ( ( map "0$_", 1 .. 9 ), 10 .. 12 ) {
  12                   $OUT .= '<OPTION'. ($_ == $month ? ' SELECTED' : ''). ">$_\n";
  13             } %>
  14           </SELECT>
  15         </TD>
  16         <TD> / </TD>
  17         <TD>
  18           <SELECT NAME="year">
  19             <%= my @a = localtime; for ( $a[5]+1900 .. $a[5]+1915 ) {
  20                   $OUT .= '<OPTION'. ($_ == $year ? ' SELECTED' : ''). ">$_\n";
  21             } %>
  22           </SELECT>
  23         </TD>
  24       </TR>
  25     </TABLE>
  26   </TD>
  27 </TR>
  28 <%=
  29   if ( $withcvv ) {
  30     $OUT .= qq!<TR>!;
  31     $OUT .= qq!<TD ALIGN="right">CVV2&nbsp;(<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>!;
  32     $OUT .= qq!<TD><INPUT TYPE="text" NAME="paycvv" VALUE="" SIZE=4 MAXLENGTH=4></TD>!;
  33     $OUT .= qq!</TR>!;
  34   }
  35   '';
  36 %>
  37 <TR>
  38   <TD ALIGN="right">Exact&nbsp;name&nbsp;on&nbsp;card</TD>
  39   <TD><INPUT TYPE="text" SIZE=32 MAXLENGTH=80 NAME="payname" VALUE="<%=$payname%>"></TD>
  40 </TR><TR>
  41   <TD ALIGN="right">Card&nbsp;billing&nbsp;address</TD>
  42   <TD>
  43     <INPUT TYPE="text" SIZE=40 MAXLENGTH=80 NAME="address1" VALUE="<%=$address1%>">
  44   </TD>
  45 </TR><TR>
  46   <TD ALIGN="right">Address&nbsp;line&nbsp;2</TD>
  47   <TD>
  48     <INPUT TYPE="text" SIZE=40 MAXLENGTH=80 NAME="address2" VALUE="<%=$address2%>">
  49   </TD>
  50 </TR><TR>
  51   <TD ALIGN="right">City</TD>
  52   <TD>
  53     <TABLE>
  54       <TR>
  55         <TD>
  56           <INPUT TYPE="text" NAME="city" SIZE="12" MAXLENGTH=80 VALUE="<%=$city%>">
  57         </TD>
  58         <TD>State</TD>
  59         <TD>
  60           <SELECT NAME="state">
  61             <%= for ( @states ) {
  62               $OUT .= '<OPTION'. ($_ eq $state ? ' SELECTED' : '' ). ">$_\n";
  63             } %>
  64           </SELECT>
  65         </TD>
  66         <TD>Zip</TD>
  67         <TD>
  68           <INPUT TYPE="text" NAME="zip" SIZE=11 MAXLENGTH=10 VALUE="<%=$zip%>">
  69         </TD>
  70       </TR>
  71     </TABLE>
  72   </TD>
  73 </TR>