package FS::part_pkg::discount_Mixin;
use strict;
-use vars qw(@ISA %info);
-use FS::part_pkg;
+use vars qw( %info );
+use Time::Local qw( timelocal );
+use List::Util qw( min );
use FS::cust_pkg;
use FS::cust_bill_pkg_discount;
-use Time::Local qw(timelocal);
-use List::Util 'min';
-@ISA = qw(FS::part_pkg);
%info = ( 'disabled' => 1 );
=head1 NAME
sub calc_discount {
my($self, $cust_pkg, $sdate, $details, $param ) = @_;
+ my $conf = new FS::Conf;
my $br = $self->base_recur_permonth($cust_pkg, $sdate);
$br += $param->{'override_charges'} if $param->{'override_charges'};
push @{ $param->{'discounts'} }, $cust_bill_pkg_discount;
#add details on discount to invoice
- my $conf = new FS::Conf;
my $money_char = $conf->config('money_char') || '$';
$months = sprintf('%.2f', $months) if $months =~ /\./;