1 package FS::part_event::Action::pkg_employee_credit;
4 use base qw( FS::part_event::Action::pkg_referral_credit );
5 use FS::Record qw(qsearchs);
8 sub description { 'Credit the ordering employee a specific amount'; }
10 #a little false laziness w/pkg_referral_credit
12 my( $self, $cust_pkg ) = @_;
14 my $cust_main = $self->cust_main($cust_pkg);
16 #yuck. this is why text $otaker is gone in 2.1
17 my $otaker = $cust_pkg->otaker;
18 my $employee = qsearchs('access_user', { 'username' => $otaker } )
19 or return "No employee for username $otaker";
20 return "No customer record for employee ". $employee->username
21 unless $employee->user_custnum;
23 my $employee_cust_main = $employee->user_cust_main;
24 #? or return "No customer record for employee ". $employee->username;
26 my $amount = $self->_calc_credit($cust_pkg);
27 return '' unless $amount > 0;
29 my $reasonnum = $self->option('reasonnum');
31 my $error = $employee_cust_main->credit(
35 'for customer #'. $cust_main->display_custnum. ': '.$cust_main->name,
37 die "Error crediting customer ". $employee_cust_main->custnum.
38 " for employee commission: $error"