- $hashref->{refnum} |
+ <%= $part_referral->refnum %>
- $hashref->{referral} |
+ <%= $part_referral->referral %>
+ <% for my $period ( values %past ) {
+ $sth->execute($part_referral->refnum, $today-$period)
+ or die $sth->errstr;
+ my $number = $sth->fetchrow_arrayref->[0];
+ %>
+ <%= $number %> |
+ <% } %>
-END
-
-}
+<% } %>
-print <
- Add a new advertising source |
-