Followup 300bd572d3d21bbde1e91e8682611ad224992a7a

Adding Tablename to SQLHelper

diff --git a/C4/SQLHelper.pm b/C4/SQLHelper.pm
index e1eea39..44ecd6a 100644 (file)
--- 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;