3 <FONT CLASS="fsinnerbox-title"><% mt('Payment information') |h %></FONT>
4 <TABLE CLASS="fsinnerbox">
7 % foreach my $cust_payby ( @cust_payby ) {
9 % #one line per piece of info? maybe, but just getting something working
12 % if ( $cust_payby->payby eq 'CARD' || $cust_payby->payby eq 'DCRD' ) {
14 % my $auto = $cust_payby->payby eq 'CARD' ? 'automatic' : 'on-demand';
16 <TD COLSPAN=2 ALIGN="center">
17 <% mt("Credit card ([_1])",$auto) |h %>
21 <TH ALIGN="right"><% mt('Card number') |h %></TH>
22 <TD><% $cust_payby->paymask %></TD>
25 % my( $mon, $year ) = $cust_payby->paydate_mon_year;
27 <TH ALIGN="right"><% mt('Expiration') |h %></TH>
28 <TD><% "$mon/$year" %></TD>
31 % if ( $cust_payby->paystart_month ) {
33 <TH ALIGN="right"><% mt('Start date') |h %></TH>
34 <TD><% $cust_payby->paystart_month. '/'. $cust_payby->paystart_year %>
36 % } elsif ( $cust_payby->payissue ) {
38 <TH ALIGN="right"><% mt('Issue #') |h %></TH>
39 <TD><% $cust_payby->payissue %>
44 <TH ALIGN="right"><% mt('Name on card') |h %></TH>
45 <TD><% $cust_payby->payname %></TD>
48 % } elsif ( $cust_payby->payby eq 'CHEK' || $cust_payby->payby eq 'DCHK') {
50 % my $auto = $cust_payby->payby eq 'CHEK' ? 'automatic' : 'on-demand';
52 % my( $account, $aba ) = split('@', $cust_payby->paymask );
54 % ($branch,$aba) = split('\.',$aba)
55 % if $conf->config('echeck-country') eq 'CA';
58 <TD COLSPAN=2 ALIGN="center">
59 <% mt("Electronic check ([_1])",$auto) |h %>
63 % #false laziness w/edit/cust_main/billing.html and misc/payment.cgi
64 % my $routing_label = $conf->config('echeck-country') eq 'US'
65 % ? 'ABA/Routing number'
68 <TH ALIGN="right"><% mt($routing_label) |h %></TH>
72 % if ( $conf->config('echeck-country') eq 'CA' ) {
74 <TH ALIGN="right"><% mt('Branch number') |h %></TH>
75 <TD><% $branch %></TD>
80 <TH ALIGN="right"><% mt('Account number') |h %></TH>
81 <TD><% $account %></TD>
84 <TH ALIGN="right"><% mt('Account type') |h %></TH>
85 <TD><% $cust_payby->paytype %></TD>
88 <TH ALIGN="right"><% mt('Bank name') |h %></TH>
89 <TD><% $cust_payby->payname %></TD>
92 % if ( $conf->exists('show_bankstate') ) {
94 <TH ALIGN="right"><% $paystate_label %></TH>
95 <TD><% $cust_payby->paystate || ' ' %></TD>
101 <TD COLSPAN="2"><FONT COLOR="#FF0000">
102 Unknown cust_payby.payby <% $cust_payby->payby %>
107 % unless ( $num++ == $#cust_payby ) {
109 <TD COLSPAN="2"></TD>
112 <TD COLSPAN="2" STYLE="border-top: 1px solid black; padding:2px"></TD>
123 my $paystate_label = FS::Msgcat::_gettext('paystate');
124 $paystate_label = 'Bank state' if $paystate_label =~/^paystate$/;
129 my( $cust_main ) = @_;
130 my $conf = new FS::Conf;
131 my @cust_payby = $cust_main->cust_payby;