4 $OUT .= qq!<TR><TD COLSPAN=2><FONT COLOR="red">You only have read only access</TD></TR>!;
8 <TD ALIGN="right">Account type</TD>
9 <TD <%= ($ach_read_only ? ' BGCOLOR="#ffffff"' : '') %> >
12 $OUT = $paytype . '<INPUT TYPE="hidden" NAME="paytype" VALUE="' . $paytype . '">';
14 $OUT .= '<SELECT NAME="paytype">';
15 foreach ( @paytypes ) {
16 $selected = $paytype eq $_ ? ' SELECTED' : '';
17 $OUT .= qq(<OPTION$selected VALUE="$_">$_\n);
24 <TD ALIGN="right">Account number</TD>
25 <TD <%= ($ach_read_only ? ' BGCOLOR="#ffffff"' : '') %> >
26 <%= if ($ach_read_only) {
27 $OUT = qq! $payinfo1 <INPUT TYPE="hidden" NAME="payinfo1" VALUE="$payinfo1"> !;
29 $OUT = qq! <INPUT TYPE="text" NAME="payinfo1" SIZE=10 MAXLENGTH=20 VALUE="$payinfo1"> !;
34 <TD ALIGN="right">ABA/Routing number</TD>
35 <TD <%= ($ach_read_only ? ' BGCOLOR="#ffffff"' : '') %> >
38 $OUT = qq! $payinfo2 <INPUT TYPE="hidden" NAME="payinfo2" VALUE="$payinfo2"> !;
40 $OUT = qq! <INPUT TYPE="text" NAME="payinfo2" SIZE=10 MAXLENGTH=20 VALUE="$payinfo2"> !;
45 <TD ALIGN="right">Bank name</TD>
46 <TD <%= ($ach_read_only ? ' BGCOLOR="#ffffff"' : '') %> >
49 $OUT = qq! $payname <INPUT TYPE="hidden" NAME="payname" VALUE="$payname"> !;
51 $OUT = qq! <INPUT TYPE="text" NAME="payname" SIZE=10 MAXLENGTH=20 VALUE="$payname"> !;
59 $OUT .= '<TR><TD ALIGN="right">Bank state</TD><TD' . ($ach_read_only ? ' BGCOLOR="#ffffff"' : '') . '>';
61 $OUT .= qq! $paystate <INPUT TYPE="hidden" NAME="paystate" VALUE="$paystate"> !;
63 $OUT .= '<SELECT NAME="paystate">';
65 $OUT .= '<OPTION'. ($_ eq $paystate ? ' SELECTED' : '' ). ">$_\n";
75 $OUT .= '<TR><TD ALIGN="right">Account holder<BR>Social ';
76 $OUT .= 'security or tax ID #</TD><TD' . ($ach_read_only ? ' BGCOLOR="#ffffff"' : '') . '>';
78 $OUT .= qq! $ss <INPUT TYPE="hidden" NAME="ss" VALUE="$ss">!;
80 $OUT .= qq!<INPUT TYPE="text" SIZE=32 MAXLENGTH=80 NAME="ss" VALUE="$ss">!;
88 $OUT .= qq!<TR><TD ALIGN="right">Account holder<BR>$stateid_label</TD>!;
89 $OUT .= '<TD' . ($ach_read_only ? ' BGCOLOR="#ffffff"' : '') . '>';
91 $OUT .= qq! $stateid <INPUT TYPE="hidden" NAME="stateid" VALUE="$stateid">!;
93 $OUT .= qq!<INPUT TYPE="text" SIZE=32 MAXLENGTH=80 NAME="stateid" VALUE="$stateid"></TD>!;
94 $OUT .= qq!<TD ALIGN="right">$stateid_state_label</TD>!;
95 $OUT .= '<TD><SELECT NAME="stateid_state">';
97 $OUT .= '<OPTION'. ($_ eq $stateid_state ? ' SELECTED' : '' ). ">$_\n";