BEGIN; INSERT INTO config.upgrade_log (version) VALUES ('0366'); -- miker CREATE OR REPLACE FUNCTION asset.opac_ou_record_copy_count (org INT, record BIGINT) RETURNS TABLE (depth INT, org_unit INT, visible BIGINT, available BIGINT, unshadow BIGINT, transcendant INT) AS $f$ DECLARE ans RECORD; BEGIN FOR ans IN SELECT u.id, t.depth FROM actor.org_unit_ancestors(org) AS u JOIN actor.org_unit_type t ON (u.ou_type = t.id) LOOP RETURN QUERY SELECT ans.depth, ans.id, COUNT( av.id ), SUM( CASE WHEN cp.status IN (0,7,12) THEN 1 ELSE 0 END ), COUNT( av.id ), CASE WHEN src.transcendant THEN 1 ELSE NULL::INT END FROM actor.org_unit_descendants(ans.id) d JOIN asset.opac_visible_copies av ON (av.record = record AND av.circ_lib = d.id) JOIN asset.copy cp ON (cp.id = av.id) JOIN biblio.record_entry b ON (b.id = av.record) LEFT JOIN config.bib_source src ON (b.source = src.id) GROUP BY 1,2,6; END LOOP; RETURN; END; $f$ LANGUAGE PLPGSQL; CREATE OR REPLACE FUNCTION asset.opac_lasso_record_copy_count (i_lasso INT, record BIGINT) RETURNS TABLE (depth INT, org_unit INT, visible BIGINT, available BIGINT, unshadow BIGINT, transcendant INT) AS $f$ DECLARE ans RECORD; BEGIN FOR ans IN SELECT u.org_unit AS id FROM actor.org_lasso_map AS u WHERE lasso = i_lasso LOOP RETURN QUERY SELECT -1, ans.id, COUNT( av.id ), SUM( CASE WHEN cp.status IN (0,7,12) THEN 1 ELSE 0 END ), COUNT( av.id ), CASE WHEN src.transcendant THEN 1 ELSE NULL::INT END FROM actor.org_unit_descendants(ans.id) d JOIN asset.opac_visible_copies av ON (av.record = record AND av.circ_lib = d.id) JOIN asset.copy cp ON (cp.id = av.id) JOIN biblio.record_entry b ON (b.id = av.record) LEFT JOIN config.bib_source src ON (b.source = src.id) GROUP BY 1,2,6; END LOOP; RETURN; END; $f$ LANGUAGE PLPGSQL; CREATE OR REPLACE FUNCTION asset.staff_ou_record_copy_count (org INT, record BIGINT) RETURNS TABLE (depth INT, org_unit INT, visible BIGINT, available BIGINT, unshadow BIGINT, transcendant INT) AS $f$ DECLARE ans RECORD; BEGIN FOR ans IN SELECT u.id, t.depth FROM actor.org_unit_ancestors(org) AS u JOIN actor.org_unit_type t ON (u.ou_type = t.id) LOOP RETURN QUERY SELECT ans.depth, ans.id, COUNT( cp.id ), SUM( CASE WHEN cp.status IN (0,7,12) THEN 1 ELSE 0 END ), COUNT( cp.id ), CASE WHEN src.transcendant THEN 1 ELSE NULL::INT END FROM actor.org_unit_descendants(ans.id) d JOIN asset.copy cp ON (cp.circ_lib = d.id) JOIN asset.call_number cn ON (cn.record = record AND cn.id = cp.call_number) JOIN biblio.record_entry b ON (b.id = cn.record) LEFT JOIN config.bib_source src ON (b.source = src.id) GROUP BY 1,2,6; END LOOP; RETURN; END; $f$ LANGUAGE PLPGSQL; CREATE OR REPLACE FUNCTION asset.staff_lasso_record_copy_count (i_lasso INT, record BIGINT) RETURNS TABLE (depth INT, org_unit INT, visible BIGINT, available BIGINT, unshadow BIGINT, transcendant INT) AS $f$ DECLARE ans RECORD; BEGIN FOR ans IN SELECT u.org_unit AS id FROM actor.org_lasso_map AS u WHERE lasso = i_lasso LOOP RETURN QUERY SELECT -1, ans.id, COUNT( cp.id ), SUM( CASE WHEN cp.status IN (0,7,12) THEN 1 ELSE 0 END ), COUNT( cp.id ), CASE WHEN src.transcendant THEN 1 ELSE NULL::INT END FROM actor.org_unit_descendants(ans.id) d JOIN asset.copy cp ON (cp.circ_lib = d.id) JOIN asset.call_number cn ON (cn.record = record AND cn.id = cp.call_number) JOIN biblio.record_entry b ON (b.id = cn.record) LEFT JOIN config.bib_source src ON (b.source = src.id) GROUP BY 1,2,6; END LOOP; RETURN; END; $f$ LANGUAGE PLPGSQL; CREATE OR REPLACE FUNCTION asset.record_copy_count ( place INT, record BIGINT, staff BOOL) RETURNS TABLE (depth INT, org_unit INT, visible BIGINT, available BIGINT, unshadow BIGINT, transcendant INT) AS $f$ BEGIN IF staff IS TRUE THEN IF place > 0 THEN RETURN QUERY SELECT * FROM asset.staff_ou_record_copy_count( place, record ); ELSE RETURN QUERY SELECT * FROM asset.staff_lasso_record_copy_count( -place, record ); END IF; ELSE IF place > 0 THEN RETURN QUERY SELECT * FROM asset.opac_ou_record_copy_count( place, record ); ELSE RETURN QUERY SELECT * FROM asset.opac_lasso_record_copy_count( -place, record ); END IF; END IF; RETURN; END; $f$ LANGUAGE PLPGSQL; CREATE OR REPLACE FUNCTION asset.opac_ou_metarecord_copy_count (org INT, record BIGINT) RETURNS TABLE (depth INT, org_unit INT, visible BIGINT, available BIGINT, unshadow BIGINT, transcendant INT) AS $f$ DECLARE ans RECORD; BEGIN FOR ans IN SELECT u.id, t.depth FROM actor.org_unit_ancestors(org) AS u JOIN actor.org_unit_type t ON (u.ou_type = t.id) LOOP RETURN QUERY SELECT ans.depth, ans.id, COUNT( av.id ), SUM( CASE WHEN cp.status IN (0,7,12) THEN 1 ELSE 0 END ), COUNT( av.id ), CASE WHEN src.transcendant THEN 1 ELSE NULL::INT END FROM actor.org_unit_descendants(ans.id) d JOIN asset.opac_visible_copies av ON (av.record = record AND av.circ_lib = d.id) JOIN asset.copy cp ON (cp.id = av.id) JOIN biblio.record_entry b ON (b.id = av.record) JOIN metabib.metarecord_source_map m ON (m.source = av.record) LEFT JOIN config.bib_source src ON (b.source = src.id) GROUP BY 1,2,6; END LOOP; RETURN; END; $f$ LANGUAGE PLPGSQL; CREATE OR REPLACE FUNCTION asset.opac_lasso_metarecord_copy_count (i_lasso INT, record BIGINT) RETURNS TABLE (depth INT, org_unit INT, visible BIGINT, available BIGINT, unshadow BIGINT, transcendant INT) AS $f$ DECLARE ans RECORD; BEGIN FOR ans IN SELECT u.org_unit AS id FROM actor.org_lasso_map AS u WHERE lasso = i_lasso LOOP RETURN QUERY SELECT -1, ans.id, COUNT( av.id ), SUM( CASE WHEN cp.status IN (0,7,12) THEN 1 ELSE 0 END ), COUNT( av.id ), CASE WHEN src.transcendant THEN 1 ELSE NULL::INT END FROM actor.org_unit_descendants(ans.id) d JOIN asset.opac_visible_copies av ON (av.record = record AND av.circ_lib = d.id) JOIN asset.copy cp ON (cp.id = av.id) JOIN biblio.record_entry b ON (b.id = av.record) JOIN metabib.metarecord_source_map m ON (m.source = av.record) LEFT JOIN config.bib_source src ON (b.source = src.id) GROUP BY 1,2,6; END LOOP; RETURN; END; $f$ LANGUAGE PLPGSQL; CREATE OR REPLACE FUNCTION asset.staff_ou_metarecord_copy_count (org INT, record BIGINT) RETURNS TABLE (depth INT, org_unit INT, visible BIGINT, available BIGINT, unshadow BIGINT, transcendant INT) AS $f$ DECLARE ans RECORD; BEGIN FOR ans IN SELECT u.id, t.depth FROM actor.org_unit_ancestors(org) AS u JOIN actor.org_unit_type t ON (u.ou_type = t.id) LOOP RETURN QUERY SELECT ans.depth, ans.id, COUNT( cp.id ), SUM( CASE WHEN cp.status IN (0,7,12) THEN 1 ELSE 0 END ), COUNT( cp.id ), CASE WHEN src.transcendant THEN 1 ELSE NULL::INT END FROM actor.org_unit_descendants(ans.id) d JOIN asset.copy cp ON (cp.circ_lib = d.id) JOIN asset.call_number cn ON (cn.record = record AND cn.id = cp.call_number) JOIN biblio.record_entry b ON (b.id = cn.record) JOIN metabib.metarecord_source_map m ON (m.source = cn.record) LEFT JOIN config.bib_source src ON (b.source = src.id) GROUP BY 1,2,6; END LOOP; RETURN; END; $f$ LANGUAGE PLPGSQL; CREATE OR REPLACE FUNCTION asset.staff_lasso_metarecord_copy_count (i_lasso INT, record BIGINT) RETURNS TABLE (depth INT, org_unit INT, visible BIGINT, available BIGINT, unshadow BIGINT, transcendant INT) AS $f$ DECLARE ans RECORD; BEGIN FOR ans IN SELECT u.org_unit AS id FROM actor.org_lasso_map AS u WHERE lasso = i_lasso LOOP RETURN QUERY SELECT -1, ans.id, COUNT( cp.id ), SUM( CASE WHEN cp.status IN (0,7,12) THEN 1 ELSE 0 END ), COUNT( cp.id ), CASE WHEN src.transcendant THEN 1 ELSE NULL::INT END FROM actor.org_unit_descendants(ans.id) d JOIN asset.copy cp ON (cp.circ_lib = d.id) JOIN asset.call_number cn ON (cn.record = record AND cn.id = cp.call_number) JOIN biblio.record_entry b ON (b.id = cn.record) JOIN metabib.metarecord_source_map m ON (m.source = cn.record) LEFT JOIN config.bib_source src ON (b.source = src.id) GROUP BY 1,2,6; END LOOP; RETURN; END; $f$ LANGUAGE PLPGSQL; CREATE OR REPLACE FUNCTION asset.metarecord_copy_count ( place INT, record BIGINT, staff BOOL) RETURNS TABLE (depth INT, org_unit INT, visible BIGINT, available BIGINT, unshadow BIGINT, transcendant INT) AS $f$ BEGIN IF staff IS TRUE THEN IF place > 0 THEN RETURN QUERY SELECT * FROM asset.staff_ou_metarecord_copy_count( place, record ); ELSE RETURN QUERY SELECT * FROM asset.staff_lasso_metarecord_copy_count( -place, record ); END IF; ELSE IF place > 0 THEN RETURN QUERY SELECT * FROM asset.opac_ou_metarecord_copy_count( place, record ); ELSE RETURN QUERY SELECT * FROM asset.opac_lasso_metarecord_copy_count( -place, record ); END IF; END IF; RETURN; END; $f$ LANGUAGE PLPGSQL; COMMIT;