diff options
Diffstat (limited to 'FS/FS/part_event/Action/pkg_agent_credit.pm')
-rw-r--r-- | FS/FS/part_event/Action/pkg_agent_credit.pm | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/FS/FS/part_event/Action/pkg_agent_credit.pm b/FS/FS/part_event/Action/pkg_agent_credit.pm deleted file mode 100644 index 4bcee98..0000000 --- a/FS/FS/part_event/Action/pkg_agent_credit.pm +++ /dev/null @@ -1,39 +0,0 @@ -package FS::part_event::Action::pkg_agent_credit; - -use strict; -use base qw( FS::part_event::Action::pkg_referral_credit ); - -sub description { 'Credit the agent a specific amount'; } - -#a little false laziness w/pkg_referral_credit -sub do_action { - my( $self, $cust_pkg, $cust_event ) = @_; - - my $cust_main = $self->cust_main($cust_pkg); - - my $agent = $cust_main->agent; - return "No customer record for agent ". $agent->agent - unless $agent->agent_custnum; - - my $agent_cust_main = $agent->agent_cust_main; - #? or return "No customer record for agent ". $agent->agent; - - my $amount = $self->_calc_credit($cust_pkg); - return '' unless $amount > 0; - - my $reasonnum = $self->option('reasonnum'); - - my $error = $agent_cust_main->credit( - $amount, - \$reasonnum, - 'eventnum' => $cust_event->eventnum, - 'addlinfo' => 'for customer #'. $cust_main->display_custnum. - ': '.$cust_main->name, - ); - die "Error crediting customer ". $agent_cust_main->custnum. - " for agent commission: $error" - if $error; - -} - -1; |