diff options
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/cust_event.pm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/FS/FS/cust_event.pm b/FS/FS/cust_event.pm index 3edfaefde..93743c447 100644 --- a/FS/FS/cust_event.pm +++ b/FS/FS/cust_event.pm @@ -12,7 +12,7 @@ use FS::cust_bill; use FS::cust_pay; use FS::svc_acct; -$DEBUG = 0; +$DEBUG = 1; $me = '[FS::cust_event]'; =head1 NAME @@ -387,11 +387,14 @@ sub search_sql_where { #} # huh? - if ( $param->{'event_status'} ) { - + my @event_status = ref($param->{'event_status'}) + ? @{ $param->{'event_status'} } + : split(',', $param->{'event_status'}); + if ( @event_status ) { my @status; + my ($done_Y, $done_N); - foreach (@{ $param->{'event_status'} }) { + foreach (@event_status) { if ($_ eq 'done_Y') { $done_Y = 1; } elsif ( $_ eq 'done_N' ) { |