<%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('View customer services'); my ($svcnum) = $cgi->keywords; # cleans svcnum, checks agent access, etc. my $svc = qsearchs( FS::svc_broadband->search({ 'svcnum' => $svcnum }) ); my $addr_status = $svc->addr_status; my @label = $svc->cust_svc->label;

<% $label[0] |h %> #<% $svc->svcnum %> | <% $label[1] %>

% if ( $addr_status ) {

<% emt( $addr_status->up ? 'UP' : 'DOWN' ) %> % if ( $addr_status->up ) { (<% $addr_status->delay |h %> ms) % } <% emt('as of') . ' ' . time2str('%b %o %H:%M', $addr_status->_date) %>

% } % my $cust_main = $svc->cust_main; <& /elements/small_custview.html, { cust_main => $svc->cust_main, #url => $fsurl.'view/cust_main.cgi', } &>