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