$pcompany
-END
- if ( defined dbdef->table('cust_main')->column('ship_last') ) {
- print <$pship_name
- $pship_company
-END
- }
- print "";
+
+ $orderby ||= "ORDER BY svc_acct.$field" .
+ ($cgi->param($field."_invert") ? ' DESC' : '');
}
-
- 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.";
+
+ $orderby ||= "ORDER BY svcnum";
+
+} elsif ( $cgi->param('popnum') ) {
+ $orderby = "ORDER BY LOWER(username)";
+} elsif ( $cgi->param('svcpart') ) {
+ $orderby = "ORDER BY uid";
+ #$orderby = "ORDER BY svcnum";
+ if ( defined($cgi->param('cancelled')) ) {
+ $search_hash{'cancelled'} = $cgi->param('cancelled') ? 1 : 0;
}
+} else {
+ $orderby = "ORDER BY uid";
- print ' | |