-
- $hashref->{refnum} |
-
- $hashref->{referral} |
+
+ <%= $part_referral->refnum %> |
+
+ <%= $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 <