From 00d1a5be415015a90c17912304835307a8fc4e7e Mon Sep 17 00:00:00 2001
From: Mark Wells <mark@freeside.biz>
Date: Sat, 12 Oct 2013 18:45:26 -0700
Subject: [PATCH] allow commissions based on setup fee, #23969, fallout from
 #6991

---
 FS/FS/part_pkg.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

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
-- 
2.20.1