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:09:47 -0800 |
commit | 2bad20089a292ab4e9e80e8534aaec41b4bd7b2c (patch) | |
tree | 8c62c4032b4e12a96e60e89c74f878f887bdb770 /FS/FS/cust_pkg.pm | |
parent | ea0c1e4705595690221118b243a35cdd7c14df1e (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 0bdef02..f45abc6 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); @@ -3010,7 +3012,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; @@ -3164,9 +3166,6 @@ sub modify_charge { ''; } - - -use Data::Dumper; sub process_bulk_cust_pkg { my $job = shift; my $param = shift; |