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/cust_event.pm | |
parent | 5706781c54820002799ce3a1d2d4893256b9b755 (diff) |
employee commission reporting, RT#6991
Diffstat (limited to 'FS/FS/cust_event.pm')
-rw-r--r-- | FS/FS/cust_event.pm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/FS/FS/cust_event.pm b/FS/FS/cust_event.pm index d2fcfc1..52b5911 100644 --- a/FS/FS/cust_event.pm +++ b/FS/FS/cust_event.pm @@ -1,18 +1,16 @@ package FS::cust_event; use strict; +use base qw( FS::cust_main_Mixin FS::Record ); use vars qw( @ISA $DEBUG $me ); use Carp qw( croak confess ); use FS::Record qw( qsearch qsearchs dbdef ); -use FS::cust_main_Mixin; use FS::part_event; #for cust_X use FS::cust_main; use FS::cust_pkg; use FS::cust_bill; -@ISA = qw(FS::cust_main_Mixin FS::Record); - $DEBUG = 0; $me = '[FS::cust_event]'; @@ -230,7 +228,7 @@ sub do_event { my $error; { local $SIG{__DIE__}; # don't want Mason __DIE__ handler active - $error = eval { $part_event->do_action($object); }; + $error = eval { $part_event->do_action($object, $self); }; } my $status = ''; |