projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
68d8614
)
oops!
author
ivan
<ivan>
Thu, 1 Apr 2004 11:09:28 +0000
(11:09 +0000)
committer
ivan
<ivan>
Thu, 1 Apr 2004 11:09:28 +0000
(11:09 +0000)
httemplate/browse/part_referral.cgi
patch
|
blob
|
history
diff --git
a/httemplate/browse/part_referral.cgi
b/httemplate/browse/part_referral.cgi
index
a326bd2
..
25397e1
100755
(executable)
--- 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>
<%= $part_referral->refnum %></A></TD>
<TD><A HREF="<%= $p %>edit/part_referral.cgi?<%= $part_referral->refnum %>">
<%= $part_referral->referral %></A></TD>
- <% for my $
after ( value
s %after ) {
+ <% for my $
period ( key
s %after ) {
$sth->execute( $part_referral->refnum,
$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];
%>
) 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>
%>
<TR>
<TH COLSPAN=2>Total</TH>
- <% for my $
after ( value
s %after ) {
- $sth->execute( $today-$after,
- $today+$before{$
today
},
+ <% for my $
period ( key
s %after ) {
+ $sth->execute( $today-$after
{$period}
,
+ $today+$before{$
period
},
) or die $sth->errstr;
my $number = $sth->fetchrow_arrayref->[0];
%>
) or die $sth->errstr;
my $number = $sth->fetchrow_arrayref->[0];
%>