httemplate/search/svc_domain.cgi

   1 <& elements/search.html,
   2                  'title'             => "Domain Search Results",
   3                  'name'              => 'domains',
   4                  'query'             => $sql_query,
   5                  'count_query'       => $count_query,
   6                  'redirect'          => $link,
   7                  'header'            => [ '#',
   8                                           'Service',
   9                                           'Domain',
  10                                           emt('Pkg. Status'),
  11                                           FS::UI::Web::cust_header(),
  12                                         ],
  13                  'fields'            => [ 'svcnum',
  14                                           'svc',
  15                                           'domain',
  16                                           sub {
  17                                             $cust_pkg_cache{$_[0]->svcnum} ||= $_[0]->cust_svc->cust_pkg;
  18                                             $cust_pkg_cache{$_[0]->svcnum}->ucfirst_status
  19                                           },
  20                                           \&FS::UI::Web::cust_fields,
  21                                         ],
  22                  'links'             => [ $link,
  23                                           $link,
  24                                           $link,
  25                                           '', # pkg status
  26                                           ( map { $_ ne 'Cust. Status' ? $link_cust : '' }
  27                                                 FS::UI::Web::cust_header()
  28                                           ),
  29                                         ],
  30                  'align' => 'rllr'. FS::UI::Web::cust_aligns(),
  31                  'color' => [
  32                               '',
  33                               '',
  34                               '',
  35                               sub {
  36                                 my $c = FS::cust_pkg::statuscolors;
  37                                 $c->{$cust_pkg_cache{$_[0]->svcnum}->status };
  38                               }, # pkg status
  39                               FS::UI::Web::cust_colors(),
  40                             ],
  41                  'style' => [
  42                               '',
  43                               '',
  44                               '',
  45                               'b',
  46                               FS::UI::Web::cust_styles(),
  47                             ],
  48
  49 &>
  50 <%init>
  51
  52 die "access denied"
  53   unless $FS::CurrentUser::CurrentUser->access_right('List services');
  54
  55 my %cust_pkg_cache;
  56
  57 my $conf = new FS::Conf;
  58
  59 my $orderby = 'ORDER BY svcnum';
  60 my %svc_domain = ();
  61 my @extra_sql = ();
  62 if ( $cgi->param('magic') =~ /^(all|unlinked)$/ ) {
  63
  64   push @extra_sql, 'pkgnum IS NULL'
  65     if $cgi->param('magic') eq 'unlinked';
  66
  67   if ( $cgi->param('sortby') =~ /^(\w+)$/ ) {
  68     my $sortby = $1;
  69     $orderby = "ORDER BY $sortby";
  70   }
  71
  72 } elsif ( $cgi->param('svcpart') =~ /^(\d+)$/ ) {
  73   push @extra_sql, "svcpart = $1";
  74   if (defined($cgi->param('cancelled'))) {
  75     if ($cgi->param('cancelled')) {
  76       push @extra_sql, "cust_pkg.cancel IS NOT NULL";
  77     } else {
  78       push @extra_sql, "cust_pkg.cancel IS NULL";
  79     }
  80   }
  81 } else {
  82   $cgi->param('domain') =~ /^([\w\-\.]+)$/;
  83   $svc_domain{'domain'} = $1;
  84 }
  85
  86 my $addl_from = ' LEFT JOIN cust_svc  USING ( svcnum  ) '.
  87                 ' LEFT JOIN part_svc  USING ( svcpart ) '.
  88                 ' LEFT JOIN cust_pkg  USING ( pkgnum  ) '.
  89                 FS::UI::Web::join_cust_main('cust_pkg', 'cust_pkg');
  90
  91 #here is the agent virtualization
  92 push @extra_sql, $FS::CurrentUser::CurrentUser->agentnums_sql(
  93                    'null_right' => 'View/link unlinked services'
  94                  );
  95
  96 my $extra_sql = '';
  97 if ( @extra_sql ) {
  98   $extra_sql = ( keys(%svc_domain) ? ' AND ' : ' WHERE ' ).
  99                join(' AND ', @extra_sql );
 100 }
 101
 102 my $count_query = "SELECT COUNT(*) FROM svc_domain $addl_from ";
 103 if ( keys %svc_domain ) {
 104   $count_query .= ' WHERE '.
 105                     join(' AND ', map "$_ = ". dbh->quote($svc_domain{$_}),
 106                                       keys %svc_domain
 107                         );
 108 }
 109 $count_query .= $extra_sql;
 110
 111 my $sql_query = {
 112   'table'     => 'svc_domain',
 113   'hashref'   => \%svc_domain,
 114   'select'    => join(', ',
 115                    'svc_domain.*',
 116                    'part_svc.svc',
 117                    'cust_main.custnum',
 118                    FS::UI::Web::cust_sql_fields(),
 119                  ),
 120   'extra_sql' => $extra_sql,
 121   'order_by'  => $orderby,
 122   'addl_from' => $addl_from,
 123 };
 124
 125 my $link = [ "${p}view/svc_domain.cgi?", 'svcnum' ];
 126
 127 #smaller false laziness w/svc_*.cgi here
 128 my $link_cust = sub {
 129   my $svc_x = shift;
 130   $svc_x->custnum ? [ "${p}view/cust_main.cgi?", 'custnum' ] : '';
 131 };
 132
 133 </%init>