support facet-only "search" Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver...

git-svn-id: svn://svn.open-ils.org/ILS/trunk@15957 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/QueryParser.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/QueryParser.pm
index 28bb23b..b5e8c0d 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/QueryParser.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/QueryParser.pm
@@ -570,6 +570,12 @@ sub flatten {
         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;
 

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm
index ccfdb9e..d8e0b01 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm
@@ -2841,7 +2841,7 @@ sub query_parser_fts {
 
     # 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};