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

[svn at svn.open-ils.org]

Author: miker
Date: 2010-03-24 15:24:54 -0400 (Wed, 24 Mar 2010)
New Revision: 15957

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/QueryParser.pm
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm
Log:
support facet-only "search" Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/QueryParser.pm

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-24 19:10:48 UTC (rev 15956)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/QueryParser.pm	2010-03-24 19:24:54 UTC (rev 15957)
@@ -570,6 +570,12 @@
         if (ref($node)) {
             if ($node->isa( 'QueryParser::query_plan::node' )) {
 
+                unless (@{$node->only_atoms}) {
+                    push @rank_list, '1';
+                    $where .= 'TRUE';
+                    next;
+                }
+
                 my $table = $node->table;
                 my $talias = $node->table_alias;
 

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm	2010-03-24 19:10:48 UTC (rev 15956)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm	2010-03-24 19:24:54 UTC (rev 15957)
@@ -2841,7 +2841,7 @@
 
     # parse the query and supply any query-level %arg-based defaults
     # we expect, and make use of, query, superpage, superpage_size, debug and core_limit args
-    my $query = $parser->new( %args )->parse;
+    my $query = $parser->new( debug => 1, %args )->parse;
 
     # gather the site, if one is specified, defaulting to the in-query version
 	my $ou = $args{org_unit};