[open-ils-commits] r15551 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Search (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2010-02-16 10:43:02 -0500 (Tue, 16 Feb 2010)
New Revision: 15551

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
Log:
fixing regex interpolation in, er, fix

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2010-02-16 15:42:28 UTC (rev 15550)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2010-02-16 15:43:02 UTC (rev 15551)
@@ -568,7 +568,7 @@
     my $modifier_list_re = qr/(?:site|dir|sort|lang|available)/;
 
     my $tmp_value = '';
-    while ($query =~ s/($simple_class_re[^:]+?)$//so) {
+    while ($query =~ s/$simple_class_re//so) {
 
         my $qpart = $1;
         my $where = index($qpart,':');