}
#eofalse
-my $ac = qsearchs('ac', { acnum => $svc_broadband->getfield('acnum') });
+my $router = $svc_broadband->addr_block->router;
+
+if (not $router) { die "Could not lookup router for svc_broadband (svcnum $svcnum)" };
my (
- $acname,
- $acnum,
+ $routername,
+ $routernum,
$speed_down,
$speed_up,
- $ip_addr,
- $ip_netmask,
- $mac_addr,
- $location
+ $ip_addr
) = (
- $ac->getfield('acname'),
- $ac->getfield('acnum'),
+ $router->getfield('routername'),
+ $router->getfield('routernum'),
$svc_broadband->getfield('speed_down'),
$svc_broadband->getfield('speed_up'),
- $svc_broadband->getfield('ip_addr'),
- $svc_broadband->getfield('ip_netmask'),
- $svc_broadband->getfield('mac_addr'),
- $svc_broadband->getfield('location')
+ $svc_broadband->getfield('ip_addr')
);
+
+
print header('Broadband Service View', menubar(
( ( $custnum )
? ( "View this package (#$pkgnum)" => "${p}view/cust_pkg.cgi?$pkgnum",
ntable("#cccccc"). '<TR><TD>'. ntable("#cccccc",2).
qq!<TR><TD ALIGN="right">Service number</TD>!.
qq!<TD BGCOLOR="#ffffff">$svcnum</TD></TR>!.
- qq!<TR><TD ALIGN="right">AC</TD>!.
- qq!<TD BGCOLOR="#ffffff">$acnum: $acname</TD></TR>!.
+ qq!<TR><TD ALIGN="right">Router</TD>!.
+ qq!<TD BGCOLOR="#ffffff">$routernum: $routername</TD></TR>!.
qq!<TR><TD ALIGN="right">Download Speed</TD>!.
qq!<TD BGCOLOR="#ffffff">$speed_down</TD></TR>!.
qq!<TR><TD ALIGN="right">Upload Speed</TD>!.
qq!<TD BGCOLOR="#ffffff">$speed_up</TD></TR>!.
- qq!<TR><TD ALIGN="right">IP Address/Mask</TD>!.
- qq!<TD BGCOLOR="#ffffff">$ip_addr/$ip_netmask</TD></TR>!.
- qq!<TR><TD ALIGN="right">MAC Address</TD>!.
- qq!<TD BGCOLOR="#ffffff">$mac_addr</TD></TR>!.
- qq!<TR><TD ALIGN="right" VALIGN="TOP">Location</TD>!.
- qq!<TD BGCOLOR="#ffffff"><PRE>$location</PRE></TD></TR>!.
- '</TABLE></TD></TR></TABLE>'.
- '<BR>'. joblisting({'svcnum'=>$svcnum}, 1).
+ qq!<TR><TD ALIGN="right">IP Address</TD>!.
+ qq!<TD BGCOLOR="#ffffff">$ip_addr</TD></TR>!.
+ '</TD></TR><TR ROWSPAN="1"><TD></TD></TR>';
+
+
+# foreach my $sb_field
+# ( qsearch('sb_field', { svcnum => $svcnum }) ) {
+# my $part_sb_field = qsearchs('part_sb_field',
+# { sbfieldpart => $sb_field->sbfieldpart });
+# print q!<TR><TD ALIGN="right">! . $part_sb_field->name .
+# q!</TD><TD BGCOLOR="#ffffff">! . $sb_field->value .
+# q!</TD></TR>!;
+# }
+# print '</TABLE>';
+
+
+ my $sb_field = $svc_broadband->sb_field_hashref;
+ foreach (sort { $a cmp $b } keys(%{$sb_field})) {
+ print q!<TR><TD ALIGN="right">! . $_ .
+ q!</TD><TD BGCOLOR="#ffffff">! . $sb_field->{$_} .
+ q!</TD></TR>!;
+ }
+ print '</TABLE>';
+
+
+print '<BR>'. joblisting({'svcnum'=>$svcnum}, 1).
'</BODY></HTML>'
;
%>