3 --Check if we can apply the upgrade.
4 SELECT evergreen.upgrade_deps_block_check('0786', :eg_version);
7 CREATE TYPE search.search_result AS ( id BIGINT, rel NUMERIC, record INT, total INT, checked INT, visible INT, deleted INT, excluded INT );
8 CREATE TYPE search.search_args AS ( id INT, field_class TEXT, field_name TEXT, table_alias TEXT, term TEXT, term_type TEXT );
10 CREATE OR REPLACE FUNCTION search.query_parser_fts (
16 param_locations INT[],
22 param_pref_ou INT DEFAULT NULL
23 ) RETURNS SETOF search.search_result AS $func$
26 current_res search.search_result%ROWTYPE;
27 search_org_list INT[];
37 core_cursor REFCURSOR;
42 deleted_count INT := 0;
43 visible_count INT := 0;
44 excluded_count INT := 0;
48 check_limit := COALESCE( param_check, 1000 );
49 core_limit := COALESCE( param_limit, 25000 );
50 core_offset := COALESCE( param_offset, 0 );
52 -- core_skip_chk := COALESCE( param_skip_chk, 1 );
54 IF param_search_ou > 0 THEN
55 IF param_depth IS NOT NULL THEN
56 SELECT array_accum(distinct id) INTO search_org_list FROM actor.org_unit_descendants( param_search_ou, param_depth );
58 SELECT array_accum(distinct id) INTO search_org_list FROM actor.org_unit_descendants( param_search_ou );
61 SELECT array_accum(distinct id) INTO luri_org_list FROM actor.org_unit_ancestors( param_search_ou );
63 ELSIF param_search_ou < 0 THEN
64 SELECT array_accum(distinct org_unit) INTO search_org_list FROM actor.org_lasso_map WHERE lasso = -param_search_ou;
66 FOR tmp_int IN SELECT * FROM UNNEST(search_org_list) LOOP
67 SELECT array_accum(distinct id) INTO tmp_int_list FROM actor.org_unit_ancestors( tmp_int );
68 luri_org_list := luri_org_list || tmp_int_list;
71 SELECT array_accum(DISTINCT x.id) INTO luri_org_list FROM UNNEST(luri_org_list) x(id);
73 ELSIF param_search_ou = 0 THEN
74 -- reserved for user lassos (ou_buckets/type='lasso') with ID passed in depth ... hack? sure.
77 IF param_pref_ou IS NOT NULL THEN
78 SELECT array_accum(distinct id) INTO tmp_int_list FROM actor.org_unit_ancestors(param_pref_ou);
79 luri_org_list := luri_org_list || tmp_int_list;
82 OPEN core_cursor FOR EXECUTE param_query;
86 FETCH core_cursor INTO core_result;
88 EXIT WHEN total_count >= core_limit;
90 total_count := total_count + 1;
92 CONTINUE WHEN total_count NOT BETWEEN core_offset + 1 AND check_limit + core_offset;
94 check_count := check_count + 1;
96 PERFORM 1 FROM biblio.record_entry b WHERE NOT b.deleted AND b.id IN ( SELECT * FROM unnest( core_result.records ) );
98 -- RAISE NOTICE ' % were all deleted ... ', core_result.records;
99 deleted_count := deleted_count + 1;
104 FROM biblio.record_entry b
105 JOIN config.bib_source s ON (b.source = s.id)
107 AND b.id IN ( SELECT * FROM unnest( core_result.records ) );
110 -- RAISE NOTICE ' % were all transcendant ... ', core_result.records;
111 visible_count := visible_count + 1;
113 current_res.id = core_result.id;
114 current_res.rel = core_result.rel;
118 SELECT COUNT(DISTINCT s.source) INTO tmp_int FROM metabib.metarecord_source_map s WHERE s.metarecord = core_result.id;
122 current_res.record = core_result.records[1];
124 current_res.record = NULL;
127 RETURN NEXT current_res;
133 FROM asset.call_number cn
134 JOIN asset.uri_call_number_map map ON (map.call_number = cn.id)
135 JOIN asset.uri uri ON (map.uri = uri.id)
137 AND cn.label = '##URI##'
139 AND ( param_locations IS NULL OR array_upper(param_locations, 1) IS NULL )
140 AND cn.record IN ( SELECT * FROM unnest( core_result.records ) )
141 AND cn.owning_lib IN ( SELECT * FROM unnest( luri_org_list ) )
145 -- RAISE NOTICE ' % have at least one URI ... ', core_result.records;
146 visible_count := visible_count + 1;
148 current_res.id = core_result.id;
149 current_res.rel = core_result.rel;
153 SELECT COUNT(DISTINCT s.source) INTO tmp_int FROM metabib.metarecord_source_map s WHERE s.metarecord = core_result.id;
157 current_res.record = core_result.records[1];
159 current_res.record = NULL;
162 RETURN NEXT current_res;
167 IF param_statuses IS NOT NULL AND array_upper(param_statuses, 1) > 0 THEN
170 FROM asset.call_number cn
171 JOIN asset.copy cp ON (cp.call_number = cn.id)
174 AND cp.status IN ( SELECT * FROM unnest( param_statuses ) )
175 AND cn.record IN ( SELECT * FROM unnest( core_result.records ) )
176 AND cp.circ_lib IN ( SELECT * FROM unnest( search_org_list ) )
181 FROM biblio.peer_bib_copy_map pr
182 JOIN asset.copy cp ON (cp.id = pr.target_copy)
184 AND cp.status IN ( SELECT * FROM unnest( param_statuses ) )
185 AND pr.peer_record IN ( SELECT * FROM unnest( core_result.records ) )
186 AND cp.circ_lib IN ( SELECT * FROM unnest( search_org_list ) )
190 -- RAISE NOTICE ' % and multi-home linked records were all status-excluded ... ', core_result.records;
191 excluded_count := excluded_count + 1;
198 IF param_locations IS NOT NULL AND array_upper(param_locations, 1) > 0 THEN
201 FROM asset.call_number cn
202 JOIN asset.copy cp ON (cp.call_number = cn.id)
205 AND cp.location IN ( SELECT * FROM unnest( param_locations ) )
206 AND cn.record IN ( SELECT * FROM unnest( core_result.records ) )
207 AND cp.circ_lib IN ( SELECT * FROM unnest( search_org_list ) )
212 FROM biblio.peer_bib_copy_map pr
213 JOIN asset.copy cp ON (cp.id = pr.target_copy)
215 AND cp.location IN ( SELECT * FROM unnest( param_locations ) )
216 AND pr.peer_record IN ( SELECT * FROM unnest( core_result.records ) )
217 AND cp.circ_lib IN ( SELECT * FROM unnest( search_org_list ) )
221 -- RAISE NOTICE ' % and multi-home linked records were all copy_location-excluded ... ', core_result.records;
222 excluded_count := excluded_count + 1;
229 IF staff IS NULL OR NOT staff THEN
232 FROM asset.opac_visible_copies
233 WHERE circ_lib IN ( SELECT * FROM unnest( search_org_list ) )
234 AND record IN ( SELECT * FROM unnest( core_result.records ) )
239 FROM biblio.peer_bib_copy_map pr
240 JOIN asset.opac_visible_copies cp ON (cp.copy_id = pr.target_copy)
241 WHERE cp.circ_lib IN ( SELECT * FROM unnest( search_org_list ) )
242 AND pr.peer_record IN ( SELECT * FROM unnest( core_result.records ) )
247 -- RAISE NOTICE ' % and multi-home linked records were all visibility-excluded ... ', core_result.records;
248 excluded_count := excluded_count + 1;
256 FROM asset.call_number cn
257 JOIN asset.copy cp ON (cp.call_number = cn.id)
260 AND cp.circ_lib IN ( SELECT * FROM unnest( search_org_list ) )
261 AND cn.record IN ( SELECT * FROM unnest( core_result.records ) )
267 FROM biblio.peer_bib_copy_map pr
268 JOIN asset.copy cp ON (cp.id = pr.target_copy)
270 AND cp.circ_lib IN ( SELECT * FROM unnest( search_org_list ) )
271 AND pr.peer_record IN ( SELECT * FROM unnest( core_result.records ) )
277 FROM asset.call_number cn
278 JOIN asset.copy cp ON (cp.call_number = cn.id)
279 WHERE cn.record IN ( SELECT * FROM unnest( core_result.records ) )
284 -- RAISE NOTICE ' % and multi-home linked records were all visibility-excluded ... ', core_result.records;
285 excluded_count := excluded_count + 1;
294 visible_count := visible_count + 1;
296 current_res.id = core_result.id;
297 current_res.rel = core_result.rel;
301 SELECT COUNT(DISTINCT s.source) INTO tmp_int FROM metabib.metarecord_source_map s WHERE s.metarecord = core_result.id;
305 current_res.record = core_result.records[1];
307 current_res.record = NULL;
310 RETURN NEXT current_res;
312 IF visible_count % 1000 = 0 THEN
313 -- RAISE NOTICE ' % visible so far ... ', visible_count;
318 current_res.id = NULL;
319 current_res.rel = NULL;
320 current_res.record = NULL;
321 current_res.total = total_count;
322 current_res.checked = check_count;
323 current_res.deleted = deleted_count;
324 current_res.visible = visible_count;
325 current_res.excluded = excluded_count;
329 RETURN NEXT current_res;
332 $func$ LANGUAGE PLPGSQL;