diff options
| author | Mark Wells <mark@freeside.biz> | 2013-10-12 18:45:26 -0700 |
|---|---|---|
| committer | Mark Wells <mark@freeside.biz> | 2013-10-12 18:45:26 -0700 |
| commit | 00d1a5be415015a90c17912304835307a8fc4e7e (patch) | |
| tree | dee3bed6fac8e4c76e9e913240de38283b3126f4 | |
| parent | b04e0aefbeaf39edd930290694a2675be81f6831 (diff) | |
allow commissions based on setup fee, #23969, fallout from #6991
| -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 184f1cb9e..9ba5bb087 100644 --- a/FS/FS/part_pkg.pm +++ b/FS/FS/part_pkg.pm @@ -1539,6 +1539,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 |