httemplate/elements/tr-cust_svc.html

   1 <%doc>
   2 tr-cust_svc - Short display of a customer service for use in view/cust_main.
   3
   4 Formerly part of view/cust_main/packages/services.html, moved here for
   5 cleanliness.
   6 </%doc>
   7 <TR>
   8   <TD ALIGN="right" VALIGN="top"><%
   9 FS::UI::Web::svc_link($m, $part_svc, $cust_svc)
  10 %></TD>
  11   <TD STYLE="padding-bottom:0px"><B><%
  12 FS::UI::Web::svc_label_link($m, $part_svc, $cust_svc)
  13 %></B></TD>
  14 </TR>
  15 % if ( $cust_svc->overlimit ) {
  16 <TR>
  17   <TD ALIGN="right" COLSPAN="3" VALIGN="top"
  18       STYLE="padding-bottom:1px; padding-top:0px">
  19     <FONT SIZE="-2" COLOR="#FFD000">Overlimit: <%
  20 time2str('%b %o %Y' . $opt{'cust_pkg-display_times'} ? ' %l:%M %P' : '',
  21 $cust_svc->overlimit )
  22     %></FONT>
  23   </TD>
  24 </TR>
  25 % }
  26 <TR>
  27 % # first column: recharge link
  28   <TD ALIGN="right" VALIGN="top" STYLE="padding-bottom:5px; padding-top:0px">
  29 % if ( $curuser->access_right('Recharge customer service')
  30 %     && $part_svc->svcdb eq 'svc_acct'
  31 %     && ( $svc_x->seconds ne ''
  32 %       || $svc_x->upbytes ne ''
  33 %       || $svc_x->downbytes ne ''
  34 %       || $svc_x->totalbytes ne ''
  35 %     )
  36 % ) {
  37     <FONT SIZE="-2">(&nbsp;<% svc_recharge_link($cust_svc)%>&nbsp;)</FONT>
  38 % }
  39   </TD>
  40 % # second column: all other action links
  41   <TD ALIGN="right" VALIGN="top" STYLE="padding-bottom:5px; padding-top:0px">
  42 % if ( $part_svc->svcdb eq 'svc_broadband' ) {
  43     <FONT SIZE="-1" STYLE="float:left">(&nbsp;<%
  44       include('/elements/popup_link-ping.html',
  45               'ip' => $svc_x->ip_addr
  46       ) %>&nbsp;)</FONT>
  47 %   my $manage_link = $opt{'svc_broadband-manage_link'};
  48 %   if ( $manage_link ) {
  49     <FONT SIZE="-1" STYLE="float:left">(&nbsp;<A HREF="<%
  50       eval(qq("$manage_link"))
  51     %>">Manage Device</A>&nbsp;)</FONT>
  52 %   }
  53 % } #svc_broadband
  54 % if ( $curuser->access_right('Unprovision customer service') ) {
  55     <FONT SIZE="-2">(&nbsp;<% $svc_unprovision_link %>&nbsp;)</FONT>
  56 % }
  57 % if ( $part_svc->svcdb eq 'svc_pbx' && $opt{'maestro-status_test'} ) {
  58     <FONT SIZE="-2">(&nbsp;<A HREF="<%$p%>misc/maestro-customer_status-test.html?<% $cust_pkg->custnum.'+'.$cust_svc->svcnum %>">Test maestro status</A>&nbsp;)
  59     </FONT>
  60 % }
  61   </TD>
  62 </TR>
  63
  64 <%init>
  65 my %opt = @_;
  66 my $curuser = $FS::CurrentUser::CurrentUser;
  67
  68 my $cust_svc = $opt{'cust_svc'};
  69 my $part_svc = $opt{'part_svc'} || $cust_svc->part_svc;
  70 my $cust_pkg = $opt{'cust_pkg'} || $cust_svc->cust_pkg;
  71 my $svc_x = $cust_svc->svc_x;
  72
  73 my $svc_unprovision_link =
  74   qq!<A HREF="javascript:areyousure('${p}misc/unprovision.cgi?! .
  75   $cust_svc->svcnum .
  76   qq!', 'Permanently unprovision and delete this service?')">Unprovision</A>!;
  77
  78 </%init>