httemplate/search/svc_www.cgi

   1 %#my $conf = new FS::Conf;
   2 %
   3 %my $orderby = 'ORDER BY svcnum';
   4 %my @extra_sql = ();
   5 %if ( $cgi->param('magic') =~ /^(all|unlinked)$/ ) {
   6 %
   7 %  push @extra_sql, 'pkgnum IS NULL'
   8 %    if $cgi->param('magic') eq 'unlinked';
   9 %
  10 %  if ( $cgi->param('sortby') =~ /^(\w+)$/ ) {
  11 %    my $sortby = $1;
  12 %    $orderby = "ORDER BY $sortby";
  13 %  }
  14 %
  15 %} elsif ( $cgi->param('svcpart') =~ /^(\d+)$/ ) {
  16 %  push @extra_sql, "svcpart = $1";
  17 %}
  18 %
  19 %my $addl_from = ' LEFT JOIN cust_svc  USING ( svcnum  ) '.
  20 %                ' LEFT JOIN part_svc  USING ( svcpart ) '.
  21 %                ' LEFT JOIN cust_pkg  USING ( pkgnum  ) '.
  22 %                ' LEFT JOIN cust_main USING ( custnum ) ';
  23 %
  24 %#here is the agent virtualization
  25 %push @extra_sql, $FS::CurrentUser::CurrentUser->agentnums_sql;
  26 %
  27 %my $extra_sql =
  28 %  scalar(@extra_sql)
  29 %    ? ' WHERE '. join(' AND ', @extra_sql )
  30 %    : '';
  31 %
  32 %
  33 %my $count_query = 'SELECT COUNT(*) FROM svc_www';
  34 %my $sql_query = {
  35 %  'table'     => 'svc_www',
  36 %  'hashref'   => {},
  37 %  'select'    => join(', ',
  38 %                   'svc_www.*',
  39 %                   'part_svc.svc',
  40 %                   'cust_main.custnum',
  41 %                   FS::UI::Web::cust_sql_fields(),
  42 %                 ),
  43 %  'extra_sql' => $orderby,
  44 %  'addl_from' => $addl_from,
  45 %};
  46 %
  47 %my $link  = [ "${p}view/svc_www.cgi?", 'svcnum', ];
  48 %#my $dlink = [ "${p}view/svc_www.cgi?", 'svcnum', ];
  49 %my $ulink = [ "${p}view/svc_acct.cgi?", 'usersvc', ];
  50 %
  51 %#smaller false laziness w/svc_*.cgi here
  52 %my $link_cust = sub {
  53 %  my $svc_x = shift;
  54 %  $svc_x->custnum ? [ "${p}view/cust_main.cgi?", 'custnum' ] : '';
  55 %};
  56 %
  57 %
  58 <% include( 'elements/search.html',
  59                  'title'       => 'Virtual Host Search Results',
  60                  'name'        => 'virtual hosts',
  61                  'query'       => $sql_query,
  62                  'count_query' => $count_query,
  63                  'redirect'    => $link,
  64                  'header'      => [ '#',
  65                                     'Service',
  66                                     'Zone',
  67                                     'User',
  68                                     FS::UI::Web::cust_header(),
  69                                   ],
  70                  'fields'      => [ 'svcnum',
  71                                     'svc',
  72                                     sub { $_[0]->domain_record->zone },
  73                                     sub {
  74                                           my $svc_www = shift;
  75                                           my $svc_acct = $svc_www->svc_acct;
  76                                           $svc_acct
  77                                             ? $svc_acct->email
  78                                             : '';
  79                                         },
  80                                     \&FS::UI::Web::cust_fields,
  81                                   ],
  82                  'links'       => [ $link,
  83                                     $link,
  84                                     '',
  85                                     $ulink,
  86                                     ( map { $link_cust }
  87                                           FS::UI::Web::cust_header()
  88                                     ),
  89                                   ],
  90              )
  91 %>