httemplate/search/svc_broadband.cgi

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