3 unless $FS::CurrentUser::CurrentUser->access_right('View customer services');
5 my ($svcnum) = $cgi->keywords;
6 # cleans svcnum, checks agent access, etc.
7 my $svc = qsearchs( FS::svc_broadband->search({ 'svcnum' => $svcnum }) );
8 my $addr_status = $svc->addr_status;
9 my @label = $svc->cust_svc->label;
13 <a target="_blank" href="<% $fsurl %>view/svc_broadband.cgi?<% $svc->svcnum %>">
14 <% $label[0] |h %> #<% $svc->svcnum %> | <% $label[1] %>
17 % if ( $addr_status ) {
19 <SPAN STYLE="font-weight: bold; color: <% $svc->addr_status_color %>">
20 <% emt( $addr_status->up ? 'UP' : 'DOWN' ) %>
22 % if ( $addr_status->up ) {
23 (<% $addr_status->delay |h %> ms)
25 <% emt('as of') . ' ' . time2str('%b %o %H:%M', $addr_status->_date) %>
28 % my $cust_main = $svc->cust_main;
29 <a target="_blank" href="<% $fsurl %>view/cust_main.cgi?<% $cust_main->custnum %>">
30 <& /elements/small_custview.html, {
31 cust_main => $svc->cust_main,
32 #url => $fsurl.'view/cust_main.cgi',