summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorivan <ivan>2011-06-03 17:08:00 +0000
committerivan <ivan>2011-06-03 17:08:00 +0000
commit1b61bfa6d5ae2752b5ed32d42ba62dadf359fbd6 (patch)
tree9198a3dc668e313d07a0d3702380da8eb6f52f9c
parent8dc5fbf1e67a412cdce10efb5e665c27ef5a6560 (diff)
fix annual discounts, RT#12977
-rw-r--r--FS/FS/part_pkg/discount_Mixin.pm2
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;