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                      FS::UI::Web::cust_header($cgi->param('cust_fields')),
  14                    ],
  15   'fields'      => [ 'svcnum',
  16                      'provider',
  17                      'typename',
  18                      'termination',
  19                      'circuit_id',
  20                      'ip_addr',
  21                      \&FS::UI::Web::cust_fields,
  22                    ],
  23   'links'       => [ $link,
  24                      '',
  25                      '',
  26                      '',
  27                      $link,
  28                      $link,
  29                      FS::UI::Web::cust_links($cgi->param('cust_fields')),
  30                    ],
  31   'align'       => 'rlllll'.  FS::UI::Web::cust_aligns(),
  32   'color'       => [
  33                      ('') x 6,
  34                      FS::UI::Web::cust_colors(),
  35                    ],
  36   'style'       => [
  37                      ('') x 6,
  38                      FS::UI::Web::cust_styles(),
  39                    ],
  40
  41 &>
  42 <%init>
  43
  44 die "access denied" unless
  45   $FS::CurrentUser::CurrentUser->access_right('List services');
  46
  47 my $conf = new FS::Conf;
  48
  49 my %search_hash;
  50 if ( $cgi->param('magic') eq 'unlinked' ) {
  51   %search_hash = ( 'unlinked' => 1 );
  52 } else {
  53   foreach (qw( custnum agentnum svcpart cust_fields )) {
  54     $search_hash{$_} = $cgi->param($_) if $cgi->param($_);
  55   }
  56   foreach (qw(pkgpart routernum towernum sectornum)) {
  57     $search_hash{$_} = [ $cgi->param($_) ] if $cgi->param($_);
  58   }
  59 }
  60
  61 my $query = FS::svc_circuit->search(\%search_hash);
  62
  63 my $link = [ $p.'view/svc_circuit.cgi?', 'svcnum' ];
  64
  65 </%init>