Open-ILS/src/sql/Pg/090.schema.action.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 action CASCADE;
  19
  20 BEGIN;
  21
  22 CREATE SCHEMA action;
  23
  24 CREATE TABLE action.in_house_use (
  25         id              SERIAL                          PRIMARY KEY,
  26         item            BIGINT                          NOT NULL, -- REFERENCES asset.copy (id) DEFERRABLE INITIALLY DEFERRED, -- XXX could be an serial.issuance
  27         staff           INT                             NOT NULL REFERENCES actor.usr (id) DEFERRABLE INITIALLY DEFERRED,
  28         org_unit        INT                             NOT NULL REFERENCES actor.org_unit (id) DEFERRABLE INITIALLY DEFERRED,
  29         use_time        TIMESTAMP WITH TIME ZONE        NOT NULL DEFAULT NOW()
  30 );
  31 CREATE INDEX action_in_house_use_staff_idx      ON action.in_house_use ( staff );
  32
  33 CREATE TABLE action.non_cataloged_circulation (
  34         id              SERIAL                          PRIMARY KEY,
  35         patron          INT                             NOT NULL REFERENCES actor.usr (id) DEFERRABLE INITIALLY DEFERRED,
  36         staff           INT                             NOT NULL REFERENCES actor.usr (id) DEFERRABLE INITIALLY DEFERRED,
  37         circ_lib        INT                             NOT NULL REFERENCES actor.org_unit (id) DEFERRABLE INITIALLY DEFERRED,
  38         item_type       INT                             NOT NULL REFERENCES config.non_cataloged_type (id) DEFERRABLE INITIALLY DEFERRED,
  39         circ_time       TIMESTAMP WITH TIME ZONE        NOT NULL DEFAULT NOW()
  40 );
  41 CREATE INDEX action_non_cat_circ_patron_idx ON action.non_cataloged_circulation ( patron );
  42 CREATE INDEX action_non_cat_circ_staff_idx  ON action.non_cataloged_circulation ( staff );
  43
  44 CREATE TABLE action.non_cat_in_house_use (
  45         id              SERIAL                          PRIMARY KEY,
  46         item_type       BIGINT                          NOT NULL REFERENCES config.non_cataloged_type(id) DEFERRABLE INITIALLY DEFERRED,
  47         staff           INT                             NOT NULL REFERENCES actor.usr (id) DEFERRABLE INITIALLY DEFERRED,
  48         org_unit        INT                             NOT NULL REFERENCES actor.org_unit (id) DEFERRABLE INITIALLY DEFERRED,
  49         use_time        TIMESTAMP WITH TIME ZONE        NOT NULL DEFAULT NOW()
  50 );
  51 CREATE INDEX non_cat_in_house_use_staff_idx ON action.non_cat_in_house_use ( staff );
  52
  53 CREATE TABLE action.survey (
  54         id              SERIAL                          PRIMARY KEY,
  55         owner           INT                             NOT NULL REFERENCES actor.org_unit (id) DEFERRABLE INITIALLY DEFERRED,
  56         start_date      TIMESTAMP WITH TIME ZONE        NOT NULL DEFAULT NOW(),
  57         end_date        TIMESTAMP WITH TIME ZONE        NOT NULL DEFAULT NOW() + '10 years'::INTERVAL,
  58         usr_summary     BOOL                            NOT NULL DEFAULT FALSE,
  59         opac            BOOL                            NOT NULL DEFAULT FALSE,
  60         poll            BOOL                            NOT NULL DEFAULT FALSE,
  61         required        BOOL                            NOT NULL DEFAULT FALSE,
  62         name            TEXT                            NOT NULL,
  63         description     TEXT                            NOT NULL
  64 );
  65 CREATE UNIQUE INDEX asv_once_per_owner_idx ON action.survey (owner,name);
  66
  67 CREATE TABLE action.survey_question (
  68         id              SERIAL  PRIMARY KEY,
  69         survey          INT     NOT NULL REFERENCES action.survey DEFERRABLE INITIALLY DEFERRED,
  70         question        TEXT    NOT NULL
  71 );
  72
  73 CREATE TABLE action.survey_answer (
  74         id              SERIAL  PRIMARY KEY,
  75         question        INT     NOT NULL REFERENCES action.survey_question DEFERRABLE INITIALLY DEFERRED,
  76         answer          TEXT    NOT NULL
  77 );
  78
  79 CREATE SEQUENCE action.survey_response_group_id_seq;
  80
  81 CREATE TABLE action.survey_response (
  82         id                      BIGSERIAL                       PRIMARY KEY,
  83         response_group_id       INT,
  84         usr                     INT, -- REFERENCES actor.usr
  85         survey                  INT                             NOT NULL REFERENCES action.survey DEFERRABLE INITIALLY DEFERRED,
  86         question                INT                             NOT NULL REFERENCES action.survey_question DEFERRABLE INITIALLY DEFERRED,
  87         answer                  INT                             NOT NULL REFERENCES action.survey_answer DEFERRABLE INITIALLY DEFERRED,
  88         answer_date             TIMESTAMP WITH TIME ZONE,
  89         effective_date          TIMESTAMP WITH TIME ZONE        NOT NULL DEFAULT NOW()
  90 );
  91 CREATE INDEX action_survey_response_usr_idx ON action.survey_response ( usr );
  92
  93 CREATE OR REPLACE FUNCTION action.survey_response_answer_date_fixup () RETURNS TRIGGER AS '
  94 BEGIN
  95         NEW.answer_date := NOW();
  96         RETURN NEW;
  97 END;
  98 ' LANGUAGE 'plpgsql';
  99 CREATE TRIGGER action_survey_response_answer_date_fixup_tgr
 100         BEFORE INSERT ON action.survey_response
 101         FOR EACH ROW
 102         EXECUTE PROCEDURE action.survey_response_answer_date_fixup ();
 103
 104
 105 CREATE TABLE action.circulation (
 106         target_copy             BIGINT                          NOT NULL, -- asset.copy.id
 107         circ_lib                INT                             NOT NULL, -- actor.org_unit.id
 108         circ_staff              INT                             NOT NULL, -- actor.usr.id
 109         checkin_staff           INT,                                      -- actor.usr.id
 110         checkin_lib             INT,                                      -- actor.org_unit.id
 111         renewal_remaining       INT                             NOT NULL, -- derived from "circ duration" rule
 112         due_date                TIMESTAMP WITH TIME ZONE,
 113         stop_fines_time         TIMESTAMP WITH TIME ZONE,
 114         checkin_time            TIMESTAMP WITH TIME ZONE,
 115         create_time             TIMESTAMP WITH TIME ZONE    NOT NULL DEFAULT NOW(),
 116         duration                INTERVAL,                                 -- derived from "circ duration" rule
 117         fine_interval           INTERVAL                        NOT NULL DEFAULT '1 day'::INTERVAL, -- derived from "circ fine" rule
 118         recurring_fine          NUMERIC(6,2),                             -- derived from "circ fine" rule
 119         max_fine                NUMERIC(6,2),                             -- derived from "max fine" rule
 120         phone_renewal           BOOL                            NOT NULL DEFAULT FALSE,
 121         desk_renewal            BOOL                            NOT NULL DEFAULT FALSE,
 122         opac_renewal            BOOL                            NOT NULL DEFAULT FALSE,
 123         duration_rule           TEXT                            NOT NULL, -- name of "circ duration" rule
 124         recurring_fine_rule     TEXT                            NOT NULL, -- name of "circ fine" rule
 125         max_fine_rule           TEXT                            NOT NULL, -- name of "max fine" rule
 126         stop_fines              TEXT                            CHECK (stop_fines IN (
 127                                                'CHECKIN','CLAIMSRETURNED','LOST','MAXFINES','RENEW','LONGOVERDUE','CLAIMSNEVERCHECKEDOUT')),
 128         workstation         INT        REFERENCES actor.workstation(id)
 129                                        ON DELETE SET NULL
 130                                                                    DEFERRABLE INITIALLY DEFERRED,
 131         checkin_workstation INT        REFERENCES actor.workstation(id)
 132                                        ON DELETE SET NULL
 133                                                                    DEFERRABLE INITIALLY DEFERRED,
 134         checkin_scan_time   TIMESTAMP WITH TIME ZONE
 135 ) INHERITS (money.billable_xact);
 136 ALTER TABLE action.circulation ADD PRIMARY KEY (id);
 137 ALTER TABLE action.circulation
 138         ADD COLUMN parent_circ BIGINT
 139         REFERENCES action.circulation( id )
 140         DEFERRABLE INITIALLY DEFERRED;
 141 CREATE INDEX circ_open_xacts_idx ON action.circulation (usr) WHERE xact_finish IS NULL;
 142 CREATE INDEX circ_outstanding_idx ON action.circulation (usr) WHERE checkin_time IS NULL;
 143 CREATE INDEX circ_checkin_time ON "action".circulation (checkin_time) WHERE checkin_time IS NOT NULL;
 144 CREATE INDEX circ_circ_lib_idx ON "action".circulation (circ_lib);
 145 CREATE INDEX circ_open_date_idx ON "action".circulation (xact_start) WHERE xact_finish IS NULL;
 146 CREATE INDEX circ_all_usr_idx       ON action.circulation ( usr );
 147 CREATE INDEX circ_circ_staff_idx    ON action.circulation ( circ_staff );
 148 CREATE INDEX circ_checkin_staff_idx ON action.circulation ( checkin_staff );
 149 CREATE UNIQUE INDEX circ_parent_idx ON action.circulation ( parent_circ ) WHERE parent_circ IS NOT NULL;
 150 CREATE UNIQUE INDEX only_one_concurrent_checkout_per_copy ON action.circulation(target_copy) WHERE checkin_time IS NULL;
 151
 152 CREATE TRIGGER mat_summary_create_tgr AFTER INSERT ON action.circulation FOR EACH ROW EXECUTE PROCEDURE money.mat_summary_create ('circulation');
 153 CREATE TRIGGER mat_summary_change_tgr AFTER UPDATE ON action.circulation FOR EACH ROW EXECUTE PROCEDURE money.mat_summary_update ();
 154 CREATE TRIGGER mat_summary_remove_tgr AFTER DELETE ON action.circulation FOR EACH ROW EXECUTE PROCEDURE money.mat_summary_delete ();
 155
 156 CREATE OR REPLACE FUNCTION action.push_circ_due_time () RETURNS TRIGGER AS $$
 157 BEGIN
 158     IF (EXTRACT(EPOCH FROM NEW.duration)::INT % EXTRACT(EPOCH FROM '1 day'::INTERVAL)::INT) = 0 THEN
 159         NEW.due_date = (NEW.due_date::DATE + '1 day'::INTERVAL - '1 second'::INTERVAL)::TIMESTAMPTZ;
 160     END IF;
 161
 162     RETURN NEW;
 163 END;
 164 $$ LANGUAGE PLPGSQL;
 165
 166 CREATE TRIGGER push_due_date_tgr BEFORE INSERT ON action.circulation FOR EACH ROW EXECUTE PROCEDURE action.push_circ_due_time();
 167
 168 CREATE TABLE action.aged_circulation (
 169         usr_post_code           TEXT,
 170         usr_home_ou             INT     NOT NULL,
 171         usr_profile             INT     NOT NULL,
 172         usr_birth_year          INT,
 173         copy_call_number        INT     NOT NULL,
 174         copy_location           INT     NOT NULL,
 175         copy_owning_lib         INT     NOT NULL,
 176         copy_circ_lib           INT     NOT NULL,
 177         copy_bib_record         BIGINT  NOT NULL,
 178         LIKE action.circulation
 179
 180 );
 181 ALTER TABLE action.aged_circulation ADD PRIMARY KEY (id);
 182 ALTER TABLE action.aged_circulation DROP COLUMN usr;
 183 CREATE INDEX aged_circ_circ_lib_idx ON "action".aged_circulation (circ_lib);
 184 CREATE INDEX aged_circ_start_idx ON "action".aged_circulation (xact_start);
 185 CREATE INDEX aged_circ_copy_circ_lib_idx ON "action".aged_circulation (copy_circ_lib);
 186 CREATE INDEX aged_circ_copy_owning_lib_idx ON "action".aged_circulation (copy_owning_lib);
 187 CREATE INDEX aged_circ_copy_location_idx ON "action".aged_circulation (copy_location);
 188
 189 CREATE OR REPLACE VIEW action.all_circulation AS
 190     SELECT  id,usr_post_code, usr_home_ou, usr_profile, usr_birth_year, copy_call_number, copy_location,
 191         copy_owning_lib, copy_circ_lib, copy_bib_record, xact_start, xact_finish, target_copy,
 192         circ_lib, circ_staff, checkin_staff, checkin_lib, renewal_remaining, due_date,
 193         stop_fines_time, checkin_time, create_time, duration, fine_interval, recurring_fine,
 194         max_fine, phone_renewal, desk_renewal, opac_renewal, duration_rule, recurring_fine_rule,
 195         max_fine_rule, stop_fines, workstation, checkin_workstation, checkin_scan_time, parent_circ
 196       FROM  action.aged_circulation
 197             UNION ALL
 198     SELECT  DISTINCT circ.id,COALESCE(a.post_code,b.post_code) AS usr_post_code, p.home_ou AS usr_home_ou, p.profile AS usr_profile, EXTRACT(YEAR FROM p.dob)::INT AS usr_birth_year,
 199         cp.call_number AS copy_call_number, cp.location AS copy_location, cn.owning_lib AS copy_owning_lib, cp.circ_lib AS copy_circ_lib,
 200         cn.record AS copy_bib_record, circ.xact_start, circ.xact_finish, circ.target_copy, circ.circ_lib, circ.circ_staff, circ.checkin_staff,
 201         circ.checkin_lib, circ.renewal_remaining, circ.due_date, circ.stop_fines_time, circ.checkin_time, circ.create_time, circ.duration,
 202         circ.fine_interval, circ.recurring_fine, circ.max_fine, circ.phone_renewal, circ.desk_renewal, circ.opac_renewal, circ.duration_rule,
 203         circ.recurring_fine_rule, circ.max_fine_rule, circ.stop_fines, circ.workstation, circ.checkin_workstation, circ.checkin_scan_time,
 204         circ.parent_circ
 205       FROM  action.circulation circ
 206         JOIN asset.copy cp ON (circ.target_copy = cp.id)
 207         JOIN asset.call_number cn ON (cp.call_number = cn.id)
 208         JOIN actor.usr p ON (circ.usr = p.id)
 209         LEFT JOIN actor.usr_address a ON (p.mailing_address = a.id)
 210         LEFT JOIN actor.usr_address b ON (p.billing_address = a.id);
 211
 212 CREATE OR REPLACE FUNCTION action.age_circ_on_delete () RETURNS TRIGGER AS $$
 213 DECLARE
 214 found char := 'N';
 215 BEGIN
 216
 217     -- If there are any renewals for this circulation, don't archive or delete
 218     -- it yet.   We'll do so later, when we archive and delete the renewals.
 219
 220     SELECT 'Y' INTO found
 221     FROM action.circulation
 222     WHERE parent_circ = OLD.id
 223     LIMIT 1;
 224
 225     IF found = 'Y' THEN
 226         RETURN NULL;  -- don't delete
 227         END IF;
 228
 229     -- Archive a copy of the old row to action.aged_circulation
 230
 231     INSERT INTO action.aged_circulation
 232         (id,usr_post_code, usr_home_ou, usr_profile, usr_birth_year, copy_call_number, copy_location,
 233         copy_owning_lib, copy_circ_lib, copy_bib_record, xact_start, xact_finish, target_copy,
 234         circ_lib, circ_staff, checkin_staff, checkin_lib, renewal_remaining, due_date,
 235         stop_fines_time, checkin_time, create_time, duration, fine_interval, recurring_fine,
 236         max_fine, phone_renewal, desk_renewal, opac_renewal, duration_rule, recurring_fine_rule,
 237         max_fine_rule, stop_fines, workstation, checkin_workstation, checkin_scan_time, parent_circ)
 238       SELECT
 239         id,usr_post_code, usr_home_ou, usr_profile, usr_birth_year, copy_call_number, copy_location,
 240         copy_owning_lib, copy_circ_lib, copy_bib_record, xact_start, xact_finish, target_copy,
 241         circ_lib, circ_staff, checkin_staff, checkin_lib, renewal_remaining, due_date,
 242         stop_fines_time, checkin_time, create_time, duration, fine_interval, recurring_fine,
 243         max_fine, phone_renewal, desk_renewal, opac_renewal, duration_rule, recurring_fine_rule,
 244         max_fine_rule, stop_fines, workstation, checkin_workstation, checkin_scan_time, parent_circ
 245         FROM action.all_circulation WHERE id = OLD.id;
 246
 247     RETURN OLD;
 248 END;
 249 $$ LANGUAGE 'plpgsql';
 250
 251 CREATE TRIGGER action_circulation_aging_tgr
 252         BEFORE DELETE ON action.circulation
 253         FOR EACH ROW
 254         EXECUTE PROCEDURE action.age_circ_on_delete ();
 255
 256
 257 CREATE OR REPLACE FUNCTION action.age_parent_circ_on_delete () RETURNS TRIGGER AS $$
 258 BEGIN
 259
 260     -- Having deleted a renewal, we can delete the original circulation (or a previous
 261     -- renewal, if that's what parent_circ is pointing to).  That deletion will trigger
 262     -- deletion of any prior parents, etc. recursively.
 263
 264     IF OLD.parent_circ IS NOT NULL THEN
 265         DELETE FROM action.circulation
 266         WHERE id = OLD.parent_circ;
 267     END IF;
 268
 269     RETURN OLD;
 270 END;
 271 $$ LANGUAGE 'plpgsql';
 272
 273 CREATE TRIGGER age_parent_circ
 274         AFTER DELETE ON action.circulation
 275         FOR EACH ROW
 276         EXECUTE PROCEDURE action.age_parent_circ_on_delete ();
 277
 278
 279 CREATE OR REPLACE VIEW action.open_circulation AS
 280         SELECT  *
 281           FROM  action.circulation
 282           WHERE checkin_time IS NULL
 283           ORDER BY due_date;
 284
 285
 286 CREATE OR REPLACE VIEW action.billable_circulations AS
 287         SELECT  *
 288           FROM  action.circulation
 289           WHERE xact_finish IS NULL;
 290
 291 CREATE VIEW stats.fleshed_circulation AS
 292         SELECT  c.*,
 293                 CAST(c.xact_start AS DATE) AS start_date_day,
 294                 CAST(c.xact_finish AS DATE) AS finish_date_day,
 295                 DATE_TRUNC('hour', c.xact_start) AS start_date_hour,
 296                 DATE_TRUNC('hour', c.xact_finish) AS finish_date_hour,
 297                 cp.call_number_label,
 298                 cp.owning_lib,
 299                 cp.item_lang,
 300                 cp.item_type,
 301                 cp.item_form
 302         FROM    "action".circulation c
 303                 JOIN stats.fleshed_copy cp ON (cp.id = c.target_copy);
 304
 305
 306 CREATE OR REPLACE FUNCTION action.circulation_claims_returned () RETURNS TRIGGER AS $$
 307 BEGIN
 308         IF OLD.stop_fines IS NULL OR OLD.stop_fines <> NEW.stop_fines THEN
 309                 IF NEW.stop_fines = 'CLAIMSRETURNED' THEN
 310                         UPDATE actor.usr SET claims_returned_count = claims_returned_count + 1 WHERE id = NEW.usr;
 311                 END IF;
 312                 IF NEW.stop_fines = 'CLAIMSNEVERCHECKEDOUT' THEN
 313                         UPDATE actor.usr SET claims_never_checked_out_count = claims_never_checked_out_count + 1 WHERE id = NEW.usr;
 314                 END IF;
 315                 IF NEW.stop_fines = 'LOST' THEN
 316                         UPDATE asset.copy SET status = 3 WHERE id = NEW.target_copy;
 317                 END IF;
 318         END IF;
 319         RETURN NEW;
 320 END;
 321 $$ LANGUAGE 'plpgsql';
 322 CREATE TRIGGER action_circulation_stop_fines_tgr
 323         BEFORE UPDATE ON action.circulation
 324         FOR EACH ROW
 325         EXECUTE PROCEDURE action.circulation_claims_returned ();
 326
 327 CREATE TABLE action.hold_request_cancel_cause (
 328     id      SERIAL  PRIMARY KEY,
 329     label   TEXT    UNIQUE
 330 );
 331 INSERT INTO action.hold_request_cancel_cause (id,label) VALUES (1,'Untargeted expiration');
 332 INSERT INTO action.hold_request_cancel_cause (id,label) VALUES (2,'Hold Shelf expiration');
 333 INSERT INTO action.hold_request_cancel_cause (id,label) VALUES (3,'Patron via phone');
 334 INSERT INTO action.hold_request_cancel_cause (id,label) VALUES (4,'Patron in person');
 335 INSERT INTO action.hold_request_cancel_cause (id,label) VALUES (5,'Staff forced');
 336 INSERT INTO action.hold_request_cancel_cause (id,label) VALUES (6,'Patron via OPAC');
 337 SELECT SETVAL('action.hold_request_cancel_cause_id_seq', 100);
 338
 339 CREATE TABLE action.hold_request (
 340         id                      SERIAL                          PRIMARY KEY,
 341         request_time            TIMESTAMP WITH TIME ZONE        NOT NULL DEFAULT NOW(),
 342         capture_time            TIMESTAMP WITH TIME ZONE,
 343         fulfillment_time        TIMESTAMP WITH TIME ZONE,
 344         checkin_time            TIMESTAMP WITH TIME ZONE,
 345         return_time             TIMESTAMP WITH TIME ZONE,
 346         prev_check_time         TIMESTAMP WITH TIME ZONE,
 347         expire_time             TIMESTAMP WITH TIME ZONE,
 348         cancel_time             TIMESTAMP WITH TIME ZONE,
 349         cancel_cause    INT REFERENCES action.hold_request_cancel_cause (id) ON DELETE SET NULL DEFERRABLE INITIALLY DEFERRED,
 350         cancel_note             TEXT,
 351         target                  BIGINT                          NOT NULL, -- see hold_type
 352         current_copy            BIGINT,                         -- REFERENCES asset.copy (id) ON DELETE SET NULL DEFERRABLE INITIALLY DEFERRED,  -- XXX could be an serial.unit now...
 353         fulfillment_staff       INT                             REFERENCES actor.usr (id) DEFERRABLE INITIALLY DEFERRED,
 354         fulfillment_lib         INT                             REFERENCES actor.org_unit (id) DEFERRABLE INITIALLY DEFERRED,
 355         request_lib             INT                             NOT NULL REFERENCES actor.org_unit (id) DEFERRABLE INITIALLY DEFERRED,
 356         requestor               INT                             NOT NULL REFERENCES actor.usr (id) DEFERRABLE INITIALLY DEFERRED,
 357         usr                     INT                             NOT NULL REFERENCES actor.usr (id) DEFERRABLE INITIALLY DEFERRED,
 358         selection_ou            INT                             NOT NULL,
 359         selection_depth         INT                             NOT NULL DEFAULT 0,
 360         pickup_lib              INT                             NOT NULL REFERENCES actor.org_unit DEFERRABLE INITIALLY DEFERRED,
 361         hold_type               TEXT                            NOT NULL, -- CHECK (hold_type IN ('M','T','V','C')),  -- XXX constraint too constraining...
 362         holdable_formats        TEXT,
 363         phone_notify            TEXT,
 364         email_notify            BOOL                            NOT NULL DEFAULT TRUE,
 365         frozen                  BOOL                            NOT NULL DEFAULT FALSE,
 366         thaw_date               TIMESTAMP WITH TIME ZONE,
 367         shelf_time              TIMESTAMP WITH TIME ZONE,
 368     cut_in_line     BOOL,
 369         mint_condition  BOOL NOT NULL DEFAULT TRUE,
 370         shelf_expire_time TIMESTAMPTZ
 371 );
 372
 373 CREATE INDEX hold_request_target_idx ON action.hold_request (target);
 374 CREATE INDEX hold_request_usr_idx ON action.hold_request (usr);
 375 CREATE INDEX hold_request_pickup_lib_idx ON action.hold_request (pickup_lib);
 376 CREATE INDEX hold_request_current_copy_idx ON action.hold_request (current_copy);
 377 CREATE INDEX hold_request_prev_check_time_idx ON action.hold_request (prev_check_time);
 378 CREATE INDEX hold_request_fulfillment_staff_idx ON action.hold_request ( fulfillment_staff );
 379 CREATE INDEX hold_request_requestor_idx         ON action.hold_request ( requestor );
 380
 381
 382 CREATE TABLE action.hold_request_note (
 383
 384     id     BIGSERIAL PRIMARY KEY,
 385     hold   BIGINT    NOT NULL REFERENCES action.hold_request (id)
 386                               ON DELETE CASCADE
 387                               DEFERRABLE INITIALLY DEFERRED,
 388     title  TEXT      NOT NULL,
 389     body   TEXT      NOT NULL,
 390     slip   BOOL      NOT NULL DEFAULT FALSE,
 391     pub    BOOL      NOT NULL DEFAULT FALSE,
 392     staff  BOOL      NOT NULL DEFAULT FALSE  -- created by staff
 393
 394 );
 395 CREATE INDEX ahrn_hold_idx ON action.hold_request_note (hold);
 396
 397
 398 CREATE TABLE action.hold_notification (
 399         id              SERIAL                          PRIMARY KEY,
 400         hold            INT                             NOT NULL REFERENCES action.hold_request (id)
 401                                                                         ON DELETE CASCADE
 402                                                                         DEFERRABLE INITIALLY DEFERRED,
 403         notify_staff    INT                     REFERENCES actor.usr (id) DEFERRABLE INITIALLY DEFERRED,
 404         notify_time     TIMESTAMP WITH TIME ZONE        NOT NULL DEFAULT NOW(),
 405         method          TEXT                            NOT NULL, -- email address or phone number
 406         note            TEXT
 407 );
 408 CREATE INDEX ahn_hold_idx ON action.hold_notification (hold);
 409 CREATE INDEX ahn_notify_staff_idx ON action.hold_notification ( notify_staff );
 410
 411 CREATE TABLE action.hold_copy_map (
 412         id              SERIAL  PRIMARY KEY,
 413         hold            INT     NOT NULL REFERENCES action.hold_request (id) ON DELETE CASCADE DEFERRABLE INITIALLY DEFERRED,
 414         target_copy     BIGINT  NOT NULL, -- REFERENCES asset.copy (id) ON DELETE CASCADE DEFERRABLE INITIALLY DEFERRED, -- XXX could be an serial.issuance
 415         CONSTRAINT copy_once_per_hold UNIQUE (hold,target_copy)
 416 );
 417 -- CREATE INDEX acm_hold_idx ON action.hold_copy_map (hold);
 418 CREATE INDEX acm_copy_idx ON action.hold_copy_map (target_copy);
 419
 420 CREATE TABLE action.transit_copy (
 421         id                      SERIAL                          PRIMARY KEY,
 422         source_send_time        TIMESTAMP WITH TIME ZONE,
 423         dest_recv_time          TIMESTAMP WITH TIME ZONE,
 424         target_copy             BIGINT                          NOT NULL, -- REFERENCES asset.copy (id) ON DELETE CASCADE DEFERRABLE INITIALLY DEFERRED, -- XXX could be an serial.issuance
 425         source                  INT                             NOT NULL REFERENCES actor.org_unit (id) DEFERRABLE INITIALLY DEFERRED,
 426         dest                    INT                             NOT NULL REFERENCES actor.org_unit (id) DEFERRABLE INITIALLY DEFERRED,
 427         prev_hop                INT                             REFERENCES action.transit_copy (id) DEFERRABLE INITIALLY DEFERRED,
 428         copy_status             INT                             NOT NULL REFERENCES config.copy_status (id) DEFERRABLE INITIALLY DEFERRED,
 429         persistant_transfer     BOOL                            NOT NULL DEFAULT FALSE,
 430         prev_dest       INT                             REFERENCES actor.org_unit (id) DEFERRABLE INITIALLY DEFERRED
 431 );
 432 CREATE INDEX active_transit_dest_idx ON "action".transit_copy (dest);
 433 CREATE INDEX active_transit_source_idx ON "action".transit_copy (source);
 434 CREATE INDEX active_transit_cp_idx ON "action".transit_copy (target_copy);
 435
 436
 437 CREATE TABLE action.hold_transit_copy (
 438         hold    INT     REFERENCES action.hold_request (id) ON DELETE SET NULL DEFERRABLE INITIALLY DEFERRED
 439 ) INHERITS (action.transit_copy);
 440 ALTER TABLE action.hold_transit_copy ADD PRIMARY KEY (id);
 441 -- ALTER TABLE action.hold_transit_copy ADD CONSTRAINT ahtc_tc_fkey FOREIGN KEY (target_copy) REFERENCES asset.copy (id) ON DELETE CASCADE DEFERRABLE INITIALLY DEFERRED; -- XXX could be an serial.issuance
 442 CREATE INDEX active_hold_transit_dest_idx ON "action".hold_transit_copy (dest);
 443 CREATE INDEX active_hold_transit_source_idx ON "action".hold_transit_copy (source);
 444 CREATE INDEX active_hold_transit_cp_idx ON "action".hold_transit_copy (target_copy);
 445
 446
 447 CREATE TABLE action.unfulfilled_hold_list (
 448         id              BIGSERIAL                       PRIMARY KEY,
 449         current_copy    BIGINT                          NOT NULL,
 450         hold            INT                             NOT NULL,
 451         circ_lib        INT                             NOT NULL,
 452         fail_time       TIMESTAMP WITH TIME ZONE        NOT NULL DEFAULT NOW()
 453 );
 454 CREATE INDEX uhr_hold_idx ON action.unfulfilled_hold_list (hold);
 455
 456 CREATE OR REPLACE VIEW action.unfulfilled_hold_loops AS
 457     SELECT  u.hold,
 458             c.circ_lib,
 459             count(*)
 460       FROM  action.unfulfilled_hold_list u
 461             JOIN asset.copy c ON (c.id = u.current_copy)
 462       GROUP BY 1,2;
 463
 464 CREATE OR REPLACE VIEW action.unfulfilled_hold_min_loop AS
 465     SELECT  hold,
 466             min(count)
 467       FROM  action.unfulfilled_hold_loops
 468       GROUP BY 1;
 469
 470 CREATE OR REPLACE VIEW action.unfulfilled_hold_innermost_loop AS
 471     SELECT  DISTINCT l.*
 472       FROM  action.unfulfilled_hold_loops l
 473             JOIN action.unfulfilled_hold_min_loop m USING (hold)
 474       WHERE l.count = m.min;
 475
 476 CREATE VIEW action.unfulfilled_hold_max_loop AS
 477     SELECT  hold,
 478             max(count) AS max
 479       FROM  action.unfulfilled_hold_loops
 480       GROUP BY 1;
 481
 482
 483 -- represents a circ chain summary
 484 CREATE TYPE action.circ_chain_summary AS (
 485     num_circs INTEGER,
 486     start_time TIMESTAMP WITH TIME ZONE,
 487     checkout_workstation TEXT,
 488     last_renewal_time TIMESTAMP WITH TIME ZONE, -- NULL if no renewals
 489     last_stop_fines TEXT,
 490     last_stop_fines_time TIMESTAMP WITH TIME ZONE,
 491     last_renewal_workstation TEXT, -- NULL if no renewals
 492     last_checkin_workstation TEXT,
 493     last_checkin_time TIMESTAMP WITH TIME ZONE,
 494     last_checkin_scan_time TIMESTAMP WITH TIME ZONE
 495 );
 496
 497
 498 CREATE OR REPLACE FUNCTION action.circ_chain ( ctx_circ_id INTEGER ) RETURNS SETOF action.circulation AS $$
 499 DECLARE
 500     tmp_circ action.circulation%ROWTYPE;
 501     circ_0 action.circulation%ROWTYPE;
 502 BEGIN
 503
 504     SELECT INTO tmp_circ * FROM action.circulation WHERE id = ctx_circ_id;
 505
 506     IF tmp_circ IS NULL THEN
 507         RETURN NEXT tmp_circ;
 508     END IF;
 509     circ_0 := tmp_circ;
 510
 511     -- find the front of the chain
 512     WHILE TRUE LOOP
 513         SELECT INTO tmp_circ * FROM action.circulation WHERE id = tmp_circ.parent_circ;
 514         IF tmp_circ IS NULL THEN
 515             EXIT;
 516         END IF;
 517         circ_0 := tmp_circ;
 518     END LOOP;
 519
 520     -- now send the circs to the caller, oldest to newest
 521     tmp_circ := circ_0;
 522     WHILE TRUE LOOP
 523         IF tmp_circ IS NULL THEN
 524             EXIT;
 525         END IF;
 526         RETURN NEXT tmp_circ;
 527         SELECT INTO tmp_circ * FROM action.circulation WHERE parent_circ = tmp_circ.id;
 528     END LOOP;
 529
 530 END;
 531 $$ LANGUAGE 'plpgsql';
 532
 533 CREATE OR REPLACE FUNCTION action.summarize_circ_chain ( ctx_circ_id INTEGER ) RETURNS action.circ_chain_summary AS $$
 534
 535 DECLARE
 536
 537     -- first circ in the chain
 538     circ_0 action.circulation%ROWTYPE;
 539
 540     -- last circ in the chain
 541     circ_n action.circulation%ROWTYPE;
 542
 543     -- circ chain under construction
 544     chain action.circ_chain_summary;
 545     tmp_circ action.circulation%ROWTYPE;
 546
 547 BEGIN
 548
 549     chain.num_circs := 0;
 550     FOR tmp_circ IN SELECT * FROM action.circ_chain(ctx_circ_id) LOOP
 551
 552         IF chain.num_circs = 0 THEN
 553             circ_0 := tmp_circ;
 554         END IF;
 555
 556         chain.num_circs := chain.num_circs + 1;
 557         circ_n := tmp_circ;
 558     END LOOP;
 559
 560     chain.start_time := circ_0.xact_start;
 561     chain.last_stop_fines := circ_n.stop_fines;
 562     chain.last_stop_fines_time := circ_n.stop_fines_time;
 563     chain.last_checkin_time := circ_n.checkin_time;
 564     chain.last_checkin_scan_time := circ_n.checkin_scan_time;
 565     SELECT INTO chain.checkout_workstation name FROM actor.workstation WHERE id = circ_0.workstation;
 566     SELECT INTO chain.last_checkin_workstation name FROM actor.workstation WHERE id = circ_n.checkin_workstation;
 567
 568     IF chain.num_circs > 1 THEN
 569         chain.last_renewal_time := circ_n.xact_start;
 570         SELECT INTO chain.last_renewal_workstation name FROM actor.workstation WHERE id = circ_n.workstation;
 571     END IF;
 572
 573     RETURN chain;
 574
 575 END;
 576 $$ LANGUAGE 'plpgsql';
 577
 578 -- Return the list of circ chain heads in xact_start order that the user has chosen to "retain"
 579 CREATE OR REPLACE FUNCTION action.usr_visible_circs (usr_id INT) RETURNS SETOF action.circulation AS $func$
 580 DECLARE
 581     c               action.circulation%ROWTYPE;
 582     view_age        INTERVAL;
 583     usr_view_age    actor.usr_setting%ROWTYPE;
 584     usr_view_start  actor.usr_setting%ROWTYPE;
 585 BEGIN
 586     SELECT * INTO usr_view_age FROM actor.usr_setting WHERE usr = usr_id AND name = 'history.circ.retention_age';
 587     SELECT * INTO usr_view_start FROM actor.usr_setting WHERE usr = usr_id AND name = 'history.circ.retention_start';
 588
 589     IF usr_view_age.value IS NOT NULL AND usr_view_start.value IS NOT NULL THEN
 590         -- User opted in and supplied a retention age
 591         IF oils_json_to_text(usr_view_age.value)::INTERVAL > AGE(NOW(), oils_json_to_text(usr_view_start.value)::TIMESTAMPTZ) THEN
 592             view_age := AGE(NOW(), oils_json_to_text(usr_view_start.value)::TIMESTAMPTZ);
 593         ELSE
 594             view_age := oils_json_to_text(usr_view_age.value)::INTERVAL;
 595         END IF;
 596     ELSIF usr_view_start.value IS NOT NULL THEN
 597         -- User opted in
 598         view_age := AGE(NOW(), oils_json_to_text(usr_view_start.value)::TIMESTAMPTZ);
 599     ELSE
 600         -- User did not opt in
 601         RETURN;
 602     END IF;
 603
 604     FOR c IN
 605         SELECT  *
 606           FROM  action.circulation
 607           WHERE usr = usr_id
 608                 AND parent_circ IS NULL
 609                 AND xact_start > NOW() - view_age
 610           ORDER BY xact_start
 611     LOOP
 612         RETURN NEXT c;
 613     END LOOP;
 614
 615     RETURN;
 616 END;
 617 $func$ LANGUAGE PLPGSQL;
 618
 619 CREATE OR REPLACE FUNCTION action.usr_visible_circ_copies( user_id INTEGER ) RETURNS SETOF INTEGER AS $$
 620     DECLARE
 621         copy INTEGER;
 622     BEGIN
 623         FOR copy IN SELECT DISTINCT(target_copy) FROM action.usr_visible_circs(user_id) LOOP
 624             RETURN NEXT copy;
 625         END LOOP;
 626     END;
 627 $$ LANGUAGE plpgsql;
 628
 629 CREATE OR REPLACE FUNCTION action.usr_visible_holds (usr_id INT) RETURNS SETOF action.hold_request AS $func$
 630 DECLARE
 631     h               action.hold_request%ROWTYPE;
 632     view_age        INTERVAL;
 633     view_count      INT;
 634     usr_view_count  actor.usr_setting%ROWTYPE;
 635     usr_view_age    actor.usr_setting%ROWTYPE;
 636     usr_view_start  actor.usr_setting%ROWTYPE;
 637 BEGIN
 638     SELECT * INTO usr_view_count FROM actor.usr_setting WHERE usr = usr_id AND name = 'history.hold.retention_count';
 639     SELECT * INTO usr_view_age FROM actor.usr_setting WHERE usr = usr_id AND name = 'history.hold.retention_age';
 640     SELECT * INTO usr_view_start FROM actor.usr_setting WHERE usr = usr_id AND name = 'history.hold.retention_start';
 641
 642     FOR h IN
 643         SELECT  *
 644           FROM  action.hold_request
 645           WHERE usr = usr_id
 646                 AND fulfillment_time IS NULL
 647                 AND cancel_time IS NULL
 648           ORDER BY request_time DESC
 649     LOOP
 650         RETURN NEXT h;
 651     END LOOP;
 652
 653     IF usr_view_start.value IS NULL THEN
 654         RETURN;
 655     END IF;
 656
 657     IF usr_view_age.value IS NOT NULL THEN
 658         -- User opted in and supplied a retention age
 659         IF oils_json_to_string(usr_view_age.value)::INTERVAL > AGE(NOW(), oils_json_to_string(usr_view_start.value)::TIMESTAMPTZ) THEN
 660             view_age := AGE(NOW(), oils_json_to_string(usr_view_start.value)::TIMESTAMPTZ);
 661         ELSE
 662             view_age := oils_json_to_string(usr_view_age.value)::INTERVAL;
 663         END IF;
 664     ELSE
 665         -- User opted in
 666         view_age := AGE(NOW(), oils_json_to_string(usr_view_start.value)::TIMESTAMPTZ);
 667     END IF;
 668
 669     IF usr_view_count.value IS NOT NULL THEN
 670         view_count := oils_json_to_text(usr_view_count.value)::INT;
 671     ELSE
 672         view_count := 1000;
 673     END IF;
 674
 675     -- show some fulfilled/canceled holds
 676     FOR h IN
 677         SELECT  *
 678           FROM  action.hold_request
 679           WHERE usr = usr_id
 680                 AND ( fulfillment_time IS NOT NULL OR cancel_time IS NOT NULL )
 681                 AND request_time > NOW() - view_age
 682           ORDER BY request_time DESC
 683           LIMIT view_count
 684     LOOP
 685         RETURN NEXT h;
 686     END LOOP;
 687
 688     RETURN;
 689 END;
 690 $func$ LANGUAGE PLPGSQL;
 691
 692 CREATE OR REPLACE FUNCTION action.purge_circulations () RETURNS INT AS $func$
 693 DECLARE
 694     usr_keep_age    actor.usr_setting%ROWTYPE;
 695     usr_keep_start  actor.usr_setting%ROWTYPE;
 696     org_keep_age    INTERVAL;
 697     org_keep_count  INT;
 698
 699     keep_age        INTERVAL;
 700
 701     target_acp      RECORD;
 702     circ_chain_head action.circulation%ROWTYPE;
 703     circ_chain_tail action.circulation%ROWTYPE;
 704
 705     purge_position  INT;
 706     count_purged    INT;
 707 BEGIN
 708
 709     count_purged := 0;
 710
 711     SELECT value::INTERVAL INTO org_keep_age FROM config.global_flag WHERE name = 'history.circ.retention_age' AND enabled;
 712
 713     SELECT value::INT INTO org_keep_count FROM config.global_flag WHERE name = 'history.circ.retention_count' AND enabled;
 714     IF org_keep_count IS NULL THEN
 715         RETURN count_purged; -- Gimme a count to keep, or I keep them all, forever
 716     END IF;
 717
 718     -- First, find copies with more than keep_count non-renewal circs
 719     FOR target_acp IN
 720         SELECT  target_copy,
 721                 COUNT(*) AS total_real_circs
 722           FROM  action.circulation
 723           WHERE parent_circ IS NULL
 724                 AND xact_finish IS NOT NULL
 725           GROUP BY target_copy
 726           HAVING COUNT(*) > org_keep_count
 727     LOOP
 728         purge_position := 0;
 729         -- And, for those, select circs that are finished and older than keep_age
 730         FOR circ_chain_head IN
 731             SELECT  *
 732               FROM  action.circulation
 733               WHERE target_copy = target_acp.target_copy
 734                     AND parent_circ IS NULL
 735               ORDER BY xact_start
 736         LOOP
 737
 738             -- Stop once we've purged enough circs to hit org_keep_count
 739             EXIT WHEN target_acp.total_real_circs - purge_position <= org_keep_count;
 740
 741             SELECT * INTO circ_chain_tail FROM action.circ_chain(circ_chain_head.id) ORDER BY xact_start DESC LIMIT 1;
 742             EXIT WHEN circ_chain_tail.xact_finish IS NULL;
 743
 744             -- Now get the user setings, if any, to block purging if the user wants to keep more circs
 745             usr_keep_age.value := NULL;
 746             SELECT * INTO usr_keep_age FROM actor.usr_setting WHERE usr = circ_chain_head.usr AND name = 'history.circ.retention_age';
 747
 748             usr_keep_start.value := NULL;
 749             SELECT * INTO usr_keep_start FROM actor.usr_setting WHERE usr = circ_chain_head.usr AND name = 'history.circ.retention_start';
 750
 751             IF usr_keep_age.value IS NOT NULL AND usr_keep_start.value IS NOT NULL THEN
 752                 IF oils_json_to_text(usr_keep_age.value)::INTERVAL > AGE(NOW(), oils_json_to_text(usr_keep_start.value)::TIMESTAMPTZ) THEN
 753                     keep_age := AGE(NOW(), oils_json_to_text(usr_keep_start.value)::TIMESTAMPTZ);
 754                 ELSE
 755                     keep_age := oils_json_to_text(usr_keep_age.value)::INTERVAL;
 756                 END IF;
 757             ELSIF usr_keep_start.value IS NOT NULL THEN
 758                 keep_age := AGE(NOW(), oils_json_to_text(usr_keep_start.value)::TIMESTAMPTZ);
 759             ELSE
 760                 keep_age := COALESCE( org_keep_age::INTERVAL, '2000 years'::INTEVAL );
 761             END IF;
 762
 763             EXIT WHEN AGE(NOW(), circ_chain_tail.xact_finish) < keep_age;
 764
 765             -- We've passed the purging tests, purge the circ chain starting at the end
 766             DELETE FROM action.circulation WHERE id = circ_chain_tail.id;
 767             WHILE circ_chain_tail.parent_circ IS NOT NULL LOOP
 768                 SELECT * INTO circ_chain_tail FROM action.circulation WHERE id = circ_chain_tail.parent_circ;
 769                 DELETE FROM action.circulation WHERE id = circ_chain_tail.id;
 770             END LOOP;
 771
 772             count_purged := count_purged + 1;
 773             purge_position := purge_position + 1;
 774
 775         END LOOP;
 776     END LOOP;
 777 END;
 778 $func$ LANGUAGE PLPGSQL;
 779
 780
 781 COMMIT;
 782