[interchange-cvs] interchange - racke modified 2 files

[interchange-cvs at icdevgroup.org]

User:      racke
Date:      2006-11-17 10:04:25 GMT
Modified:  .        WHATSNEW-5.5
Modified:  lib/Vend Search.pm
Log:
Fixed case-insensitive searches for different locales.

Revision  Changes    Path
1.23      +2 -0      interchange/WHATSNEW-5.5


rev 1.23, prev_rev 1.22
Index: WHATSNEW-5.5
===================================================================
RCS file: /var/cvs/interchange/WHATSNEW-5.5,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -r1.22 -r1.23
--- WHATSNEW-5.5	9 Oct 2006 07:37:02 -0000	1.22
+++ WHATSNEW-5.5	17 Nov 2006 10:04:25 -0000	1.23
@@ -43,6 +43,8 @@
 
 * Make [sql-quote] list tag to work properly with multiple lines.
 
+* Fixed case-insensitive searches for different locales.
+
 UserDB
 ------
 



2.34      +8 -2      interchange/lib/Vend/Search.pm


rev 2.34, prev_rev 2.33
Index: Search.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Search.pm,v
retrieving revision 2.33
retrieving revision 2.34
diff -u -r2.33 -r2.34
--- Search.pm	28 Sep 2006 14:18:39 -0000	2.33
+++ Search.pm	17 Nov 2006 10:04:25 -0000	2.34
@@ -1,6 +1,6 @@
 # Vend::Search - Base class for search engines
 #
-# $Id: Search.pm,v 2.33 2006/09/28 14:18:39 docelic Exp $
+# $Id: Search.pm,v 2.34 2006/11/17 10:04:25 racke Exp $
 #
 # Copyright (C) 2002-2004 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -22,10 +22,13 @@
 
 package Vend::Search;
 
-$VERSION = substr(q$Revision: 2.33 $, 10);
+$VERSION = substr(q$Revision: 2.34 $, 10);
 
 use strict;
 no warnings qw(uninitialized numeric);
+
+use POSIX qw(LC_CTYPE);
+
 use vars qw($VERSION);
 
 sub new {
@@ -1022,6 +1025,9 @@
 	}
 #::logDebug("code is $code");
 	use locale;
+	if ($::Scratch->{mv_locale}) {
+	    POSIX::setlocale(LC_CTYPE, $::Scratch->{mv_locale});
+	}
 	$limit_sub = eval $code;
 	die "Bad code: $@" if $@;
 	return ($limit_sub, $f);