From 65f3ee811a83be47ef02e0919ec122ad4083ccbd Mon Sep 17 00:00:00 2001
From: Mark Wells <mark@freeside.biz>
Date: Sat, 12 Oct 2013 18:43:40 -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 9e3b67ef1..9ce2e9687 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
-- 
2.11.0