$pship_name
- $pship_company
-END
+ push @extra_sql,
+ "svc_acct.$field IS NOT NULL",
+ "svc_acct.$field >= $beginning",
+ "svc_acct.$field <= $ending";
}
- 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";
+} else {
+ $orderby = "ORDER BY uid";
+
+ my @username_sql;
+
+ my %username_type;
+ foreach ( $cgi->param('username_type') ) {
+ $username_type{$_}++;
}
- print ' |