diff options
| author | levinse <levinse> | 2011-01-18 05:21:08 +0000 |
|---|---|---|
| committer | levinse <levinse> | 2011-01-18 05:21:08 +0000 |
| commit | 96cfdeaacaf990b16f6accb23b75607a5c188335 (patch) | |
| tree | 81529cca7055282c16ccc5806a5235a1eac4ede5 /FS/FS/part_pkg/discount_Mixin.pm | |
| parent | 1a5166dc8db54e731edabb4507b475b82f1bfdef (diff) | |
add discount capability to sql_external, RT10481
Diffstat (limited to 'FS/FS/part_pkg/discount_Mixin.pm')
| -rw-r--r-- | FS/FS/part_pkg/discount_Mixin.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/FS/FS/part_pkg/discount_Mixin.pm b/FS/FS/part_pkg/discount_Mixin.pm index df65e97..a0bdcee 100644 --- a/FS/FS/part_pkg/discount_Mixin.pm +++ b/FS/FS/part_pkg/discount_Mixin.pm @@ -42,6 +42,7 @@ sub calc_discount { my($self, $cust_pkg, $sdate, $details, $param ) = @_; my $br = $self->base_recur($cust_pkg); + $br += $param->{'override_charges'} if $param->{'override_charges'}; my $tot_discount = 0; #UI enforces just 1 for now, will need ordering when they can be stacked |