diff options
author | ivan <ivan> | 2004-04-01 11:09:29 +0000 |
---|---|---|
committer | ivan <ivan> | 2004-04-01 11:09:29 +0000 |
commit | b51bfef64b8e73f52ed45a84e21c1b480a8e5f78 (patch) | |
tree | e56ed2a51b9b2ccab7cf1f35c2e8df3e57ff15d0 /httemplate/browse | |
parent | a41d394a61c1b4a401cf42278a5aa21c1ad202ca (diff) |
oops!
Diffstat (limited to 'httemplate/browse')
-rwxr-xr-x | httemplate/browse/part_referral.cgi | 12 |
1 files changed, 6 insertions, 6 deletions
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 %></A></TD> <TD><A HREF="<%= $p %>edit/part_referral.cgi?<%= $part_referral->refnum %>"> <%= $part_referral->referral %></A></TD> - <% 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 { %> <TR> <TH COLSPAN=2>Total</TH> - <% 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]; %> |