X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcust_event.pm;h=52b5911dc0911731d92af290d009ec739e64cc2b;hb=e6820a61a43c840ef08a11bdda41507dac2a9ff7;hp=bf3a5b7492f297b3addabe6091edf0356f826e4a;hpb=2c7d4f461a5d42178e88d04c34a3f8ca256ee285;p=freeside.git diff --git a/FS/FS/cust_event.pm b/FS/FS/cust_event.pm index bf3a5b749..52b5911dc 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 = ''; @@ -315,7 +313,7 @@ sub join_sql { } -=item search_sql HASHREF +=item search_sql_where HASHREF Class method which returns an SQL WHERE fragment to search for parameters specified in HASHREF. Valid parameters are @@ -347,10 +345,10 @@ specified in HASHREF. Valid parameters are #Note: validates all passed-in data; i.e. safe to use with unchecked CGI params. #sub -sub search_sql { +sub search_sql_where { my($class, $param) = @_; if ( $DEBUG ) { - warn "$me search_sql called with params: \n". + warn "$me search_sql_where called with params: \n". join("\n", map { " $_: ". $param->{$_} } keys %$param ). "\n"; } @@ -448,7 +446,7 @@ sub process_re_X { sub re_X { my($method, $param, $job) = @_; - my $search_sql = FS::cust_event->search_sql($param); + my $search_sql = FS::cust_event->search_sql_where($param); #maybe not...? we do want the "re-" action to match the search more closely # # yuck! hardcoded *AND* sequential scans!