[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