diff options
Diffstat (limited to 'FS/FS/part_pkg/subscription.pm')
-rw-r--r-- | FS/FS/part_pkg/subscription.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/FS/FS/part_pkg/subscription.pm b/FS/FS/part_pkg/subscription.pm index dbf6d79..825f5ca 100644 --- a/FS/FS/part_pkg/subscription.pm +++ b/FS/FS/part_pkg/subscription.pm @@ -103,7 +103,11 @@ sub calc_recur { $$sdate = timelocal(0,0,0,$cutoff_day,$mon,$year); - $self->option('recur_fee'); + my $br = $self->base_recur(@_); + + my $discount = $self->calc_discount(@_); + + sprintf('%.2f', $br - $discount); } 1; |