X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fbrowse%2Fpart_referral.cgi;h=581e01bb6c6f082b4b11f67a132bc8bc507cfeaa;hp=a326bd2316609e33159e5c9baaadcc0061443ca3;hb=7ca594813a8426beb70d9f61544be1f6ac7b3d3f;hpb=68d86148eadaadb6706b91df58d7b505269b1cdf
diff --git a/httemplate/browse/part_referral.cgi b/httemplate/browse/part_referral.cgi
index a326bd231..581e01bb6 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,16 +83,15 @@ 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];
%>
<%= $number %> |
<% } %>
- |