From: jeff <jeff>
Date: Mon, 29 Jun 2009 14:45:27 +0000 (+0000)
Subject: show total number of payments
X-Git-Tag: root_of_svc_elec_features~1082
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=5571989e5ca4e76951caed237d07e51ffaed71a3

show total number of payments
---

diff --git a/bin/cust_pay_histogram b/bin/cust_pay_histogram
index d43a4d162..714b32140 100755
--- a/bin/cust_pay_histogram
+++ b/bin/cust_pay_histogram
@@ -34,7 +34,9 @@ my @payrow = qsearch( { table     => 'cust_pay',
                     );
 
 my $max = 0;
+my $sum = 0;
 foreach (@payrow) {
+  $sum += $_->quantity;
   $max = $_->quantity if $_->quantity > $max;
 }
 my $scale = int($max/60) + 1;
@@ -45,6 +47,7 @@ print " UNTIL $opt{e}" if $opt{e};
 print " VIA $opt{p}" if $opt{p};
 print " BY AGENT $opt{a}" if $opt{a};
 print "\n\n";
+print "Total number of payments: $sum\n\n";
 print "(each * represents $scale)\n\n" if $scale > 1;
 
 foreach my $payrow ( @payrow ) {