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 $cust_pkg_cache{$_[0]->svcnum}->ucfirst_status
26 \&FS::UI::Web::cust_fields,
35 FS::UI::Web::cust_links($cgi->param('cust_fields')),
37 'align' => 'rlllllr'. FS::UI::Web::cust_aligns(),
41 my $c = FS::cust_pkg::statuscolors;
42 $c->{$cust_pkg_cache{$_[0]->svcnum}->status };
44 FS::UI::Web::cust_colors(),
49 FS::UI::Web::cust_styles(),
55 die "access denied" unless
56 $FS::CurrentUser::CurrentUser->access_right('List services');
60 my $conf = new FS::Conf;
63 if ( $cgi->param('magic') eq 'unlinked' ) {
64 %search_hash = ( 'unlinked' => 1 );
66 foreach (qw( custnum agentnum svcpart cust_fields )) {
67 $search_hash{$_} = $cgi->param($_) if $cgi->param($_);
69 foreach (qw(pkgpart routernum towernum sectornum)) {
70 $search_hash{$_} = [ $cgi->param($_) ] if $cgi->param($_);
72 if ( defined($cgi->param('cancelled')) ) {
73 $search_hash{'cancelled'} = $cgi->param('cancelled') ? 1 : 0;
77 my $query = FS::svc_circuit->search(\%search_hash);
79 my $link = [ $p.'view/svc_circuit.cgi?', 'svcnum' ];