diff options
| author | Mark Wells <mark@freeside.biz> | 2013-10-12 18:43:40 -0700 |
|---|---|---|
| committer | Mark Wells <mark@freeside.biz> | 2013-10-12 18:43:40 -0700 |
| commit | 65f3ee811a83be47ef02e0919ec122ad4083ccbd (patch) | |
| tree | 29cbb9d92700fc2e4f1445a03e0797477d4c8657 /FS/FS/part_pkg.pm | |
| parent | 276028234bd1c9f8ad736d9be2062803040700f7 (diff) | |
allow commissions based on setup fee, #23969, fallout from #6991
Diffstat (limited to 'FS/FS/part_pkg.pm')
| -rw-r--r-- | FS/FS/part_pkg.pm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm index 9e3b67e..9ce2e96 100644 --- a/FS/FS/part_pkg.pm +++ b/FS/FS/part_pkg.pm @@ -1650,6 +1650,17 @@ sub cust_bill_pkg_recur { $cust_bill_pkg->recur; } +=item unit_setup CUST_PKG + +Returns the setup fee for one unit of the package. + +=cut + +sub unit_setup { + my ($self, $cust_pkg) = @_; + $self->option('setup_fee') || 0; +} + =item format OPTION DATA Returns data formatted according to the function 'format' described |