httemplate/view/cust_main/packages/services.html

   1 % ###
   2 % # Services
   3 % ###
   4
   5   <TD CLASS="inv" BGCOLOR="<% $bgcolor %>">
   6     <TABLE CLASS="inv" BORDER=0 CELLSPACING=0 CELLPADDING=2 WIDTH="100%">
   7     <SCRIPT TYPE="text/javascript">
   8 function clearhint_search_cust_svc(obj, str) {
   9   if (obj.value == str) obj.value = '';
  10 }
  11     </SCRIPT>
  12
  13 %  foreach my $part_svc ( $cust_pkg->part_svc(
  14 %                           'summarize_size' => $opt{'cust_pkg-large_pkg_size'}
  15 %                       ) )
  16 %  {
  17
  18 %    my $num_cust_svc = $cust_pkg->num_cust_svc( $part_svc->svcpart );
  19
  20 %    if ( $opt{'cust_pkg-large_pkg_size'} > 0 and
  21 %         $opt{'cust_pkg-large_pkg_size'} <= $num_cust_svc ) { # summarize
  22 %
  23       <TR>
  24         <TD ALIGN="right" VALIGN="top">
  25 %       my $href="${p}search/cust_pkg_svc.html?svcpart=".$part_svc->svcpart.
  26 %          ";pkgnum=".$cust_pkg->pkgnum;
  27         <A HREF="<% $href %>"><% $part_svc->svc %></A>
  28         </TD>
  29         <TD ALIGN="left" VALIGN="top">
  30         <A HREF="<% $href %>"><B>(<% mt("view all [_1]", $num_cust_svc) |h %>)</B></A>
  31         </TD>
  32       </TR>
  33 %     my $hint = $hints{$part_svc->svcdb};
  34 %     if ( $hint ) {
  35       <TR>
  36         <TD></TD>
  37         <TD ALIGN="left" VALIGN="top">
  38         <FORM name="svcpart<%$part_svc->svcpart%>_search" STYLE="display:inline"
  39         ACTION="<%$p%>search/cust_pkg_svc.html" METHOD="GET">
  40         <INPUT TYPE="hidden" NAME="svcpart" VALUE="<%$part_svc->svcpart%>">
  41         <INPUT TYPE="hidden" NAME="pkgnum" VALUE="<%$cust_pkg->pkgnum%>">
  42         <INPUT TYPE="text" NAME="search_svc"
  43         onfocus="clearhint_search_cust_svc(this, '<%$hint%>')" VALUE="<%$hint%>">
  44         <INPUT TYPE="submit" VALUE="Search"></FORM>
  45         </TD>
  46       </TR>
  47 %     } #$hint
  48 %
  49 %    } else { # don't summarize
  50 %
  51 %      foreach my $cust_svc ( @{ $part_svc->cust_pkg_svc } ) {
  52 %        if ( $cust_pkg->getfield('cancel') > 0 ) {
  53       <& /elements/tr-cust_svc_cancel.html,
  54                   %opt,
  55                   'part_svc' => $part_svc,
  56                   'cust_svc' => $cust_svc,
  57                   'cust_pkg' => $cust_pkg,
  58        &>
  59 %        }
  60 %        else {
  61       <& /elements/tr-cust_svc.html,
  62                   %opt,
  63                   'part_svc' => $part_svc,
  64                   'cust_svc' => $cust_svc,
  65                   'cust_pkg' => $cust_pkg,
  66        &>
  67 %       } #if cancel > 0
  68 %     } #foreach $cust_svc
  69 %   } #if summarizing
  70 %   if (    ! $cust_pkg->get('cancel')
  71 %        && $curuser->access_right('Provision customer service')
  72 %        && $part_svc->num_avail
  73 %      ) {
  74
  75       <TR>
  76         <TD COLSPAN=3 ALIGN="center" STYLE="padding-bottom:4px;padding-top:0px">
  77           <B><% svc_provision_link($cust_pkg, $part_svc, \%opt, $curuser) %></B>
  78 %        if ( $curuser->access_right('Bulk provision customer service')
  79 %               && $part_svc->svcdb eq 'svc_phone' ) {
  80 %          if ( $part_svc->num_avail > 5 ) {
  81 %             local $opt{'bulk'} = 1;
  82               <BR><% svc_provision_link($cust_pkg, $part_svc, \%opt, $curuser) %>
  83 %           }
  84 %           #XXX if there's orders for this customer {
  85               <BR><A HREF="<%$p%>browse/did_order.html?custnum=<%$cust_pkg->custnum%>"><% mt('Browse Received DID Inventory') |h %></A>
  86 %           #}
  87 %       }
  88         </TD>
  89       </TR>
  90
  91 %   }
  92
  93 % }
  94
  95     </TABLE>
  96   </TD>
  97
  98 <%init>
  99
 100 my %opt = @_;
 101
 102 my $bgcolor  = $opt{'bgcolor'};
 103 my $cust_pkg = $opt{'cust_pkg'};
 104 my $part_pkg = $opt{'part_pkg'};
 105 my $curuser  = $FS::CurrentUser::CurrentUser;
 106
 107 my $conf = new FS::Conf;
 108
 109 sub svc_provision_link {
 110   my ($cust_pkg, $part_svc, $opt, $curuser) = @_;
 111
 112   ( my $svc_nbsp = $part_svc->svc ) =~ s/\s+/ /g;
 113   my $num_avail = $part_svc->num_avail;
 114
 115   my $query = "pkgnum=". $cust_pkg->pkgnum. ';'.
 116               "svcpart=". $part_svc->svcpart;
 117   $query .= ';bulk=1' if $opt->{bulk};
 118
 119   my $url;
 120   if ( $part_svc->svcdb eq 'svc_external' #could be generalized
 121        && $opt->{'svc_external-skip_manual'}
 122   ) {
 123     $url = "${p}edit/process/". $part_svc->svcdb. ".cgi?$query";
 124   } else {
 125     $url = svc_url(
 126                     'm'        => $m,
 127                     'action'   => 'edit',
 128                     'part_svc' => $part_svc,
 129                     'query'    => $query,
 130                   );
 131   }
 132
 133   my $action = $opt->{bulk} ? 'Bulk provision' : 'Provision';
 134
 135   my $link = qq!<A CLASS="provision" HREF="$url">!.
 136              emt("$action [_1] ([_2])",$svc_nbsp,$num_avail).'</A>';
 137   if ( $opt->{'legacy_link'}
 138        && $curuser->access_right('View/link unlinked services')
 139      )
 140   {
 141     $link .= '<BR>'.
 142              qq!<A CLASS="provision" HREF="${p}misc/link.cgi?$query">!.
 143             emt("Link to legacy [_1] ([_2])",$svc_nbsp,$num_avail).'</A>';
 144   }
 145   $link;
 146 }
 147
 148 my %hints = (
 149 svc_acct      => emt('(user or email)'),
 150 svc_domain    => emt('(domain)'),
 151 svc_broadband => emt('(ip or mac)'),
 152 svc_forward   => emt('(email)'),
 153 svc_phone     => emt('(phone)'),
 154 svc_pbx       => emt('(phone)'),
 155 );
 156
 157 </%init>