Merge remote-tracking branch 'eg-working/user/dbs/lp894052-version-upgrade'
[working/Evergreen.git] / 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