diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2013-02-17 18:50:00 -0800 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2013-02-17 18:50:00 -0800 |
| commit | 413de0ecd1ed0ede46a0cbb83321b8e12ef10ffb (patch) | |
| tree | 3df24b1c1deb132cf33410b20be2ebb636ed6f5e | |
| parent | 1a887c2d93bb897bf19362a4eff3cf41b834a617 (diff) | |
fix setup fee discounts w/intro period price plans, RT#21063
| -rw-r--r-- | FS/FS/part_pkg/delayed_Mixin.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/FS/FS/part_pkg/delayed_Mixin.pm b/FS/FS/part_pkg/delayed_Mixin.pm index 83e543a4f..ab53bda06 100644 --- a/FS/FS/part_pkg/delayed_Mixin.pm +++ b/FS/FS/part_pkg/delayed_Mixin.pm @@ -23,7 +23,8 @@ use NEXT; ); sub calc_setup { - my($self, $cust_pkg, $time ) = @_; + my $self = shift; + my( $cust_pkg, $time ) = @_; unless ( $self->option('delay_setup', 1) ) { my $d = $cust_pkg->bill || $time; @@ -31,7 +32,7 @@ sub calc_setup { $cust_pkg->bill($d); } - $self->option('setup_fee'); + $self->NEXT::calc_setup(@_); } sub calc_remain { |