X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fview%2Fcust_main%2Fpayment_history.html;h=9c18fbc15d90db83ea43d7bf83e289c44b7a563c;hb=1a6ead72554554a4271e23d6b02b601051e307c8;hp=171c29cb75c108f5d71275730b6c57039baa92f0;hpb=16fe3ab085213efe13680a7d2d8c50e38cf8750a;p=freeside.git diff --git a/httemplate/view/cust_main/payment_history.html b/httemplate/view/cust_main/payment_history.html index 171c29cb7..9c18fbc15 100644 --- a/httemplate/view/cust_main/payment_history.html +++ b/httemplate/view/cust_main/payment_history.html @@ -28,6 +28,7 @@ % my $bgcolor2 = '#ffffff'; % my $bgcolor = ''; + <% mt('Date') |h %> <% mt('Description') |h %> @@ -37,6 +38,7 @@ <% mt('Refund') |h %> <% mt('Balance') |h %> + %#display payment history @@ -134,29 +136,43 @@ % if ( $item->{'balance_forward'} ) { <& .balance_forward_row, $item->{'balance'}, $item->{'date'} &> -% } +% } %} # foreach $item +% if ( $old_history ) { +<& .hide_history_row, $old_history++ &> +% } + + <%def .balance_forward_row> % my( $b, $date ) = @_; @@ -169,7 +185,7 @@ function show_history () { <% mt("Starting balance on [_1]", time2str($date_format, $date) ) |h %> - (<% mt('show prior history') |h %>) + (<% mt('show prior history') |h %>) @@ -180,6 +196,17 @@ function show_history () { +<%def .hide_history_row> +% my $num = shift; + + + + (<% mt('hide prior history') |h %>) + + + + + <%shared> my $conf = new FS::Conf; my $date_format = $conf->config('date_format') || '%m/%d/%Y'; @@ -192,12 +219,6 @@ my $custnum = $cust_main->custnum; my $curuser = $FS::CurrentUser::CurrentUser; -my @payby = grep /\w/, $conf->config('payby'); -#@payby = (qw( CARD DCRD CHEK DCHK LECB BILL CASH WEST COMP )) -@payby = (qw( CARD DCRD CHEK DCHK LECB BILL CASH COMP )) - unless @payby; -my %payby = map { $_=>1 } @payby; - my %status = ( 'Queued' => 'O', #Open 'In-transit' => 'I', @@ -215,7 +236,7 @@ my %opt = ( qw( card_refund-days date_format ) ), ( map { $_ => $conf->exists($_) } - qw( deleteinvoices deletepayments deleterefunds pkg-balances + qw( deletepayments deleterefunds pkg-balances cust_credit_bill_pkg-manual cust_bill_pay_pkg-manual ) ), @@ -224,11 +245,12 @@ my %opt = ( #rights ( map { $_ => $curuser->access_right($_) } ( - 'View invoices', 'Void invoices', 'Unvoid invoices', 'Delete invoices', + 'View invoices', 'Void invoices', 'Unvoid invoices', 'Resend invoices', 'Apply payment', 'Refund credit card payment', 'Refund Echeck payment', + 'Post refund', 'Post check refund', 'Post cash refund ', 'Refund payment', 'Credit card void', 'Echeck void', 'Void payments', 'Unvoid payments', - 'Delete payment', 'Unapply payment', - 'Apply credit', 'Delete credit', 'Unapply credit', 'Void credit', 'Unvoid credit', + 'Unapply payment', + 'Apply credit', 'Unapply credit', 'Void credit', 'Unvoid credit', 'Delete refund', 'Billing event reports', 'View customer billing events', ) @@ -237,6 +259,7 @@ my %opt = ( #customer information 'total_owed' => $cust_main->total_owed, 'total_unapplied_refunds' => $cust_main->total_unapplied_refunds, + 'has_email_address' => scalar($cust_main->invoicing_list_emailonly), ); $opt{'date_format'} ||= '%m/%d/%Y'; @@ -481,7 +504,7 @@ sub translate_payinfo { sub areyousure_link { my ($url,$msg,$title,$label) = (shift,shift,shift,shift); - ' ('.$label.')'; + ' ('.$label.')'; }