Open-ILS/src/sql/Pg/999.functions.global.sql

   1 /*
   2  * Copyright (C) 2008 Equinox Software, Inc.
   3  * Bill Erickson <erickson@esilibrary.com>
   4  *
   5  * This program is free software; you can redistribute it and/or
   6  * modify it under the terms of the GNU General Public License
   7  * as published by the Free Software Foundation; either version 2
   8  * of the License, or (at your option) any later version.
   9  *
  10  * This program is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13  * GNU General Public License for more details.
  14  *
  15  */
  16
  17 CREATE OR REPLACE FUNCTION actor.usr_merge_rows( table_name TEXT, col_name TEXT, src_usr INT, dest_usr INT ) RETURNS VOID AS $$
  18 DECLARE
  19     sel TEXT;
  20     upd TEXT;
  21     del TEXT;
  22     cur_row RECORD;
  23 BEGIN
  24     sel := 'SELECT id::BIGINT FROM ' || table_name || ' WHERE ' || quote_ident(col_name) || ' = ' || quote_literal(src_usr);
  25     upd := 'UPDATE ' || table_name || ' SET ' || quote_ident(col_name) || ' = ' || quote_literal(dest_usr) || ' WHERE id = ';
  26     del := 'DELETE FROM ' || table_name || ' WHERE id = ';
  27     FOR cur_row IN EXECUTE sel LOOP
  28         BEGIN
  29             --RAISE NOTICE 'Attempting to merge % %', table_name, cur_row.id;
  30             EXECUTE upd || cur_row.id;
  31         EXCEPTION WHEN unique_violation THEN
  32             --RAISE NOTICE 'Deleting conflicting % %', table_name, cur_row.id;
  33             EXECUTE del || cur_row.id;
  34         END;
  35     END LOOP;
  36 END;
  37 $$ LANGUAGE plpgsql;
  38
  39 COMMENT ON FUNCTION actor.usr_merge_rows(TEXT, TEXT, INT, INT) IS $$
  40 /**
  41  * Attempts to move each row of the specified table from src_user to dest_user.
  42  * Where conflicts exist, the conflicting "source" row is deleted.
  43  */
  44 $$;
  45
  46
  47 CREATE OR REPLACE FUNCTION actor.usr_merge( src_usr INT, dest_usr INT, del_addrs BOOLEAN, del_cards BOOLEAN, deactivate_cards BOOLEAN ) RETURNS VOID AS $$
  48 BEGIN
  49
  50     -- do some initial cleanup
  51     UPDATE actor.usr SET card = NULL WHERE id = src_usr;
  52     UPDATE actor.usr SET mailing_address = NULL WHERE id = src_usr;
  53     UPDATE actor.usr SET billing_address = NULL WHERE id = src_usr;
  54
  55     -- actor.*
  56     IF del_cards THEN
  57         DELETE FROM actor.card where usr = src_usr;
  58     ELSE
  59         IF deactivate_cards THEN
  60             UPDATE actor.card SET active = 'f' WHERE usr = src_usr;
  61         END IF;
  62         UPDATE actor.card SET usr = dest_usr WHERE usr = src_usr;
  63     END IF;
  64
  65
  66     IF del_addrs THEN
  67         DELETE FROM actor.usr_address WHERE usr = src_usr;
  68     ELSE
  69         UPDATE actor.usr_address SET usr = dest_usr WHERE usr = src_usr;
  70     END IF;
  71
  72     UPDATE actor.usr_note SET usr = dest_usr WHERE usr = src_usr;
  73     -- dupes are technically OK in actor.usr_standing_penalty, should manually delete them...
  74     UPDATE actor.usr_standing_penalty SET usr = dest_usr WHERE usr = src_usr;
  75     PERFORM actor.usr_merge_rows('actor.usr_org_unit_opt_in', 'usr', src_usr, dest_usr);
  76     PERFORM actor.usr_merge_rows('actor.usr_setting', 'usr', src_usr, dest_usr);
  77
  78     -- permission.*
  79     PERFORM actor.usr_merge_rows('permission.usr_perm_map', 'usr', src_usr, dest_usr);
  80     PERFORM actor.usr_merge_rows('permission.usr_object_perm_map', 'usr', src_usr, dest_usr);
  81     PERFORM actor.usr_merge_rows('permission.usr_grp_map', 'usr', src_usr, dest_usr);
  82     PERFORM actor.usr_merge_rows('permission.usr_work_ou_map', 'usr', src_usr, dest_usr);
  83
  84
  85     -- container.*
  86     PERFORM actor.usr_merge_rows('container.biblio_record_entry_bucket', 'owner', src_usr, dest_usr);
  87     PERFORM actor.usr_merge_rows('container.call_number_bucket', 'owner', src_usr, dest_usr);
  88     PERFORM actor.usr_merge_rows('container.copy_bucket', 'owner', src_usr, dest_usr);
  89     PERFORM actor.usr_merge_rows('container.user_bucket', 'owner', src_usr, dest_usr);
  90     PERFORM actor.usr_merge_rows('container.user_bucket_item', 'target_user', src_usr, dest_usr);
  91
  92     -- vandelay.*
  93     PERFORM actor.usr_merge_rows('vandelay.queue', 'owner', src_usr, dest_usr);
  94
  95     -- money.*
  96     PERFORM actor.usr_merge_rows('money.collections_tracker', 'usr', src_usr, dest_usr);
  97     PERFORM actor.usr_merge_rows('money.collections_tracker', 'collector', src_usr, dest_usr);
  98     UPDATE money.billable_xact SET usr = dest_usr WHERE usr = src_usr;
  99     UPDATE money.billing SET voider = dest_usr WHERE voider = src_usr;
 100     UPDATE money.bnm_payment SET accepting_usr = dest_usr WHERE accepting_usr = src_usr;
 101
 102     -- action.*
 103     UPDATE action.circulation SET usr = dest_usr WHERE usr = src_usr;
 104     UPDATE action.circulation SET circ_staff = dest_usr WHERE circ_staff = src_usr;
 105     UPDATE action.circulation SET checkin_staff = dest_usr WHERE checkin_staff = src_usr;
 106
 107     UPDATE action.hold_request SET usr = dest_usr WHERE usr = src_usr;
 108     UPDATE action.hold_request SET fulfillment_staff = dest_usr WHERE fulfillment_staff = src_usr;
 109     UPDATE action.hold_request SET requestor = dest_usr WHERE requestor = src_usr;
 110     UPDATE action.hold_notification SET notify_staff = dest_usr WHERE notify_staff = src_usr;
 111
 112     UPDATE action.in_house_use SET staff = dest_usr WHERE staff = src_usr;
 113     UPDATE action.non_cataloged_circulation SET staff = dest_usr WHERE staff = src_usr;
 114     UPDATE action.non_cataloged_circulation SET patron = dest_usr WHERE patron = src_usr;
 115     UPDATE action.non_cat_in_house_use SET staff = dest_usr WHERE staff = src_usr;
 116     UPDATE action.survey_response SET usr = dest_usr WHERE usr = src_usr;
 117
 118     -- acq.*
 119     UPDATE acq.fund_allocation SET allocator = dest_usr WHERE allocator = src_usr;
 120     PERFORM actor.usr_merge_rows('acq.picklist', 'owner', src_usr, dest_usr);
 121     UPDATE acq.purchase_order SET owner = dest_usr WHERE owner = src_usr;
 122     UPDATE acq.po_note SET creator = dest_usr WHERE creator = src_usr;
 123     UPDATE acq.po_note SET editor = dest_usr WHERE editor = src_usr;
 124     UPDATE acq.lineitem_note SET creator = dest_usr WHERE creator = src_usr;
 125     UPDATE acq.lineitem_note SET editor = dest_usr WHERE editor = src_usr;
 126     UPDATE acq.lineitem_usr_attr_definition SET usr = dest_usr WHERE usr = src_usr;
 127
 128     -- asset.*
 129     UPDATE asset.copy SET creator = dest_usr WHERE creator = src_usr;
 130     UPDATE asset.copy SET editor = dest_usr WHERE editor = src_usr;
 131     UPDATE asset.copy_note SET creator = dest_usr WHERE creator = src_usr;
 132     UPDATE asset.call_number SET creator = dest_usr WHERE creator = src_usr;
 133     UPDATE asset.call_number SET editor = dest_usr WHERE editor = src_usr;
 134     UPDATE asset.call_number_note SET creator = dest_usr WHERE creator = src_usr;
 135
 136     -- serial.*
 137     UPDATE serial.record_entry SET creator = dest_usr WHERE creator = src_usr;
 138     UPDATE serial.record_entry SET editor = dest_usr WHERE editor = src_usr;
 139
 140     -- reporter.*
 141     -- It's not uncommon to define the reporter schema in a replica
 142     -- DB only, so don't assume these tables exist in the write DB.
 143     BEGIN
 144         PERFORM actor.usr_merge_rows('reporter.template', 'owner', src_usr, dest_usr);
 145     EXCEPTION WHEN undefined_table THEN
 146         -- do nothing
 147     END;
 148     BEGIN
 149         PERFORM actor.usr_merge_rows('reporter.report', 'owner', src_usr, dest_usr);
 150     EXCEPTION WHEN undefined_table THEN
 151         -- do nothing
 152     END;
 153     BEGIN
 154         PERFORM actor.usr_merge_rows('reporter.schedule', 'runner', src_usr, dest_usr);
 155     EXCEPTION WHEN undefined_table THEN
 156         -- do nothing
 157     END;
 158     BEGIN
 159         PERFORM actor.usr_merge_rows('reporter.template_folder', 'owner', src_usr, dest_usr);
 160     EXCEPTION WHEN undefined_table THEN
 161         -- do nothing
 162     END;
 163     BEGIN
 164         PERFORM actor.usr_merge_rows('reporter.report_folder', 'owner', src_usr, dest_usr);
 165     EXCEPTION WHEN undefined_table THEN
 166         -- do nothing
 167     END;
 168     BEGIN
 169         PERFORM actor.usr_merge_rows('reporter.output_folder', 'owner', src_usr, dest_usr);
 170     EXCEPTION WHEN undefined_table THEN
 171         -- do nothing
 172     END;
 173
 174     -- Finally, delete the source user
 175     DELETE FROM actor.usr WHERE id = src_usr;
 176
 177 END;
 178 $$ LANGUAGE plpgsql;
 179
 180 COMMENT ON FUNCTION actor.usr_merge(INT, INT, BOOLEAN, BOOLEAN, BOOLEAN) IS $$
 181 /**
 182  * Merges all user date from src_usr to dest_usr.  When collisions occur,
 183  * keep dest_usr's data and delete src_usr's data.
 184  */
 185 $$;
 186
 187
 188
 189 CREATE OR REPLACE FUNCTION actor.approve_pending_address(pending_id INT) RETURNS BIGINT AS $$
 190 DECLARE
 191     old_id INT;
 192 BEGIN
 193     SELECT INTO old_id replaces FROM actor.usr_address where id = pending_id;
 194     IF old_id IS NULL THEN
 195         UPDATE actor.usr_address SET pending = 'f' WHERE id = pending_id;
 196         RETURN pending_id;
 197     END IF;
 198     -- address replaces an existing address
 199     DELETE FROM actor.usr_address WHERE id = -old_id;
 200     UPDATE actor.usr_address SET id = -id WHERE id = old_id;
 201     UPDATE actor.usr_address SET replaces = NULL, id = old_id, pending = 'f' WHERE id = pending_id;
 202     RETURN old_id;
 203 END
 204 $$ LANGUAGE plpgsql;
 205
 206 COMMENT ON FUNCTION actor.approve_pending_address(INT) IS $$
 207 /**
 208  * Replaces an address with a pending address.  This is done by giving the pending
 209  * address the ID of the old address.  The replaced address is retained with -id.
 210  */
 211 $$;
 212
 213 CREATE OR REPLACE FUNCTION container.clear_expired_circ_history_items(
 214          ac_usr IN INTEGER
 215 ) RETURNS VOID AS $$
 216 --
 217 -- Delete old circulation bucket items for a specified user.
 218 -- "Old" means older than the interval specified by a
 219 -- user-level setting, if it is so specified.
 220 --
 221 DECLARE
 222     threshold TIMESTAMP WITH TIME ZONE;
 223 BEGIN
 224         -- Sanity check
 225         IF ac_usr IS NULL THEN
 226                 RETURN;
 227         END IF;
 228         -- Determine the threshold date that defines "old".  Subtract the
 229         -- interval from the system date, then truncate to midnight.
 230         SELECT
 231                 date_trunc(
 232                         'day',
 233                         now() - CAST( translate( value, '"', '' ) AS INTERVAL )
 234                 )
 235         INTO
 236                 threshold
 237         FROM
 238                 actor.usr_setting
 239         WHERE
 240                 usr = ac_usr
 241                 AND name = 'patron.max_reading_list_interval';
 242         --
 243         IF threshold is null THEN
 244                 -- No interval defined; don't delete anything
 245                 -- RAISE NOTICE 'No interval defined for user %', ac_usr;
 246                 return;
 247         END IF;
 248         --
 249         -- RAISE NOTICE 'Date threshold: %', threshold;
 250         --
 251         -- Threshold found; do the delete
 252         delete from container.copy_bucket_item
 253         where
 254                 bucket in
 255                 (
 256                         select
 257                                 id
 258                         from
 259                                 container.copy_bucket
 260                         where
 261                                 owner = ac_usr
 262                                 and btype = 'circ_history'
 263                 )
 264                 and create_time < threshold;
 265         --
 266         RETURN;
 267 END;
 268 $$ LANGUAGE plpgsql;
 269