freeside/httemplate/browse part_referral.cgi,1.18,1.19

[ivan]

Update of /home/cvs/cvsroot/freeside/httemplate/browse
In directory pouncequick:/tmp/cvs-serv25747

Modified Files:
	part_referral.cgi 
Log Message:
oops!

Index: part_referral.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/browse/part_referral.cgi,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- part_referral.cgi	1 Apr 2004 10:56:31 -0000	1.18
+++ part_referral.cgi	1 Apr 2004 11:09:28 -0000	1.19
@@ -64,10 +64,10 @@
           <%= $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 @@
 %>
       <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];
         %>