set an upper limit using the same value as the per-index-matchpoint search limit...

git-svn-id: svn://svn.open-ils.org/ILS/trunk@16028 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 ace362a..5e265e2 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
@@ -521,6 +521,8 @@ sub toSQL {
         $between = '';
     }
 
+    my $core_limit = $self->QueryParser->core_limit || 25000;
+
     my $sql = <<SQL;
 SELECT  $key AS id,
         ARRAY_ACCUM(DISTINCT m.source) AS records,
@@ -545,6 +547,7 @@ SELECT  $key AS id,
         AND $$flat_plan{where}
   GROUP BY 1
   ORDER BY 4 $desc, 5 DESC, 3 DESC
+  LIMIT $core_limit
 SQL
 
     warn $sql if $self->QueryParser->debug;