X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fview%2Fsvc_broadband.cgi;h=f552e9bc7733883714ab578bcb3e274f74023aea;hp=ae23386a18b56525c99f35ee307bf3f624b36122;hb=9bdca2fe23584918219395b62effbb9ef0fc5f1c;hpb=2041a9143fac20b79ead4a1ae01224dedf5b27c2 diff --git a/httemplate/view/svc_broadband.cgi b/httemplate/view/svc_broadband.cgi index ae23386a1..f552e9bc7 100644 --- a/httemplate/view/svc_broadband.cgi +++ b/httemplate/view/svc_broadband.cgi @@ -1,142 +1,219 @@ - -<% - -my($query) = $cgi->keywords; -$query =~ /^(\d+)$/; -my $svcnum = $1; -my $svc_broadband = qsearchs( 'svc_broadband', { 'svcnum' => $svcnum } ) - or die "svc_broadband: Unknown svcnum $svcnum"; - -#false laziness w/all svc_*.cgi -my $cust_svc = qsearchs( 'cust_svc', { 'svcnum' => $svcnum } ); -my $pkgnum = $cust_svc->getfield('pkgnum'); -my($cust_pkg, $custnum); -if ($pkgnum) { - $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $pkgnum } ); - $custnum = $cust_pkg->custnum; -} else { - $cust_pkg = ''; - $custnum = ''; -} -#eofalse - -my $router = $svc_broadband->addr_block->router; - -if (not $router) { die "Could not lookup router for svc_broadband (svcnum $svcnum)" }; - -my ( - $routername, - $routernum, - $speed_down, - $speed_up, - $ip_addr - ) = ( - $router->getfield('routername'), - $router->getfield('routernum'), - $svc_broadband->getfield('speed_down'), - $svc_broadband->getfield('speed_up'), - $svc_broadband->getfield('ip_addr') - ); -%> - -<%=header('Broadband Service View', menubar( +<%include("/elements/header.html",'Broadband Service View', menubar( ( ( $custnum ) - ? ( "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", + ? ( "View this customer (#$display_custnum)" => "${p}view/cust_main.cgi?$custnum", ) : ( "Cancel this (unaudited) website" => "${p}misc/cancel-unaudited.cgi?$svcnum" ) - ), - "Main menu" => $p, + ) )) %> -Edit this information +<% include('/elements/init_overlib.html') %> + +Edit this information
-<%=ntable("#cccccc")%> +<%ntable("#cccccc")%> - <%=ntable("#cccccc",2)%> + <%ntable("#cccccc",2)%> Service number - <%=$svcnum%> + <%$svcnum%> - Router - <%=$routernum%>: <%=$routername%> + Description + <%$description%> + +% if ( $router ) { + + Router + <%$router->routernum%>: <%$router->routername%> + +% } + Download Speed - <%=$speed_down%> + <%$speed_down%> Upload Speed - <%=$speed_up%> + <%$speed_up%> + + +% if ( $ip_addr ) { + + IP Address + + <%$ip_addr%> + (<% include('/elements/popup_link-ping.html', 'ip'=>$ip_addr ) %>) + + + + IP Netmask + <%$addr_block->NetAddr->mask%> + + + IP Gateway + <%$addr_block->ip_gateway%> + +% } + + + MAC Address + <%$mac_addr%> + + + Latitude + <%$latitude%> + + + Longitude + <%$longitude%> + + + Altitude + <%$altitude%> + + + VLAN Profile + <%$vlan_profile%> - IP Address - <%=$ip_addr%> + Authentication Key + <%$auth_key%> +% +%foreach (sort { $a cmp $b } $svc_broadband->virtual_fields) { +% print $svc_broadband->pvf($_)->widget('HTML', 'view', +% $svc_broadband->getfield($_)), "\n"; +%} +% +% -<% -foreach (sort { $a cmp $b } $svc_broadband->virtual_fields) { - print $svc_broadband->pvf($_)->widget('HTML', 'view', - $svc_broadband->getfield($_)), "\n"; -} - -%>
-<%=ntable("#cccccc", 2)%> -<% - my $sb_router = qsearchs('router', { svcnum => $svcnum }); - if ($sb_router) { - %> - Router associated: <%=$sb_router->routername%> - +<%ntable("#cccccc", 2)%> +% +% my $sb_router = qsearchs('router', { svcnum => $svcnum }); +% if ($sb_router) { +% + + Router associated: <%$sb_router->routername%> + (details)
- <% my @addr_block; - if (@addr_block = $sb_router->addr_block) { - %> +% my @sb_addr_block; +% if (@sb_addr_block = $sb_router->addr_block) { +% + Address space - + (edit)
- <% print ntable("#cccccc", 1); - foreach (@addr_block) { %> +% print ntable("#cccccc", 1); +% foreach (@sb_addr_block) { + - <%=$_->ip_gateway%>/<%=$_->ip_netmask%> + <%$_->ip_gateway%>/<%$_->ip_netmask%> - <% } %> +% } + - <% } else { %> +% } else { + No address space allocated. - <% } %> +% } +
- <% - } else { -%> +% +% } else { +% -
- + + + Add router named - +
+% +%} +% -<% -} -%>
-<%=joblisting({'svcnum'=>$svcnum}, 1)%> - - +<%joblisting({'svcnum'=>$svcnum}, 1)%> + +<% include('/elements/footer.html') %> +<%init> + +die "access denied" + unless $FS::CurrentUser::CurrentUser->access_right('View customer services'); + +my($query) = $cgi->keywords; +$query =~ /^(\d+)$/; +my $svcnum = $1; +my $svc_broadband = qsearchs({ + 'select' => 'svc_broadband.*', + 'table' => 'svc_broadband', + 'addl_from' => ' LEFT JOIN cust_svc USING ( svcnum ) '. + ' LEFT JOIN cust_pkg USING ( pkgnum ) '. + ' LEFT JOIN cust_main USING ( custnum ) ', + 'hashref' => { 'svcnum' => $svcnum }, + 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql( + 'null_right' => 'View/link unlinked services' + ), +}) or die "svc_broadband: Unknown svcnum $svcnum"; + +#false laziness w/all svc_*.cgi +my $cust_svc = qsearchs( 'cust_svc', { 'svcnum' => $svcnum } ); +my $pkgnum = $cust_svc->getfield('pkgnum'); +my($cust_pkg, $custnum, $display_custnum); +if ($pkgnum) { + $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $pkgnum } ); + $custnum = $cust_pkg->custnum; + $display_custnum = $cust_pkg->cust_main->display_custnum; +} else { + $cust_pkg = ''; + $custnum = ''; +} +#eofalse + +my $addr_block = $svc_broadband->addr_block; +my $router = $addr_block->router if $addr_block; + +#if (not $router) { die "Could not lookup router for svc_broadband (svcnum $svcnum)" }; + +my ( + $speed_down, + $speed_up, + $ip_addr, + $mac_addr, + $latitude, + $longitude, + $altitude, + $vlan_profile, + $auth_key, + $description, + ) = ( + $svc_broadband->getfield('speed_down'), + $svc_broadband->getfield('speed_up'), + $svc_broadband->getfield('ip_addr'), + $svc_broadband->mac_addr, + $svc_broadband->latitude, + $svc_broadband->longitude, + $svc_broadband->altitude, + $svc_broadband->vlan_profile, + $svc_broadband->auth_key, + $svc_broadband->description, + ); +