fs_selfservice/FS-SelfService/cgi/card.html

   1 <TR>
   2   <TH ALIGN="right">Card&nbsp;number</TH>
   3   <TD COLSPAN=6>
   4     <TABLE>
   5       <TR>
   6         <TD>
   7           <INPUT TYPE="text" NAME="payinfo" SIZE=20 MAXLENGTH=19 VALUE="<%=$payinfo%>"> </TD>
   8         <TH>Exp.</TH>
   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   <TH ALIGN="right">Exact&nbsp;name&nbsp;on&nbsp;card</TH>
  39   <TD COLSPAN=6><INPUT TYPE="text" SIZE=32 MAXLENGTH=80 NAME="payname" VALUE="<%=$payname%>"></TD>
  40 </TR>
  41
  42 <%= location_form( 'session_id'     => $session_id,
  43                    'no_asterisks'   => 1,
  44                    #'address1_label' => 'Card billing address',
  45                    'address1_label' => 'Card&nbsp;billing&nbsp;address',
  46                  )
  47 %>