2 <TD ALIGN="right">Account type</TD>
4 <SELECT NAME="paytype">
5 <%= foreach ( @paytypes ) {
6 $selected = $paytype eq $_ ? ' SELECTED' : '';
7 $OUT .= qq(<OPTION$selected VALUE="$_">$_\n);
12 <TD ALIGN="right">Account number</TD>
13 <TD><INPUT TYPE="text" NAME="payinfo1" SIZE=10 MAXLENGTH=20 VALUE="<%=$payinfo1%>"></TD>
15 <TD ALIGN="right">ABA/Routing number</TD>
16 <TD><INPUT TYPE="text" NAME="payinfo2" SIZE=10 MAXLENGTH=9 VALUE="<%=$payinfo2%>"></TD>
18 <TD ALIGN="right">Bank name</TD>
19 <TD><INPUT TYPE="text" SIZE=32 MAXLENGTH=80 NAME="payname" VALUE="<%=$payname%>"></TD>
24 $OUT .= qq!<TD ALIGN="right">Bank state</TD><TD><SELECT NAME="paystate">!;
26 $OUT .= '<OPTION'. ($_ eq $paystate ? ' SELECTED' : '' ). ">$_\n";
28 $OUT .= '</SELECT></TD></TR><TR>';
34 $OUT .= '<TD ALIGN="right">Account holder<BR>Social ';
35 $OUT .= 'security or tax ID #</TD><TD>';
36 $OUT .= qq!<INPUT TYPE="text" SIZE=32 MAXLENGTH=80 NAME="ss" VALUE="$ss">!;
37 $OUT .= '</TD></TR><TR>';
43 $OUT .= '<TD ALIGN="right">';
44 $OUT .= qq!Account holder<BR>$stateid_label</TD><TD>!;
45 $OUT .= qq!<INPUT TYPE="text" SIZE=32 MAXLENGTH=80 NAME="stateid" VALUE="$stateid"></TD>!;
46 $OUT .= qq!<TD ALIGN="right">$stateid_state_label</TD>!;
47 $OUT .= '<TD><SELECT NAME="stateid_state">';
49 $OUT .= '<OPTION'. ($_ eq $stateid_state ? ' SELECTED' : '' ). ">$_\n";
51 $OUT .='</SELECT></TD></TR><TR>';