X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fsearch%2Fsvc_broadband.cgi;h=53a0aa09769791cdbbde5028d142fb9843676bd1;hp=56711615c923f07ca598111dfca265cd94e0d1a9;hb=266e0c3c894568fb06a15dfbcf4a4eb9bc6989b3;hpb=5e05724a635a22776f1b973f5d7e77989da4e048 diff --git a/httemplate/search/svc_broadband.cgi b/httemplate/search/svc_broadband.cgi index 56711615c..53a0aa097 100755 --- a/httemplate/search/svc_broadband.cgi +++ b/httemplate/search/svc_broadband.cgi @@ -1,132 +1,173 @@ -%die "access denied" -% unless $FS::CurrentUser::CurrentUser->access_right('List services'); -% -%my $conf = new FS::Conf; -% -%my @svc_broadband = (); -%my $sortby=\*svcnum_sort; -%#XXX agent-virtualization needs to be finished :/ -%my $agentnums_sql = $FS::CurrentUser::CurrentUser->agentnums_sql( -% 'null_right' => 'View/link unlinked services' -% ); -% -%if ( $cgi->param('magic') =~ /^(all|unlinked)$/ ) { -% -% @svc_broadband = qsearch( -% 'table' => 'svc_broadband', -% 'hashref' => {}, -% #needs the join first 'extra_sql' => "WHERE $agentnums_sql", -% ); -% -% if ( $cgi->param('magic') eq 'unlinked' ) { -% @svc_broadband = grep { qsearchs('cust_svc', { -% 'svcnum' => $_->svcnum, -% 'pkgnum' => '', -% } -% ) -% } -% @svc_broadband; -% } else { -% -% if ( $cgi->param('sortby') =~ /^(\w+)$/ ) { -% my $sortby = $1; -% if ( $sortby eq 'blocknum' ) { -% $sortby = \*blocknum_sort; -% } -% } -% -%} elsif ( $cgi->param('svcpart') =~ /^(\d+)$/ ) { -% -% @svc_broadband = -% qsearch( { -% 'table' => 'svc_broadband', -% 'addl_from' => 'LEFT JOIN cust_svc USING ( svcnum )', -% 'extra_sql' => "WHERE svcpart = $1", -% } -% ); -% -%} elsif ( $cgi->param('ip_addr') =~ /^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$/ ) { -% my $ip_addr = $1; -% @svc_broadband = qsearchs('svc_broadband',{'ip_addr'=>$ip_addr}); -%} -% -%my %routerbyblock = (); -%foreach my $router (qsearch('router', {})) { -% foreach ($router->addr_block) { -% $routerbyblock{$_->blocknum} = $router; -% } -%} -% -%if ( scalar(@svc_broadband) == 1 ) { -% print $cgi->redirect(popurl(2). "view/svc_broadband.cgi?". $svc_broadband[0]->svcnum); -% #exit; -%} elsif ( scalar(@svc_broadband) == 0 ) { -% - - -% -% errorpage("No matching broadband services found!"); -%} else { -% - - -% -% my($total)=scalar(@svc_broadband); -% print header("Broadband Search Results",''), < -% -% Service # -% Router -% IP Address -% -%END -% -% foreach my $svc_broadband ( -% sort $sortby (@svc_broadband) -% ) { -% my($svcnum,$ip_addr,$routername,$routernum)=( -% $svc_broadband->svcnum, -% $svc_broadband->ip_addr, -% $routerbyblock{$svc_broadband->blocknum}->routername, -% $routerbyblock{$svc_broadband->blocknum}->routernum, -% ); -% -% my $rowspan = 1; -% -% print < -% $svcnum -% $routername -% $ip_addr -%END -% -% #print @rows; -% print ""; -% -% } -% -% print < -% -% -%END -% -%} -% -%sub svcnum_sort { -% $a->getfield('svcnum') <=> $b->getfield('svcnum'); -%} -% -%sub blocknum_sort { -% if ($a->getfield('blocknum') == $b->getfield('blocknum')) { -% $a->getfield('ip_addr') cmp $b->getfield('ip_addr'); -% } else { -% $a->getfield('blocknum') cmp $b->getfield('blocknum'); -% } -%} -% -% -% +<& elements/svc_Common.html, + 'title' => 'Broadband Search Results', + 'name' => 'broadband services', + 'html_init' => $html_init, + 'query' => $sql_query, + 'count_query' => $sql_query->{'count_query'}, + 'redirect' => [ popurl(2). "view/svc_broadband.cgi?", 'svcnum' ], + 'header' => [ '#', + 'Service', + 'Router', + @tower_header, + 'IP Address', + @header_pkg, + emt('Pkg. Status'), + FS::UI::Web::cust_header($cgi->param('cust_fields')), + ], + 'fields' => [ 'svcnum', + 'svc', + sub { + my $router = shift->router; + $router ? $router->routername : ''; + }, + @tower_fields, + 'ip_addr', + @fields_pkg, + sub { + $cust_pkg_cache{$_[0]->svcnum} ||= $_[0]->cust_svc->cust_pkg; + return '' unless $cust_pkg_cache{$_[0]->svcnum}; + $cust_pkg_cache{$_[0]->svcnum}->ucfirst_status + }, + \&FS::UI::Web::cust_fields, + ], + 'links' => [ $link, + $link, + '', #$link_router, + (map '', @tower_fields), + $link, # ip_addr + @blank_pkg, + '', # pkg status + ( map { $_ ne 'Cust. Status' ? $link_cust : '' } + FS::UI::Web::cust_header($cgi->param('cust_fields')) + ), + ], + 'align' => 'rll'.('r' x @tower_fields). + 'r'. # ip_addr + $align_pkg. + 'r'. # pkg status + FS::UI::Web::cust_aligns(), + 'color' => [ + '', + '', + '', + (map '', @tower_fields), + '', # ip_addr + @blank_pkg, + sub { + $cust_pkg_cache{$_[0]->svcnum} ||= $_[0]->cust_svc->cust_pkg; + return '' unless $cust_pkg_cache{$_[0]->svcnum}; + my $c = FS::cust_pkg::statuscolors; + $c->{$cust_pkg_cache{$_[0]->svcnum}->status }; + }, # pkg status + FS::UI::Web::cust_colors(), + ], + 'style' => [ + '', + '', + '', + (map '', @tower_fields), + '', # ip_addr + @blank_pkg, + 'b', # pkg status + FS::UI::Web::cust_styles(), + ], + +&> +<%init> +die "access denied" unless + $FS::CurrentUser::CurrentUser->access_right('List services'); + +my %cust_pkg_cache; + +my $conf = new FS::Conf; + +$m->comp('/elements/handle_uri_query'); + +my %search_hash; +if ( $cgi->param('magic') eq 'unlinked' ) { + %search_hash = ( 'unlinked' => 1 ); +} else { + foreach (qw( custnum agentnum svcpart cust_fields )) { + $search_hash{$_} = $cgi->param($_) if $cgi->param($_); + } + foreach (qw(pkgpart routernum towernum sectornum)) { + $search_hash{$_} = [ $cgi->param($_) ] if $cgi->param($_); + } + if ( defined($cgi->param('cancelled')) ) { + $search_hash{'cancelled'} = $cgi->param('cancelled') ? 1 : 0; + } +} + +if ( $cgi->param('sortby') =~ /^(\w+)$/ ) { + $search_hash{'order_by'} = "ORDER BY $1"; +} + +my $sql_query = FS::svc_broadband->search(\%search_hash); + +my @tower_header; +my @tower_fields; +if ( FS::tower_sector->count > 0 ) { + push @tower_header, 'Tower/Sector'; + push @tower_fields, sub { $_[0]->tower_sector ? + $_[0]->tower_sector->description : '' }; +} + +my %routerbyblock = (); +foreach my $router (qsearch('router', {})) { + foreach ($router->addr_block) { + $routerbyblock{$_->blocknum} = $router; + } +} + +my $link = [ $p.'view/svc_broadband.cgi?', 'svcnum' ]; + +#XXX get the router link working +#my $link_router = sub { +# my $routernum = $routerbyblock{shift->blocknum}->routernum; +# [ $p.'view/router.cgi?'.$routernum, 'routernum' ]; +#}; + +my $link_cust = [ $p.'view/cust_main.cgi?', 'custnum' ]; + +my $html_init = include('/elements/email-link.html', + 'search_hash' => \%search_hash, + 'table' => 'svc_broadband' + ); + +my $query = $m->scomp('/elements/create_uri_query'); + +$html_init .= ' | ' . + '' . emt('View a map of these services') . ''; + +my (@header_pkg,@fields_pkg,@blank_pkg); +my $align_pkg = ''; +#false laziness with search/svc_acct.cgi +$cgi->param('cust_pkg_fields') =~ /^([\w\,]*)$/ or die "bad cust_pkg_fields"; +my @pkg_fields = split(',', $1); +foreach my $pkg_field ( @pkg_fields ) { + ( my $header = ucfirst($pkg_field) ) =~ s/_/ /; #:/ + push @header_pkg, $header; + + #not the most efficient to do it every field, but this is of niche use. so far + push @fields_pkg, sub { my $svc_x = shift; + my $cust_pkg = $svc_x->cust_svc->cust_pkg or return ''; + my $value; + if ($pkg_field eq 'package') { + $value = $cust_pkg->part_pkg->pkg; + #$value = $cust_pkg->pkg_label; + } + else { + $value = $cust_pkg->get($pkg_field);#closures help alot + $value ? time2str('%b %d %Y', $value ) : ''; + } + }; + + push @blank_pkg, ''; + $align_pkg .= 'c'; +} + + +