X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fview%2Fcust_main%2Fbilling.html;h=fa3863b13ba1a7452a0d6838ec779bb689092df2;hb=911ceed14633190dc705b931d83db12a6f3d233d;hp=42467bb31ad3d2c2bbf61fbe8bdea98cac1c9bb6;hpb=c19cd2621e2267ddc03769ebd2c0fa7be7d7e828;p=freeside.git diff --git a/httemplate/view/cust_main/billing.html b/httemplate/view/cust_main/billing.html index 42467bb31..fa3863b13 100644 --- a/httemplate/view/cust_main/billing.html +++ b/httemplate/view/cust_main/billing.html @@ -1,15 +1,17 @@ Billing information -% # If we can't see the unencrypted card, then bill now is an exercise in frustration -%if ( ! $cust_main->is_encrypted($cust_main->payinfo) ) { +%# If we can't see the unencrypted card, then bill now is an exercise in +%# frustration (without some sort of job queue magic to send it to a secure +%# machine, anyway) +%if ( $FS::CurrentUser::CurrentUser->access_right('Bill customer now') +% && ! $cust_main->is_encrypted($cust_main->payinfo) +% ) { (Bill now) % } <% ntable("#cccccc") %><% ntable("#cccccc",2) %> -% + %( my $balance = $cust_main->balance ) % =~ s/^(\-?)(.*)$/$1<\/FONT>$money_char$2/; -% - Balance due @@ -90,10 +92,12 @@ Billing information Bank name <% $cust_main->payname %> +% if ( $conf->exists('show_bankstate') ) { <% $paystate_label %> <% $cust_main->paystate || '   ' %> +% } % } elsif ( $cust_main->payby eq 'LECB' ) { % $cust_main->payinfo =~ /^(\d{3})(\d{3})(\d{4})$/; % my $payinfo = "$1-$2-$3"; @@ -201,8 +205,10 @@ $paystate_label = 'Bank state' if $paystate_label =~/^paystate$/; <%init> + my( $cust_main ) = @_; my @invoicing_list = $cust_main->invoicing_list; my $conf = new FS::Conf; my $money_char = $conf->config('money_char') || '$'; +