From 8ff31f04ed1e2da3e09c56e72ab0f879d0b7ab75 Mon Sep 17 00:00:00 2001 From: Mark Wells Date: Fri, 29 Apr 2016 17:00:54 -0700 Subject: pass all event search parameters to reprint/re-email actions, #38426 --- FS/FS/cust_event.pm | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'FS') 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' ) { -- cgit v1.2.1