diff options
Diffstat (limited to 'FS/FS/part_fee.pm')
-rw-r--r-- | FS/FS/part_fee.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/FS/FS/part_fee.pm b/FS/FS/part_fee.pm index 186fb34..ccf1351 100644 --- a/FS/FS/part_fee.pm +++ b/FS/FS/part_fee.pm @@ -265,6 +265,8 @@ sub lineitem { ' FROM cust_bill_pkg WHERE billpkgnum = ?'; @item_base = map { FS::Record->scalar_sql($sql, $_->billpkgnum) } @items; + + $amount += $total_base * $self->percent / 100; } } else { # the fee applies to _this_ invoice. It has no payments or credits, so @@ -275,6 +277,8 @@ sub lineitem { $total_base = $cust_bill->charged; @item_base = map { $_->setup + $_->recur } @items; + + $amount += $total_base * $self->percent / 100; } } |