X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_pkg%2Fdiscount_Mixin.pm;h=a0bdcee0a4d98aa7afc7075e2b451ff7f8a958e3;hb=96cfdeaacaf990b16f6accb23b75607a5c188335;hp=df65e97080ab18d5b70b8d92a9bbf3c822b3285e;hpb=1a5166dc8db54e731edabb4507b475b82f1bfdef;p=freeside.git

diff --git a/FS/FS/part_pkg/discount_Mixin.pm b/FS/FS/part_pkg/discount_Mixin.pm
index df65e9708..a0bdcee0a 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