qq!</B></FONT> <A HREF="${p}search/cust_pkg.cgi?magic=suspended;pkgpart=$hashref->{pkgpart}">suspended</A><BR>!;
$canceled_sth->execute( $part_pkg->pkgpart ) or die $canceled_sth->errstr;
my $num_canceled = $canceled_sth->fetchrow_arrayref->[0];
qq!</B></FONT> <A HREF="${p}search/cust_pkg.cgi?magic=suspended;pkgpart=$hashref->{pkgpart}">suspended</A><BR>!;
$canceled_sth->execute( $part_pkg->pkgpart ) or die $canceled_sth->errstr;
my $num_canceled = $canceled_sth->fetchrow_arrayref->[0];