From b51bfef64b8e73f52ed45a84e21c1b480a8e5f78 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 1 Apr 2004 11:09:29 +0000
Subject: oops!

---
 httemplate/browse/part_referral.cgi | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'httemplate/browse')

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];
         %>
-- 
cgit v1.2.1