delete $option_fields{'percent'};
- $option_fields{'cust_main_sales'} = {
- 'label' => "Credit the customer sales person if there is no package sales person",
- 'type' => 'checkbox',
- 'value' => 'Y',
- };
-
%option_fields;
}
--- /dev/null
+package FS::part_event::Action::Mixin::pkg_sales_credit;
+
+use strict;
+use NEXT;
+
+sub option_fields {
+ my $class = shift;
+ my %option_fields = $class->NEXT::option_fields;
+
+ $option_fields{'cust_main_sales'} = {
+ 'label' => "Credit the customer sales person if there is no package sales person",
+ 'type' => 'checkbox',
+ 'value' => 'Y',
+ };
+
+ %option_fields;
+}
+
+1;
package FS::part_event::Action::pkg_sales_credit;
+use base qw( FS::part_event::Action::Mixin::pkg_sales_credit
+ FS::part_event::Action::pkg_referral_credit );
use strict;
-use base qw( FS::part_event::Action::pkg_referral_credit );
sub description { 'Credit the sales person a specific amount'; }
package FS::part_event::Action::pkg_sales_credit_pkg;
-
-use strict;
-use base qw( FS::part_event::Action::Mixin::credit_pkg
+use base qw( FS::part_event::Action::Mixin::pkg_sales_credit
+ FS::part_event::Action::Mixin::credit_pkg
FS::part_event::Action::pkg_sales_credit );
sub description { 'Credit the package sales person an amount based on the referred package'; }
package FS::part_event::Action::pkg_sales_credit_pkg_class;
-use strict;
-use base qw( FS::part_event::Action::Mixin::credit_sales_pkg_class
+use base qw( FS::part_event::Action::Mixin::pkg_sales_credit
+ FS::part_event::Action::Mixin::credit_sales_pkg_class
FS::part_event::Action::pkg_sales_credit );
sub description { "Credit the package sales person an amount based on their commission percentage for the package's class"; }