[open-ils-commits] r18354 - branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Storage (gmc)

[svn at svn.open-ils.org]

Author: gmc
Date: 2010-10-15 09:10:13 -0400 (Fri, 15 Oct 2010)
New Revision: 18354

Modified:
   branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Storage/QueryParser.pm
Log:
tweak expanding search field aliases

Avoids a glitch that can occur if a search field alias
exists that happens to have the same name as a search field.

Signed-off-by: Galen Charlton <gmc at esilibrary.com>


Modified: branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Storage/QueryParser.pm
===================================================================
--- branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Storage/QueryParser.pm	2010-10-15 13:08:52 UTC (rev 18353)
+++ branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Storage/QueryParser.pm	2010-10-15 13:10:13 UTC (rev 18354)
@@ -442,7 +442,7 @@
 
             for my $alias ( @{$pkg->search_field_aliases->{$class}{$field}} ) {
                 $alias = qr/$alias/;
-                s/\b$alias[:=]/$class\|$field:/g;
+                s/(^|\s+)$alias[:=]/$1$class\|$field:/g;
             }
         }