From fb73d7220794c69f016a82d69bad739463b09738 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 28 Jun 2011 22:36:22 +0000
Subject: [PATCH] add no export option to bulk service changes, RT#13439

---
 FS/FS/cust_svc.pm                  | 4 +++-
 FS/FS/part_svc.pm                  | 5 ++++-
 httemplate/edit/bulk-cust_svc.html | 8 +++++---
 3 files changed, 12 insertions(+), 5 deletions(-)

diff --git a/FS/FS/cust_svc.pm b/FS/FS/cust_svc.pm
index 4fcd9afbd..8cde85c9d 100644
--- a/FS/FS/cust_svc.pm
+++ b/FS/FS/cust_svc.pm
@@ -301,7 +301,9 @@ sub check {
     my $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $self->pkgnum } );
     return "Unknown pkgnum" unless $cust_pkg;
     ($part_svc) = grep { $_->svcpart == $self->svcpart } $cust_pkg->part_svc;
-
+    return "No svcpart ". $self->svcpart.
+           " services in pkgpart ". $cust_pkg->pkgpart
+      unless $part_svc;
     return "Already ". $part_svc->get('num_cust_svc'). " ". $part_svc->svc.
            " services for pkgnum ". $self->pkgnum
       if $part_svc->get('num_avail') == 0 and !$ignore_quantity;
diff --git a/FS/FS/part_svc.pm b/FS/FS/part_svc.pm
index 3ed153e0c..d41510211 100644
--- a/FS/FS/part_svc.pm
+++ b/FS/FS/part_svc.pm
@@ -12,7 +12,7 @@ use FS::cust_svc;
 
 @ISA = qw(FS::Record);
 
-$DEBUG = 0;
+$DEBUG = 1;
 
 =head1 NAME
 
@@ -801,6 +801,9 @@ sub process_bulk_cust_svc {
   my $param = thaw(decode_base64(shift));
   warn Dumper($param) if $DEBUG;
 
+  local($FS::svc_Common::noexport_hack) = 1
+    if $param->{'noexport'};
+
   my $old_part_svc =
     qsearchs('part_svc', { 'svcpart' => $param->{'old_svcpart'} } );
 
diff --git a/httemplate/edit/bulk-cust_svc.html b/httemplate/edit/bulk-cust_svc.html
index a3c21b112..09725966f 100644
--- a/httemplate/edit/bulk-cust_svc.html
+++ b/httemplate/edit/bulk-cust_svc.html
@@ -4,7 +4,7 @@
 
 <% include('/elements/progress-init.html',
               'OneTrueForm',
-              [qw( old_svcpart new_svcpart pkgpart )],
+              [qw( old_svcpart new_svcpart pkgpart noexport )],
               'process/bulk-cust_svc.cgi',
               $p.'browse/part_svc.cgi',
            )
@@ -74,11 +74,13 @@ to new service definition
 
 </SELECT>
 <BR>
-
 <BR>
 
+<INPUT TYPE="checkbox" NAME="noexport" VALUE="Y"> Disable exports (provisioning) of changes
+<BR><BR>
+
 <SCRIPT TYPE="text/javascript">
-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()">';
+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()">';
 </SCRIPT>
 
 <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' );">
-- 
2.11.0