httemplate/edit/bulk-cust_svc.html

   1 <%= include("/elements/header.html", 'Bulk customer service change',
   2             menubar(
   3                      'Main Menu' => $p,
   4                    ),
   5           )
   6 %>
   7
   8 <SCRIPT TYPE="text/javascript" SRC="../elements/overlibmws.js"></SCRIPT>
   9 <SCRIPT TYPE="text/javascript" SRC="../elements/overlibmws_iframe.js"></SCRIPT>
  10 <SCRIPT TYPE="text/javascript" SRC="../elements/overlibmws_draggable.js"></SCRIPT>
  11
  12 <%= include('/elements/progress-init.html',
  13               'OneTrueForm',
  14               [qw( old_svcpart new_svcpart pkgpart )],
  15               'process/bulk-cust_svc.cgi',
  16               $p.'browse/part_svc.cgi',
  17            )
  18 %>
  19
  20 <FORM NAME="OneTrueForm">
  21
  22 <%
  23   $cgi->param('svcpart') =~ /^(\d+)$/
  24     or die "illegal svcpart: ". $cgi->param('svcpart');
  25
  26   my $old_svcpart = $1;
  27   my $src_part_svc = qsearchs('part_svc', { 'svcpart' => $old_svcpart } )
  28     or die "unknown svcpart: $old_svcpart";
  29 %>
  30
  31 <INPUT NAME="old_svcpart" TYPE="hidden" VALUE="<%= $old_svcpart %>">
  32 Change <!-- customer
  33 <B><%= $src_part_svc->svcpart %>: <%= $src_part_svc->svc %></B> services
  34 <BR>
  35 -->
  36
  37 <SELECT NAME="pkgpart">
  38
  39 <% my $num_cust_svc = $src_part_svc->num_cust_svc; %>
  40 <% if ( $num_cust_svc > 1 ) { %>
  41   <OPTION VALUE="">all <%= $num_cust_svc %> <%= $src_part_svc->svc %> services
  42 <% } else { %>
  43   <OPTION VALUE="">the <%= $num_cust_svc %> <%= $src_part_svc->svc %> service
  44 <% } %>
  45
  46 <%
  47   my $num_unlinked = $src_part_svc->num_cust_svc(0);
  48   if ( $num_unlinked ) {
  49 %>
  50   <OPTION VALUE="0">the <%= $num_unlinked %> unlinked <%= $src_part_svc->svc %> services
  51
  52 <% } %>
  53
  54 <% foreach my $schwartz (
  55      grep { $_->[1] }
  56      map  { [ $_, $src_part_svc->num_cust_svc($_->pkgpart) ] }
  57           qsearch('part_pkg', {} )
  58    ) {
  59      my( $part_pkg, $num_cust_svc ) = @$schwartz;
  60 %>
  61   <OPTION VALUE="<%= $part_pkg->pkgpart %>">the <%= $num_cust_svc %>
  62     <%= $src_part_svc->svc %> service<%= $num_cust_svc > 1 ? 's in' : ' in a' %>
  63     <%= $part_pkg->pkg %> package<%= $num_cust_svc > 1 ? 's' : '' %>
  64 <% } %>
  65 </SELECT>
  66 <BR>
  67
  68 to new service definition
  69 <SELECT NAME="new_svcpart">
  70 <% foreach my $dest_part_svc (
  71      grep {    $_->svcpart != $old_svcpart
  72             && $_->svcdb   eq $src_part_svc->svcdb
  73           }
  74           qsearch('part_svc', { 'disabled' => '' } )
  75    ) {
  76 %>
  77   <OPTION VALUE="<%= $dest_part_svc->svcpart %>"><%= $dest_part_svc->svcpart %>: <%= $dest_part_svc->svc %>
  78
  79 <% } %>
  80 </SELECT>
  81 <BR>
  82
  83 <BR>
  84
  85 <SCRIPT TYPE="text/javascript">
  86 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()">';
  87 </SCRIPT>
  88
  89 <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' );">
  90
  91 </FORM>
  92
  93 </BODY>
  94 </HTML>
  95
  96
  97