[open-ils-commits] r12714 - branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/WWW (dbs)

[svn at svn.open-ils.org]

Author: dbs
Date: 2009-03-29 16:44:34 -0400 (Sun, 29 Mar 2009)
New Revision: 12714

Modified:
   branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
Log:
Backport r12713 from trunk: make SlimPAC respect author/title/subject/series indexes

Modified: branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
===================================================================
--- branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2009-03-29 20:36:46 UTC (rev 12713)
+++ branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2009-03-29 20:44:34 UTC (rev 12714)
@@ -970,6 +970,9 @@
 	$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');