httemplate/edit/bulk-cust_svc.html

   1 <% include('/elements/header.html', 'Bulk customer service change') %>
   2
   3 <% include('/elements/init_overlib.html') %>
   4
   5 <% include('/elements/progress-init.html',
   6               'OneTrueForm',
   7               [qw( old_svcpart new_svcpart pkgpart noexport )],
   8               'process/bulk-cust_svc.cgi',
   9               $p.'browse/part_svc.cgi',
  10            )
  11 %>
  12
  13 <FORM NAME="OneTrueForm">
  14 %
  15 %  $cgi->param('svcpart') =~ /^(\d+)$/
  16 %    or die "illegal svcpart: ". $cgi->param('svcpart');
  17 %
  18 %  my $old_svcpart = $1;
  19 %  my $src_part_svc = qsearchs('part_svc', { 'svcpart' => $old_svcpart } )
  20 %    or die "unknown svcpart: $old_svcpart";
  21 %
  22
  23
  24 <INPUT NAME="old_svcpart" TYPE="hidden" VALUE="<% $old_svcpart %>">
  25 Change <!-- customer
  26 <B><% $src_part_svc->svcpart %>: <% $src_part_svc->svc %></B> services
  27 <BR>
  28 -->
  29
  30 <SELECT NAME="pkgpart">
  31 % my $num_cust_svc = $src_part_svc->num_cust_svc;
  32 % if ( $num_cust_svc > 1 ) {
  33
  34   <OPTION VALUE="">all <% $num_cust_svc %> <% $src_part_svc->svc %> services
  35 % } else {
  36
  37   <OPTION VALUE="">the <% $num_cust_svc %> <% $src_part_svc->svc %> service
  38 % }
  39 %
  40 %  my $num_unlinked = $src_part_svc->num_cust_svc(0);
  41 %  if ( $num_unlinked ) {
  42 %
  43
  44   <OPTION VALUE="0">the <% $num_unlinked %> unlinked <% $src_part_svc->svc %> services
  45 % }
  46 % foreach my $schwartz (
  47 %     grep { $_->[1] }
  48 %     map  { [ $_, $src_part_svc->num_cust_svc($_->pkgpart) ] }
  49 %          qsearch('part_pkg', {} )
  50 %   ) {
  51 %     my( $part_pkg, $num_cust_svc ) = @$schwartz;
  52 %
  53
  54   <OPTION VALUE="<% $part_pkg->pkgpart %>">the <% $num_cust_svc %>
  55     <% $src_part_svc->svc %> service<% $num_cust_svc > 1 ? 's in' : ' in a' %>
  56     <% $part_pkg->pkg %> package<% $num_cust_svc > 1 ? 's' : '' %>
  57 % }
  58
  59 </SELECT>
  60 <BR>
  61
  62 to new service definition
  63 <SELECT NAME="new_svcpart">
  64 % foreach my $dest_part_svc (
  65 %     grep {    $_->svcpart != $old_svcpart
  66 %            && $_->svcdb   eq $src_part_svc->svcdb
  67 %          }
  68 %          qsearch('part_svc', { 'disabled' => '' } )
  69 %   ) {
  70 %
  71
  72   <OPTION VALUE="<% $dest_part_svc->svcpart %>"><% $dest_part_svc->svcpart %>: <% $dest_part_svc->svc %>
  73 % }
  74
  75 </SELECT>
  76 <BR>
  77 <BR>
  78
  79 <INPUT TYPE="checkbox" NAME="noexport" VALUE="Y"> Disable exports (provisioning) of changes
  80 <BR><BR>
  81
  82 <SCRIPT TYPE="text/javascript">
  83 var confirm_change = '<P ALIGN="center"><B>Bulk customer service change - Are you sure?</B><BR><P ALIGN="CENTER"><INPUT TYPE="button" VALUE="Yes, make changes" onClick="process();">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<INPUT TYPE="BUTTON" VALUE="Cancel" onClick="cClick()">';
  84 </SCRIPT>
  85
  86 <INPUT TYPE="button" VALUE="Bulk change customer services" onClick="overlib(confirm_change, CAPTION, 'Confirm bulk customer service change', STICKY, AUTOSTATUSCAP, CLOSETEXT, '', MIDX, 0, MIDY, 0, DRAGGABLE, WIDTH, 576, HEIGHT, 128, TEXTSIZE, 3, BGCOLOR, '#ff0000', CGCOLOR, '#ff0000' );">
  87
  88 </FORM>
  89
  90 <% include('/elements/footer.html') %>
  91
  92 <%init>
  93
  94 die "access denied"
  95   unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
  96
  97 </%init>