diff options
| -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; |