$pship_name
- $pship_company
-END
- }
- print "";
+ push @extra_sql, 'pkgnum IS NULL'
+ if $cgi->param('magic') eq 'unlinked';
+ my $sortby = '';
+ if ( $cgi->param('sortby') =~ /^(\w+)$/ ) {
+ $sortby = $1;
+ $sortby = "LOWER($sortby)"
+ if $sortby eq 'username';
+ push @extra_sql, "$sortby IS NOT NULL"
+ if $sortby eq 'uid' || $sortby eq 'seconds';
+ $orderby = "ORDER BY $sortby";
}
-
- print "$pager ";
- if ( $mydomain ) {
- print " * The $mydomain domain ".
- "is contained in your legacy domain ".
- "configuration file. ".
- "You should run the bin/fs-migrate-svc_acct_sm script ".
- "to create a proper svc_domain record for this domain.";
+ if ( $sortby eq 'seconds' ) {
+ push @header, 'Time remaining';
+ push @fields, sub { my $svc_acct = shift; $svc_acct->seconds };
+ push @links, '';
+ $align .= 'r',
+ push @color, '';
+ push @style, '';
}
- print ' |