diff options
| author | ivan <ivan> | 2004-04-01 11:09:28 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2004-04-01 11:09:28 +0000 |
| commit | 95d7eccb2a441d225257181eb8db0911f38a5176 (patch) | |
| tree | 1279babd2aab297c471f6f214f5645de552d1d08 /httemplate | |
| parent | 68d86148eadaadb6706b91df58d7b505269b1cdf (diff) | |
oops!
Diffstat (limited to 'httemplate')
| -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]; %> |