X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fbrowse%2Fpart_referral.cgi;fp=httemplate%2Fbrowse%2Fpart_referral.cgi;h=25397e1da75a6abd32104f2875847d30bca7d168;hb=95d7eccb2a441d225257181eb8db0911f38a5176;hp=a326bd2316609e33159e5c9baaadcc0061443ca3;hpb=68d86148eadaadb6706b91df58d7b505269b1cdf;p=freeside.git
diff --git a/httemplate/browse/part_referral.cgi b/httemplate/browse/part_referral.cgi
index a326bd231..25397e1da 100755
--- a/httemplate/browse/part_referral.cgi
+++ b/httemplate/browse/part_referral.cgi
@@ -64,10 +64,10 @@ foreach my $part_referral ( sort {
<%= $part_referral->refnum %>
<%= $part_referral->referral %> |
- <% for my $after ( values %after ) {
+ <% for my $period ( keys %after ) {
$sth->execute( $part_referral->refnum,
- $today-$after,
- $today+$before{$today},
+ $today-$after{$period},
+ $today+$before{$period},
) or die $sth->errstr;
my $number = $sth->fetchrow_arrayref->[0];
%>
@@ -83,9 +83,9 @@ foreach my $part_referral ( sort {
%>
Total |
- <% for my $after ( values %after ) {
- $sth->execute( $today-$after,
- $today+$before{$today},
+ <% for my $period ( keys %after ) {
+ $sth->execute( $today-$after{$period},
+ $today+$before{$period},
) or die $sth->errstr;
my $number = $sth->fetchrow_arrayref->[0];
%>