Open-ILS/src/sql/Pg/990.schema.unapi.sql

   1 DROP SCHEMA IF EXISTS unapi CASCADE;
   2
   3 BEGIN;
   4 CREATE SCHEMA unapi;
   5
   6 CREATE OR REPLACE FUNCTION evergreen.org_top() RETURNS SETOF actor.org_unit AS $$ SELECT * FROM actor.org_unit WHERE parent_ou IS NULL LIMIT 1; $$ LANGUAGE SQL ROWS 1;
   7 CREATE OR REPLACE FUNCTION evergreen.array_remove_item_by_value(inp ANYARRAY, el ANYELEMENT) RETURNS anyarray AS $$ SELECT ARRAY_ACCUM(x.e) FROM UNNEST( $1 ) x(e) WHERE x.e <> $2; $$ LANGUAGE SQL;
   8
   9 CREATE TABLE unapi.bre_output_layout (
  10     name                TEXT    PRIMARY KEY,
  11     transform           TEXT    REFERENCES config.xml_transform (name) ON DELETE CASCADE ON UPDATE CASCADE DEFERRABLE INITIALLY DEFERRED,
  12     mime_type           TEXT    NOT NULL,
  13     feed_top            TEXT    NOT NULL,
  14     holdings_element    TEXT,
  15     title_element       TEXT,
  16     description_element TEXT,
  17     creator_element     TEXT,
  18     update_ts_element   TEXT
  19 );
  20
  21 INSERT INTO unapi.bre_output_layout
  22     (name,           transform, mime_type,              holdings_element, feed_top,         title_element, description_element, creator_element, update_ts_element)
  23         VALUES
  24     ('holdings_xml', NULL,      'application/xml',      NULL,             'hxml',           NULL,          NULL,                NULL,            NULL),
  25     ('marcxml',      'marcxml', 'application/marc+xml', 'record',         'collection',     NULL,          NULL,                NULL,            NULL),
  26     ('mods32',       'mods32',  'application/mods+xml', 'mods',           'modsCollection', NULL,          NULL,                NULL,            NULL)
  27 ;
  28
  29 -- Dummy functions, so we can create the real ones out of order
  30 CREATE OR REPLACE FUNCTION unapi.aou    ( obj_id BIGINT, format TEXT, ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$ SELECT NULL::XML $F$ LANGUAGE SQL;
  31 CREATE OR REPLACE FUNCTION unapi.acnp   ( obj_id BIGINT, format TEXT, ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$ SELECT NULL::XML $F$ LANGUAGE SQL;
  32 CREATE OR REPLACE FUNCTION unapi.acns   ( obj_id BIGINT, format TEXT, ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$ SELECT NULL::XML $F$ LANGUAGE SQL;
  33 CREATE OR REPLACE FUNCTION unapi.acn    ( obj_id BIGINT, format TEXT, ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$ SELECT NULL::XML $F$ LANGUAGE SQL;
  34 CREATE OR REPLACE FUNCTION unapi.ssub   ( obj_id BIGINT, format TEXT, ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$ SELECT NULL::XML $F$ LANGUAGE SQL;
  35 CREATE OR REPLACE FUNCTION unapi.sdist  ( obj_id BIGINT, format TEXT, ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$ SELECT NULL::XML $F$ LANGUAGE SQL;
  36 CREATE OR REPLACE FUNCTION unapi.sstr   ( obj_id BIGINT, format TEXT, ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$ SELECT NULL::XML $F$ LANGUAGE SQL;
  37 CREATE OR REPLACE FUNCTION unapi.sitem  ( obj_id BIGINT, format TEXT, ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$ SELECT NULL::XML $F$ LANGUAGE SQL;
  38 CREATE OR REPLACE FUNCTION unapi.sunit  ( obj_id BIGINT, format TEXT, ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$ SELECT NULL::XML $F$ LANGUAGE SQL;
  39 CREATE OR REPLACE FUNCTION unapi.sisum  ( obj_id BIGINT, format TEXT, ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$ SELECT NULL::XML $F$ LANGUAGE SQL;
  40 CREATE OR REPLACE FUNCTION unapi.sbsum  ( obj_id BIGINT, format TEXT, ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$ SELECT NULL::XML $F$ LANGUAGE SQL;
  41 CREATE OR REPLACE FUNCTION unapi.sssum  ( obj_id BIGINT, format TEXT, ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$ SELECT NULL::XML $F$ LANGUAGE SQL;
  42 CREATE OR REPLACE FUNCTION unapi.siss   ( obj_id BIGINT, format TEXT, ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$ SELECT NULL::XML $F$ LANGUAGE SQL;
  43 CREATE OR REPLACE FUNCTION unapi.auri   ( obj_id BIGINT, format TEXT, ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$ SELECT NULL::XML $F$ LANGUAGE SQL;
  44 CREATE OR REPLACE FUNCTION unapi.acp    ( obj_id BIGINT, format TEXT, ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$ SELECT NULL::XML $F$ LANGUAGE SQL;
  45 CREATE OR REPLACE FUNCTION unapi.acpn   ( obj_id BIGINT, format TEXT, ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$ SELECT NULL::XML $F$ LANGUAGE SQL;
  46 CREATE OR REPLACE FUNCTION unapi.acl    ( obj_id BIGINT, format TEXT, ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$ SELECT NULL::XML $F$ LANGUAGE SQL;
  47 CREATE OR REPLACE FUNCTION unapi.ccs    ( obj_id BIGINT, format TEXT, ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$ SELECT NULL::XML $F$ LANGUAGE SQL;
  48 CREATE OR REPLACE FUNCTION unapi.ascecm ( obj_id BIGINT, format TEXT, ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$ SELECT NULL::XML $F$ LANGUAGE SQL;
  49 CREATE OR REPLACE FUNCTION unapi.bre    ( obj_id BIGINT, format TEXT, ename TEXT, includes TEXT[], org TEXT DEFAULT '-', depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$ SELECT NULL::XML $F$ LANGUAGE SQL;
  50 CREATE OR REPLACE FUNCTION unapi.bmp    ( obj_id BIGINT, format TEXT, ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$ SELECT NULL::XML $F$ LANGUAGE SQL;
  51 CREATE OR REPLACE FUNCTION unapi.mra    ( obj_id BIGINT, format TEXT, ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$ SELECT NULL::XML $F$ LANGUAGE SQL;
  52
  53 CREATE OR REPLACE FUNCTION unapi.holdings_xml ( bid BIGINT, ouid INT, org TEXT, depth INT DEFAULT NULL, includes TEXT[] DEFAULT NULL::TEXT[], slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE) RETURNS XML AS $F$ SELECT NULL::XML $F$ LANGUAGE SQL;
  54 CREATE OR REPLACE FUNCTION unapi.biblio_record_entry_feed ( id_list BIGINT[], format TEXT, includes TEXT[], org TEXT DEFAULT '-', depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE, title TEXT DEFAULT NULL, description TEXT DEFAULT NULL, creator TEXT DEFAULT NULL, update_ts TEXT DEFAULT NULL, unapi_url TEXT DEFAULT NULL, header_xml XML DEFAULT NULL ) RETURNS XML AS $F$ SELECT NULL::XML $F$ LANGUAGE SQL;
  55
  56 CREATE OR REPLACE FUNCTION unapi.memoize (classname TEXT, obj_id BIGINT, format TEXT,  ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$
  57 DECLARE
  58     key     TEXT;
  59     output  XML;
  60 BEGIN
  61     key :=
  62         'id'        || COALESCE(obj_id::TEXT,'') ||
  63         'format'    || COALESCE(format::TEXT,'') ||
  64         'ename'     || COALESCE(ename::TEXT,'') ||
  65         'includes'  || COALESCE(includes::TEXT,'{}'::TEXT[]::TEXT) ||
  66         'org'       || COALESCE(org::TEXT,'') ||
  67         'depth'     || COALESCE(depth::TEXT,'') ||
  68         'slimit'    || COALESCE(slimit::TEXT,'') ||
  69         'soffset'   || COALESCE(soffset::TEXT,'') ||
  70         'include_xmlns'   || COALESCE(include_xmlns::TEXT,'');
  71     -- RAISE NOTICE 'memoize key: %', key;
  72
  73     key := MD5(key);
  74     -- RAISE NOTICE 'memoize hash: %', key;
  75
  76     -- XXX cache logic ... memcached? table?
  77
  78     EXECUTE $$SELECT unapi.$$ || classname || $$( $1, $2, $3, $4, $5, $6, $7, $8, $9);$$ INTO output USING obj_id, format, ename, includes, org, depth, slimit, soffset, include_xmlns;
  79     RETURN output;
  80 END;
  81 $F$ LANGUAGE PLPGSQL;
  82
  83 CREATE OR REPLACE FUNCTION unapi.biblio_record_entry_feed ( id_list BIGINT[], format TEXT, includes TEXT[], org TEXT DEFAULT '-', depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE, title TEXT DEFAULT NULL, description TEXT DEFAULT NULL, creator TEXT DEFAULT NULL, update_ts TEXT DEFAULT NULL, unapi_url TEXT DEFAULT NULL, header_xml XML DEFAULT NULL ) RETURNS XML AS $F$
  84 DECLARE
  85     layout          unapi.bre_output_layout%ROWTYPE;
  86     transform       config.xml_transform%ROWTYPE;
  87     item_format     TEXT;
  88     tmp_xml         TEXT;
  89     xmlns_uri       TEXT := 'http://open-ils.org/spec/feed-xml/v1';
  90     ouid            INT;
  91     element_list    TEXT[];
  92 BEGIN
  93
  94     IF org = '-' OR org IS NULL THEN
  95         SELECT shortname INTO org FROM evergreen.org_top();
  96     END IF;
  97
  98     SELECT id INTO ouid FROM actor.org_unit WHERE shortname = org;
  99     SELECT * INTO layout FROM unapi.bre_output_layout WHERE name = format;
 100
 101     IF layout.name IS NULL THEN
 102         RETURN NULL::XML;
 103     END IF;
 104
 105     SELECT * INTO transform FROM config.xml_transform WHERE name = layout.transform;
 106     xmlns_uri := COALESCE(transform.namespace_uri,xmlns_uri);
 107
 108     -- Gather the bib xml
 109     SELECT XMLAGG( unapi.bre(i, format, '', includes, org, depth, slimit, soffset, include_xmlns)) INTO tmp_xml FROM UNNEST( id_list ) i;
 110
 111     IF layout.title_element IS NOT NULL THEN
 112         EXECUTE 'SELECT XMLCONCAT( XMLELEMENT( name '|| layout.title_element ||', CASE WHEN $4 THEN XMLATTRIBUTES( $1 AS xmlns) ELSE NULL END, $3), $2)' INTO tmp_xml USING xmlns_uri, tmp_xml::XML, title, include_xmlns;
 113     END IF;
 114
 115     IF layout.description_element IS NOT NULL THEN
 116         EXECUTE 'SELECT XMLCONCAT( XMLELEMENT( name '|| layout.description_element ||', CASE WHEN $4 THEN XMLATTRIBUTES( $1 AS xmlns) ELSE NULL END, $3), $2)' INTO tmp_xml USING xmlns_uri, tmp_xml::XML, description, include_xmlns;
 117     END IF;
 118
 119     IF layout.creator_element IS NOT NULL THEN
 120         EXECUTE 'SELECT XMLCONCAT( XMLELEMENT( name '|| layout.creator_element ||', CASE WHEN $4 THEN XMLATTRIBUTES( $1 AS xmlns) ELSE NULL END, $3), $2)' INTO tmp_xml USING xmlns_uri, tmp_xml::XML, creator, include_xmlns;
 121     END IF;
 122
 123     IF layout.update_ts_element IS NOT NULL THEN
 124         EXECUTE 'SELECT XMLCONCAT( XMLELEMENT( name '|| layout.update_ts_element ||', CASE WHEN $4 THEN XMLATTRIBUTES( $1 AS xmlns) ELSE NULL END, $3), $2)' INTO tmp_xml USING xmlns_uri, tmp_xml::XML, update_ts, include_xmlns;
 125     END IF;
 126
 127     IF unapi_url IS NOT NULL THEN
 128         EXECUTE $$SELECT XMLCONCAT( XMLELEMENT( name link, XMLATTRIBUTES( 'http://www.w3.org/1999/xhtml' AS xmlns, 'unapi-server' AS rel, $1 AS href, 'unapi' AS title)), $2)$$ INTO tmp_xml USING unapi_url, tmp_xml::XML;
 129     END IF;
 130
 131     IF header_xml IS NOT NULL THEN tmp_xml := XMLCONCAT(header_xml,tmp_xml::XML); END IF;
 132
 133     element_list := regexp_split_to_array(layout.feed_top,E'\\.');
 134     FOR i IN REVERSE ARRAY_UPPER(element_list, 1) .. 1 LOOP
 135         EXECUTE 'SELECT XMLELEMENT( name '|| quote_ident(element_list[i]) ||', CASE WHEN $4 THEN XMLATTRIBUTES( $1 AS xmlns) ELSE NULL END, $2)' INTO tmp_xml USING xmlns_uri, tmp_xml::XML, include_xmlns;
 136     END LOOP;
 137
 138     RETURN tmp_xml::XML;
 139 END;
 140 $F$ LANGUAGE PLPGSQL;
 141
 142 CREATE OR REPLACE FUNCTION unapi.bre ( obj_id BIGINT, format TEXT,  ename TEXT, includes TEXT[], org TEXT DEFAULT '-', depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$
 143 DECLARE
 144     me      biblio.record_entry%ROWTYPE;
 145     layout  unapi.bre_output_layout%ROWTYPE;
 146     xfrm    config.xml_transform%ROWTYPE;
 147     ouid    INT;
 148     tmp_xml TEXT;
 149     top_el  TEXT;
 150     output  XML;
 151     hxml    XML;
 152     axml    XML;
 153 BEGIN
 154
 155     IF org = '-' OR org IS NULL THEN
 156         SELECT shortname INTO org FROM evergreen.org_top();
 157     END IF;
 158
 159     SELECT id INTO ouid FROM actor.org_unit WHERE shortname = org;
 160
 161     IF ouid IS NULL THEN
 162         RETURN NULL::XML;
 163     END IF;
 164
 165     IF format = 'holdings_xml' THEN -- the special case
 166         output := unapi.holdings_xml( obj_id, ouid, org, depth, includes, slimit, soffset, include_xmlns);
 167         RETURN output;
 168     END IF;
 169
 170     SELECT * INTO layout FROM unapi.bre_output_layout WHERE name = format;
 171
 172     IF layout.name IS NULL THEN
 173         RETURN NULL::XML;
 174     END IF;
 175
 176     SELECT * INTO xfrm FROM config.xml_transform WHERE name = layout.transform;
 177
 178     SELECT * INTO me FROM biblio.record_entry WHERE id = obj_id;
 179
 180     -- grab SVF if we need them
 181     IF ('mra' = ANY (includes)) THEN
 182         axml := unapi.mra(obj_id,NULL,NULL,NULL,NULL);
 183     ELSE
 184         axml := NULL::XML;
 185     END IF;
 186
 187     -- grab hodlings if we need them
 188     IF ('holdings_xml' = ANY (includes)) THEN
 189         hxml := unapi.holdings_xml(obj_id, ouid, org, depth, evergreen.array_remove_item_by_value(includes,'holdings_xml'), slimit, soffset, include_xmlns);
 190     ELSE
 191         hxml := NULL::XML;
 192     END IF;
 193
 194
 195     -- generate our item node
 196
 197
 198     IF format = 'marcxml' THEN
 199         tmp_xml := me.marc;
 200         IF tmp_xml !~ E'<marc:' THEN -- If we're not using the prefixed namespace in this record, then remove all declarations of it
 201            tmp_xml := REGEXP_REPLACE(tmp_xml, ' xmlns:marc="http://www.loc.gov/MARC21/slim"', '', 'g');
 202         END IF;
 203     ELSE
 204         tmp_xml := oils_xslt_process(me.marc, xfrm.xslt)::XML;
 205     END IF;
 206
 207     top_el := REGEXP_REPLACE(tmp_xml, E'^.*?<((?:\\S+:)?' || layout.holdings_element || ').*$', E'\\1');
 208
 209     IF axml IS NOT NULL THEN
 210         tmp_xml := REGEXP_REPLACE(tmp_xml, '</' || top_el || '>(.*?)$', axml || '</' || top_el || E'>\\1');
 211     END IF;
 212
 213     IF hxml IS NOT NULL THEN -- XXX how do we configure the holdings position?
 214         tmp_xml := REGEXP_REPLACE(tmp_xml, '</' || top_el || '>(.*?)$', hxml || '</' || top_el || E'>\\1');
 215     END IF;
 216
 217     IF ('bre.unapi' = ANY (includes)) THEN
 218         output := REGEXP_REPLACE(
 219             tmp_xml,
 220             '</' || top_el || '>(.*?)',
 221             XMLELEMENT(
 222                 name abbr,
 223                 XMLATTRIBUTES(
 224                     'http://www.w3.org/1999/xhtml' AS xmlns,
 225                     'unapi-id' AS class,
 226                     'tag:open-ils.org:U2@bre/' || obj_id || '/' || org AS title
 227                 )
 228             )::TEXT || '</' || top_el || E'>\\1'
 229         );
 230     ELSE
 231         output := tmp_xml;
 232     END IF;
 233
 234     output := REGEXP_REPLACE(output::TEXT,E'>\\s+<','><','gs')::XML;
 235     RETURN output;
 236 END;
 237 $F$ LANGUAGE PLPGSQL;
 238
 239 CREATE OR REPLACE FUNCTION unapi.holdings_xml (bid BIGINT, ouid INT, org TEXT, depth INT DEFAULT NULL, includes TEXT[] DEFAULT NULL::TEXT[], slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE) RETURNS XML AS $F$
 240      SELECT  XMLELEMENT(
 241                  name holdings,
 242                  XMLATTRIBUTES(
 243                     CASE WHEN $8 THEN 'http://open-ils.org/spec/holdings/v1' ELSE NULL END AS xmlns,
 244                     CASE WHEN ('bre' = ANY ($5)) THEN 'tag:open-ils.org:U2@bre/' || $1 || '/' || $3 ELSE NULL END AS id
 245                  ),
 246                  XMLELEMENT(
 247                      name counts,
 248                      (SELECT  XMLAGG(XMLELEMENT::XML) FROM (
 249                          SELECT  XMLELEMENT(
 250                                      name count,
 251                                      XMLATTRIBUTES('public' as type, depth, org_unit, coalesce(transcendant,0) as transcendant, available, visible as count, unshadow)
 252                                  )::text
 253                            FROM  asset.opac_ou_record_copy_count($2,  $1)
 254                                      UNION
 255                          SELECT  XMLELEMENT(
 256                                      name count,
 257                                      XMLATTRIBUTES('staff' as type, depth, org_unit, coalesce(transcendant,0) as transcendant, available, visible as count, unshadow)
 258                                  )::text
 259                            FROM  asset.staff_ou_record_copy_count($2, $1)
 260                                      ORDER BY 1
 261                      )x)
 262                  ),
 263                  CASE
 264                      WHEN ('bmp' = ANY ($5)) THEN
 265                         XMLELEMENT(
 266                             name monograph_parts,
 267                             (SELECT XMLAGG(bmp) FROM (
 268                                 SELECT  unapi.bmp( id, 'xml', 'monograph_part', evergreen.array_remove_item_by_value( evergreen.array_remove_item_by_value($5,'bre'), 'holdings_xml'), $3, $4, $6, $7, FALSE)
 269                                   FROM  biblio.monograph_part
 270                                   WHERE record = $1
 271                             )x)
 272                         )
 273                      ELSE NULL
 274                  END,
 275                  XMLELEMENT(
 276                      name volumes,
 277                      (SELECT XMLAGG(acn) FROM (
 278                         SELECT  unapi.acn(acn.id,'xml','volume',array_remove_item_by_value( evergreen.array_remove_item_by_value($5,'holdings_xml'),'bre'), $3, $4, $6, $7, FALSE)
 279                           FROM  asset.call_number acn
 280                           WHERE acn.record = $1
 281                                 AND acn.deleted IS FALSE
 282                                 AND EXISTS (
 283                                     SELECT  1
 284                                       FROM  asset.copy acp
 285                                             JOIN actor.org_unit_descendants(
 286                                                 $2,
 287                                                 (COALESCE(
 288                                                     $4,
 289                                                     (SELECT aout.depth
 290                                                       FROM  actor.org_unit_type aout
 291                                                             JOIN actor.org_unit aou ON (aou.ou_type = aout.id AND aou.id = $2)
 292                                                     )
 293                                                 ))
 294                                             ) aoud ON (acp.circ_lib = aoud.id)
 295                                       LIMIT 1
 296                                )
 297                           ORDER BY label_sortkey
 298                           LIMIT $6
 299                           OFFSET $7
 300                      )x)
 301                  ),
 302                  CASE WHEN ('ssub' = ANY ($5)) THEN
 303                      XMLELEMENT(
 304                          name subscriptions,
 305                          (SELECT XMLAGG(ssub) FROM (
 306                             SELECT  unapi.ssub(id,'xml','subscription','{}'::TEXT[], $3, $4, $6, $7, FALSE)
 307                               FROM  serial.subscription
 308                               WHERE record_entry = $1
 309                         )x)
 310                      )
 311                  ELSE NULL END,
 312                  CASE WHEN ('acp' = ANY ($5)) THEN
 313                      XMLELEMENT(
 314                          name foreign_copies,
 315                          (SELECT XMLAGG(acp) FROM (
 316                             SELECT  unapi.acp(p.target_copy,'xml','copy','{}'::TEXT[], $3, $4, $6, $7, FALSE)
 317                               FROM  biblio.peer_bib_copy_map p
 318                                     JOIN asset.copy c ON (p.target_copy = c.id)
 319                               WHERE NOT c.deleted AND peer_record = $1
 320                         )x)
 321                      )
 322                  ELSE NULL END
 323              );
 324 $F$ LANGUAGE SQL;
 325
 326 CREATE OR REPLACE FUNCTION unapi.ssub ( obj_id BIGINT, format TEXT,  ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$
 327         SELECT  XMLELEMENT(
 328                     name subscription,
 329                     XMLATTRIBUTES(
 330                         CASE WHEN $9 THEN 'http://open-ils.org/spec/holdings/v1' ELSE NULL END AS xmlns,
 331                         'tag:open-ils.org:U2@ssub/' || id AS id,
 332                         start_date AS start, end_date AS end, expected_date_offset
 333                     ),
 334                     unapi.aou( owning_lib, $2, 'owning_lib', evergreen.array_remove_item_by_value($4,'ssub'), $5, $6, $7, $8),
 335                     XMLELEMENT( name distributions,
 336                         CASE
 337                             WHEN ('sdist' = ANY ($4)) THEN
 338                                 (SELECT XMLAGG(sdist) FROM (
 339                                     SELECT  unapi.sdist( id, 'xml', 'distribution', evergreen.array_remove_item_by_value($4,'ssub'), $5, $6, $7, $8, FALSE)
 340                                       FROM  serial.distribution
 341                                       WHERE subscription = ssub.id
 342                                 )x)
 343                             ELSE NULL
 344                         END
 345                     )
 346                 )
 347           FROM  serial.subscription ssub
 348           WHERE id = $1
 349           GROUP BY id, start_date, end_date, expected_date_offset, owning_lib;
 350 $F$ LANGUAGE SQL;
 351
 352 CREATE OR REPLACE FUNCTION unapi.sdist ( obj_id BIGINT, format TEXT,  ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$
 353         SELECT  XMLELEMENT(
 354                     name distribution,
 355                     XMLATTRIBUTES(
 356                         CASE WHEN $9 THEN 'http://open-ils.org/spec/holdings/v1' ELSE NULL END AS xmlns,
 357                         'tag:open-ils.org:U2@sdist/' || id AS id,
 358                         'tag:open-ils.org:U2@acn/' || receive_call_number AS receive_call_number,
 359                         'tag:open-ils.org:U2@acn/' || bind_call_number AS bind_call_number,
 360                         unit_label_prefix, label, unit_label_suffix, summary_method
 361                     ),
 362                     unapi.aou( holding_lib, $2, 'holding_lib', evergreen.array_remove_item_by_value($4,'sdist'), $5, $6, $7, $8),
 363                     CASE WHEN subscription IS NOT NULL AND ('ssub' = ANY ($4)) THEN unapi.ssub( subscription, 'xml', 'subscription', evergreen.array_remove_item_by_value($4,'sdist'), $5, $6, $7, $8, FALSE) ELSE NULL END,
 364                     XMLELEMENT( name streams,
 365                         CASE
 366                             WHEN ('sstr' = ANY ($4)) THEN
 367                                 (SELECT XMLAGG(sstr) FROM (
 368                                     SELECT  unapi.sstr( id, 'xml', 'stream', evergreen.array_remove_item_by_value($4,'sdist'), $5, $6, $7, $8, FALSE)
 369                                       FROM  serial.stream
 370                                       WHERE distribution = sdist.id
 371                                 )x)
 372                             ELSE NULL
 373                         END
 374                     ),
 375                     XMLELEMENT( name summaries,
 376                         CASE
 377                             WHEN ('ssum' = ANY ($4)) THEN
 378                                 (SELECT XMLAGG(sbsum) FROM (
 379                                     SELECT  unapi.sbsum( id, 'xml', 'serial_summary', evergreen.array_remove_item_by_value($4,'sdist'), $5, $6, $7, $8, FALSE)
 380                                       FROM  serial.basic_summary
 381                                       WHERE distribution = sdist.id
 382                                 )x)
 383                             ELSE NULL
 384                         END,
 385                         CASE
 386                             WHEN ('ssum' = ANY ($4)) THEN
 387                                 (SELECT XMLAGG(sisum) FROM (
 388                                     SELECT  unapi.sisum( id, 'xml', 'serial_summary', evergreen.array_remove_item_by_value($4,'sdist'), $5, $6, $7, $8, FALSE)
 389                                       FROM  serial.index_summary
 390                                       WHERE distribution = sdist.id
 391                                 )x)
 392                             ELSE NULL
 393                         END,
 394                         CASE
 395                             WHEN ('ssum' = ANY ($4)) THEN
 396                                 (SELECT XMLAGG(sssum) FROM (
 397                                     SELECT  unapi.sssum( id, 'xml', 'serial_summary', evergreen.array_remove_item_by_value($4,'sdist'), $5, $6, $7, $8, FALSE)
 398                                       FROM  serial.supplement_summary
 399                                       WHERE distribution = sdist.id
 400                                 )x)
 401                             ELSE NULL
 402                         END
 403                     )
 404                 )
 405           FROM  serial.distribution sdist
 406           WHERE id = $1
 407           GROUP BY id, label, unit_label_prefix, unit_label_suffix, holding_lib, summary_method, subscription, receive_call_number, bind_call_number;
 408 $F$ LANGUAGE SQL;
 409
 410 CREATE OR REPLACE FUNCTION unapi.sstr ( obj_id BIGINT, format TEXT,  ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$
 411     SELECT  XMLELEMENT(
 412                 name stream,
 413                 XMLATTRIBUTES(
 414                     CASE WHEN $9 THEN 'http://open-ils.org/spec/holdings/v1' ELSE NULL END AS xmlns,
 415                     'tag:open-ils.org:U2@sstr/' || id AS id,
 416                     routing_label
 417                 ),
 418                 CASE WHEN distribution IS NOT NULL AND ('sdist' = ANY ($4)) THEN unapi.sssum( distribution, 'xml', 'distribtion', evergreen.array_remove_item_by_value($4,'sstr'), $5, $6, $7, $8, FALSE) ELSE NULL END,
 419                 XMLELEMENT( name items,
 420                     CASE
 421                         WHEN ('sitem' = ANY ($4)) THEN
 422                             (SELECT XMLAGG(sitem) FROM (
 423                                 SELECT  unapi.sitem( id, 'xml', 'serial_item', evergreen.array_remove_item_by_value($4,'sstr'), $5, $6, $7, $8, FALSE)
 424                                   FROM  serial.item
 425                                   WHERE stream = sstr.id
 426                             )x)
 427                         ELSE NULL
 428                     END
 429                 )
 430             )
 431       FROM  serial.stream sstr
 432       WHERE id = $1
 433       GROUP BY id, routing_label, distribution;
 434 $F$ LANGUAGE SQL;
 435
 436 CREATE OR REPLACE FUNCTION unapi.siss ( obj_id BIGINT, format TEXT,  ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$
 437     SELECT  XMLELEMENT(
 438                 name issuance,
 439                 XMLATTRIBUTES(
 440                     CASE WHEN $9 THEN 'http://open-ils.org/spec/holdings/v1' ELSE NULL END AS xmlns,
 441                     'tag:open-ils.org:U2@siss/' || id AS id,
 442                     create_date, edit_date, label, date_published,
 443                     holding_code, holding_type, holding_link_id
 444                 ),
 445                 CASE WHEN subscription IS NOT NULL AND ('ssub' = ANY ($4)) THEN unapi.ssub( subscription, 'xml', 'subscription', evergreen.array_remove_item_by_value($4,'siss'), $5, $6, $7, $8, FALSE) ELSE NULL END,
 446                 XMLELEMENT( name items,
 447                     CASE
 448                         WHEN ('sitem' = ANY ($4)) THEN
 449                             (SELECT XMLAGG(sitem) FROM (
 450                                 SELECT  unapi.sitem( id, 'xml', 'serial_item', evergreen.array_remove_item_by_value($4,'siss'), $5, $6, $7, $8, FALSE)
 451                                   FROM  serial.item
 452                                   WHERE issuance = sstr.id
 453                             )x)
 454                         ELSE NULL
 455                     END
 456                 )
 457             )
 458       FROM  serial.issuance sstr
 459       WHERE id = $1
 460       GROUP BY id, create_date, edit_date, label, date_published, holding_code, holding_type, holding_link_id, subscription;
 461 $F$ LANGUAGE SQL;
 462
 463 CREATE OR REPLACE FUNCTION unapi.sitem ( obj_id BIGINT, format TEXT,  ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$
 464         SELECT  XMLELEMENT(
 465                     name serial_item,
 466                     XMLATTRIBUTES(
 467                         CASE WHEN $9 THEN 'http://open-ils.org/spec/holdings/v1' ELSE NULL END AS xmlns,
 468                         'tag:open-ils.org:U2@sitem/' || id AS id,
 469                         'tag:open-ils.org:U2@siss/' || issuance AS issuance,
 470                         date_expected, date_received
 471                     ),
 472                     CASE WHEN issuance IS NOT NULL AND ('siss' = ANY ($4)) THEN unapi.siss( issuance, $2, 'issuance', evergreen.array_remove_item_by_value($4,'sitem'), $5, $6, $7, $8, FALSE) ELSE NULL END,
 473                     CASE WHEN stream IS NOT NULL AND ('sstr' = ANY ($4)) THEN unapi.sstr( stream, $2, 'stream', evergreen.array_remove_item_by_value($4,'sitem'), $5, $6, $7, $8, FALSE) ELSE NULL END,
 474                     CASE WHEN unit IS NOT NULL AND ('sunit' = ANY ($4)) THEN unapi.sunit( unit, $2, 'serial_unit', evergreen.array_remove_item_by_value($4,'sitem'), $5, $6, $7, $8, FALSE) ELSE NULL END,
 475                     CASE WHEN uri IS NOT NULL AND ('auri' = ANY ($4)) THEN unapi.auri( uri, $2, 'uri', evergreen.array_remove_item_by_value($4,'sitem'), $5, $6, $7, $8, FALSE) ELSE NULL END
 476 --                    XMLELEMENT( name notes,
 477 --                        CASE
 478 --                            WHEN ('acpn' = ANY ($4)) THEN
 479 --                                (SELECT XMLAGG(acpn) FROM (
 480 --                                    SELECT  unapi.acpn( id, 'xml', 'copy_note', evergreen.array_remove_item_by_value($4,'acp'), $5, $6, $7, $8)
 481 --                                      FROM  asset.copy_note
 482 --                                      WHERE owning_copy = cp.id AND pub
 483 --                                )x)
 484 --                            ELSE NULL
 485 --                        END
 486 --                    )
 487                 )
 488           FROM  serial.item sitem
 489           WHERE id = $1;
 490 $F$ LANGUAGE SQL;
 491
 492
 493 CREATE OR REPLACE FUNCTION unapi.sssum ( obj_id BIGINT, format TEXT,  ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$
 494     SELECT  XMLELEMENT(
 495                 name serial_summary,
 496                 XMLATTRIBUTES(
 497                     CASE WHEN $9 THEN 'http://open-ils.org/spec/holdings/v1' ELSE NULL END AS xmlns,
 498                     'tag:open-ils.org:U2@sbsum/' || id AS id,
 499                     'sssum' AS type, generated_coverage, textual_holdings, show_generated
 500                 ),
 501                 CASE WHEN ('sdist' = ANY ($4)) THEN unapi.sdist( distribution, 'xml', 'distribtion', evergreen.array_remove_item_by_value($4,'ssum'), $5, $6, $7, $8, FALSE) ELSE NULL END
 502             )
 503       FROM  serial.supplement_summary ssum
 504       WHERE id = $1
 505       GROUP BY id, generated_coverage, textual_holdings, distribution, show_generated;
 506 $F$ LANGUAGE SQL;
 507
 508 CREATE OR REPLACE FUNCTION unapi.sbsum ( obj_id BIGINT, format TEXT,  ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$
 509     SELECT  XMLELEMENT(
 510                 name serial_summary,
 511                 XMLATTRIBUTES(
 512                     CASE WHEN $9 THEN 'http://open-ils.org/spec/holdings/v1' ELSE NULL END AS xmlns,
 513                     'tag:open-ils.org:U2@sbsum/' || id AS id,
 514                     'sbsum' AS type, generated_coverage, textual_holdings, show_generated
 515                 ),
 516                 CASE WHEN ('sdist' = ANY ($4)) THEN unapi.sdist( distribution, 'xml', 'distribtion', evergreen.array_remove_item_by_value($4,'ssum'), $5, $6, $7, $8, FALSE) ELSE NULL END
 517             )
 518       FROM  serial.basic_summary ssum
 519       WHERE id = $1
 520       GROUP BY id, generated_coverage, textual_holdings, distribution, show_generated;
 521 $F$ LANGUAGE SQL;
 522
 523 CREATE OR REPLACE FUNCTION unapi.sisum ( obj_id BIGINT, format TEXT,  ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$
 524     SELECT  XMLELEMENT(
 525                 name serial_summary,
 526                 XMLATTRIBUTES(
 527                     CASE WHEN $9 THEN 'http://open-ils.org/spec/holdings/v1' ELSE NULL END AS xmlns,
 528                     'tag:open-ils.org:U2@sbsum/' || id AS id,
 529                     'sisum' AS type, generated_coverage, textual_holdings, show_generated
 530                 ),
 531                 CASE WHEN ('sdist' = ANY ($4)) THEN unapi.sdist( distribution, 'xml', 'distribtion', evergreen.array_remove_item_by_value($4,'ssum'), $5, $6, $7, $8, FALSE) ELSE NULL END
 532             )
 533       FROM  serial.index_summary ssum
 534       WHERE id = $1
 535       GROUP BY id, generated_coverage, textual_holdings, distribution, show_generated;
 536 $F$ LANGUAGE SQL;
 537
 538
 539 CREATE OR REPLACE FUNCTION unapi.aou ( obj_id BIGINT, format TEXT,  ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$
 540 DECLARE
 541     output XML;
 542 BEGIN
 543     IF ename = 'circlib' THEN
 544         SELECT  XMLELEMENT(
 545                     name circlib,
 546                     XMLATTRIBUTES(
 547                         'http://open-ils.org/spec/actors/v1' AS xmlns,
 548                         id AS ident
 549                     ),
 550                     name
 551                 ) INTO output
 552           FROM  actor.org_unit aou
 553           WHERE id = obj_id;
 554     ELSE
 555         EXECUTE $$SELECT  XMLELEMENT(
 556                     name $$ || ename || $$,
 557                     XMLATTRIBUTES(
 558                         'http://open-ils.org/spec/actors/v1' AS xmlns,
 559                         'tag:open-ils.org:U2@aou/' || id AS id,
 560                         shortname, name, opac_visible
 561                     )
 562                 )
 563           FROM  actor.org_unit aou
 564          WHERE id = $1 $$ INTO output USING obj_id;
 565     END IF;
 566
 567     RETURN output;
 568
 569 END;
 570 $F$ LANGUAGE PLPGSQL;
 571
 572 CREATE OR REPLACE FUNCTION unapi.acl ( obj_id BIGINT, format TEXT,  ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$
 573     SELECT  XMLELEMENT(
 574                 name location,
 575                 XMLATTRIBUTES(
 576                     CASE WHEN $9 THEN 'http://open-ils.org/spec/holdings/v1' ELSE NULL END AS xmlns,
 577                     id AS ident,
 578                     holdable,
 579                     opac_visible,
 580                     label_prefix AS prefix,
 581                     label_suffix AS suffix
 582                 ),
 583                 name
 584             )
 585       FROM  asset.copy_location
 586       WHERE id = $1;
 587 $F$ LANGUAGE SQL;
 588
 589 CREATE OR REPLACE FUNCTION unapi.ccs ( obj_id BIGINT, format TEXT,  ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$
 590     SELECT  XMLELEMENT(
 591                 name status,
 592                 XMLATTRIBUTES(
 593                     CASE WHEN $9 THEN 'http://open-ils.org/spec/holdings/v1' ELSE NULL END AS xmlns,
 594                     id AS ident,
 595                     holdable,
 596                     opac_visible
 597                 ),
 598                 name
 599             )
 600       FROM  config.copy_status
 601       WHERE id = $1;
 602 $F$ LANGUAGE SQL;
 603
 604 CREATE OR REPLACE FUNCTION unapi.acpn ( obj_id BIGINT, format TEXT,  ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$
 605         SELECT  XMLELEMENT(
 606                     name copy_note,
 607                     XMLATTRIBUTES(
 608                         CASE WHEN $9 THEN 'http://open-ils.org/spec/holdings/v1' ELSE NULL END AS xmlns,
 609                         create_date AS date,
 610                         title
 611                     ),
 612                     value
 613                 )
 614           FROM  asset.copy_note
 615           WHERE id = $1;
 616 $F$ LANGUAGE SQL;
 617
 618 CREATE OR REPLACE FUNCTION unapi.ascecm ( obj_id BIGINT, format TEXT,  ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$
 619         SELECT  XMLELEMENT(
 620                     name statcat,
 621                     XMLATTRIBUTES(
 622                         CASE WHEN $9 THEN 'http://open-ils.org/spec/holdings/v1' ELSE NULL END AS xmlns,
 623                         sc.name,
 624                         sc.opac_visible
 625                     ),
 626                     asce.value
 627                 )
 628           FROM  asset.stat_cat_entry asce
 629                 JOIN asset.stat_cat sc ON (sc.id = asce.stat_cat)
 630           WHERE asce.id = $1;
 631 $F$ LANGUAGE SQL;
 632
 633 CREATE OR REPLACE FUNCTION unapi.bmp ( obj_id BIGINT, format TEXT,  ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$
 634         SELECT  XMLELEMENT(
 635                     name monograph_part,
 636                     XMLATTRIBUTES(
 637                         CASE WHEN $9 THEN 'http://open-ils.org/spec/holdings/v1' ELSE NULL END AS xmlns,
 638                         'tag:open-ils.org:U2@bmp/' || id AS id,
 639                         id AS ident,
 640                         label,
 641                         label_sortkey,
 642                         'tag:open-ils.org:U2@bre/' || record AS record
 643                     ),
 644                     CASE
 645                         WHEN ('acp' = ANY ($4)) THEN
 646                             XMLELEMENT( name copies,
 647                                 (SELECT XMLAGG(acp) FROM (
 648                                     SELECT  unapi.acp( cp.id, 'xml', 'copy', evergreen.array_remove_item_by_value($4,'bmp'), $5, $6, $7, $8, FALSE)
 649                                       FROM  asset.copy cp
 650                                             JOIN asset.copy_part_map cpm ON (cpm.target_copy = cp.id)
 651                                       WHERE cpm.part = $1
 652                                       ORDER BY COALESCE(cp.copy_number,0), cp.barcode
 653                                       LIMIT $7
 654                                       OFFSET $8
 655                                 )x)
 656                             )
 657                         ELSE NULL
 658                     END,
 659                     CASE WHEN ('bre' = ANY ($4)) THEN unapi.bre( record, 'marcxml', 'record', evergreen.array_remove_item_by_value($4,'bmp'), $5, $6, $7, $8, FALSE) ELSE NULL END
 660                 )
 661           FROM  biblio.monograph_part
 662           WHERE id = $1
 663           GROUP BY id, label, label_sortkey, record;
 664 $F$ LANGUAGE SQL;
 665
 666 CREATE OR REPLACE FUNCTION unapi.acp ( obj_id BIGINT, format TEXT,  ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$
 667         SELECT  XMLELEMENT(
 668                     name copy,
 669                     XMLATTRIBUTES(
 670                         CASE WHEN $9 THEN 'http://open-ils.org/spec/holdings/v1' ELSE NULL END AS xmlns,
 671                         'tag:open-ils.org:U2@acp/' || id AS id,
 672                         create_date, edit_date, copy_number, circulate, deposit,
 673                         ref, holdable, deleted, deposit_amount, price, barcode,
 674                         circ_modifier, circ_as_type, opac_visible
 675                     ),
 676                     unapi.ccs( status, $2, 'status', evergreen.array_remove_item_by_value($4,'acp'), $5, $6, $7, $8, FALSE),
 677                     unapi.acl( location, $2, 'location', evergreen.array_remove_item_by_value($4,'acp'), $5, $6, $7, $8, FALSE),
 678                     unapi.aou( circ_lib, $2, 'circ_lib', evergreen.array_remove_item_by_value($4,'acp'), $5, $6, $7, $8),
 679                     unapi.aou( circ_lib, $2, 'circlib', evergreen.array_remove_item_by_value($4,'acp'), $5, $6, $7, $8),
 680                     CASE WHEN ('acn' = ANY ($4)) THEN unapi.acn( call_number, $2, 'call_number', evergreen.array_remove_item_by_value($4,'acp'), $5, $6, $7, $8, FALSE) ELSE NULL END,
 681                     XMLELEMENT( name copy_notes,
 682                         CASE
 683                             WHEN ('acpn' = ANY ($4)) THEN
 684                                 (SELECT XMLAGG(acpn) FROM (
 685                                     SELECT  unapi.acpn( id, 'xml', 'copy_note', evergreen.array_remove_item_by_value($4,'acp'), $5, $6, $7, $8, FALSE)
 686                                       FROM  asset.copy_note
 687                                       WHERE owning_copy = cp.id AND pub
 688                                 )x)
 689                             ELSE NULL
 690                         END
 691                     ),
 692                     XMLELEMENT( name statcats,
 693                         CASE
 694                             WHEN ('ascecm' = ANY ($4)) THEN
 695                                 (SELECT XMLAGG(ascecm) FROM (
 696                                     SELECT  unapi.ascecm( stat_cat_entry, 'xml', 'statcat', evergreen.array_remove_item_by_value($4,'acp'), $5, $6, $7, $8, FALSE)
 697                                       FROM  asset.stat_cat_entry_copy_map
 698                                       WHERE owning_copy = cp.id
 699                                 )x)
 700                             ELSE NULL
 701                         END
 702                     ),
 703                     XMLELEMENT( name foreign_records,
 704                         CASE
 705                             WHEN ('bre' = ANY ($4)) THEN
 706                                 (SELECT XMLAGG(bre) FROM (
 707                                     SELECT  unapi.bre(peer_record,'marcxml','record','{}'::TEXT[], $5, $6, $7, $8, FALSE)
 708                                       FROM  biblio.peer_bib_copy_map
 709                                       WHERE target_copy = cp.id
 710                                 )x)
 711                             ELSE NULL
 712                         END
 713
 714                     ),
 715                     CASE
 716                         WHEN ('bmp' = ANY ($4)) THEN
 717                             XMLELEMENT( name monograph_parts,
 718                                 (SELECT XMLAGG(bmp) FROM (
 719                                     SELECT  unapi.bmp( part, 'xml', 'monograph_part', evergreen.array_remove_item_by_value($4,'acp'), $5, $6, $7, $8, FALSE)
 720                                       FROM  asset.copy_part_map
 721                                       WHERE target_copy = cp.id
 722                                 )x)
 723                             )
 724                         ELSE NULL
 725                     END
 726                 )
 727           FROM  asset.copy cp
 728           WHERE id = $1
 729           GROUP BY id, status, location, circ_lib, call_number, create_date, edit_date, copy_number, circulate, deposit, ref, holdable, deleted, deposit_amount, price, barcode, circ_modifier, circ_as_type, opac_visible;
 730 $F$ LANGUAGE SQL;
 731
 732 CREATE OR REPLACE FUNCTION unapi.sunit ( obj_id BIGINT, format TEXT,  ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$
 733         SELECT  XMLELEMENT(
 734                     name serial_unit,
 735                     XMLATTRIBUTES(
 736                         CASE WHEN $9 THEN 'http://open-ils.org/spec/holdings/v1' ELSE NULL END AS xmlns,
 737                         'tag:open-ils.org:U2@acp/' || id AS id,
 738                         create_date, edit_date, copy_number, circulate, deposit,
 739                         ref, holdable, deleted, deposit_amount, price, barcode,
 740                         circ_modifier, circ_as_type, opac_visible, status_changed_time,
 741                         floating, mint_condition, detailed_contents, sort_key, summary_contents, cost
 742                     ),
 743                     unapi.ccs( status, $2, 'status', evergreen.array_remove_item_by_value( evergreen.array_remove_item_by_value($4,'acp'),'sunit'), $5, $6, $7, $8, FALSE),
 744                     unapi.acl( location, $2, 'location', evergreen.array_remove_item_by_value( evergreen.array_remove_item_by_value($4,'acp'),'sunit'), $5, $6, $7, $8, FALSE),
 745                     unapi.aou( circ_lib, $2, 'circ_lib', evergreen.array_remove_item_by_value( evergreen.array_remove_item_by_value($4,'acp'),'sunit'), $5, $6, $7, $8),
 746                     unapi.aou( circ_lib, $2, 'circlib', evergreen.array_remove_item_by_value( evergreen.array_remove_item_by_value($4,'acp'),'sunit'), $5, $6, $7, $8),
 747                     CASE WHEN ('acn' = ANY ($4)) THEN unapi.acn( call_number, $2, 'call_number', evergreen.array_remove_item_by_value($4,'acp'), $5, $6, $7, $8, FALSE) ELSE NULL END,
 748                     XMLELEMENT( name copy_notes,
 749                         CASE
 750                             WHEN ('acpn' = ANY ($4)) THEN
 751                                 (SELECT XMLAGG(acpn) FROM (
 752                                     SELECT  unapi.acpn( id, 'xml', 'copy_note', evergreen.array_remove_item_by_value( evergreen.array_remove_item_by_value($4,'acp'),'sunit'), $5, $6, $7, $8, FALSE)
 753                                       FROM  asset.copy_note
 754                                       WHERE owning_copy = cp.id AND pub
 755                                 )x)
 756                             ELSE NULL
 757                         END
 758                     ),
 759                     XMLELEMENT( name statcats,
 760                         CASE
 761                             WHEN ('ascecm' = ANY ($4)) THEN
 762                                 (SELECT XMLAGG(ascecm) FROM (
 763                                     SELECT  unapi.ascecm( stat_cat_entry, 'xml', 'statcat', evergreen.array_remove_item_by_value($4,'acp'), $5, $6, $7, $8, FALSE)
 764                                       FROM  asset.stat_cat_entry_copy_map
 765                                       WHERE owning_copy = cp.id
 766                                 )x)
 767                             ELSE NULL
 768                         END
 769                     ),
 770                     XMLELEMENT( name foreign_records,
 771                         CASE
 772                             WHEN ('bre' = ANY ($4)) THEN
 773                                 (SELECT XMLAGG(bre) FROM (
 774                                     SELECT  unapi.bre(peer_record,'marcxml','record','{}'::TEXT[], $5, $6, $7, $8, FALSE)
 775                                       FROM  biblio.peer_bib_copy_map
 776                                       WHERE target_copy = cp.id
 777                                 )x)
 778                             ELSE NULL
 779                         END
 780
 781                     ),
 782                     CASE
 783                         WHEN ('bmp' = ANY ($4)) THEN
 784                             XMLELEMENT( name monograph_parts,
 785                                 (SELECT XMLAGG(bmp) FROM (
 786                                     SELECT  unapi.bmp( part, 'xml', 'monograph_part', evergreen.array_remove_item_by_value($4,'acp'), $5, $6, $7, $8, FALSE)
 787                                       FROM  asset.copy_part_map
 788                                       WHERE target_copy = cp.id
 789                                 )x)
 790                             )
 791                         ELSE NULL
 792                     END
 793                 )
 794           FROM  serial.unit cp
 795           WHERE id = $1
 796           GROUP BY  id, status, location, circ_lib, call_number, create_date, edit_date, copy_number, circulate, floating, mint_condition,
 797                     deposit, ref, holdable, deleted, deposit_amount, price, barcode, circ_modifier, circ_as_type, opac_visible, status_changed_time, detailed_contents, sort_key, summary_contents, cost;
 798 $F$ LANGUAGE SQL;
 799
 800 CREATE OR REPLACE FUNCTION unapi.acn ( obj_id BIGINT, format TEXT,  ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$
 801         SELECT  XMLELEMENT(
 802                     name volume,
 803                     XMLATTRIBUTES(
 804                         CASE WHEN $9 THEN 'http://open-ils.org/spec/holdings/v1' ELSE NULL END AS xmlns,
 805                         'tag:open-ils.org:U2@acn/' || acn.id AS id,
 806                         o.shortname AS lib,
 807                         o.opac_visible AS opac_visible,
 808                         deleted, label, label_sortkey, label_class, record
 809                     ),
 810                     unapi.aou( owning_lib, $2, 'owning_lib', evergreen.array_remove_item_by_value($4,'acn'), $5, $6, $7, $8),
 811                     XMLELEMENT( name copies,
 812                         CASE
 813                             WHEN ('acp' = ANY ($4)) THEN
 814                                 (SELECT XMLAGG(acp) FROM (
 815                                     SELECT  unapi.acp( cp.id, 'xml', 'copy', evergreen.array_remove_item_by_value($4,'acn'), $5, $6, $7, $8, FALSE)
 816                                       FROM  asset.copy cp
 817                                             JOIN actor.org_unit_descendants(
 818                                                 (SELECT id FROM actor.org_unit WHERE shortname = $5),
 819                                                 (COALESCE($6,(SELECT aout.depth FROM actor.org_unit_type aout JOIN actor.org_unit aou ON (aou.ou_type = aout.id AND aou.shortname = $5))))
 820                                             ) aoud ON (cp.circ_lib = aoud.id)
 821                                       WHERE cp.call_number = acn.id
 822                                       ORDER BY COALESCE(cp.copy_number,0), cp.barcode
 823                                       LIMIT $7
 824                                       OFFSET $8
 825                                 )x)
 826                             ELSE NULL
 827                         END
 828                     ),
 829                     XMLELEMENT(
 830                         name uris,
 831                         (SELECT XMLAGG(auri) FROM (SELECT unapi.auri(uri,'xml','uri', evergreen.array_remove_item_by_value($4,'acn'), $5, $6, $7, $8, FALSE) FROM asset.uri_call_number_map WHERE call_number = acn.id)x)
 832                     ),
 833                     CASE WHEN ('acnp' = ANY ($4)) THEN unapi.acnp( acn.prefix, 'marcxml', 'prefix', evergreen.array_remove_item_by_value($4,'acn'), $5, $6, $7, $8, FALSE) ELSE NULL END,
 834                     CASE WHEN ('acns' = ANY ($4)) THEN unapi.acns( acn.suffix, 'marcxml', 'suffix', evergreen.array_remove_item_by_value($4,'acn'), $5, $6, $7, $8, FALSE) ELSE NULL END,
 835                     CASE WHEN ('bre' = ANY ($4)) THEN unapi.bre( acn.record, 'marcxml', 'record', evergreen.array_remove_item_by_value($4,'acn'), $5, $6, $7, $8, FALSE) ELSE NULL END
 836                 ) AS x
 837           FROM  asset.call_number acn
 838                 JOIN actor.org_unit o ON (o.id = acn.owning_lib)
 839           WHERE acn.id = $1
 840           GROUP BY acn.id, o.shortname, o.opac_visible, deleted, label, label_sortkey, label_class, owning_lib, record, acn.prefix, acn.suffix;
 841 $F$ LANGUAGE SQL;
 842
 843 CREATE OR REPLACE FUNCTION unapi.acnp ( obj_id BIGINT, format TEXT,  ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$
 844         SELECT  XMLELEMENT(
 845                     name call_number_prefix,
 846                     XMLATTRIBUTES(
 847                         CASE WHEN $9 THEN 'http://open-ils.org/spec/holdings/v1' ELSE NULL END AS xmlns,
 848                         id AS ident,
 849                         label,
 850                         label_sortkey
 851                     ),
 852                     unapi.aou( owning_lib, $2, 'owning_lib', evergreen.array_remove_item_by_value($4,'acnp'), $5, $6, $7, $8)
 853                 )
 854           FROM  asset.call_number_prefix
 855           WHERE id = $1;
 856 $F$ LANGUAGE SQL;
 857
 858 CREATE OR REPLACE FUNCTION unapi.acns ( obj_id BIGINT, format TEXT,  ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$
 859         SELECT  XMLELEMENT(
 860                     name call_number_suffix,
 861                     XMLATTRIBUTES(
 862                         CASE WHEN $9 THEN 'http://open-ils.org/spec/holdings/v1' ELSE NULL END AS xmlns,
 863                         id AS ident,
 864                         label,
 865                         label_sortkey
 866                     ),
 867                     unapi.aou( owning_lib, $2, 'owning_lib', evergreen.array_remove_item_by_value($4,'acns'), $5, $6, $7, $8)
 868                 )
 869           FROM  asset.call_number_suffix
 870           WHERE id = $1;
 871 $F$ LANGUAGE SQL;
 872
 873 CREATE OR REPLACE FUNCTION unapi.auri ( obj_id BIGINT, format TEXT,  ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$
 874         SELECT  XMLELEMENT(
 875                     name uri,
 876                     XMLATTRIBUTES(
 877                         CASE WHEN $9 THEN 'http://open-ils.org/spec/holdings/v1' ELSE NULL END AS xmlns,
 878                         'tag:open-ils.org:U2@auri/' || uri.id AS id,
 879                         use_restriction,
 880                         href,
 881                         label
 882                     ),
 883                     XMLELEMENT( name copies,
 884                         CASE
 885                             WHEN ('acn' = ANY ($4)) THEN
 886                                 (SELECT XMLAGG(acn) FROM (SELECT unapi.acn( call_number, 'xml', 'copy', evergreen.array_remove_item_by_value($4,'auri'), $5, $6, $7, $8, FALSE) FROM asset.uri_call_number_map WHERE uri = uri.id)x)
 887                             ELSE NULL
 888                         END
 889                     )
 890                 ) AS x
 891           FROM  asset.uri uri
 892           WHERE uri.id = $1
 893           GROUP BY uri.id, use_restriction, href, label;
 894 $F$ LANGUAGE SQL;
 895
 896 CREATE OR REPLACE FUNCTION unapi.mra ( obj_id BIGINT, format TEXT,  ename TEXT, includes TEXT[], org TEXT, depth INT DEFAULT NULL, slimit INT DEFAULT NULL, soffset INT DEFAULT NULL, include_xmlns BOOL DEFAULT TRUE ) RETURNS XML AS $F$
 897         SELECT  XMLELEMENT(
 898                     name attributes,
 899                     XMLATTRIBUTES(
 900                         CASE WHEN $9 THEN 'http://open-ils.org/spec/indexing/v1' ELSE NULL END AS xmlns,
 901                         'tag:open-ils.org:U2@mra/' || mra.id AS id,
 902                         'tag:open-ils.org:U2@bre/' || mra.id AS record
 903                     ),
 904                     (SELECT XMLAGG(foo.y)
 905                       FROM (SELECT XMLELEMENT(
 906                                 name field,
 907                                 XMLATTRIBUTES(
 908                                     key AS name,
 909                                     cvm.value AS "coded-value",
 910                                     rad.filter,
 911                                     rad.sorter
 912                                 ),
 913                                 x.value
 914                             )
 915                            FROM EACH(mra.attrs) AS x
 916                                 JOIN config.record_attr_definition rad ON (x.key = rad.name)
 917                                 LEFT JOIN config.coded_value_map cvm ON (cvm.ctype = x.key AND code = x.value)
 918                         )foo(y)
 919                     )
 920                 )
 921           FROM  metabib.record_attr mra
 922           WHERE mra.id = $1;
 923 $F$ LANGUAGE SQL;
 924
 925 /*
 926
 927  -- Some test queries
 928
 929 SELECT unapi.memoize( 'bre', 1,'mods32','','{holdings_xml,acp}'::TEXT[], 'SYS1');
 930 SELECT unapi.memoize( 'bre', 1,'marcxml','','{holdings_xml,acp}'::TEXT[], 'SYS1');
 931 SELECT unapi.memoize( 'bre', 1,'holdings_xml','','{holdings_xml,acp}'::TEXT[], 'SYS1');
 932
 933 SELECT unapi.biblio_record_entry_feed('{1}'::BIGINT[],'mods32','{holdings_xml,acp}'::TEXT[],'SYS1',NULL,1,NULL, NULL,NULL,NULL,NULL,'http://c64/opac/extras/unapi', '<totalResults xmlns="http://a9.com/-/spec/opensearch/1.1/">2</totalResults><startIndex xmlns="http://a9.com/-/spec/opensearch/1.1/">1</startIndex><itemsPerPage xmlns="http://a9.com/-/spec/opensearch/1.1/">10</itemsPerPage>');
 934
 935 SELECT unapi.biblio_record_entry_feed('{7209,7394}'::BIGINT[],'marcxml','{}'::TEXT[],'SYS1',NULL,1,NULL, NULL,NULL,NULL,NULL,'http://fulfillment2.esilibrary.com/opac/extras/unapi', '<totalResults xmlns="http://a9.com/-/spec/opensearch/1.1/">2</totalResults><startIndex xmlns="http://a9.com/-/spec/opensearch/1.1/">1</startIndex><itemsPerPage xmlns="http://a9.com/-/spec/opensearch/1.1/">10</itemsPerPage>');
 936 EXPLAIN ANALYZE SELECT unapi.biblio_record_entry_feed('{7209,7394}'::BIGINT[],'marcxml','{}'::TEXT[],'SYS1',NULL,1,NULL, NULL,NULL,NULL,NULL,'http://fulfillment2.esilibrary.com/opac/extras/unapi', '<totalResults xmlns="http://a9.com/-/spec/opensearch/1.1/">2</totalResults><startIndex xmlns="http://a9.com/-/spec/opensearch/1.1/">1</startIndex><itemsPerPage xmlns="http://a9.com/-/spec/opensearch/1.1/">10</itemsPerPage>');
 937 EXPLAIN ANALYZE SELECT unapi.biblio_record_entry_feed('{7209,7394}'::BIGINT[],'marcxml','{holdings_xml}'::TEXT[],'SYS1',NULL,1,NULL, NULL,NULL,NULL,NULL,'http://fulfillment2.esilibrary.com/opac/extras/unapi', '<totalResults xmlns="http://a9.com/-/spec/opensearch/1.1/">2</totalResults><startIndex xmlns="http://a9.com/-/spec/opensearch/1.1/">1</startIndex><itemsPerPage xmlns="http://a9.com/-/spec/opensearch/1.1/">10</itemsPerPage>');
 938 EXPLAIN ANALYZE SELECT unapi.biblio_record_entry_feed('{7209,7394}'::BIGINT[],'mods32','{holdings_xml}'::TEXT[],'SYS1',NULL,1,NULL, NULL,NULL,NULL,NULL,'http://fulfillment2.esilibrary.com/opac/extras/unapi', '<totalResults xmlns="http://a9.com/-/spec/opensearch/1.1/">2</totalResults><startIndex xmlns="http://a9.com/-/spec/opensearch/1.1/">1</startIndex><itemsPerPage xmlns="http://a9.com/-/spec/opensearch/1.1/">10</itemsPerPage>');
 939
 940 SELECT unapi.biblio_record_entry_feed('{216}'::BIGINT[],'marcxml','{}'::TEXT[], 'BR1');
 941 EXPLAIN ANALYZE SELECT unapi.bre(216,'marcxml','record','{holdings_xml,bre.unapi}'::TEXT[], 'BR1');
 942 EXPLAIN ANALYZE SELECT unapi.bre(216,'holdings_xml','record','{}'::TEXT[], 'BR1');
 943 EXPLAIN ANALYZE SELECT unapi.holdings_xml(216,4,'BR1',2,'{bre}'::TEXT[]);
 944 EXPLAIN ANALYZE SELECT unapi.bre(216,'mods32','record','{}'::TEXT[], 'BR1');
 945
 946 */
 947
 948 COMMIT;
 949