[open-ils-commits] r12719 - in branches/rel_1_4/Open-ILS/src/perlmods/OpenILS: Application/Search WWW (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2009-03-29 20:19:01 -0400 (Sun, 29 Mar 2009)
New Revision: 12719

Modified:
   branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
   branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
Log:
pass the default search class correctly, instead of rewriting the query (possibly causing user confusion); require a valid class be passed to the middle layer code

Modified: branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
===================================================================
--- branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2009-03-30 00:13:55 UTC (rev 12718)
+++ branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2009-03-30 00:19:01 UTC (rev 12719)
@@ -535,6 +535,8 @@
         # This is the front part of the string before any special tokens were parsed. 
         # Add this data to the default search class
         my $type = $arghash->{default_class} || 'keyword';
+        $type = ($type eq '-') ? 'keyword' : $type;
+        $type = ($type !~ /^(title|author|keyword|subject|series)$/o) ? 'keyword' : $type;
         $search->{$type} =  {} unless $search->{$type};
         $search->{$type}->{term} =
             ($search->{$type}->{term}) ? $search->{$type}->{term} . " $query" : $query;

Modified: branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
===================================================================
--- branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2009-03-30 00:13:55 UTC (rev 12718)
+++ branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2009-03-30 00:19:01 UTC (rev 12719)
@@ -970,9 +970,6 @@
 	$terms .= $cgi->param('searchTerms') if $cgi->param('searchTerms');
 
 	$class = $cgi->param('searchClass') if $cgi->param('searchClass');
-	if ($class && $terms !~ m/^$class:/o) {
-		$terms =~ s{^(\S*:)?\s*}{$class: }o;
-	}
 	$class ||= '-';
 
 	$type = $cgi->param('responseType') if $cgi->param('responseType');
@@ -1033,6 +1030,7 @@
 			limit		=> $limit,
 			sort		=> $sort,
 			sort_dir	=> $sortdir,
+            default_class => $class,
 			($lang ?    ( 'language' => $lang    ) : ()),
 		} => $terms => 1
 	)->gather(1);