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
  10 <TR>
  11   <TD ALIGN="right">Billing&nbsp;type</TD>
  12   <TD BGCOLOR="#ffffff">
  13
  14 <% if ( $cust_main->payby eq 'CARD' || $cust_main->payby eq 'DCRD' ) { %>
  15
  16     Credit&nbsp;card&nbsp;<%= $cust_main->payby eq 'CARD' ? '(automatic)' : '(on-demand)' %>
  17   </TD>
  18 </TR>
  19 <TR>
  20   <TD ALIGN="right">Card number</TD>
  21   <TD BGCOLOR="#ffffff"><%= $cust_main->payinfo_masked %></TD>
  22 </TR>
  23
  24 <%
  25 #false laziness w/elements/select-month_year.html & edit/cust_main/billing.html
  26 my( $mon, $year );
  27 my $date = $cust_main->paydate || '12-2037';
  28 if ( $date  =~ /^(\d{4})-(\d{1,2})-\d{1,2}$/ ) { #PostgreSQL date format
  29   ( $mon, $year ) = ( $2, $1 );
  30 } elsif ( $date =~ /^(\d{1,2})-(\d{1,2}-)?(\d{4}$)/ ) {
  31   ( $mon, $year ) = ( $1, $3 );
  32 } else {
  33   warn "unrecognized expiration date format: $date";
  34   ( $mon, $year ) = ( '', '' );
  35 }
  36 %>
  37 <TR>
  38   <TD ALIGN="right">Expiration</TD>
  39   <TD BGCOLOR="#ffffff"><%= "$mon/$year" %></TD>
  40 </TR>
  41
  42 <% if ( $cust_main->paystart_month ) { %>
  43   <TR>
  44     <TD ALIGN="right">Start date</TD>
  45     <TD BGCOLOR="#ffffff"><%= $cust_main->paystart_month. '/'. $cust_main->paystart_year %>
  46   </TR>
  47 <% } elsif ( $cust_main->payissue ) { %>
  48   <TR>
  49     <TD ALIGN="right">Issue #</TD>
  50     <TD BGCOLOR="#ffffff"><%= $cust_main->payissue %>
  51   </TR>
  52 <% } %>
  53
  54 <TR>
  55   <TD ALIGN="right">Name on card</TD>
  56   <TD BGCOLOR="#ffffff"><%= $cust_main->payname %></TD>
  57 </TR>
  58
  59 <% } elsif ( $cust_main->payby eq 'CHEK' || $cust_main->payby eq 'DCHK') {
  60      my( $account, $aba ) = split('@', $cust_main->payinfo );
  61 %>
  62
  63     Electronic&nbsp;check&nbsp;<%= $cust_main->payby eq 'CHEK' ? '(automatic)' : '(on-demand)' %>
  64   </TD>
  65 </TR>
  66 <TR>
  67   <TD ALIGN="right">ABA/Routing code</TD>
  68   <TD BGCOLOR="#ffffff"><%= $aba %></TD>
  69 </TR>
  70 <TR>
  71   <TD ALIGN="right">Account number</TD>
  72   <TD BGCOLOR="#ffffff"><%= 'x'x(length($account)-2). substr($account,(length($account)-2)) %></TD>
  73 </TR>
  74 <TR>
  75   <TD ALIGN="right">Bank name</TD>
  76   <TD BGCOLOR="#ffffff"><%= $cust_main->payname %></TD>
  77 </TR>
  78
  79 <% } elsif ( $cust_main->payby eq 'LECB' ) {
  80      $cust_main->payinfo =~ /^(\d{3})(\d{3})(\d{4})$/;
  81      my $payinfo = "$1-$2-$3";
  82 %>
  83
  84     Phone&nbsp;bill&nbsp;billing
  85   </TD>
  86 </TR>
  87 <TR>
  88   <TD ALIGN="right">Phone number</TD>
  89   <TD BGCOLOR="#ffffff"><%= $payinfo %></TD>
  90 </TR>
  91
  92 <% } elsif ( $cust_main->payby eq 'BILL' ) { %>
  93
  94     Billing
  95   </TD>
  96 </TR>
  97
  98   <% if ( $cust_main->payinfo ) { %>
  99 <TR>
 100   <TD ALIGN="right">P.O. </TD>
 101   <TD BGCOLOR="#ffffff"><%= $cust_main->payinfo %></TD>
 102 </TR>
 103   <% } %>
 104
 105 <TR>
 106   <TD ALIGN="right">Attention</TD>
 107   <TD BGCOLOR="#ffffff"><%= $cust_main->payname %></TD>
 108 </TR>
 109
 110 <% } elsif ( $cust_main->payby eq 'COMP' ) { %>
 111
 112     Complimentary
 113   </TD>
 114 </TR>
 115 <TR>
 116   <TD ALIGN="right">Authorized&nbsp;by</TD>
 117   <TD BGCOLOR="#ffffff"><%= $cust_main->payinfo %></TD>
 118 </TR>
 119
 120 <%
 121 #false laziness w/above etc.
 122 my( $mon, $year );
 123 my $date = $cust_main->paydate || '12-2037';
 124 if ( $date  =~ /^(\d{4})-(\d{1,2})-\d{1,2}$/ ) { #PostgreSQL date format
 125   ( $mon, $year ) = ( $2, $1 );
 126 } elsif ( $date =~ /^(\d{1,2})-(\d{1,2}-)?(\d{4}$)/ ) {
 127   ( $mon, $year ) = ( $1, $3 );
 128 } else {
 129   warn "unrecognized expiration date format: $date";
 130   ( $mon, $year ) = ( '', '' );
 131 }
 132 %>
 133 <TR>
 134   <TD ALIGN="right">Expiration</TD>
 135   <TD BGCOLOR="#ffffff"><%= "$mon/$year" %></TD>
 136 </TR>
 137
 138 <% } %>
 139
 140 <TR>
 141   <TD ALIGN="right">Tax&nbsp;exempt</TD>
 142   <TD BGCOLOR="#ffffff"><%= $cust_main->tax ? 'yes' : 'no' %></TD>
 143 </TR>
 144 <TR>
 145   <TD ALIGN="right">Postal&nbsp;invoices</TD>
 146   <TD BGCOLOR="#ffffff">
 147     <%= ( grep { $_ eq 'POST' } @invoicing_list ) ? 'yes' : 'no' %>
 148   </TD>
 149 </TR>
 150 <TR>
 151   <TD ALIGN="right">FAX&nbsp;invoices</TD>
 152   <TD BGCOLOR="#ffffff">
 153     <%= ( grep { $_ eq 'FAX' } @invoicing_list ) ? 'yes' : 'no' %>
 154   </TD>
 155 </TR>
 156 <TR>
 157   <TD ALIGN="right">Email&nbsp;invoices</TD>
 158   <TD BGCOLOR="#ffffff">
 159     <%= join(', ', grep { $_ !~ /^(POST|FAX)$/ } @invoicing_list ) || 'no' %>
 160   </TD>
 161 </TR>
 162
 163 </TABLE></TD></TR></TABLE>
 164