[interchange-cvs] interchange - heins modified lib/Vend/DbSearch.pm

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Sat Sep 6 05:22:56 UTC 2008


User:      heins
Date:      2008-09-06 05:22:56 GMT
Modified:  lib/Vend DbSearch.pm
Log:
* Fix database typing problem for HIDE_FIELD. Reported by Sonny Cook and
  found by Jon Jensen.

Revision  Changes    Path
2.27                 interchange/lib/Vend/DbSearch.pm


rev 2.27, prev_rev 2.26
Index: DbSearch.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/DbSearch.pm,v
retrieving revision 2.26
retrieving revision 2.27
diff -u -r2.26 -r2.27
--- DbSearch.pm	9 Aug 2007 13:40:53 -0000	2.26
+++ DbSearch.pm	6 Sep 2008 05:22:56 -0000	2.27
@@ -1,6 +1,6 @@
 # Vend::DbSearch - Search indexes with Interchange
 #
-# $Id: DbSearch.pm,v 2.26 2007-08-09 13:40:53 pajamian Exp $
+# $Id: DbSearch.pm,v 2.27 2008-09-06 05:22:56 mheins Exp $
 #
 # Adapted for use with Interchange from Search::TextSearch
 #
@@ -27,7 +27,7 @@
 
 @ISA = qw(Vend::Search);
 
-$VERSION = substr(q$Revision: 2.26 $, 10);
+$VERSION = substr(q$Revision: 2.27 $, 10);
 
 use Search::Dict;
 use strict;
@@ -250,8 +250,9 @@
 
 		if(! $s->{mv_no_hide} and my $hf = $dbref->config('HIDE_FIELD')) {
 #::logDebug("found hide_field $hf");
-			$lqual =~ s/^\s*WHERE\s+/ WHERE $hf <> 1 AND /
-				or $lqual = " WHERE $hf <> 1";
+			my $ss = $dbref->quote(1, $hf);
+			$lqual =~ s/^\s*WHERE\s+/ WHERE $hf <> $ss AND /
+				or $lqual = " WHERE $hf <> $ss";
 #::logDebug("lqual now '$lqual'");
 		}
 		$s->hash_fields(\@fn);







More information about the interchange-cvs mailing list