diff options
author | ivan <ivan> | 2011-06-28 22:36:20 +0000 |
---|---|---|
committer | ivan <ivan> | 2011-06-28 22:36:20 +0000 |
commit | 8c5a1df1a46121c75a829eb1d57956c9731940ab (patch) | |
tree | 72d4bbd0745d39ec65e34d7091f740d55872c88d /FS/FS/part_svc.pm | |
parent | f4a49642af5d6de9908f8fb99570c492ae68cccc (diff) |
add no export option to bulk service changes, RT#13439
Diffstat (limited to 'FS/FS/part_svc.pm')
-rw-r--r-- | FS/FS/part_svc.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/FS/FS/part_svc.pm b/FS/FS/part_svc.pm index ddc0a79..c4881c7 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 @@ -816,6 +816,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'} } ); |