From 82947aebf5bd25d69cf3da8b658b22df76629c9b Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Thu, 25 Feb 2016 06:35:13 -0800 Subject: [PATCH] no more cust_main.payby --- FS/FS/cust_main_Mixin.pm | 14 -------------- 1 file changed, 14 deletions(-) diff --git a/FS/FS/cust_main_Mixin.pm b/FS/FS/cust_main_Mixin.pm index 867d43e60..de13847a4 100644 --- a/FS/FS/cust_main_Mixin.pm +++ b/FS/FS/cust_main_Mixin.pm @@ -313,8 +313,6 @@ in HASHREF. Valid parameters are: =item status -=item payby - =back =cut @@ -339,15 +337,6 @@ sub cust_search_sql { push @search, $class->$method(); } - #payby - my @payby = ref($param->{'payby'}) - ? @{ $param->{'payby'} } - : split(',', $param->{'payby'}); - @payby = grep /^([A-Z]{4})$/, @payby; - if ( @payby ) { - push @search, 'cust_main.payby IN ('. join(',', map "'$_'", @payby). ')'; - } - #here is the agent virtualization push @search, $FS::CurrentUser::CurrentUser->agentnums_sql( 'table' => 'cust_main' ); @@ -557,9 +546,6 @@ sub process_email_search_result { $param->{'search'} = thaw(decode_base64($param->{'search'})) or die "process_email_search_result requires search params.\n"; -# $param->{'payby'} = [ split(/\0/, $param->{'payby'}) ] -# unless ref($param->{'payby'}); - my $table = $param->{'table'} or die "process_email_search_result requires table.\n"; -- 2.11.0