X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fsearch%2Fsvc_broadband.cgi;h=53a0aa09769791cdbbde5028d142fb9843676bd1;hp=2cb0c1eb3bcd3841e2fedddb6d6030b23356ca8c;hb=266e0c3c894568fb06a15dfbcf4a4eb9bc6989b3;hpb=b1e6943c4350a941d1970ce7bc01d111adc11532 diff --git a/httemplate/search/svc_broadband.cgi b/httemplate/search/svc_broadband.cgi index 2cb0c1eb3..53a0aa097 100755 --- a/httemplate/search/svc_broadband.cgi +++ b/httemplate/search/svc_broadband.cgi @@ -1,109 +1,118 @@ -<% include( 'elements/search.html', +<& elements/svc_Common.html, 'title' => 'Broadband Search Results', 'name' => 'broadband services', + 'html_init' => $html_init, 'query' => $sql_query, - 'count_query' => $count_query, + 'count_query' => $sql_query->{'count_query'}, 'redirect' => [ popurl(2). "view/svc_broadband.cgi?", 'svcnum' ], 'header' => [ '#', 'Service', 'Router', + @tower_header, 'IP Address', - FS::UI::Web::cust_header(), + @header_pkg, + emt('Pkg. Status'), + FS::UI::Web::cust_header($cgi->param('cust_fields')), ], 'fields' => [ 'svcnum', 'svc', - sub { $routerbyblock{shift->blocknum}->routername; }, + 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, - $link, + '', #$link_router, + (map '', @tower_fields), + $link, # ip_addr + @blank_pkg, + '', # pkg status ( map { $_ ne 'Cust. Status' ? $link_cust : '' } - FS::UI::Web::cust_header() + FS::UI::Web::cust_header($cgi->param('cust_fields')) ), ], - 'align' => 'rllr'. FS::UI::Web::cust_aligns(), + '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'); +die "access denied" unless + $FS::CurrentUser::CurrentUser->access_right('List services'); -my $conf = new FS::Conf; +my %cust_pkg_cache; -my $orderby = 'ORDER BY svcnum'; -my %svc_broadband = (); -my @extra_sql = (); -if ( $cgi->param('magic') =~ /^(all|unlinked)$/ ) { +my $conf = new FS::Conf; - push @extra_sql, 'pkgnum IS NULL' - if $cgi->param('magic') eq 'unlinked'; +$m->comp('/elements/handle_uri_query'); - if ( $cgi->param('sortby') =~ /^(\w+)$/ ) { - my $sortby = $1; - $orderby = "ORDER BY $sortby"; +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; } - -} elsif ( $cgi->param('svcpart') =~ /^(\d+)$/ ) { - push @extra_sql, "svcpart = $1"; -} elsif ( $cgi->param('ip_addr') =~ /^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$/ ) { - push @extra_sql, "ip_addr = '$1'"; } -my $addl_from = ' LEFT JOIN cust_svc USING ( svcnum ) '. - ' LEFT JOIN part_svc USING ( svcpart ) '. - ' LEFT JOIN cust_pkg USING ( pkgnum ) '. - ' LEFT JOIN cust_main USING ( custnum ) '; +if ( $cgi->param('sortby') =~ /^(\w+)$/ ) { + $search_hash{'order_by'} = "ORDER BY $1"; +} -push @extra_sql, $FS::CurrentUser::CurrentUser->agentnums_sql( - 'null_right' => 'View/link unlinked services' - ); +my $sql_query = FS::svc_broadband->search(\%search_hash); -my $extra_sql = ''; -if ( @extra_sql ) { - $extra_sql = ( keys(%svc_broadband) ? ' AND ' : ' WHERE ' ). - join(' AND ', @extra_sql ); +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 $count_query = "SELECT COUNT(*) FROM svc_broadband $addl_from "; -#if ( keys %svc_broadband ) { -# $count_query .= ' WHERE '. -# join(' AND ', map "$_ = ". dbh->quote($svc_broadband{$_}), -# keys %svc_broadband -# ); -#} -$count_query .= $extra_sql; - -my $sql_query = { - 'table' => 'svc_broadband', - 'hashref' => {}, #\%svc_broadband, - 'select' => join(', ', - 'svc_broadband.*', - 'part_svc.svc', - 'cust_main.custnum', - FS::UI::Web::cust_sql_fields(), - ), - 'extra_sql' => $extra_sql, - 'addl_from' => $addl_from, -}; - my %routerbyblock = (); foreach my $router (qsearch('router', {})) { foreach ($router->addr_block) { @@ -111,13 +120,54 @@ foreach my $router (qsearch('router', {})) { } } -my $link = [ $p.'view/svc_broadband.cgi', 'svcnum' ]; +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_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'; +} -my $link_cust = [ $p.'view/cust_main.cgi', 'custnum' ];