sub calc_discount {
my($self, $cust_pkg, $sdate, $details, $param ) = @_;
sub calc_discount {
my($self, $cust_pkg, $sdate, $details, $param ) = @_;
my $br = $self->base_recur_permonth($cust_pkg, $sdate);
$br += $param->{'override_charges'} if $param->{'override_charges'};
my $br = $self->base_recur_permonth($cust_pkg, $sdate);
$br += $param->{'override_charges'} if $param->{'override_charges'};
# transfer remainder of discount, if any, to setup
if ( $discount->setup && $discount->amount
&& (!$discount->months || $discount->months != 1)
# transfer remainder of discount, if any, to setup
if ( $discount->setup && $discount->amount
&& (!$discount->months || $discount->months != 1)
push @{ $param->{'discounts'} }, $cust_bill_pkg_discount;
#add details on discount to invoice
push @{ $param->{'discounts'} }, $cust_bill_pkg_discount;
#add details on discount to invoice
my $money_char = $conf->config('money_char') || '$';
$months = sprintf('%.2f', $months) if $months =~ /\./;
my $money_char = $conf->config('money_char') || '$';
$months = sprintf('%.2f', $months) if $months =~ /\./;