[open-ils-commits] r15550 - branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Search (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2010-02-16 10:42:28 -0500 (Tue, 16 Feb 2010)
New Revision: 15550

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

Modified: branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
===================================================================
--- branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2010-02-16 15:41:40 UTC (rev 15549)
+++ branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2010-02-16 15:42:28 UTC (rev 15550)
@@ -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,':');