httemplate/search/svc_broadband.cgi

   1 <% include( 'elements/search.html',
   2               'title'       => 'Broadband Search Results',
   3               'name'        => 'broadband services',
   4               'html_init'   => $html_init,
   5               'query'       => $sql_query,
   6               'count_query' => $sql_query->{'count_query'},
   7               'redirect'    => [ popurl(2). "view/svc_broadband.cgi?", 'svcnum' ],
   8               'header'      => [ '#',
   9                                  'Service',
  10                                  'Router',
  11                                  'IP Address',
  12                                  FS::UI::Web::cust_header(),
  13                                ],
  14               'fields'      => [ 'svcnum',
  15                                  'svc',
  16                                  sub { $routerbyblock{shift->blocknum}->routername; },
  17                                  'ip_addr',
  18                                  \&FS::UI::Web::cust_fields,
  19                                ],
  20               'links'       => [ $link,
  21                                  $link,
  22                                  $link_router,
  23                                  $link,
  24                                  ( map { $_ ne 'Cust. Status' ? $link_cust : '' }
  25                                        FS::UI::Web::cust_header()
  26                                  ),
  27                                ],
  28               'align'       => 'rllr'. FS::UI::Web::cust_aligns(),
  29               'color'       => [
  30                                  '',
  31                                  '',
  32                                  '',
  33                                  '',
  34                                  FS::UI::Web::cust_colors(),
  35                                ],
  36               'style'       => [
  37                                  '',
  38                                  '',
  39                                  '',
  40                                  '',
  41                                  FS::UI::Web::cust_styles(),
  42                                ],
  43           )
  44 %>
  45 <%init>
  46
  47 die "access denied" unless
  48   $FS::CurrentUser::CurrentUser->access_right('List services');
  49
  50 my $conf = new FS::Conf;
  51
  52 my %search_hash;
  53 if ( $cgi->param('magic') eq 'unlinked' ) {
  54   %search_hash = ( 'unlinked' => 1 );
  55 }
  56 else {
  57   foreach (qw(custnum agentnum svcpart)) {
  58     $search_hash{$_} = $cgi->param($_) if $cgi->param($_);
  59   }
  60   foreach (qw(pkgpart routernum)) {
  61     $search_hash{$_} = [ $cgi->param($_) ] if $cgi->param($_);
  62   }
  63 }
  64
  65 if ( $cgi->param('sortby') =~ /^(\w+)$/ ) {
  66   $search_hash{'order_by'} = $1;
  67 }
  68
  69 my $sql_query = FS::svc_broadband->search(\%search_hash);
  70
  71 my %routerbyblock = ();
  72 foreach my $router (qsearch('router', {})) {
  73   foreach ($router->addr_block) {
  74     $routerbyblock{$_->blocknum} = $router;
  75   }
  76 }
  77
  78 my $link = [ $p.'view/svc_broadband.cgi?', 'svcnum' ];
  79
  80 #XXX get the router link working
  81 my $link_router = sub { my $routernum = $routerbyblock{shift->blocknum}->routernum;
  82                         [ $p.'view/router.cgi?'.$routernum, 'routernum' ];
  83                       };
  84
  85 my $link_cust = [ $p.'view/cust_main.cgi?', 'custnum' ];
  86
  87 my $html_init = include('/elements/email-link.html',
  88                   'search_hash' => \%search_hash,
  89                   'table' => 'svc_broadband'
  90                 );
  91
  92 </%init>