diff options
author | ivan <ivan> | 2010-03-30 12:07:48 +0000 |
---|---|---|
committer | ivan <ivan> | 2010-03-30 12:07:48 +0000 |
commit | 18f1fb3831bd99520f02a5ebe717344f71dc866f (patch) | |
tree | c2b2393ef8e829ca638d67855d42263ced091d59 /FS/FS/part_event/Action/pkg_employee_credit.pm | |
parent | 5706781c54820002799ce3a1d2d4893256b9b755 (diff) |
employee commission reporting, RT#6991
Diffstat (limited to 'FS/FS/part_event/Action/pkg_employee_credit.pm')
-rw-r--r-- | FS/FS/part_event/Action/pkg_employee_credit.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/FS/FS/part_event/Action/pkg_employee_credit.pm b/FS/FS/part_event/Action/pkg_employee_credit.pm index 28fd025..64dd8b2 100644 --- a/FS/FS/part_event/Action/pkg_employee_credit.pm +++ b/FS/FS/part_event/Action/pkg_employee_credit.pm @@ -7,7 +7,7 @@ sub description { 'Credit the ordering employee a specific amount'; } #a little false laziness w/pkg_referral_credit sub do_action { - my( $self, $cust_pkg ) = @_; + my( $self, $cust_pkg, $cust_event ) = @_; my $cust_main = $self->cust_main($cust_pkg); @@ -26,8 +26,9 @@ sub do_action { my $error = $employee_cust_main->credit( $amount, \$reasonnum, - 'addlinfo' => - 'for customer #'. $cust_main->display_custnum. ': '.$cust_main->name, + 'eventnum' => $cust_event->eventnum, + 'addlinfo' => 'for customer #'. $cust_main->display_custnum. + ': '.$cust_main->name, ); die "Error crediting customer ". $employee_cust_main->custnum. " for employee commission: $error" |