diff options
author | levinse <levinse> | 2011-04-29 12:12:45 +0000 |
---|---|---|
committer | levinse <levinse> | 2011-04-29 12:12:45 +0000 |
commit | e774555a6ae69da65e7774c701232fdf9dd052b1 (patch) | |
tree | 3807379817a297a53b27b1f6d8c8c7ec758f6713 /FS/FS/cust_pkg.pm | |
parent | 91fd4ea0e91ee9e6717e0b12e01eebb8f8b21322 (diff) |
apply discount to setup fees, part 1 of 2, RT11512
Diffstat (limited to 'FS/FS/cust_pkg.pm')
-rw-r--r-- | FS/FS/cust_pkg.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm index 6c985cf19..deb1cf1fe 100644 --- a/FS/FS/cust_pkg.pm +++ b/FS/FS/cust_pkg.pm @@ -30,6 +30,7 @@ use FS::reason; use FS::cust_pkg_discount; use FS::discount; use FS::UI::Web; +use Data::Dumper; # need to 'use' these instead of 'require' in sub { cancel, suspend, unsuspend, # setup } @@ -1416,7 +1417,6 @@ sub change { } -use Data::Dumper; use Storable 'thaw'; use MIME::Base64; sub process_bulk_cust_pkg { @@ -2608,6 +2608,7 @@ sub insert_discount { 'amount' => $self->discountnum_amount, 'percent' => $self->discountnum_percent, 'months' => $self->discountnum_months, + 'setup' => $self->discountnum_setup, #'disabled' => $self->discountnum_disabled, }; |