httemplate/view/cust_main/billing.html

   1 <%
   2   my( $cust_main ) = @_;
   3   my @invoicing_list = $cust_main->invoicing_list;
   4 %>
   5
   6 Billing information
   7 (<A HREF="<%= $p %>misc/bill.cgi?<%= $cust_main->custnum %>">Bill now</A>)
   8 <%= ntable("#cccccc") %><TR><TD><%= ntable("#cccccc",2) %>
   9 <TR>
  10   <TD ALIGN="right">Tax&nbsp;exempt</TD>
  11   <TD BGCOLOR="#ffffff"><%= $cust_main->tax ? 'yes' : 'no' %></TD>
  12 </TR>
  13 <TR>
  14   <TD ALIGN="right">Postal&nbsp;invoices</TD>
  15   <TD BGCOLOR="#ffffff">
  16     <%= ( grep { $_ eq 'POST' } @invoicing_list ) ? 'yes' : 'no' %>
  17   </TD>
  18 </TR>
  19 <TR>
  20   <TD ALIGN="right">FAX&nbsp;invoices</TD>
  21   <TD BGCOLOR="#ffffff">
  22     <%= ( grep { $_ eq 'FAX' } @invoicing_list ) ? 'yes' : 'no' %>
  23   </TD>
  24 </TR>
  25 <TR>
  26   <TD ALIGN="right">Email&nbsp;invoices</TD>
  27   <TD BGCOLOR="#ffffff">
  28     <%= join(', ', grep { $_ !~ /^(POST|FAX)$/ } @invoicing_list ) || 'no' %>
  29   </TD>
  30 </TR>
  31 <TR>
  32   <TD ALIGN="right">Billing&nbsp;type</TD>
  33   <TD BGCOLOR="#ffffff">
  34
  35 <% if ( $cust_main->payby eq 'CARD' || $cust_main->payby eq 'DCRD' ) { %>
  36
  37     Credit&nbsp;card&nbsp;<%= $cust_main->payby eq 'CARD' ? '(automatic)' : '(on-demand)' %>
  38   </TD>
  39 </TR>
  40 <TR>
  41   <TD ALIGN="right">Card number</TD>
  42   <TD BGCOLOR="#ffffff"><%= $cust_main->payinfo_masked %></TD>
  43 </TR>
  44 <TR>
  45   <TD ALIGN="right">Expiration</TD>
  46   <TD BGCOLOR="#ffffff"><%= $cust_main->paydate %></TD>
  47 </TR>
  48 <TR>
  49   <TD ALIGN="right">Name on card</TD>
  50   <TD BGCOLOR="#ffffff"><%= $cust_main->payname %></TD>
  51 </TR>
  52
  53 <% } elsif ( $cust_main->payby eq 'CHEK' || $cust_main->payby eq 'DCHK') {
  54      my( $account, $aba ) = split('@', $cust_main->payinfo );
  55 %>
  56
  57     Electronic&nbsp;check&nbsp;<%= $cust_main->payby eq 'CHEK' ? '(automatic)' : '(on-demand)' %>
  58   </TD>
  59 </TR>
  60 <TR>
  61   <TD ALIGN="right">ABA/Routing code</TD>
  62   <TD BGCOLOR="#ffffff"><%= $aba %></TD>
  63 </TR>
  64 <TR>
  65   <TD ALIGN="right">Account number</TD>
  66   <TD BGCOLOR="#ffffff"><%= $account %></TD>
  67 </TR>
  68 <TR>
  69   <TD ALIGN="right">Bank name</TD>
  70   <TD BGCOLOR="#ffffff"><%= $cust_main->payname %></TD>
  71 </TR>
  72
  73 <% } elsif ( $cust_main->payby eq 'LECB' ) {
  74      $cust_main->payinfo =~ /^(\d{3})(\d{3})(\d{4})$/;
  75      my $payinfo = "$1-$2-$3";
  76 %>
  77
  78     Phone&nbsp;bill&nbsp;billing
  79   </TD>
  80 </TR>
  81 <TR>
  82   <TD ALIGN="right">Phone number</TD>
  83   <TD BGCOLOR="#ffffff"><%= $payinfo %></TD>
  84 </TR>
  85
  86 <% } elsif ( $cust_main->payby eq 'BILL' ) { %>
  87
  88     Billing
  89   </TD>
  90 </TR>
  91
  92   <% if ( $cust_main->payinfo ) { %>
  93 <TR>
  94   <TD ALIGN="right">P.O. </TD>
  95   <TD BGCOLOR="#ffffff"><%= $cust_main->payinfo %></TD>
  96 </TR>
  97   <% } %>
  98
  99 <TR>
 100   <TD ALIGN="right">Expiration</TD>
 101   <TD BGCOLOR="#ffffff"><%= $cust_main->paydate %></TD>
 102 </TR>
 103 <TR>
 104   <TD ALIGN="right">Attention</TD>
 105   <TD BGCOLOR="#ffffff"><%= $cust_main->payname %></TD>
 106 </TR>
 107
 108 <% } elsif ( $cust_main->payby eq 'COMP' ) { %>
 109
 110     Complimentary
 111   </TD>
 112 </TR>
 113 <TR>
 114   <TD ALIGN="right">Authorized&nbsp;by</TD>
 115   <TD BGCOLOR="#ffffff"><%= $cust_main->payinfo %></TD>
 116 </TR>
 117 <TR>
 118   <TD ALIGN="right">Expiration</TD>
 119   <TD BGCOLOR="#ffffff"><%= $cust_main->paydate %></TD>
 120 </TR>
 121
 122 <% } %>
 123
 124 </TABLE></TD></TR></TABLE>
 125