Revert "remove conflicts on libparams-classify-perl so we can install the version...
[freeside.git] / httemplate / view / svc_broadband-popup.html
1 <%init>
2 die "access denied"
3  unless $FS::CurrentUser::CurrentUser->access_right('View customer services');
4
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;
10 </%init>
11
12 <H3>
13   <a target="_blank" href="<% $fsurl %>view/svc_broadband.cgi?<% $svc->svcnum %>">
14     <% $label[0] |h %> #<% $svc->svcnum %> | <% $label[1] %>
15   </a>
16 </H3>
17 % if ( $addr_status ) {
18 <P>
19   <SPAN STYLE="font-weight: bold; color: <% $svc->addr_status_color %>">
20     <% emt( $addr_status->up ? 'UP' : 'DOWN' ) %>
21   </SPAN>
22 %   if ( $addr_status->up ) {
23     (<% $addr_status->delay |h %> ms)
24 %   }
25   <% emt('as of') . ' ' . time2str('%b %o %H:%M', $addr_status->_date) %>
26 </P>
27 % }
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',
33 } &>
34 </a>
35