X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fpart_pkg%2Fdiscount_Mixin.pm;h=17e2f53445b8bce43684ca02a3701c8fa5e5bee3;hp=d97e180426fc164c17933341cd3dd26b174d1470;hb=49ea5f3f188b474557417dd58bb59b7334c5837b;hpb=d55b0bcfea714c60d87c68ad24741fbeba6cd74b

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;