From 687943ff38e76cd4d842858542479170e726f55d Mon Sep 17 00:00:00 2001
From: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
Date: Tue, 13 Oct 2009 12:12:46 +0200
Subject: [PATCH] Followup 300bd572d3d21bbde1e91e8682611ad224992a7a

Adding Tablename to SQLHelper
---
 C4/SQLHelper.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/C4/SQLHelper.pm b/C4/SQLHelper.pm
index e1eea3967a..44ecd6afe9 100644
--- a/C4/SQLHelper.pm
+++ b/C4/SQLHelper.pm
@@ -90,6 +90,7 @@ $searchtype is string Can be "wide" or "exact"
 
 sub SearchInTable{
     my ($tablename,$filters,$orderby, $limit, $columns_out, $filter_columns,$searchtype) = @_; 
+warn "searchtype : ",$searchtype;
 #	$searchtype||="start_with";
     my $dbh      = C4::Context->dbh; 
 	$columns_out||=["*"];
@@ -396,9 +397,11 @@ sub _Process_Operands{
 		return \@tmpkeys,\@values;
 	}
 	if ($searchtype eq "start_with"){
+			my $col_field=(index($field,".")>0?substr($field, index($field,".")+1):$field);
 			if ($field=~/(?<!zip)code|(?<!card)number/ ){
 				push @tmpkeys,(" $field= '' ","$field IS NULL");
-			} elsif ($$columns{$field}{Type}=~/varchar|text/){
+			} elsif ($$columns{$col_field}{Type}=~/varchar|text/i){
+				warn "in text Type";
 				push @tmpkeys,(" $field LIKE ? ","$field LIKE ?");
 				my @localvaluesextended=("\% $operand\%","$operand\%") ;
 				push @values,@localvaluesextended;
-- 
2.39.5