1 <& elements/svc_Common.html,
2 'title' => 'Circuit Search Results',
3 'name' => 'circuit services',
5 'count_query' => $query->{'count_query'},
6 'redirect' => [ popurl(2). "view/svc_circuit.cgi?", 'svcnum' ],
14 FS::UI::Web::cust_header($cgi->param('cust_fields')),
16 'fields' => [ 'svcnum',
23 $cust_pkg_cache{$_[0]->svcnum} ||= $_[0]->cust_svc->cust_pkg;
24 return '' unless $cust_pkg_cache{$_[0]->svcnum};
25 $cust_pkg_cache{$_[0]->svcnum}->ucfirst_status
27 \&FS::UI::Web::cust_fields,
36 FS::UI::Web::cust_links($cgi->param('cust_fields')),
38 'align' => 'rlllllr'. FS::UI::Web::cust_aligns(),
42 $cust_pkg_cache{$_[0]->svcnum} ||= $_[0]->cust_svc->cust_pkg;
43 return '' unless $cust_pkg_cache{$_[0]->svcnum};
44 my $c = FS::cust_pkg::statuscolors;
45 $c->{$cust_pkg_cache{$_[0]->svcnum}->status };
47 FS::UI::Web::cust_colors(),
52 FS::UI::Web::cust_styles(),
58 die "access denied" unless
59 $FS::CurrentUser::CurrentUser->access_right('List services');
63 my $conf = new FS::Conf;
66 if ( $cgi->param('magic') eq 'unlinked' ) {
67 %search_hash = ( 'unlinked' => 1 );
69 foreach (qw( custnum agentnum svcpart cust_fields )) {
70 $search_hash{$_} = $cgi->param($_) if $cgi->param($_);
72 foreach (qw(pkgpart routernum towernum sectornum)) {
73 $search_hash{$_} = [ $cgi->param($_) ] if $cgi->param($_);
75 if ( defined($cgi->param('cancelled')) ) {
76 $search_hash{'cancelled'} = $cgi->param('cancelled') ? 1 : 0;
80 my $query = FS::svc_circuit->search(\%search_hash);
82 my $link = [ $p.'view/svc_circuit.cgi?', 'svcnum' ];