X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fview%2Fcust_main%2Fpayment_history.html;h=9c18fbc15d90db83ea43d7bf83e289c44b7a563c;hb=49d9ea969069430ef3fe23e5b1ac3599e929bb04;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>
+<%def .hide_history_row>
+% my $num = shift;
+
+ |
+
+ (<% mt('hide prior history') |h %>)
+ |
+ |
+
+%def>
+
<%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.')';
}
%init>