[open-ils-commits] r15924 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2010-03-21 16:05:38 -0400 (Sun, 21 Mar 2010)
New Revision: 15924

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/QueryParser.pm
Log:
make #metabib an alias for #metarecord

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/QueryParser.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/QueryParser.pm	2010-03-21 20:02:29 UTC (rev 15923)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/QueryParser.pm	2010-03-21 20:05:38 UTC (rev 15924)
@@ -404,7 +404,7 @@
     }
 
     my $key = 'm.source';
-    $key = 'm.metarecord' if (grep {$_->name eq 'metarecord'} @{$self->modifiers});
+    $key = 'm.metarecord' if (grep {$_->name eq 'metarecord' or $_->name eq 'metabib'} @{$self->modifiers});
 
     my ($before) = $self->find_filter('before');
     my ($after) = $self->find_filter('after');