2 <TD ALIGN="right">Account type</TD>
3 <TD <%= ($ach_read_only ? ' BGCOLOR="#ffffff"' : '') %> >
6 $OUT = $paytype . '<INPUT TYPE="hidden" NAME="paytype" VALUE="' . $paytype . '">';
8 $OUT .= '<SELECT NAME="paytype">';
9 foreach ( @paytypes ) {
10 $selected = $paytype eq $_ ? ' SELECTED' : '';
11 $OUT .= qq(<OPTION$selected VALUE="$_">$_\n);
18 <TD ALIGN="right">Account number</TD>
19 <TD <%= ($ach_read_only ? ' BGCOLOR="#ffffff"' : '') %> >
20 <%= if ($ach_read_only) {
21 $OUT = qq! $payinfo1 <INPUT TYPE="hidden" NAME="payinfo1" VALUE="$payinfo1"> !;
23 $OUT = qq! <INPUT TYPE="text" NAME="payinfo1" SIZE=10 MAXLENGTH=20 VALUE="$payinfo1"> !;
28 <TD ALIGN="right">ABA/Routing number</TD>
29 <TD <%= ($ach_read_only ? ' BGCOLOR="#ffffff"' : '') %> >
32 $OUT = qq! $payinfo2 <INPUT TYPE="hidden" NAME="payinfo2" VALUE="$payinfo2"> !;
34 $OUT = qq! <INPUT TYPE="text" NAME="payinfo2" SIZE=10 MAXLENGTH=20 VALUE="$payinfo2"> !;
39 <TD ALIGN="right">Bank name</TD>
40 <TD <%= ($ach_read_only ? ' BGCOLOR="#ffffff"' : '') %> >
43 $OUT = qq! $payname <INPUT TYPE="hidden" NAME="payname" VALUE="$payname"> !;
45 $OUT = qq! <INPUT TYPE="text" NAME="payname" SIZE=10 MAXLENGTH=20 VALUE="$payname"> !;
53 $OUT .= '<TR><TD ALIGN="right">Bank state</TD><TD' . ($ach_read_only ? ' BGCOLOR="#ffffff"' : '') . '>';
55 $OUT .= qq! $paystate <INPUT TYPE="hidden" NAME="paystate" VALUE="$paystate"> !;
57 $OUT .= '<SELECT NAME="paystate">';
59 $OUT .= '<OPTION'. ($_ eq $paystate ? ' SELECTED' : '' ). ">$_\n";
69 $OUT .= '<TR><TD ALIGN="right">Account holder<BR>Social ';
70 $OUT .= 'security or tax ID #</TD><TD' . ($ach_read_only ? ' BGCOLOR="#ffffff"' : '') . '>';
72 $OUT .= qq! $ss <INPUT TYPE="hidden" NAME="ss" VALUE="$ss">!;
74 $OUT .= qq!<INPUT TYPE="text" SIZE=32 MAXLENGTH=80 NAME="ss" VALUE="$ss">!;
82 $OUT .= qq!<TR><TD ALIGN="right">Account holder<BR>$stateid_label</TD>!;
83 $OUT .= '<TD' . ($ach_read_only ? ' BGCOLOR="#ffffff"' : '') . '>';
85 $OUT .= qq! $stateid <INPUT TYPE="hidden" NAME="stateid" VALUE="$stateid">!;
87 $OUT .= qq!<INPUT TYPE="text" SIZE=32 MAXLENGTH=80 NAME="stateid" VALUE="$stateid"></TD>!;
88 $OUT .= qq!<TD ALIGN="right">$stateid_state_label</TD>!;
89 $OUT .= '<TD><SELECT NAME="stateid_state">';
91 $OUT .= '<OPTION'. ($_ eq $stateid_state ? ' SELECTED' : '' ). ">$_\n";