<%= $part_referral->referral %></A></TD>
<% for my $period ( values %past ) {
$sth->execute($part_referral->refnum, $today-$period)
or die $sth->errstr;
my $number = $sth->fetchrow_arrayref->[0];
%>
<%= $part_referral->referral %></A></TD>
<% for my $period ( values %past ) {
$sth->execute($part_referral->refnum, $today-$period)
or die $sth->errstr;
my $number = $sth->fetchrow_arrayref->[0];
%>