diff options
author | ivan <ivan> | 2011-06-03 17:07:59 +0000 |
---|---|---|
committer | ivan <ivan> | 2011-06-03 17:07:59 +0000 |
commit | 49ea5f3f188b474557417dd58bb59b7334c5837b (patch) | |
tree | 0cde666a947e0810e5591dadeb21a788465858c5 /FS | |
parent | d55b0bcfea714c60d87c68ad24741fbeba6cd74b (diff) |
fix annual discounts, RT#12977
Diffstat (limited to 'FS')
-rw-r--r-- | FS/FS/part_pkg/discount_Mixin.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/FS/FS/part_pkg/discount_Mixin.pm b/FS/FS/part_pkg/discount_Mixin.pm index d97e18042..17e2f5344 100644 --- a/FS/FS/part_pkg/discount_Mixin.pm +++ b/FS/FS/part_pkg/discount_Mixin.pm @@ -41,7 +41,7 @@ discount and generates an invoice detail describing it. sub calc_discount { my($self, $cust_pkg, $sdate, $details, $param ) = @_; - my $br = $self->base_recur($cust_pkg, $sdate); + my $br = $self->base_recur_permonth($cust_pkg, $sdate); $br += $param->{'override_charges'} if $param->{'override_charges'}; my $tot_discount = 0; |