projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix errors saving 477 form info if run concurrently, RT#13922
[freeside.git]
/
bin
/
cust_pay_histogram
diff --git
a/bin/cust_pay_histogram
b/bin/cust_pay_histogram
index
d43a4d1
..
714b321
100755
(executable)
--- a/
bin/cust_pay_histogram
+++ b/
bin/cust_pay_histogram
@@
-34,7
+34,9
@@
my @payrow = qsearch( { table => 'cust_pay',
);
my $max = 0;
);
my $max = 0;
+my $sum = 0;
foreach (@payrow) {
foreach (@payrow) {
+ $sum += $_->quantity;
$max = $_->quantity if $_->quantity > $max;
}
my $scale = int($max/60) + 1;
$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 " 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 ) {
print "(each * represents $scale)\n\n" if $scale > 1;
foreach my $payrow ( @payrow ) {