[open-ils-commits] r18353 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage (gmc)

[svn at svn.open-ils.org]

Author: gmc
Date: 2010-10-15 09:08:52 -0400 (Fri, 15 Oct 2010)
New Revision: 18353

Modified:
   trunk/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: trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/QueryParser.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/QueryParser.pm	2010-10-14 22:17:50 UTC (rev 18352)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/QueryParser.pm	2010-10-15 13:08:52 UTC (rev 18353)
@@ -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;
             }
         }