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 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,
  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
  32 CREATE TABLE action.non_cataloged_circulation (
  33         id              SERIAL                          PRIMARY KEY,
  34         patron          INT                             NOT NULL REFERENCES actor.usr (id) DEFERRABLE INITIALLY DEFERRED,
  35         staff           INT                             NOT NULL REFERENCES actor.usr (id) DEFERRABLE INITIALLY DEFERRED,
  36         circ_lib        INT                             NOT NULL REFERENCES actor.org_unit (id) DEFERRABLE INITIALLY DEFERRED,
  37         item_type       INT                             NOT NULL REFERENCES config.non_cataloged_type (id) DEFERRABLE INITIALLY DEFERRED,
  38         circ_time       TIMESTAMP WITH TIME ZONE        NOT NULL DEFAULT NOW()
  39 );
  40
  41 CREATE TABLE action.non_cat_in_house_use (
  42         id              SERIAL                          PRIMARY KEY,
  43         item_type       BIGINT                          NOT NULL REFERENCES config.non_cataloged_type(id) DEFERRABLE INITIALLY DEFERRED,
  44         staff           INT                             NOT NULL REFERENCES actor.usr (id) DEFERRABLE INITIALLY DEFERRED,
  45         org_unit        INT                             NOT NULL REFERENCES actor.org_unit (id) DEFERRABLE INITIALLY DEFERRED,
  46         use_time        TIMESTAMP WITH TIME ZONE        NOT NULL DEFAULT NOW()
  47 );
  48
  49 CREATE TABLE action.survey (
  50         id              SERIAL                          PRIMARY KEY,
  51         owner           INT                             NOT NULL REFERENCES actor.org_unit (id) DEFERRABLE INITIALLY DEFERRED,
  52         start_date      TIMESTAMP WITH TIME ZONE        NOT NULL DEFAULT NOW(),
  53         end_date        TIMESTAMP WITH TIME ZONE        NOT NULL DEFAULT NOW() + '10 years'::INTERVAL,
  54         usr_summary     BOOL                            NOT NULL DEFAULT FALSE,
  55         opac            BOOL                            NOT NULL DEFAULT FALSE,
  56         poll            BOOL                            NOT NULL DEFAULT FALSE,
  57         required        BOOL                            NOT NULL DEFAULT FALSE,
  58         name            TEXT                            NOT NULL,
  59         description     TEXT                            NOT NULL
  60 );
  61 CREATE UNIQUE INDEX asv_once_per_owner_idx ON action.survey (owner,name);
  62
  63 CREATE TABLE action.survey_question (
  64         id              SERIAL  PRIMARY KEY,
  65         survey          INT     NOT NULL REFERENCES action.survey DEFERRABLE INITIALLY DEFERRED,
  66         question        TEXT    NOT NULL
  67 );
  68
  69 CREATE TABLE action.survey_answer (
  70         id              SERIAL  PRIMARY KEY,
  71         question        INT     NOT NULL REFERENCES action.survey_question DEFERRABLE INITIALLY DEFERRED,
  72         answer          TEXT    NOT NULL
  73 );
  74
  75 CREATE SEQUENCE action.survey_response_group_id_seq;
  76
  77 CREATE TABLE action.survey_response (
  78         id                      BIGSERIAL                       PRIMARY KEY,
  79         response_group_id       INT,
  80         usr                     INT, -- REFERENCES actor.usr
  81         survey                  INT                             NOT NULL REFERENCES action.survey DEFERRABLE INITIALLY DEFERRED,
  82         question                INT                             NOT NULL REFERENCES action.survey_question DEFERRABLE INITIALLY DEFERRED,
  83         answer                  INT                             NOT NULL REFERENCES action.survey_answer DEFERRABLE INITIALLY DEFERRED,
  84         answer_date             TIMESTAMP WITH TIME ZONE,
  85         effective_date          TIMESTAMP WITH TIME ZONE        NOT NULL DEFAULT NOW()
  86 );
  87 CREATE OR REPLACE FUNCTION action.survey_response_answer_date_fixup () RETURNS TRIGGER AS '
  88 BEGIN
  89         NEW.answer_date := NOW();
  90         RETURN NEW;
  91 END;
  92 ' LANGUAGE 'plpgsql';
  93 CREATE TRIGGER action_survey_response_answer_date_fixup_tgr
  94         BEFORE INSERT ON action.survey_response
  95         FOR EACH ROW
  96         EXECUTE PROCEDURE action.survey_response_answer_date_fixup ();
  97
  98
  99 CREATE TABLE action.circulation (
 100         target_copy             BIGINT                          NOT NULL, -- asset.copy.id
 101         circ_lib                INT                             NOT NULL, -- actor.org_unit.id
 102         circ_staff              INT                             NOT NULL, -- actor.usr.id
 103         checkin_staff           INT,                                      -- actor.usr.id
 104         checkin_lib             INT,                                      -- actor.org_unit.id
 105         renewal_remaining       INT                             NOT NULL, -- derived from "circ duration" rule
 106         due_date                TIMESTAMP WITH TIME ZONE,
 107         stop_fines_time         TIMESTAMP WITH TIME ZONE,
 108         checkin_time            TIMESTAMP WITH TIME ZONE,
 109         create_time             TIMESTAMP WITH TIME ZONE    NOT NULL DEFAULT NOW(),
 110         duration                INTERVAL,                                 -- derived from "circ duration" rule
 111         fine_interval           INTERVAL                        NOT NULL DEFAULT '1 day'::INTERVAL, -- derived from "circ fine" rule
 112         recuring_fine           NUMERIC(6,2),                             -- derived from "circ fine" rule
 113         max_fine                NUMERIC(6,2),                             -- derived from "max fine" rule
 114         phone_renewal           BOOL                            NOT NULL DEFAULT FALSE,
 115         desk_renewal            BOOL                            NOT NULL DEFAULT FALSE,
 116         opac_renewal            BOOL                            NOT NULL DEFAULT FALSE,
 117         duration_rule           TEXT                            NOT NULL, -- name of "circ duration" rule
 118         recuring_fine_rule      TEXT                            NOT NULL, -- name of "circ fine" rule
 119         max_fine_rule           TEXT                            NOT NULL, -- name of "max fine" rule
 120         stop_fines              TEXT                            CHECK (stop_fines IN ('CHECKIN','CLAIMSRETURNED','LOST','MAXFINES','RENEW','LONGOVERDUE'))
 121 ) INHERITS (money.billable_xact);
 122 ALTER TABLE action.circulation ADD PRIMARY KEY (id);
 123 CREATE INDEX circ_open_xacts_idx ON action.circulation (usr) WHERE xact_finish IS NULL;
 124 CREATE INDEX circ_outstanding_idx ON action.circulation (usr) WHERE checkin_time IS NULL;
 125 CREATE INDEX circ_checkin_time ON "action".circulation (checkin_time) WHERE checkin_time IS NOT NULL;
 126 CREATE INDEX circ_circ_lib_idx ON "action".circulation (circ_lib);
 127 CREATE INDEX circ_open_date_idx ON "action".circulation (xact_start) WHERE xact_finish IS NULL;
 128
 129 CREATE TRIGGER mat_summary_create_tgr AFTER INSERT ON action.circulation FOR EACH ROW EXECUTE PROCEDURE money.mat_summary_create ();
 130 CREATE TRIGGER mat_summary_change_tgr AFTER UPDATE ON action.circulation FOR EACH ROW EXECUTE PROCEDURE money.mat_summary_update ();
 131 CREATE TRIGGER mat_summary_remove_tgr AFTER DELETE ON action.circulation FOR EACH ROW EXECUTE PROCEDURE money.mat_summary_delete ();
 132
 133
 134 CREATE TABLE action.aged_circulation (
 135         usr_post_code           TEXT,
 136         usr_home_ou             INT     NOT NULL,
 137         usr_profile             INT     NOT NULL,
 138         usr_birth_year          INT,
 139         copy_call_number        INT     NOT NULL,
 140         copy_location           INT     NOT NULL,
 141         copy_owning_lib         INT     NOT NULL,
 142         copy_circ_lib           INT     NOT NULL,
 143         copy_bib_record         BIGINT  NOT NULL,
 144         LIKE action.circulation
 145
 146 );
 147 ALTER TABLE action.aged_circulation ADD PRIMARY KEY (id);
 148 ALTER TABLE action.aged_circulation DROP COLUMN usr;
 149 CREATE INDEX aged_circ_circ_lib_idx ON "action".aged_circulation (circ_lib);
 150 CREATE INDEX aged_circ_start_idx ON "action".aged_circulation (xact_start);
 151 CREATE INDEX aged_circ_copy_circ_lib_idx ON "action".aged_circulation (copy_circ_lib);
 152 CREATE INDEX aged_circ_copy_owning_lib_idx ON "action".aged_circulation (copy_owning_lib);
 153 CREATE INDEX aged_circ_copy_location_idx ON "action".aged_circulation (copy_location);
 154
 155 CREATE OR REPLACE VIEW action.all_circulation AS
 156         SELECT  id,usr_post_code, usr_home_ou, usr_profile, usr_birth_year, copy_call_number, copy_location,
 157                 copy_owning_lib, copy_circ_lib, copy_bib_record, xact_start, xact_finish, target_copy,
 158                 circ_lib, circ_staff, checkin_staff, checkin_lib, renewal_remaining, due_date,
 159                 stop_fines_time, checkin_time, create_time, duration, fine_interval, recuring_fine,
 160                 max_fine, phone_renewal, desk_renewal, opac_renewal, duration_rule, recuring_fine_rule,
 161                 max_fine_rule, stop_fines
 162           FROM  action.aged_circulation
 163                         UNION ALL
 164         SELECT  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,
 165                 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,
 166                 cn.record AS copy_bib_record, circ.xact_start, circ.xact_finish, circ.target_copy, circ.circ_lib, circ.circ_staff, circ.checkin_staff,
 167                 circ.checkin_lib, circ.renewal_remaining, circ.due_date, circ.stop_fines_time, circ.checkin_time, circ.create_time, circ.duration,
 168                 circ.fine_interval, circ.recuring_fine, circ.max_fine, circ.phone_renewal, circ.desk_renewal, circ.opac_renewal, circ.duration_rule,
 169                 circ.recuring_fine_rule, circ.max_fine_rule, circ.stop_fines
 170           FROM  action.circulation circ
 171                 JOIN asset.copy cp ON (circ.target_copy = cp.id)
 172                 JOIN asset.call_number cn ON (cp.call_number = cn.id)
 173                 JOIN actor.usr p ON (circ.usr = p.id)
 174                 LEFT JOIN actor.usr_address a ON (p.mailing_address = a.id)
 175                 LEFT JOIN actor.usr_address b ON (p.billing_address = a.id);
 176
 177 CREATE OR REPLACE FUNCTION action.age_circ_on_delete () RETURNS TRIGGER AS $$
 178 BEGIN
 179         INSERT INTO action.aged_circulation
 180                 (id,usr_post_code, usr_home_ou, usr_profile, usr_birth_year, copy_call_number, copy_location,
 181                 copy_owning_lib, copy_circ_lib, copy_bib_record, xact_start, xact_finish, target_copy,
 182                 circ_lib, circ_staff, checkin_staff, checkin_lib, renewal_remaining, due_date,
 183                 stop_fines_time, checkin_time, create_time, duration, fine_interval, recuring_fine,
 184                 max_fine, phone_renewal, desk_renewal, opac_renewal, duration_rule, recuring_fine_rule,
 185                 max_fine_rule, stop_fines)
 186           SELECT
 187                 id,usr_post_code, usr_home_ou, usr_profile, usr_birth_year, copy_call_number, copy_location,
 188                 copy_owning_lib, copy_circ_lib, copy_bib_record, xact_start, xact_finish, target_copy,
 189                 circ_lib, circ_staff, checkin_staff, checkin_lib, renewal_remaining, due_date,
 190                 stop_fines_time, checkin_time, create_time, duration, fine_interval, recuring_fine,
 191                 max_fine, phone_renewal, desk_renewal, opac_renewal, duration_rule, recuring_fine_rule,
 192                 max_fine_rule, stop_fines
 193             FROM action.all_circulation WHERE id = OLD.id;
 194
 195         RETURN OLD;
 196 END;
 197 $$ LANGUAGE 'plpgsql';
 198
 199 CREATE TRIGGER action_circulation_aging_tgr
 200         BEFORE DELETE ON action.circulation
 201         FOR EACH ROW
 202         EXECUTE PROCEDURE action.age_circ_on_delete ();
 203
 204
 205 CREATE OR REPLACE VIEW action.open_circulation AS
 206         SELECT  *
 207           FROM  action.circulation
 208           WHERE checkin_time IS NULL
 209           ORDER BY due_date;
 210
 211
 212 CREATE OR REPLACE VIEW action.billable_cirulations AS
 213         SELECT  *
 214           FROM  action.circulation
 215           WHERE xact_finish IS NULL;
 216
 217 CREATE VIEW stats.fleshed_circulation AS
 218         SELECT  c.*,
 219                 CAST(c.xact_start AS DATE) AS start_date_day,
 220                 CAST(c.xact_finish AS DATE) AS finish_date_day,
 221                 DATE_TRUNC('hour', c.xact_start) AS start_date_hour,
 222                 DATE_TRUNC('hour', c.xact_finish) AS finish_date_hour,
 223                 cp.call_number_label,
 224                 cp.owning_lib,
 225                 cp.item_lang,
 226                 cp.item_type,
 227                 cp.item_form
 228         FROM    "action".circulation c
 229                 JOIN stats.fleshed_copy cp ON (cp.id = c.target_copy);
 230
 231
 232 CREATE OR REPLACE FUNCTION action.circulation_claims_returned () RETURNS TRIGGER AS $$
 233 BEGIN
 234         IF OLD.stop_fines IS NULL OR OLD.stop_fines <> NEW.stop_fines THEN
 235                 IF NEW.stop_fines = 'CLAIMSRETURNED' THEN
 236                         UPDATE actor.usr SET claims_returned_count = claims_returned_count + 1 WHERE id = NEW.usr;
 237                 END IF;
 238                 IF NEW.stop_fines = 'LOST' THEN
 239                         UPDATE asset.copy SET status = 3 WHERE id = NEW.target_copy;
 240                 END IF;
 241         END IF;
 242         RETURN NEW;
 243 END;
 244 $$ LANGUAGE 'plpgsql';
 245 CREATE TRIGGER action_circulation_stop_fines_tgr
 246         BEFORE UPDATE ON action.circulation
 247         FOR EACH ROW
 248         EXECUTE PROCEDURE action.circulation_claims_returned ();
 249
 250 CREATE TABLE action.hold_request_cancel_cause (
 251     id      SERIAL  PRIMARY KEY,
 252     label   TEXT    UNIQUE
 253 );
 254 INSERT INTO action.hold_request_cancel_cause (label) VALUES ('Untargeted expiration');
 255 INSERT INTO action.hold_request_cancel_cause (label) VALUES ('Hold Shelf expiration');
 256 INSERT INTO action.hold_request_cancel_cause (label) VALUES ('Patron via phone');
 257 INSERT INTO action.hold_request_cancel_cause (label) VALUES ('Patron in person');
 258 INSERT INTO action.hold_request_cancel_cause (label) VALUES ('Staff forced');
 259
 260 CREATE TABLE action.hold_request (
 261         id                      SERIAL                          PRIMARY KEY,
 262         request_time            TIMESTAMP WITH TIME ZONE        NOT NULL DEFAULT NOW(),
 263         capture_time            TIMESTAMP WITH TIME ZONE,
 264         fulfillment_time        TIMESTAMP WITH TIME ZONE,
 265         checkin_time            TIMESTAMP WITH TIME ZONE,
 266         return_time             TIMESTAMP WITH TIME ZONE,
 267         prev_check_time         TIMESTAMP WITH TIME ZONE,
 268         expire_time             TIMESTAMP WITH TIME ZONE,
 269         cancel_time             TIMESTAMP WITH TIME ZONE,
 270         cancel_cause    INT REFERENCES action.hold_request_cancel_cause (id) ON DELETE SET NULL,
 271         cancel_note             TEXT,
 272         target                  BIGINT                          NOT NULL, -- see hold_type
 273         current_copy            BIGINT                          REFERENCES asset.copy (id) ON DELETE SET NULL DEFERRABLE INITIALLY DEFERRED,
 274         fulfillment_staff       INT                             REFERENCES actor.usr (id) DEFERRABLE INITIALLY DEFERRED,
 275         fulfillment_lib         INT                             REFERENCES actor.org_unit (id) DEFERRABLE INITIALLY DEFERRED,
 276         request_lib             INT                             NOT NULL REFERENCES actor.org_unit (id) DEFERRABLE INITIALLY DEFERRED,
 277         requestor               INT                             NOT NULL REFERENCES actor.usr (id) DEFERRABLE INITIALLY DEFERRED,
 278         usr                     INT                             NOT NULL REFERENCES actor.usr (id) DEFERRABLE INITIALLY DEFERRED,
 279         selection_ou            INT                             NOT NULL,
 280         selection_depth         INT                             NOT NULL DEFAULT 0,
 281         pickup_lib              INT                             NOT NULL REFERENCES actor.org_unit DEFERRABLE INITIALLY DEFERRED,
 282         hold_type               TEXT                            NOT NULL CHECK (hold_type IN ('M','T','V','C')),
 283         holdable_formats        TEXT,
 284         phone_notify            TEXT,
 285         email_notify            BOOL                            NOT NULL DEFAULT TRUE,
 286         frozen                  BOOL                            NOT NULL DEFAULT FALSE,
 287         thaw_date               TIMESTAMP WITH TIME ZONE
 288 );
 289
 290 CREATE INDEX hold_request_target_idx ON action.hold_request (target);
 291 CREATE INDEX hold_request_usr_idx ON action.hold_request (usr);
 292 CREATE INDEX hold_request_pickup_lib_idx ON action.hold_request (pickup_lib);
 293 CREATE INDEX hold_request_current_copy_idx ON action.hold_request (current_copy);
 294 CREATE INDEX hold_request_prev_check_time_idx ON action.hold_request (prev_check_time);
 295
 296
 297 CREATE TABLE action.hold_notification (
 298         id              SERIAL                          PRIMARY KEY,
 299         hold            INT                             NOT NULL REFERENCES action.hold_request (id) DEFERRABLE INITIALLY DEFERRED,
 300         notify_staff    INT                             REFERENCES actor.usr (id) DEFERRABLE INITIALLY DEFERRED,
 301         notify_time     TIMESTAMP WITH TIME ZONE        NOT NULL DEFAULT NOW(),
 302         method          TEXT                            NOT NULL, -- email address or phone number
 303         note            TEXT
 304 );
 305 CREATE INDEX ahn_hold_idx ON action.hold_notification (hold);
 306
 307 CREATE TABLE action.hold_copy_map (
 308         id              SERIAL  PRIMARY KEY,
 309         hold            INT     NOT NULL REFERENCES action.hold_request (id) ON DELETE CASCADE DEFERRABLE INITIALLY DEFERRED,
 310         target_copy     BIGINT  NOT NULL REFERENCES asset.copy (id) ON DELETE CASCADE DEFERRABLE INITIALLY DEFERRED,
 311         CONSTRAINT copy_once_per_hold UNIQUE (hold,target_copy)
 312 );
 313 -- CREATE INDEX acm_hold_idx ON action.hold_copy_map (hold);
 314 CREATE INDEX acm_copy_idx ON action.hold_copy_map (target_copy);
 315
 316 CREATE TABLE action.transit_copy (
 317         id                      SERIAL                          PRIMARY KEY,
 318         source_send_time        TIMESTAMP WITH TIME ZONE,
 319         dest_recv_time          TIMESTAMP WITH TIME ZONE,
 320         target_copy             BIGINT                          NOT NULL REFERENCES asset.copy (id) ON DELETE CASCADE DEFERRABLE INITIALLY DEFERRED,
 321         source                  INT                             NOT NULL REFERENCES actor.org_unit (id) DEFERRABLE INITIALLY DEFERRED,
 322         dest                    INT                             NOT NULL REFERENCES actor.org_unit (id) DEFERRABLE INITIALLY DEFERRED,
 323         prev_hop                INT                             REFERENCES action.transit_copy (id) DEFERRABLE INITIALLY DEFERRED,
 324         copy_status             INT                             NOT NULL REFERENCES config.copy_status (id) DEFERRABLE INITIALLY DEFERRED,
 325         persistant_transfer     BOOL                            NOT NULL DEFAULT FALSE
 326 );
 327 CREATE INDEX active_transit_dest_idx ON "action".transit_copy (dest);
 328 CREATE INDEX active_transit_source_idx ON "action".transit_copy (source);
 329 CREATE INDEX active_transit_cp_idx ON "action".transit_copy (target_copy);
 330
 331
 332 CREATE TABLE action.hold_transit_copy (
 333         hold    INT     REFERENCES action.hold_request (id) ON DELETE SET NULL DEFERRABLE INITIALLY DEFERRED
 334 ) INHERITS (action.transit_copy);
 335 ALTER TABLE action.hold_transit_copy ADD PRIMARY KEY (id);
 336 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;
 337 CREATE INDEX active_hold_transit_dest_idx ON "action".hold_transit_copy (dest);
 338 CREATE INDEX active_hold_transit_source_idx ON "action".hold_transit_copy (source);
 339 CREATE INDEX active_hold_transit_cp_idx ON "action".hold_transit_copy (target_copy);
 340
 341
 342 CREATE TABLE action.unfulfilled_hold_list (
 343         id              BIGSERIAL                       PRIMARY KEY,
 344         current_copy    BIGINT                          NOT NULL,
 345         hold            INT                             NOT NULL,
 346         circ_lib        INT                             NOT NULL,
 347         fail_time       TIMESTAMP WITH TIME ZONE        NOT NULL DEFAULT NOW()
 348 );
 349
 350 CREATE OR REPLACE FUNCTION asset.merge_record_assets( target_record BIGINT, source_record BIGINT ) RETURNS INT AS $func$
 351 DECLARE
 352         moved_objects INT := 0;
 353         source_cn     asset.call_number%ROWTYPE;
 354         target_cn     asset.call_number%ROWTYPE;
 355         metarec       metabib.metarecord%ROWTYPE;
 356         hold          action.hold_request%ROWTYPE;
 357 BEGIN
 358         -- Find and move metarecords to the target record
 359         SELECT  INTO metarec *
 360           FROM  metabib.metarecord
 361           WHERE master_record = source_record;
 362
 363         IF FOUND THEN
 364                 UPDATE  metabib.metarecord
 365                   SET   master_record = target_record,
 366                         mods = NULL
 367                   WHERE id = metarec.id;
 368
 369                 moved_objects := moved_objects + 1;
 370         END IF;
 371
 372         -- Find call numbers attached to the source ...
 373         FOR source_cn IN SELECT * FROM asset.call_number WHERE record = source_record LOOP
 374
 375                 SELECT  INTO target_cn *
 376                   FROM  asset.call_number
 377                   WHERE label = source_cn.label
 378                         AND owning_lib = source_cn.owning_lib
 379                         AND record = target_record;
 380
 381                 -- ... and if there's a conflicting one on the target ...
 382                 IF FOUND THEN
 383
 384                         -- ... move the copies to that, and ...
 385                         UPDATE  asset.copy
 386                           SET   call_number = target_cn.id
 387                           WHERE call_number = source_cn.id;
 388
 389                         -- ... move V holds to the move-target call number
 390                         FOR hold IN SELECT * FROM action.hold_request WHERE target = source_cn.id AND hold_type = 'V' LOOP
 391
 392                                 UPDATE  action.hold_request
 393                                   SET   target = target_cn.id
 394                                   WHERE id = hold.id;
 395
 396                                 moved_objects := moved_objects + 1;
 397                         END LOOP;
 398
 399                 -- ... if not ...
 400                 ELSE
 401                         -- ... just move the call number to the target record
 402                         UPDATE  asset.call_number
 403                           SET   record = target_record
 404                           WHERE id = source_cn.id;
 405                 END IF;
 406
 407                 moved_objects := moved_objects + 1;
 408         END LOOP;
 409
 410         -- Find T holds targeting the source record ...
 411         FOR hold IN SELECT * FROM action.hold_request WHERE target = source_record AND hold_type = 'T' LOOP
 412
 413                 -- ... and move them to the target record
 414                 UPDATE  action.hold_request
 415                   SET   target = target_record
 416                   WHERE id = hold.id;
 417
 418                 moved_objects := moved_objects + 1;
 419         END LOOP;
 420
 421         -- That's all, folks!
 422         RETURN moved_objects;
 423 END;
 424 $func$ LANGUAGE plpgsql;
 425
 426 COMMIT;
 427