httemplate/search/svc_acct.cgi

   1 <% include( 'elements/search.html',
   2                  'title'       => 'Account Search Results',
   3                  'name'        => 'accounts',
   4                  'query'       => $sql_query,
   5                  'count_query' => $count_query,
   6                  'redirect'    => $link,
   7                  'header'      => [ '#',
   8                                     'Service',
   9                                     'Account',
  10                                     'UID',
  11                                     'Last Login',
  12                                     FS::UI::Web::cust_header(),
  13                                   ],
  14                  'fields'      => [ 'svcnum',
  15                                     'svc',
  16                                     'email',
  17                                     'uid',
  18                                     'last_login_text',
  19                                     \&FS::UI::Web::cust_fields,
  20                                   ],
  21                  'links'       => [ $link,
  22                                     $link,
  23                                     $link,
  24                                     $link,
  25                                     $link,
  26                                     ( map { $_ ne 'Cust. Status' ? $link_cust : '' }
  27                                           FS::UI::Web::cust_header()
  28                                     ),
  29                                   ],
  30                  'align' => 'rlllr'. FS::UI::Web::cust_aligns(),
  31                  'color' => [
  32                               '',
  33                               '',
  34                               '',
  35                               '',
  36                               '',
  37                               FS::UI::Web::cust_colors(),
  38                             ],
  39                  'style' => [
  40                               '',
  41                               '',
  42                               '',
  43                               '',
  44                               '',
  45                               FS::UI::Web::cust_styles(),
  46                             ],
  47              )
  48 %>
  49 <%init>
  50
  51 die "access denied"
  52   unless $FS::CurrentUser::CurrentUser->access_right('List services');
  53
  54 my @extra_sql = ();
  55
  56  if ( $cgi->param('domain') ) {
  57    my $svc_domain =
  58      qsearchs('svc_domain', { 'domain' => $cgi->param('domain') } );
  59    unless ( $svc_domain ) {
  60      #it would be nice if this looked more like the other "not found"
  61      #errors, but this will do for now.
  62      errorpage("Domain ". $cgi->param('domain'). " not found at all");
  63    } else {
  64      push @extra_sql, 'domsvc = '. $svc_domain->svcnum;
  65    }
  66  }
  67
  68 my $orderby = 'ORDER BY svcnum';
  69 if ( $cgi->param('magic') =~ /^(all|unlinked)$/ ) {
  70
  71   push @extra_sql, 'pkgnum IS NULL'
  72     if $cgi->param('magic') eq 'unlinked';
  73
  74   if ( $cgi->param('sortby') =~ /^(\w+)$/ ) {
  75     my $sortby = $1;
  76     $sortby = "LOWER($sortby)"
  77       if $sortby eq 'username';
  78     push @extra_sql, "$sortby IS NOT NULL"
  79       if ($sortby eq 'uid' or $sortby eq 'last_login');
  80     $orderby = "ORDER BY $sortby";
  81   }
  82
  83 } elsif ( $cgi->param('magic') =~ /^nologin$/ ) {
  84
  85   if ( $cgi->param('sortby') =~ /^(\w+)$/ ) {
  86     my $sortby = $1;
  87     $sortby = "LOWER($sortby)"
  88       if $sortby eq 'username';
  89     push @extra_sql, "last_login IS NULL";
  90     $orderby = "ORDER BY $sortby";
  91   }
  92
  93 } elsif ( $cgi->param('popnum') =~ /^(\d+)$/ ) {
  94   push @extra_sql, "popnum = $1";
  95   $orderby = "ORDER BY LOWER(username)";
  96 } elsif ( $cgi->param('svcpart') =~ /^(\d+)$/ ) {
  97   push @extra_sql, "svcpart = $1";
  98   $orderby = "ORDER BY uid";
  99   #$orderby = "ORDER BY svcnum";
 100 } else {
 101   $orderby = "ORDER BY uid";
 102
 103   my @username_sql;
 104
 105   my %username_type;
 106   foreach ( $cgi->param('username_type') ) {
 107     $username_type{$_}++;
 108   }
 109
 110   $cgi->param('username') =~ /^([\w\-\.\&]+)$/; #untaint username_text
 111   my $username = $1;
 112
 113   push @username_sql, "username ILIKE '$username'"
 114     if $username_type{'Exact'}
 115     || $username_type{'Fuzzy'};
 116
 117   push @username_sql, "username ILIKE '\%$username\%'"
 118     if $username_type{'Substring'}
 119     || $username_type{'All'};
 120
 121   if ( $username_type{'Fuzzy'} || $username_type{'All'} ) {
 122     &FS::svc_acct::check_and_rebuild_fuzzyfiles;
 123     my $all_username = &FS::svc_acct::all_username;
 124
 125     my %username;
 126     if ( $username_type{'Fuzzy'} || $username_type{'All'} ) {
 127       foreach ( amatch($username, [ qw(i) ], @$all_username) ) {
 128         $username{$_}++;
 129       }
 130     }
 131
 132     #if ($username_type{'Sound-alike'}) {
 133     #}
 134
 135     push @username_sql, "username = '$_'"
 136       foreach (keys %username);
 137
 138   }
 139
 140   push @extra_sql, '( '. join( ' OR ', @username_sql). ' )';
 141
 142 }
 143
 144 my $addl_from = ' LEFT JOIN cust_svc  USING ( svcnum  ) '.
 145                 ' LEFT JOIN part_svc  USING ( svcpart ) '.
 146                 ' LEFT JOIN cust_pkg  USING ( pkgnum  ) '.
 147                 ' LEFT JOIN cust_main USING ( custnum ) ';
 148
 149 #here is the agent virtualization
 150 push @extra_sql, $FS::CurrentUser::CurrentUser->agentnums_sql;
 151
 152 my $extra_sql =
 153   scalar(@extra_sql)
 154     ? ' WHERE '. join(' AND ', @extra_sql )
 155     : '';
 156
 157 my $count_query = "SELECT COUNT(*) FROM svc_acct $addl_from $extra_sql";
 158 #if ( keys %svc_acct ) {
 159 #  $count_query .= ' WHERE '.
 160 #                    join(' AND ', map "$_ = ". dbh->quote($svc_acct{$_}),
 161 #                                      keys %svc_acct
 162 #                        );
 163 #}
 164
 165 my $sql_query = {
 166   'table' => 'svc_acct',
 167   'hashref'   => {}, # \%svc_acct,
 168   'select'    => join(', ',
 169                     'svc_acct.*',
 170                     'part_svc.svc',
 171                     'cust_main.custnum',
 172                     FS::UI::Web::cust_sql_fields(),
 173                   ),
 174   'extra_sql' => "$extra_sql $orderby",
 175   'addl_from' => $addl_from,
 176 };
 177
 178 my $link      = [ "${p}view/svc_acct.cgi?",   'svcnum'  ];
 179 my $link_cust = sub {
 180   my $svc_acct = shift;
 181   if ( $svc_acct->custnum ) {
 182     [ "${p}view/cust_main.cgi?", 'custnum' ];
 183   } else {
 184     '';
 185   }
 186 };
 187
 188 </%init>
 189