[open-ils-commits] r13486 - trunk/Open-ILS/src/perlmods/OpenILS/WWW (dbs)

[svn at svn.open-ils.org]

Author: dbs
Date: 2009-06-29 22:56:54 -0400 (Mon, 29 Jun 2009)
New Revision: 13486

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
Log:
Treat SRU queries as UTF8 input.

Resolves a problem whereby any non-ASCII input in SRU queries resulted in searches for corrupted strings (and consequently 0 hits)


Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2009-06-30 01:50:10 UTC (rev 13485)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2009-06-30 02:56:54 UTC (rev 13486)
@@ -1618,8 +1618,8 @@
 	my ($shortname, $holdings) = $url =~ m#/?([^/]*)(/holdings)?#;
 
 	if ( $resp->type eq 'searchRetrieve' ) {
-		my $cql_query = $req->query;
-		my $search_string = $req->cql->toEvergreen;
+		my $cql_query = decode_utf8($req->query);
+		my $search_string = decode_utf8($req->cql->toEvergreen);
 
 		# Ensure the search string overrides the default site
 		if ($shortname and $search_string !~ m#site:#) {