allow commissions based on setup fee, #23969, fallout from #6991

diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm
index 9e3b67e..9ce2e96 100644 (file)
--- 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;
 }
 
   $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
 =item format OPTION DATA
 
 Returns data formatted according to the function 'format' described