httemplate/search/svc_circuit.cgi

   1 <& elements/svc_Common.html,
   2   'title'       => 'Circuit Search Results',
   3   'name'        => 'circuit services',
   4   'query'       => $query,
   5   'count_query' => $query->{'count_query'},
   6   'redirect'    => [ popurl(2). "view/svc_circuit.cgi?", 'svcnum' ],
   7   'header'      => [ '#',
   8                      'Provider',
   9                      'Type',
  10                      'Termination',
  11                      'Circuit ID',
  12                      'IP Address',
  13                      emt('Pkg. Status'),
  14                      FS::UI::Web::cust_header($cgi->param('cust_fields')),
  15                    ],
  16   'fields'      => [ 'svcnum',
  17                      'provider',
  18                      'typename',
  19                      'termination',
  20                      'circuit_id',
  21                      'ip_addr',
  22                      sub {
  23                        $cust_pkg_cache{$_[0]->svcnum} ||= $_[0]->cust_svc->cust_pkg;
  24                        $cust_pkg_cache{$_[0]->svcnum}->ucfirst_status
  25                      },
  26                      \&FS::UI::Web::cust_fields,
  27                    ],
  28   'links'       => [ $link,
  29                      '',
  30                      '',
  31                      '',
  32                      $link,
  33                      $link,
  34                      '', # pkg status
  35                      FS::UI::Web::cust_links($cgi->param('cust_fields')),
  36                    ],
  37   'align'       => 'rlllllr'.  FS::UI::Web::cust_aligns(),
  38   'color'       => [
  39                      ('') x 6,
  40                      sub {
  41                        my $c = FS::cust_pkg::statuscolors;
  42                        $c->{$cust_pkg_cache{$_[0]->svcnum}->status };
  43                      }, # pkg status
  44                      FS::UI::Web::cust_colors(),
  45                    ],
  46   'style'       => [
  47                      ('') x 6,
  48                      'b',
  49                      FS::UI::Web::cust_styles(),
  50                    ],
  51
  52 &>
  53 <%init>
  54
  55 die "access denied" unless
  56   $FS::CurrentUser::CurrentUser->access_right('List services');
  57
  58 my %cust_pkg_cache;
  59
  60 my $conf = new FS::Conf;
  61
  62 my %search_hash;
  63 if ( $cgi->param('magic') eq 'unlinked' ) {
  64   %search_hash = ( 'unlinked' => 1 );
  65 } else {
  66   foreach (qw( custnum agentnum svcpart cust_fields )) {
  67     $search_hash{$_} = $cgi->param($_) if $cgi->param($_);
  68   }
  69   foreach (qw(pkgpart routernum towernum sectornum)) {
  70     $search_hash{$_} = [ $cgi->param($_) ] if $cgi->param($_);
  71   }
  72   if ( defined($cgi->param('cancelled')) ) {
  73     $search_hash{'cancelled'} = $cgi->param('cancelled') ? 1 : 0;
  74   }
  75 }
  76
  77 my $query = FS::svc_circuit->search(\%search_hash);
  78
  79 my $link = [ $p.'view/svc_circuit.cgi?', 'svcnum' ];
  80
  81 </%init>