diff options
author | Mark Wells <mark@freeside.biz> | 2016-12-12 17:09:47 -0800 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2016-12-12 17:10:04 -0800 |
commit | 2fd40e45e885c4261adaee743feb398bd11f4e8d (patch) | |
tree | 92c0fbce4341140f19ac35fbe30f3d6af52e9806 /FS/FS/cust_pkg.pm | |
parent | 39f36b34b01245b77bcb5a8e50302858c39f03a2 (diff) |
prevent package defs from being cloned unnecessarily, #73687
Diffstat (limited to 'FS/FS/cust_pkg.pm')
-rw-r--r-- | FS/FS/cust_pkg.pm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm index b66f5d0..b491f91 100644 --- a/FS/FS/cust_pkg.pm +++ b/FS/FS/cust_pkg.pm @@ -38,6 +38,8 @@ use FS::sales; # for modify_charge use FS::cust_credit; +use Data::Dumper; + # temporary fix; remove this once (un)suspend admin notices are cleaned up use FS::Misc qw(send_email); @@ -3017,7 +3019,7 @@ sub modify_charge { $pkg_opt_modified = 1; } } - $pkg_opt_modified = 1 if (scalar(@old_additional) - 1) != $i; + $pkg_opt_modified = 1 if scalar(@old_additional) != $i; $pkg_opt{'additional_count'} = $i if $i > 0; my $old_classnum; @@ -3171,9 +3173,6 @@ sub modify_charge { ''; } - - -use Data::Dumper; sub process_bulk_cust_pkg { my $job = shift; my $param = shift; |