X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=bin%2Fcust_pay_histogram;h=714b32140e9554790d0316055b44a0d20ef2bf0c;hp=d43a4d162060e40a9cf39829307b34ab42aa6210;hb=c3da5cf1caa244937d280e0f406927103beef148;hpb=e49700a33746088e547b9333025e2a8dc185ec7c

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 ) {