-my %num_active_cust_svc = ();
-if ( $cgi->param('active') ) {
- my $active_sth = dbh->prepare(
- 'SELECT COUNT(*) FROM cust_svc WHERE svcpart = ?'
- ) or die dbh->errstr;
- foreach my $part_svc ( @part_svc ) {
- $active_sth->execute($part_svc->svcpart) or die $active_sth->errstr;
- $num_active_cust_svc{$part_svc->svcpart} =
- $active_sth->fetchrow_arrayref->[0];
- }
+my %num_active_cust_svc = map { $_->svcpart => $_->num_cust_svc } @part_svc;
+
+if ( $cgi->param('orderby') eq 'active' ) {