diff options
| author | ivan <ivan> | 2006-12-29 08:51:34 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2006-12-29 08:51:34 +0000 |
| commit | 633c48448d9468690b7ad77eb6ff7c660a286658 (patch) | |
| tree | 4e08051f8d805e7e95c8dffe5e3e73b0c360f965 /httemplate/search/svc_acct.cgi | |
| parent | 6cb5c702b17b98be46adea4539e15d5f312e5be1 (diff) | |
service refactor!
Diffstat (limited to 'httemplate/search/svc_acct.cgi')
| -rwxr-xr-x | httemplate/search/svc_acct.cgi | 33 |
1 files changed, 15 insertions, 18 deletions
diff --git a/httemplate/search/svc_acct.cgi b/httemplate/search/svc_acct.cgi index 2a1414bea..592aa150a 100755 --- a/httemplate/search/svc_acct.cgi +++ b/httemplate/search/svc_acct.cgi @@ -1,15 +1,4 @@ -% -% -%my $orderby = 'ORDER BY svcnum'; -% -%my($query)=$cgi->keywords; -%$query ||= ''; #to avoid use of unitialized value errors -% %my @extra_sql = (); -%if ( $query =~ /^UN_(.*)$/ ) { -% $query = $1; -% push @extra_sql, 'pkgnum IS NULL'; -%} % % if ( $cgi->param('domain') ) { % my $svc_domain = @@ -23,13 +12,21 @@ % } % } % -%if ( $query eq 'svcnum' ) { -% #$orderby = "ORDER BY svcnum"; -%} elsif ( $query eq 'username' ) { -% $orderby = "ORDER BY LOWER(username)"; -%} elsif ( $query eq 'uid' ) { -% $orderby = "ORDER BY uid"; -% push @extra_sql, "uid IS NOT NULL"; +%my $orderby = 'ORDER BY svcnum'; +%if ( $cgi->param('magic') =~ /^(all|unlinked)$/ ) { +% +% push @extra_sql, 'pkgnum IS NULL' +% if $cgi->param('magic') eq 'unlinked'; +% +% if ( $cgi->param('sortby') =~ /^(\w+)$/ ) { +% my $sortby = $1; +% $sortby = "LOWER($sortby)" +% if $sortby eq 'username'; +% push @extra_sql, "$sortby IS NOT NULL" +% if $sortby eq 'uid'; +% $orderby = "ORDER BY $sortby"; +% } +% %} elsif ( $cgi->param('popnum') =~ /^(\d+)$/ ) { % push @extra_sql, "popnum = $1"; % $orderby = "ORDER BY LOWER(username)"; |