part_pkg option inheritance, part 1

1 files changed, 38 insertions, 0 deletions

diff --git a/FS/FS/part_pkg/global_Mixin.pm b/FS/FS/part_pkg/global_Mixin.pm
new file mode 100644
index 0000000..56f1602
--- /dev/null
+++ b/FS/FS/part_pkg/global_Mixin.pm
@@ -0,0 +1,38 @@
+package FS::part_pkg::global_Mixin;
+
+use strict;
+use vars qw(@ISA %info);
+use FS::part_pkg;
+@ISA = qw(FS::part_pkg);
+
+%info = (
+  'disabled' => 1,
+  'fields' => {
+    'setup_fee' => { 
+      'name' => 'Setup fee for this package',
+      'default' => 0,
+    },
+    'recur_fee' => { 
+      'name' => 'Recurring fee for this package',
+      'default' => 0,
+    },
+    'unused_credit_cancel' => {
+      'name' => 'Credit the customer for the unused portion of service at '.
+                 'cancellation',
+      'type' => 'checkbox',
+    },
+    'unused_credit_change' => {
+      'name' => 'Credit the customer for the unused portion of service when '.
+                'changing packages',
+      'type' => 'checkbox',
+    },
+  },
+  'fieldorder' => [ qw(
+    setup_fee
+    recur_fee
+    unused_credit_cancel
+    unused_credit_change
+  )],
+);
+
+1;