Open-ILS/src/sql/Pg/040.schema.asset.sql

   1 /*
   2  * Copyright (C) 2004-2008  Georgia Public Library Service
   3  * Copyright (C) 2007-2008  Equinox Software, Inc.
   4  * Mike Rylander <miker@esilibrary.com>
   5  *
   6  * This program is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU General Public License
   8  * as published by the Free Software Foundation; either version 2
   9  * of the License, or (at your option) any later version.
  10  *
  11  * This program is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  * GNU General Public License for more details.
  15  *
  16  */
  17
  18 DROP SCHEMA IF EXISTS asset CASCADE;
  19
  20 BEGIN;
  21
  22 CREATE SCHEMA asset;
  23
  24 CREATE TABLE asset.copy_location (
  25         id              SERIAL  PRIMARY KEY,
  26         name            TEXT    NOT NULL,
  27         owning_lib      INT     NOT NULL REFERENCES actor.org_unit (id) DEFERRABLE INITIALLY DEFERRED,
  28         holdable        BOOL    NOT NULL DEFAULT TRUE,
  29         hold_verify     BOOL    NOT NULL DEFAULT FALSE,
  30         opac_visible    BOOL    NOT NULL DEFAULT TRUE,
  31         circulate       BOOL    NOT NULL DEFAULT TRUE,
  32         label_prefix    TEXT,
  33         label_suffix    TEXT,
  34         CONSTRAINT acl_name_once_per_lib UNIQUE (name, owning_lib)
  35 );
  36
  37 CREATE TABLE asset.copy_location_order
  38 (
  39         id              SERIAL           PRIMARY KEY,
  40         location        INT              NOT NULL
  41                                              REFERENCES asset.copy_location
  42                                              ON DELETE CASCADE
  43                                              DEFERRABLE INITIALLY DEFERRED,
  44         org             INT              NOT NULL
  45                                              REFERENCES actor.org_unit
  46                                              ON DELETE CASCADE
  47                                              DEFERRABLE INITIALLY DEFERRED,
  48         position        INT              NOT NULL DEFAULT 0,
  49         CONSTRAINT acplo_once_per_org UNIQUE ( location, org )
  50 );
  51
  52 CREATE TABLE asset.copy (
  53         id              BIGSERIAL                       PRIMARY KEY,
  54         circ_lib        INT                             NOT NULL REFERENCES actor.org_unit (id) DEFERRABLE INITIALLY DEFERRED,
  55         creator         BIGINT                          NOT NULL,
  56         call_number     BIGINT                          NOT NULL,
  57         editor          BIGINT                          NOT NULL,
  58         create_date     TIMESTAMP WITH TIME ZONE        DEFAULT NOW(),
  59         edit_date       TIMESTAMP WITH TIME ZONE        DEFAULT NOW(),
  60         copy_number     INT,
  61         status          INT                             NOT NULL DEFAULT 0 REFERENCES config.copy_status (id) DEFERRABLE INITIALLY DEFERRED,
  62         location        INT                             NOT NULL DEFAULT 1 REFERENCES asset.copy_location (id) DEFERRABLE INITIALLY DEFERRED,
  63         loan_duration   INT                             NOT NULL CHECK ( loan_duration IN (1,2,3) ),
  64         fine_level      INT                             NOT NULL CHECK ( fine_level IN (1,2,3) ),
  65         age_protect     INT,
  66         circulate       BOOL                            NOT NULL DEFAULT TRUE,
  67         deposit         BOOL                            NOT NULL DEFAULT FALSE,
  68         ref             BOOL                            NOT NULL DEFAULT FALSE,
  69         holdable        BOOL                            NOT NULL DEFAULT TRUE,
  70         deposit_amount  NUMERIC(6,2)                    NOT NULL DEFAULT 0.00,
  71         price           NUMERIC(8,2),
  72         barcode         TEXT                            NOT NULL,
  73         circ_modifier   TEXT,
  74         circ_as_type    TEXT,
  75         dummy_title     TEXT,
  76         dummy_author    TEXT,
  77         alert_message   TEXT,
  78         opac_visible    BOOL                            NOT NULL DEFAULT TRUE,
  79         deleted         BOOL                            NOT NULL DEFAULT FALSE,
  80         floating                BOOL                            NOT NULL DEFAULT FALSE,
  81         dummy_isbn      TEXT,
  82         status_changed_time TIMESTAMP WITH TIME ZONE,
  83         mint_condition      BOOL        NOT NULL DEFAULT TRUE,
  84     cost    NUMERIC(8,2)
  85 );
  86 CREATE UNIQUE INDEX copy_barcode_key ON asset.copy (barcode) WHERE deleted = FALSE OR deleted IS FALSE;
  87 CREATE INDEX cp_cn_idx ON asset.copy (call_number);
  88 CREATE INDEX cp_avail_cn_idx ON asset.copy (call_number);
  89 CREATE INDEX cp_creator_idx  ON asset.copy ( creator );
  90 CREATE INDEX cp_editor_idx   ON asset.copy ( editor );
  91 CREATE INDEX cp_create_date  ON asset.copy (create_date);
  92 CREATE RULE protect_copy_delete AS ON DELETE TO asset.copy DO INSTEAD UPDATE asset.copy SET deleted = TRUE WHERE OLD.id = asset.copy.id;
  93
  94 CREATE TABLE asset.opac_visible_copies (
  95   id        BIGINT primary key, -- copy id
  96   record    BIGINT,
  97   circ_lib  INTEGER
  98 );
  99 COMMENT ON TABLE asset.opac_visible_copies IS $$
 100 Materialized view of copies that are visible in the OPAC, used by
 101 search.query_parser_fts() to speed up OPAC visibility checks on large
 102 databases.  Contents are maintained by a set of triggers.
 103 $$;
 104 CREATE INDEX opac_visible_copies_idx1 on asset.opac_visible_copies (record, circ_lib);
 105
 106 CREATE OR REPLACE FUNCTION asset.acp_status_changed()
 107 RETURNS TRIGGER AS $$
 108 BEGIN
 109     IF NEW.status <> OLD.status THEN
 110         NEW.status_changed_time := now();
 111     END IF;
 112     RETURN NEW;
 113 END;
 114 $$ LANGUAGE plpgsql;
 115
 116 CREATE TRIGGER acp_status_changed_trig
 117     BEFORE UPDATE ON asset.copy
 118     FOR EACH ROW EXECUTE PROCEDURE asset.acp_status_changed();
 119
 120 CREATE TABLE asset.stat_cat_entry_transparency_map (
 121         id                      BIGSERIAL       PRIMARY KEY,
 122         stat_cat                INT             NOT NULL, -- needs ON DELETE CASCADE
 123         stat_cat_entry          INT             NOT NULL, -- needs ON DELETE CASCADE
 124         owning_transparency     INT             NOT NULL, -- needs ON DELETE CASCADE
 125         CONSTRAINT scte_once_per_trans UNIQUE (owning_transparency,stat_cat)
 126 );
 127
 128 CREATE TABLE asset.stat_cat (
 129         id              SERIAL  PRIMARY KEY,
 130         owner           INT     NOT NULL,
 131         opac_visible    BOOL    NOT NULL DEFAULT FALSE,
 132         name            TEXT    NOT NULL,
 133         required        BOOL    NOT NULL DEFAULT FALSE,
 134         CONSTRAINT sc_once_per_owner UNIQUE (owner,name)
 135 );
 136
 137 CREATE TABLE asset.stat_cat_entry (
 138         id              SERIAL  PRIMARY KEY,
 139         stat_cat        INT     NOT NULL,
 140         owner           INT     NOT NULL,
 141         value           TEXT    NOT NULL,
 142         CONSTRAINT sce_once_per_owner UNIQUE (stat_cat,owner,value)
 143 );
 144
 145 CREATE TABLE asset.stat_cat_entry_copy_map (
 146         id              BIGSERIAL       PRIMARY KEY,
 147         stat_cat        INT             NOT NULL,
 148         stat_cat_entry  INT             NOT NULL,
 149         owning_copy     BIGINT          NOT NULL,
 150         CONSTRAINT sce_once_per_copy UNIQUE (owning_copy,stat_cat)
 151 );
 152 CREATE INDEX scecm_owning_copy_idx ON asset.stat_cat_entry_copy_map(owning_copy);
 153
 154 CREATE TABLE asset.copy_note (
 155         id              BIGSERIAL                       PRIMARY KEY,
 156         owning_copy     BIGINT                          NOT NULL,
 157         creator         BIGINT                          NOT NULL,
 158         create_date     TIMESTAMP WITH TIME ZONE        DEFAULT NOW(),
 159         pub             BOOL                            NOT NULL DEFAULT FALSE,
 160         title           TEXT                            NOT NULL,
 161         value           TEXT                            NOT NULL
 162 );
 163 CREATE INDEX asset_copy_note_creator_idx ON asset.copy_note ( creator );
 164 CREATE INDEX asset_copy_note_owning_copy_idx ON asset.copy_note ( owning_copy );
 165
 166 CREATE TABLE asset.uri (
 167     id  SERIAL  PRIMARY KEY,
 168     href    TEXT    NOT NULL,
 169     label   TEXT,
 170     use_restriction TEXT,
 171     active  BOOL    NOT NULL DEFAULT TRUE
 172 );
 173
 174 CREATE TABLE asset.call_number_class (
 175     id             bigserial     PRIMARY KEY,
 176     name           TEXT          NOT NULL,
 177     normalizer     TEXT          NOT NULL DEFAULT 'asset.normalize_generic',
 178     field          TEXT          NOT NULL DEFAULT '050ab,055ab,060ab,070ab,080ab,082ab,086ab,088ab,090,092,096,098,099'
 179 );
 180 COMMENT ON TABLE asset.call_number_class IS $$
 181 Defines the call number normalization database functions in the "normalizer"
 182 column and the tag/subfield combinations to use to lookup the call number in
 183 the "field" column for a given classification scheme. Tag/subfield combinations
 184 are delimited by commas.
 185 $$;
 186
 187 CREATE OR REPLACE FUNCTION asset.label_normalizer() RETURNS TRIGGER AS $func$
 188 DECLARE
 189     sortkey        TEXT := '';
 190 BEGIN
 191     sortkey := NEW.label_sortkey;
 192
 193     EXECUTE 'SELECT ' || acnc.normalizer || '(' ||
 194        quote_literal( NEW.label ) || ')'
 195        FROM asset.call_number_class acnc
 196        WHERE acnc.id = NEW.label_class
 197        INTO sortkey;
 198
 199     NEW.label_sortkey = sortkey;
 200
 201     RETURN NEW;
 202 END;
 203 $func$ LANGUAGE PLPGSQL;
 204
 205 CREATE OR REPLACE FUNCTION asset.label_normalizer_generic(TEXT) RETURNS TEXT AS $func$
 206     # Created after looking at the Koha C4::ClassSortRoutine::Generic module,
 207     # thus could probably be considered a derived work, although nothing was
 208     # directly copied - but to err on the safe side of providing attribution:
 209     # Copyright (C) 2007 LibLime
 210     # Licensed under the GPL v2 or later
 211
 212     use strict;
 213     use warnings;
 214
 215     # Converts the callnumber to uppercase
 216     # Strips spaces from start and end of the call number
 217     # Converts anything other than letters, digits, and periods into underscores
 218     # Collapses multiple underscores into a single underscore
 219     my $callnum = uc(shift);
 220     $callnum =~ s/^\s//g;
 221     $callnum =~ s/\s$//g;
 222     $callnum =~ s/[^A-Z0-9_.]/_/g;
 223     $callnum =~ s/_{2,}/_/g;
 224
 225     return $callnum;
 226 $func$ LANGUAGE PLPERLU;
 227
 228 CREATE OR REPLACE FUNCTION asset.label_normalizer_dewey(TEXT) RETURNS TEXT AS $func$
 229     # Derived from the Koha C4::ClassSortRoutine::Dewey module
 230     # Copyright (C) 2007 LibLime
 231     # Licensed under the GPL v2 or later
 232
 233     use strict;
 234     use warnings;
 235
 236     my $init = uc(shift);
 237     $init =~ s/^\s+//;
 238     $init =~ s/\s+$//;
 239     $init =~ s!/!!g;
 240     $init =~ s/^([\p{IsAlpha}]+)/$1 /;
 241     my @tokens = split /\.|\s+/, $init;
 242     my $digit_group_count = 0;
 243     for (my $i = 0; $i <= $#tokens; $i++) {
 244         if ($tokens[$i] =~ /^\d+$/) {
 245             $digit_group_count++;
 246             if (2 == $digit_group_count) {
 247                 $tokens[$i] = sprintf("%-15.15s", $tokens[$i]);
 248                 $tokens[$i] =~ tr/ /0/;
 249             }
 250         }
 251     }
 252     my $key = join("_", @tokens);
 253     $key =~ s/[^\p{IsAlnum}_]//g;
 254
 255     return $key;
 256
 257 $func$ LANGUAGE PLPERLU;
 258
 259 CREATE OR REPLACE FUNCTION asset.label_normalizer_lc(TEXT) RETURNS TEXT AS $func$
 260     use strict;
 261     use warnings;
 262
 263     # Library::CallNumber::LC is currently hosted at http://code.google.com/p/library-callnumber-lc/
 264     # The author hopes to upload it to CPAN some day, which would make our lives easier
 265     use Library::CallNumber::LC;
 266
 267     my $callnum = Library::CallNumber::LC->new(shift);
 268     return $callnum->normalize();
 269
 270 $func$ LANGUAGE PLPERLU;
 271
 272 INSERT INTO asset.call_number_class (name, normalizer, field) VALUES
 273     ('Generic', 'asset.label_normalizer_generic', '050ab,055ab,060ab,070ab,080ab,082ab,086ab,088ab,090,092,096,098,099'),
 274     ('Dewey (DDC)', 'asset.label_normalizer_dewey', '080ab,082ab'),
 275     ('Library of Congress (LC)', 'asset.label_normalizer_lc', '050ab,055ab')
 276 ;
 277
 278 CREATE TABLE asset.call_number (
 279         id              bigserial PRIMARY KEY,
 280         creator         BIGINT                          NOT NULL,
 281         create_date     TIMESTAMP WITH TIME ZONE        DEFAULT NOW(),
 282         editor          BIGINT                          NOT NULL,
 283         edit_date       TIMESTAMP WITH TIME ZONE        DEFAULT NOW(),
 284         record          bigint                          NOT NULL,
 285         owning_lib      INT                             NOT NULL,
 286         label           TEXT                            NOT NULL,
 287         deleted         BOOL                            NOT NULL DEFAULT FALSE,
 288         label_class     BIGINT                          DEFAULT 1 NOT NULL
 289                                                         REFERENCES asset.call_number_class(id)
 290                                                         DEFERRABLE INITIALLY DEFERRED,
 291         label_sortkey   TEXT
 292 );
 293 CREATE INDEX asset_call_number_record_idx ON asset.call_number (record);
 294 CREATE INDEX asset_call_number_creator_idx ON asset.call_number (creator);
 295 CREATE INDEX asset_call_number_editor_idx ON asset.call_number (editor);
 296 CREATE INDEX asset_call_number_dewey_idx ON asset.call_number (public.call_number_dewey(label));
 297 CREATE INDEX asset_call_number_upper_label_id_owning_lib_idx ON asset.call_number (oils_text_as_bytea(label),id,owning_lib);
 298 CREATE INDEX asset_call_number_label_sortkey ON asset.call_number(oils_text_as_bytea(label_sortkey));
 299 CREATE UNIQUE INDEX asset_call_number_label_once_per_lib ON asset.call_number (record, owning_lib, label) WHERE deleted = FALSE OR deleted IS FALSE;
 300 CREATE INDEX asset_call_number_label_sortkey_browse ON asset.call_number(oils_text_as_bytea(label_sortkey), oils_text_as_bytea(label), id, owning_lib) WHERE deleted IS FALSE OR deleted = FALSE;
 301 CREATE RULE protect_cn_delete AS ON DELETE TO asset.call_number DO INSTEAD UPDATE asset.call_number SET deleted = TRUE WHERE OLD.id = asset.call_number.id;
 302 CREATE TRIGGER asset_label_sortkey_trigger
 303     BEFORE UPDATE OR INSERT ON asset.call_number
 304     FOR EACH ROW EXECUTE PROCEDURE asset.label_normalizer();
 305
 306 CREATE TABLE asset.uri_call_number_map (
 307     id          BIGSERIAL   PRIMARY KEY,
 308     uri         INT         NOT NULL REFERENCES asset.uri (id),
 309     call_number INT         NOT NULL REFERENCES asset.call_number (id),
 310     CONSTRAINT uri_cn_once UNIQUE (uri,call_number)
 311 );
 312 CREATE INDEX asset_uri_call_number_map_cn_idx ON asset.uri_call_number_map (call_number);
 313
 314 CREATE TABLE asset.call_number_note (
 315         id              BIGSERIAL                       PRIMARY KEY,
 316         call_number     BIGINT                          NOT NULL,
 317         creator         BIGINT                          NOT NULL,
 318         create_date     TIMESTAMP WITH TIME ZONE        DEFAULT NOW(),
 319         pub             BOOL                            NOT NULL DEFAULT FALSE,
 320         title           TEXT                            NOT NULL,
 321         value           TEXT                            NOT NULL
 322 );
 323 CREATE INDEX asset_call_number_note_creator_idx ON asset.call_number_note ( creator );
 324
 325 CREATE TABLE asset.copy_template (
 326         id             SERIAL   PRIMARY KEY,
 327         owning_lib     INT      NOT NULL
 328                                 REFERENCES actor.org_unit (id)
 329                                 DEFERRABLE INITIALLY DEFERRED,
 330         creator        BIGINT   NOT NULL
 331                                 REFERENCES actor.usr (id)
 332                                 DEFERRABLE INITIALLY DEFERRED,
 333         editor         BIGINT   NOT NULL
 334                                 REFERENCES actor.usr (id)
 335                                 DEFERRABLE INITIALLY DEFERRED,
 336         create_date    TIMESTAMP WITH TIME ZONE    DEFAULT NOW(),
 337         edit_date      TIMESTAMP WITH TIME ZONE    DEFAULT NOW(),
 338         name           TEXT     NOT NULL,
 339         -- columns above this point are attributes of the template itself
 340         -- columns after this point are attributes of the copy this template modifies/creates
 341         circ_lib       INT      REFERENCES actor.org_unit (id)
 342                                 DEFERRABLE INITIALLY DEFERRED,
 343         status         INT      REFERENCES config.copy_status (id)
 344                                 DEFERRABLE INITIALLY DEFERRED,
 345         location       INT      REFERENCES asset.copy_location (id)
 346                                 DEFERRABLE INITIALLY DEFERRED,
 347         loan_duration  INT      CONSTRAINT valid_loan_duration CHECK (
 348                                     loan_duration IS NULL OR loan_duration IN (1,2,3)),
 349         fine_level     INT      CONSTRAINT valid_fine_level CHECK (
 350                                     fine_level IS NULL OR loan_duration IN (1,2,3)),
 351         age_protect    INT,
 352         circulate      BOOL,
 353         deposit        BOOL,
 354         ref            BOOL,
 355         holdable       BOOL,
 356         deposit_amount NUMERIC(6,2),
 357         price          NUMERIC(8,2),
 358         circ_modifier  TEXT,
 359         circ_as_type   TEXT,
 360         alert_message  TEXT,
 361         opac_visible   BOOL,
 362         floating       BOOL,
 363         mint_condition BOOL
 364 );
 365
 366 CREATE OR REPLACE FUNCTION asset.opac_ou_record_copy_count (org INT, rid BIGINT) RETURNS TABLE (depth INT, org_unit INT, visible BIGINT, available BIGINT, unshadow BIGINT, transcendant INT) AS $f$
 367 DECLARE
 368     ans RECORD;
 369     trans INT;
 370 BEGIN
 371     SELECT 1 INTO trans FROM biblio.record_entry b JOIN config.bib_source src ON (b.source = src.id) WHERE src.transcendant AND b.id = rid;
 372
 373     FOR ans IN SELECT u.id, t.depth FROM actor.org_unit_ancestors(org) AS u JOIN actor.org_unit_type t ON (u.ou_type = t.id) LOOP
 374         RETURN QUERY
 375         SELECT  ans.depth,
 376                 ans.id,
 377                 COUNT( av.id ),
 378                 SUM( CASE WHEN cp.status IN (0,7,12) THEN 1 ELSE 0 END ),
 379                 COUNT( av.id ),
 380                 trans
 381           FROM
 382                 actor.org_unit_descendants(ans.id) d
 383                 JOIN asset.opac_visible_copies av ON (av.record = rid AND av.circ_lib = d.id)
 384                 JOIN asset.copy cp ON (cp.id = av.id)
 385           GROUP BY 1,2,6;
 386
 387         IF NOT FOUND THEN
 388             RETURN QUERY SELECT ans.depth, ans.id, 0::BIGINT, 0::BIGINT, 0::BIGINT, trans;
 389         END IF;
 390
 391     END LOOP;
 392
 393     RETURN;
 394 END;
 395 $f$ LANGUAGE PLPGSQL;
 396
 397 CREATE OR REPLACE FUNCTION asset.opac_lasso_record_copy_count (i_lasso INT, rid BIGINT) RETURNS TABLE (depth INT, org_unit INT, visible BIGINT, available BIGINT, unshadow BIGINT, transcendant INT) AS $f$
 398 DECLARE
 399     ans RECORD;
 400     trans INT;
 401 BEGIN
 402     SELECT 1 INTO trans FROM biblio.record_entry b JOIN config.bib_source src ON (b.source = src.id) WHERE src.transcendant AND b.id = rid;
 403
 404     FOR ans IN SELECT u.org_unit AS id FROM actor.org_lasso_map AS u WHERE lasso = i_lasso LOOP
 405         RETURN QUERY
 406         SELECT  -1,
 407                 ans.id,
 408                 COUNT( av.id ),
 409                 SUM( CASE WHEN cp.status IN (0,7,12) THEN 1 ELSE 0 END ),
 410                 COUNT( av.id ),
 411                 trans
 412           FROM
 413                 actor.org_unit_descendants(ans.id) d
 414                 JOIN asset.opac_visible_copies av ON (av.record = rid AND av.circ_lib = d.id)
 415                 JOIN asset.copy cp ON (cp.id = av.id)
 416           GROUP BY 1,2,6;
 417
 418         IF NOT FOUND THEN
 419             RETURN QUERY SELECT ans.depth, ans.id, 0::BIGINT, 0::BIGINT, 0::BIGINT, trans;
 420         END IF;
 421
 422     END LOOP;
 423
 424     RETURN;
 425 END;
 426 $f$ LANGUAGE PLPGSQL;
 427
 428 CREATE OR REPLACE FUNCTION asset.staff_ou_record_copy_count (org INT, rid BIGINT) RETURNS TABLE (depth INT, org_unit INT, visible BIGINT, available BIGINT, unshadow BIGINT, transcendant INT) AS $f$
 429 DECLARE
 430     ans RECORD;
 431     trans INT;
 432 BEGIN
 433     SELECT 1 INTO trans FROM biblio.record_entry b JOIN config.bib_source src ON (b.source = src.id) WHERE src.transcendant AND b.id = rid;
 434
 435     FOR ans IN SELECT u.id, t.depth FROM actor.org_unit_ancestors(org) AS u JOIN actor.org_unit_type t ON (u.ou_type = t.id) LOOP
 436         RETURN QUERY
 437         SELECT  ans.depth,
 438                 ans.id,
 439                 COUNT( cp.id ),
 440                 SUM( CASE WHEN cp.status IN (0,7,12) THEN 1 ELSE 0 END ),
 441                 COUNT( cp.id ),
 442                 trans
 443           FROM
 444                 actor.org_unit_descendants(ans.id) d
 445                 JOIN asset.copy cp ON (cp.circ_lib = d.id AND NOT cp.deleted)
 446                 JOIN asset.call_number cn ON (cn.record = rid AND cn.id = cp.call_number AND NOT cn.deleted)
 447           GROUP BY 1,2,6;
 448
 449         IF NOT FOUND THEN
 450             RETURN QUERY SELECT ans.depth, ans.id, 0::BIGINT, 0::BIGINT, 0::BIGINT, trans;
 451         END IF;
 452
 453     END LOOP;
 454
 455     RETURN;
 456 END;
 457 $f$ LANGUAGE PLPGSQL;
 458
 459 CREATE OR REPLACE FUNCTION asset.staff_lasso_record_copy_count (i_lasso INT, rid BIGINT) RETURNS TABLE (depth INT, org_unit INT, visible BIGINT, available BIGINT, unshadow BIGINT, transcendant INT) AS $f$
 460 DECLARE
 461     ans RECORD;
 462     trans INT;
 463 BEGIN
 464     SELECT 1 INTO trans FROM biblio.record_entry b JOIN config.bib_source src ON (b.source = src.id) WHERE src.transcendant AND b.id = rid;
 465
 466     FOR ans IN SELECT u.org_unit AS id FROM actor.org_lasso_map AS u WHERE lasso = i_lasso LOOP
 467         RETURN QUERY
 468         SELECT  -1,
 469                 ans.id,
 470                 COUNT( cp.id ),
 471                 SUM( CASE WHEN cp.status IN (0,7,12) THEN 1 ELSE 0 END ),
 472                 COUNT( cp.id ),
 473                 trans
 474           FROM
 475                 actor.org_unit_descendants(ans.id) d
 476                 JOIN asset.copy cp ON (cp.circ_lib = d.id AND NOT cp.deleted)
 477                 JOIN asset.call_number cn ON (cn.record = rid AND cn.id = cp.call_number AND NOT cn.deleted)
 478           GROUP BY 1,2,6;
 479
 480         IF NOT FOUND THEN
 481             RETURN QUERY SELECT ans.depth, ans.id, 0::BIGINT, 0::BIGINT, 0::BIGINT, trans;
 482         END IF;
 483
 484     END LOOP;
 485
 486     RETURN;
 487 END;
 488 $f$ LANGUAGE PLPGSQL;
 489
 490 CREATE OR REPLACE FUNCTION asset.record_copy_count ( place INT, rid BIGINT, staff BOOL) RETURNS TABLE (depth INT, org_unit INT, visible BIGINT, available BIGINT, unshadow BIGINT, transcendant INT) AS $f$
 491 BEGIN
 492     IF staff IS TRUE THEN
 493         IF place > 0 THEN
 494             RETURN QUERY SELECT * FROM asset.staff_ou_record_copy_count( place, rid );
 495         ELSE
 496             RETURN QUERY SELECT * FROM asset.staff_lasso_record_copy_count( -place, rid );
 497         END IF;
 498     ELSE
 499         IF place > 0 THEN
 500             RETURN QUERY SELECT * FROM asset.opac_ou_record_copy_count( place, rid );
 501         ELSE
 502             RETURN QUERY SELECT * FROM asset.opac_lasso_record_copy_count( -place, rid );
 503         END IF;
 504     END IF;
 505
 506     RETURN;
 507 END;
 508 $f$ LANGUAGE PLPGSQL;
 509
 510 CREATE OR REPLACE FUNCTION asset.opac_ou_metarecord_copy_count (org INT, rid BIGINT) RETURNS TABLE (depth INT, org_unit INT, visible BIGINT, available BIGINT, unshadow BIGINT, transcendant INT) AS $f$
 511 DECLARE
 512     ans RECORD;
 513     trans INT;
 514 BEGIN
 515     SELECT 1 INTO trans FROM biblio.record_entry b JOIN config.bib_source src ON (b.source = src.id) WHERE src.transcendant AND b.id = rid;
 516
 517     FOR ans IN SELECT u.id, t.depth FROM actor.org_unit_ancestors(org) AS u JOIN actor.org_unit_type t ON (u.ou_type = t.id) LOOP
 518         RETURN QUERY
 519         SELECT  ans.depth,
 520                 ans.id,
 521                 COUNT( av.id ),
 522                 SUM( CASE WHEN cp.status IN (0,7,12) THEN 1 ELSE 0 END ),
 523                 COUNT( av.id ),
 524                 trans
 525           FROM
 526                 actor.org_unit_descendants(ans.id) d
 527                 JOIN asset.opac_visible_copies av ON (av.record = rid AND av.circ_lib = d.id)
 528                 JOIN asset.copy cp ON (cp.id = av.id)
 529                 JOIN metabib.metarecord_source_map m ON (m.source = av.record)
 530           GROUP BY 1,2,6;
 531
 532         IF NOT FOUND THEN
 533             RETURN QUERY SELECT ans.depth, ans.id, 0::BIGINT, 0::BIGINT, 0::BIGINT, trans;
 534         END IF;
 535
 536     END LOOP;
 537
 538     RETURN;
 539 END;
 540 $f$ LANGUAGE PLPGSQL;
 541
 542 CREATE OR REPLACE FUNCTION asset.opac_lasso_metarecord_copy_count (i_lasso INT, rid BIGINT) RETURNS TABLE (depth INT, org_unit INT, visible BIGINT, available BIGINT, unshadow BIGINT, transcendant INT) AS $f$
 543 DECLARE
 544     ans RECORD;
 545     trans INT;
 546 BEGIN
 547     SELECT 1 INTO trans FROM biblio.record_entry b JOIN config.bib_source src ON (b.source = src.id) WHERE src.transcendant AND b.id = rid;
 548
 549     FOR ans IN SELECT u.org_unit AS id FROM actor.org_lasso_map AS u WHERE lasso = i_lasso LOOP
 550         RETURN QUERY
 551         SELECT  -1,
 552                 ans.id,
 553                 COUNT( av.id ),
 554                 SUM( CASE WHEN cp.status IN (0,7,12) THEN 1 ELSE 0 END ),
 555                 COUNT( av.id ),
 556                 trans
 557           FROM
 558                 actor.org_unit_descendants(ans.id) d
 559                 JOIN asset.opac_visible_copies av ON (av.record = rid AND av.circ_lib = d.id)
 560                 JOIN asset.copy cp ON (cp.id = av.id)
 561                 JOIN metabib.metarecord_source_map m ON (m.source = av.record)
 562           GROUP BY 1,2,6;
 563
 564         IF NOT FOUND THEN
 565             RETURN QUERY SELECT ans.depth, ans.id, 0::BIGINT, 0::BIGINT, 0::BIGINT, trans;
 566         END IF;
 567
 568     END LOOP;
 569
 570     RETURN;
 571 END;
 572 $f$ LANGUAGE PLPGSQL;
 573
 574 CREATE OR REPLACE FUNCTION asset.staff_ou_metarecord_copy_count (org INT, rid BIGINT) RETURNS TABLE (depth INT, org_unit INT, visible BIGINT, available BIGINT, unshadow BIGINT, transcendant INT) AS $f$
 575 DECLARE
 576     ans RECORD;
 577     trans INT;
 578 BEGIN
 579     SELECT 1 INTO trans FROM biblio.record_entry b JOIN config.bib_source src ON (b.source = src.id) WHERE src.transcendant AND b.id = rid;
 580
 581     FOR ans IN SELECT u.id, t.depth FROM actor.org_unit_ancestors(org) AS u JOIN actor.org_unit_type t ON (u.ou_type = t.id) LOOP
 582         RETURN QUERY
 583         SELECT  ans.depth,
 584                 ans.id,
 585                 COUNT( cp.id ),
 586                 SUM( CASE WHEN cp.status IN (0,7,12) THEN 1 ELSE 0 END ),
 587                 COUNT( cp.id ),
 588                 trans
 589           FROM
 590                 actor.org_unit_descendants(ans.id) d
 591                 JOIN asset.copy cp ON (cp.circ_lib = d.id AND NOT cp.deleted)
 592                 JOIN asset.call_number cn ON (cn.record = rid AND cn.id = cp.call_number AND NOT cn.deleted)
 593                 JOIN metabib.metarecord_source_map m ON (m.source = cn.record)
 594           GROUP BY 1,2,6;
 595
 596         IF NOT FOUND THEN
 597             RETURN QUERY SELECT ans.depth, ans.id, 0::BIGINT, 0::BIGINT, 0::BIGINT, trans;
 598         END IF;
 599
 600     END LOOP;
 601
 602     RETURN;
 603 END;
 604 $f$ LANGUAGE PLPGSQL;
 605
 606 CREATE OR REPLACE FUNCTION asset.staff_lasso_metarecord_copy_count (i_lasso INT, rid BIGINT) RETURNS TABLE (depth INT, org_unit INT, visible BIGINT, available BIGINT, unshadow BIGINT, transcendant INT) AS $f$
 607 DECLARE
 608     ans RECORD;
 609     trans INT;
 610 BEGIN
 611     SELECT 1 INTO trans FROM biblio.record_entry b JOIN config.bib_source src ON (b.source = src.id) WHERE src.transcendant AND b.id = rid;
 612
 613     FOR ans IN SELECT u.org_unit AS id FROM actor.org_lasso_map AS u WHERE lasso = i_lasso LOOP
 614         RETURN QUERY
 615         SELECT  -1,
 616                 ans.id,
 617                 COUNT( cp.id ),
 618                 SUM( CASE WHEN cp.status IN (0,7,12) THEN 1 ELSE 0 END ),
 619                 COUNT( cp.id ),
 620                 trans
 621           FROM
 622                 actor.org_unit_descendants(ans.id) d
 623                 JOIN asset.copy cp ON (cp.circ_lib = d.id AND NOT cp.deleted)
 624                 JOIN asset.call_number cn ON (cn.record = rid AND cn.id = cp.call_number AND NOT cn.deleted)
 625                 JOIN metabib.metarecord_source_map m ON (m.source = cn.record)
 626           GROUP BY 1,2,6;
 627
 628         IF NOT FOUND THEN
 629             RETURN QUERY SELECT ans.depth, ans.id, 0::BIGINT, 0::BIGINT, 0::BIGINT, trans;
 630         END IF;
 631
 632     END LOOP;
 633
 634     RETURN;
 635 END;
 636 $f$ LANGUAGE PLPGSQL;
 637
 638 CREATE OR REPLACE FUNCTION asset.metarecord_copy_count ( place INT, rid BIGINT, staff BOOL) RETURNS TABLE (depth INT, org_unit INT, visible BIGINT, available BIGINT, unshadow BIGINT, transcendant INT) AS $f$
 639 BEGIN
 640     IF staff IS TRUE THEN
 641         IF place > 0 THEN
 642             RETURN QUERY SELECT * FROM asset.staff_ou_metarecord_copy_count( place, rid );
 643         ELSE
 644             RETURN QUERY SELECT * FROM asset.staff_lasso_metarecord_copy_count( -place, rid );
 645         END IF;
 646     ELSE
 647         IF place > 0 THEN
 648             RETURN QUERY SELECT * FROM asset.opac_ou_metarecord_copy_count( place, rid );
 649         ELSE
 650             RETURN QUERY SELECT * FROM asset.opac_lasso_metarecord_copy_count( -place, rid );
 651         END IF;
 652     END IF;
 653
 654     RETURN;
 655 END;
 656 $f$ LANGUAGE PLPGSQL;
 657
 658 CREATE OR REPLACE FUNCTION asset.autogenerate_placeholder_barcode ( ) RETURNS TRIGGER AS $f$
 659 BEGIN
 660         IF NEW.barcode LIKE '@@%' THEN
 661                 NEW.barcode := '@@' || NEW.id;
 662         END IF;
 663         RETURN NEW;
 664 END;
 665 $f$ LANGUAGE PLPGSQL;
 666
 667 CREATE TRIGGER autogenerate_placeholder_barcode
 668         BEFORE INSERT OR UPDATE ON asset.copy
 669         FOR EACH ROW EXECUTE PROCEDURE asset.autogenerate_placeholder_barcode();
 670
 671 COMMIT;
 672