httemplate/view/cust_main/cust_payby.html

   1 % if ( @cust_payby ) {
   2
   3     <FONT CLASS="fsinnerbox-title"><% mt('Payment information') |h %></FONT>
   4     <TABLE CLASS="fsinnerbox">
   5
   6 %   my $num = 0;
   7 %   foreach my $cust_payby ( @cust_payby ) {
   8
   9 %     #one line per piece of info?  maybe, but just getting something working
  10 %     # for now
  11
  12 %     if ( $cust_payby->payby eq 'CARD' || $cust_payby->payby eq 'DCRD' ) {
  13
  14 %       my $auto = $cust_payby->payby eq 'CARD' ? 'automatic' : 'on-demand';
  15         <TR>
  16           <TD COLSPAN=2 ALIGN="center">
  17             <% mt("Credit card ([_1])",$auto) |h %>
  18           </TD>
  19         </TR>
  20         <TR>
  21           <TH ALIGN="right"><% mt('Card number') |h %></TH>
  22           <TD><% $cust_payby->paymask %></TD>
  23         </TR>
  24
  25 %       my( $mon, $year ) = $cust_payby->paydate_mon_year;
  26         <TR>
  27           <TH ALIGN="right"><% mt('Expiration') |h %></TH>
  28           <TD><% "$mon/$year" %></TD>
  29         </TR>
  30
  31 %       if ( $cust_payby->paystart_month ) {
  32           <TR>
  33             <TH ALIGN="right"><% mt('Start date') |h %></TH>
  34             <TD><% $cust_payby->paystart_month. '/'. $cust_payby->paystart_year %>
  35           </TR>
  36 %       } elsif ( $cust_payby->payissue ) {
  37           <TR>
  38             <TH ALIGN="right"><% mt('Issue #') |h %></TH>
  39             <TD><% $cust_payby->payissue %>
  40           </TR>
  41 %       }
  42
  43         <TR>
  44           <TH ALIGN="right"><% mt('Name on card') |h %></TH>
  45           <TD><% $cust_payby->payname %></TD>
  46         </TR>
  47
  48 %     } elsif ( $cust_payby->payby eq 'CHEK' || $cust_payby->payby eq 'DCHK') {
  49
  50 %       my $auto = $cust_payby->payby eq 'CHEK' ? 'automatic' : 'on-demand';
  51 %
  52 %       my( $account, $aba ) = split('@', $cust_payby->paymask );
  53 %       my $branch = '';
  54 %       ($branch,$aba) = split('\.',$aba)
  55 %         if $conf->config('echeck-country') eq 'CA';
  56
  57         <TR>
  58           <TD COLSPAN=2 ALIGN="center">
  59             <% mt("Electronic check ([_1])",$auto) |h %>
  60           </TD>
  61         </TR>
  62
  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'
  66 %                             : 'Routing number';
  67         <TR>
  68           <TH ALIGN="right"><% mt($routing_label) |h %></TH>
  69           <TD><% $aba %></TD>
  70         </TR>
  71
  72 %       if ( $conf->config('echeck-country') eq 'CA' ) {
  73           <TR>
  74             <TH ALIGN="right"><% mt('Branch number') |h %></TH>
  75             <TD><% $branch %></TD>
  76           </TR>
  77 %       }
  78
  79         <TR>
  80           <TH ALIGN="right"><% mt('Account number') |h %></TH>
  81           <TD><% $account %></TD>
  82         </TR>
  83         <TR>
  84           <TH ALIGN="right"><% mt('Account type') |h %></TH>
  85           <TD><% $cust_payby->paytype %></TD>
  86         </TR>
  87         <TR>
  88           <TH ALIGN="right"><% mt('Bank name') |h %></TH>
  89           <TD><% $cust_payby->payname %></TD>
  90         </TR>
  91
  92 %       if ( $conf->exists('show_bankstate') ) {
  93           <TR>
  94             <TH ALIGN="right"><% $paystate_label %></TH>
  95             <TD><% $cust_payby->paystate || '&nbsp;&nbsp;&nbsp;' %></TD>
  96           </TR>
  97 %       }
  98
  99 %     } else {
 100         <TR>
 101           <TD COLSPAN="2"><FONT COLOR="#FF0000">
 102             Unknown cust_payby.payby <% $cust_payby->payby %>
 103           </FONT></TD>
 104         </TR>
 105 %     }
 106
 107 %     unless ( $num++ == $#cust_payby ) {
 108         <TR>
 109           <TD COLSPAN="2"></TD>
 110         </TR>
 111         <TR>
 112           <TD COLSPAN="2" STYLE="border-top: 1px solid black; padding:2px"></TD>
 113         </TR>
 114 %     }
 115
 116 %   }
 117
 118     </TABLE>
 119
 120 % }
 121 <%once>
 122
 123 my $paystate_label = FS::Msgcat::_gettext('paystate');
 124 $paystate_label = 'Bank state' if $paystate_label =~/^paystate$/;
 125
 126 </%once>
 127 <%init>
 128
 129 my( $cust_main ) = @_;
 130 my $conf = new FS::Conf;
 131 my @cust_payby = $cust_main->cust_payby;
 132
 133 </%init>