httemplate/view/cust_main/billing.html

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