-
- $hashref->{refnum} |
-
- $hashref->{referral} |
+
+ <%= $part_referral->refnum %> |
+
+ <%= $part_referral->referral %> |
+ <% for my $period ( keys %after ) {
+ $sth->execute( $part_referral->refnum,
+ $today-$after{$period},
+ $today+$before{$period},
+ ) or die $sth->errstr;
+ my $number = $sth->fetchrow_arrayref->[0];
+ %>
+ <%= $number %> |
+ <% } %>
-END
-
-}
+<% } %>
-print <