From: Lebbeous Fogle-Weekley Date: Wed, 17 Apr 2013 21:24:59 +0000 (-0400) Subject: QP: Actually need to limit to deleted records somewhere for #deleted X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=9f6411bde38c3edd5c06de0996d6e8a573951cd3;p=evergreen%2Fequinox.git QP: Actually need to limit to deleted records somewhere for #deleted Signed-off-by: Lebbeous Fogle-Weekley --- diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Driver/Pg/QueryParser.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Driver/Pg/QueryParser.pm index f69755a464..77ea163c46 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Driver/Pg/QueryParser.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Driver/Pg/QueryParser.pm @@ -727,6 +727,9 @@ sub toSQL { $rel = "1.0/($rel)::NUMERIC"; my $mra_join = 'INNER JOIN metabib.record_attr mrd ON m.source = mrd.id'; + my $bre_join = $self->find_modifier('deleted') ? + 'INNER JOIN biblio.record_entry bre ON m.source = bre.id AND bre.deleted' : + ''; my $rank = $rel; @@ -778,6 +781,7 @@ SELECT $key AS id, FROM metabib.metarecord_source_map m $$flat_plan{from} $mra_join + $bre_join WHERE 1=1 $flat_where GROUP BY 1 diff --git a/Open-ILS/src/sql/Pg/upgrade/XXXX.schema.deleted-search-fts.sql b/Open-ILS/src/sql/Pg/upgrade/XXXX.schema.deleted-search-fts.sql index e44c0fcd59..f98c2a694b 100644 --- a/Open-ILS/src/sql/Pg/upgrade/XXXX.schema.deleted-search-fts.sql +++ b/Open-ILS/src/sql/Pg/upgrade/XXXX.schema.deleted-search-fts.sql @@ -1,11 +1,9 @@ BEGIN; --Check if we can apply the upgrade. -SELECT evergreen.upgrade_deps_block_check('XXXX', :eg_version); +--SELECT evergreen.upgrade_deps_block_check('XXXX', :eg_version); -CREATE TYPE search.search_result AS ( id BIGINT, rel NUMERIC, record INT, total INT, checked INT, visible INT, deleted INT, excluded INT ); -CREATE TYPE search.search_args AS ( id INT, field_class TEXT, field_name TEXT, table_alias TEXT, term TEXT, term_type TEXT ); CREATE OR REPLACE FUNCTION search.query_parser_fts (