Open-ILS/src/sql/Pg/1.6.1-2.0-upgrade-db.sql

   1 -- Before starting the transaction: drop some constraints that
   2 -- may or may not exist.
   3
   4 \qecho Before starting the transaction: drop some constraints.
   5 \qecho If a DROP fails because the constraint doesn't exist, ignore the failure.
   6
   7 ALTER TABLE permission.grp_perm_map        DROP CONSTRAINT grp_perm_map_perm_fkey;
   8 ALTER TABLE permission.usr_perm_map        DROP CONSTRAINT usr_perm_map_perm_fkey;
   9 ALTER TABLE permission.usr_object_perm_map DROP CONSTRAINT usr_object_perm_map_perm_fkey;
  10 ALTER TABLE booking.resource_type          DROP CONSTRAINT brt_name_or_record_once_per_owner;
  11 ALTER TABLE booking.resource_type          DROP CONSTRAINT brt_name_once_per_owner;
  12
  13 \qecho Beginning the transaction now
  14
  15 BEGIN;
  16
  17 -- Highest-numbered individual upgrade script incorporated herein:
  18
  19 INSERT INTO config.upgrade_log (version) VALUES ('0433');
  20
  21 -- Recreate one of the constraints that we just dropped,
  22 -- under a different name:
  23
  24 ALTER TABLE booking.resource_type
  25         ADD CONSTRAINT brt_name_and_record_once_per_owner UNIQUE(owner, name, record);
  26
  27 -- Now upgrade permission.perm_list.  This is fairly complicated.
  28
  29 -- Add ON UPDATE CASCADE to some foreign keys so that, when we renumber the
  30 -- permissions, the dependents will follow and stay in sync:
  31
  32 ALTER TABLE permission.grp_perm_map ADD CONSTRAINT grp_perm_map_perm_fkey FOREIGN KEY (perm)
  33     REFERENCES permission.perm_list (id) ON UPDATE CASCADE ON DELETE RESTRICT DEFERRABLE INITIALLY DEFERRED;
  34
  35 ALTER TABLE permission.usr_perm_map ADD CONSTRAINT usr_perm_map_perm_fkey FOREIGN KEY (perm)
  36     REFERENCES permission.perm_list (id) ON UPDATE CASCADE ON DELETE RESTRICT DEFERRABLE INITIALLY DEFERRED;
  37
  38 ALTER TABLE permission.usr_object_perm_map ADD CONSTRAINT usr_object_perm_map_perm_fkey FOREIGN KEY (perm)
  39     REFERENCES permission.perm_list (id) ON UPDATE CASCADE ON DELETE RESTRICT DEFERRABLE INITIALLY DEFERRED;
  40
  41 UPDATE permission.perm_list
  42     SET code = 'UPDATE_ORG_UNIT_SETTING.credit.payments.allow'
  43     WHERE code = 'UPDATE_ORG_UNIT_SETTING.global.credit.allow';
  44
  45 -- The following UPDATES were originally in an individual upgrade script, but should
  46 -- no longer be necessary now that the foreign key has an ON UPDATE CASCADE clause.
  47 -- We retain the UPDATES here, commented out, as historical relics.
  48
  49 -- UPDATE permission.grp_perm_map SET perm = perm + 1000 WHERE perm NOT IN ( SELECT id FROM permission.perm_list );
  50 -- UPDATE permission.usr_perm_map SET perm = perm + 1000 WHERE perm NOT IN ( SELECT id FROM permission.perm_list );
  51
  52 -- Spelling correction
  53 UPDATE permission.perm_list SET code = 'ADMIN_RECURRING_FINE_RULE' WHERE code = 'ADMIN_RECURING_FINE_RULE';
  54
  55 -- Now we engage in a Great Renumbering of the permissions in permission.perm_list,
  56 -- in order to clean up accumulated cruft.
  57
  58 -- The first step is to establish some triggers so that, when we change the id of a permission,
  59 -- the associated translations are updated accordingly.
  60
  61 CREATE OR REPLACE FUNCTION oils_i18n_update_apply(old_ident TEXT, new_ident TEXT, hint TEXT) RETURNS VOID AS $_$
  62 BEGIN
  63
  64     EXECUTE $$
  65         UPDATE  config.i18n_core
  66           SET   identity_value = $$ || quote_literal( new_ident ) || $$
  67           WHERE fq_field LIKE '$$ || hint || $$.%'
  68                 AND identity_value = $$ || quote_literal( old_ident ) || $$;$$;
  69
  70     RETURN;
  71
  72 END;
  73 $_$ LANGUAGE PLPGSQL;
  74
  75 CREATE OR REPLACE FUNCTION oils_i18n_id_tracking(/* hint */) RETURNS TRIGGER AS $_$
  76 BEGIN
  77     PERFORM oils_i18n_update_apply( OLD.id::TEXT, NEW.id::TEXT, TG_ARGV[0]::TEXT );
  78     RETURN NEW;
  79 END;
  80 $_$ LANGUAGE PLPGSQL;
  81
  82 CREATE OR REPLACE FUNCTION oils_i18n_code_tracking(/* hint */) RETURNS TRIGGER AS $_$
  83 BEGIN
  84     PERFORM oils_i18n_update_apply( OLD.code::TEXT, NEW.code::TEXT, TG_ARGV[0]::TEXT );
  85     RETURN NEW;
  86 END;
  87 $_$ LANGUAGE PLPGSQL;
  88
  89
  90 CREATE TRIGGER maintain_perm_i18n_tgr
  91     AFTER UPDATE ON permission.perm_list
  92     FOR EACH ROW EXECUTE PROCEDURE oils_i18n_id_tracking('ppl');
  93
  94 -- Next, create a new table as a convenience for sloshing data back and forth,
  95 -- and for recording which permission went where.  It looks just like
  96 -- permission.perm_list, but with two extra columns: one for the old id, and one to
  97 -- distinguish between predefined permissions and non-predefined permissions.
  98
  99 -- This table is, in effect, a temporary table, because we can drop it once the
 100 -- upgrade is complete.  It is not technically temporary as far as PostgreSQL is
 101 -- concerned, because we don't want it to disappear at the end of the session.
 102 -- We keep it around so that we have a map showing the old id and the new id for
 103 -- each permission.  However there is no IDL entry for it, nor is it defined
 104 -- in the base sql files.
 105
 106 CREATE TABLE permission.temp_perm (
 107         id          INT        PRIMARY KEY,
 108         code        TEXT       UNIQUE,
 109         description TEXT,
 110         old_id      INT,
 111         predefined  BOOL       NOT NULL DEFAULT TRUE
 112 );
 113
 114 -- Populate the temp table with a definitive set of predefined permissions,
 115 -- hard-coding the ids.
 116
 117 -- The first set of permissions is derived from the database, as loaded in a
 118 -- loaded 1.6.1 database, plus a few changes previously applied in this upgrade
 119 -- script.  The second set is derived from the IDL -- permissions that are referenced
 120 -- in <permacrud> elements but not defined in the database.
 121
 122 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( -1, 'EVERYTHING',
 123      '' );
 124 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 1, 'OPAC_LOGIN',
 125      'Allow a user to log in to the OPAC' );
 126 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 2, 'STAFF_LOGIN',
 127      'Allow a user to log in to the staff client' );
 128 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 3, 'MR_HOLDS',
 129      'Allow a user to create a metarecord holds' );
 130 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 4, 'TITLE_HOLDS',
 131      'Allow a user to place a hold at the title level' );
 132 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 5, 'VOLUME_HOLDS',
 133      'Allow a user to place a volume level hold' );
 134 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 6, 'COPY_HOLDS',
 135      'Allow a user to place a hold on a specific copy' );
 136 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 7, 'REQUEST_HOLDS',
 137      'Allow a user to create holds for another user (if true, we still check to make sure they have permission to make the type of hold they are requesting, for example, COPY_HOLDS)' );
 138 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 8, 'REQUEST_HOLDS_OVERRIDE',
 139      '* no longer applicable' );
 140 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 9, 'VIEW_HOLD',
 141      'Allow a user to view another user''s holds' );
 142 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 10, 'DELETE_HOLDS',
 143      '* no longer applicable' );
 144 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 11, 'UPDATE_HOLD',
 145      'Allow a user to update another user''s hold' );
 146 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 12, 'RENEW_CIRC',
 147      'Allow a user to renew items' );
 148 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 13, 'VIEW_USER_FINES_SUMMARY',
 149      'Allow a user to view bill details' );
 150 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 14, 'VIEW_USER_TRANSACTIONS',
 151      'Allow a user to see another user''s grocery or circulation transactions in the Bills Interface; duplicate of VIEW_TRANSACTION' );
 152 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 15, 'UPDATE_MARC',
 153      'Allow a user to edit a MARC record' );
 154 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 16, 'CREATE_MARC',
 155      'Allow a user to create new MARC records' );
 156 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 17, 'IMPORT_MARC',
 157      'Allow a user to import a MARC record via the Z39.50 interface' );
 158 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 18, 'CREATE_VOLUME',
 159      'Allow a user to create a volume' );
 160 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 19, 'UPDATE_VOLUME',
 161      'Allow a user to edit volumes - needed for merging records. This is a duplicate of VOLUME_UPDATE; user must have both permissions at appropriate level to merge records.' );
 162 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 20, 'DELETE_VOLUME',
 163      'Allow a user to delete a volume' );
 164 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 21, 'CREATE_COPY',
 165      'Allow a user to create a new copy object' );
 166 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 22, 'UPDATE_COPY',
 167      'Allow a user to edit a copy' );
 168 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 23, 'DELETE_COPY',
 169      'Allow a user to delete a copy' );
 170 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 24, 'RENEW_HOLD_OVERRIDE',
 171      'Allow a user to continue to renew an item even if it is required for a hold' );
 172 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 25, 'CREATE_USER',
 173      'Allow a user to create another user' );
 174 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 26, 'UPDATE_USER',
 175      'Allow a user to edit a user''s record' );
 176 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 27, 'DELETE_USER',
 177      'Allow a user to mark a user as deleted' );
 178 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 28, 'VIEW_USER',
 179      'Allow a user to view another user''s Patron Record' );
 180 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 29, 'COPY_CHECKIN',
 181      'Allow a user to check in a copy' );
 182 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 30, 'CREATE_TRANSIT',
 183      'Allow a user to place an item in transit' );
 184 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 31, 'VIEW_PERMISSION',
 185      'Allow a user to view user permissions within the user permissions editor' );
 186 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 32, 'CHECKIN_BYPASS_HOLD_FULFILL',
 187      '* no longer applicable' );
 188 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 33, 'CREATE_PAYMENT',
 189      'Allow a user to record payments in the Billing Interface' );
 190 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 34, 'SET_CIRC_LOST',
 191      'Allow a user to mark an item as ''lost''' );
 192 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 35, 'SET_CIRC_MISSING',
 193      'Allow a user to mark an item as ''missing''' );
 194 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 36, 'SET_CIRC_CLAIMS_RETURNED',
 195      'Allow a user to mark an item as ''claims returned''' );
 196 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 37, 'CREATE_TRANSACTION',
 197      'Allow a user to create a new billable transaction' );
 198 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 38, 'VIEW_TRANSACTION',
 199      'Allow a user may view another user''s transactions' );
 200 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 39, 'CREATE_BILL',
 201      'Allow a user to create a new bill on a transaction' );
 202 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 40, 'VIEW_CONTAINER',
 203      'Allow a user to view another user''s containers (buckets)' );
 204 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 41, 'CREATE_CONTAINER',
 205      'Allow a user to create a new container for another user' );
 206 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 42, 'UPDATE_ORG_UNIT',
 207      'Allow a user to change the settings for an organization unit' );
 208 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 43, 'VIEW_CIRCULATIONS',
 209      'Allow a user to see what another user has checked out' );
 210 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 44, 'DELETE_CONTAINER',
 211      'Allow a user to delete another user''s container' );
 212 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 45, 'CREATE_CONTAINER_ITEM',
 213      'Allow a user to create a container item for another user' );
 214 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 46, 'CREATE_USER_GROUP_LINK',
 215      'Allow a user to add other users to permission groups' );
 216 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 47, 'REMOVE_USER_GROUP_LINK',
 217      'Allow a user to remove other users from permission groups' );
 218 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 48, 'VIEW_PERM_GROUPS',
 219      'Allow a user to view other users'' permission groups' );
 220 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 49, 'VIEW_PERMIT_CHECKOUT',
 221      'Allow a user to determine whether another user can check out an item' );
 222 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 50, 'UPDATE_BATCH_COPY',
 223      'Allow a user to edit copies in batch' );
 224 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 51, 'CREATE_PATRON_STAT_CAT',
 225      'User may create a new patron statistical category' );
 226 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 52, 'CREATE_COPY_STAT_CAT',
 227      'User may create a copy statistical category' );
 228 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 53, 'CREATE_PATRON_STAT_CAT_ENTRY',
 229      'User may create an entry in a patron statistical category' );
 230 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 54, 'CREATE_COPY_STAT_CAT_ENTRY',
 231      'User may create an entry in a copy statistical category' );
 232 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 55, 'UPDATE_PATRON_STAT_CAT',
 233      'User may update a patron statistical category' );
 234 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 56, 'UPDATE_COPY_STAT_CAT',
 235      'User may update a copy statistical category' );
 236 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 57, 'UPDATE_PATRON_STAT_CAT_ENTRY',
 237      'User may update an entry in a patron statistical category' );
 238 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 58, 'UPDATE_COPY_STAT_CAT_ENTRY',
 239      'User may update an entry in a copy statistical category' );
 240 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 59, 'CREATE_PATRON_STAT_CAT_ENTRY_MAP',
 241      'User may link another user to an entry in a statistical category' );
 242 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 60, 'CREATE_COPY_STAT_CAT_ENTRY_MAP',
 243      'User may link a copy to an entry in a statistical category' );
 244 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 61, 'DELETE_PATRON_STAT_CAT',
 245      'User may delete a patron statistical category' );
 246 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 62, 'DELETE_COPY_STAT_CAT',
 247      'User may delete a copy statistical category' );
 248 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 63, 'DELETE_PATRON_STAT_CAT_ENTRY',
 249      'User may delete an entry from a patron statistical category' );
 250 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 64, 'DELETE_COPY_STAT_CAT_ENTRY',
 251      'User may delete an entry from a copy statistical category' );
 252 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 65, 'DELETE_PATRON_STAT_CAT_ENTRY_MAP',
 253      'User may delete a patron statistical category entry map' );
 254 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 66, 'DELETE_COPY_STAT_CAT_ENTRY_MAP',
 255      'User may delete a copy statistical category entry map' );
 256 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 67, 'CREATE_NON_CAT_TYPE',
 257      'Allow a user to create a new non-cataloged item type' );
 258 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 68, 'UPDATE_NON_CAT_TYPE',
 259      'Allow a user to update a non-cataloged item type' );
 260 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 69, 'CREATE_IN_HOUSE_USE',
 261      'Allow a user to create a new in-house-use ' );
 262 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 70, 'COPY_CHECKOUT',
 263      'Allow a user to check out a copy' );
 264 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 71, 'CREATE_COPY_LOCATION',
 265      'Allow a user to create a new copy location' );
 266 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 72, 'UPDATE_COPY_LOCATION',
 267      'Allow a user to update a copy location' );
 268 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 73, 'DELETE_COPY_LOCATION',
 269      'Allow a user to delete a copy location' );
 270 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 74, 'CREATE_COPY_TRANSIT',
 271      'Allow a user to create a transit_copy object for transiting a copy' );
 272 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 75, 'COPY_TRANSIT_RECEIVE',
 273      'Allow a user to close out a transit on a copy' );
 274 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 76, 'VIEW_HOLD_PERMIT',
 275      'Allow a user to see if another user has permission to place a hold on a given copy' );
 276 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 77, 'VIEW_COPY_CHECKOUT_HISTORY',
 277      'Allow a user to view which users have checked out a given copy' );
 278 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 78, 'REMOTE_Z3950_QUERY',
 279      'Allow a user to perform Z39.50 queries against remote servers' );
 280 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 79, 'REGISTER_WORKSTATION',
 281      'Allow a user to register a new workstation' );
 282 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 80, 'VIEW_COPY_NOTES',
 283      'Allow a user to view all notes attached to a copy' );
 284 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 81, 'VIEW_VOLUME_NOTES',
 285      'Allow a user to view all notes attached to a volume' );
 286 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 82, 'VIEW_TITLE_NOTES',
 287      'Allow a user to view all notes attached to a title' );
 288 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 83, 'CREATE_COPY_NOTE',
 289      'Allow a user to create a new copy note' );
 290 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 84, 'CREATE_VOLUME_NOTE',
 291      'Allow a user to create a new volume note' );
 292 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 85, 'CREATE_TITLE_NOTE',
 293      'Allow a user to create a new title note' );
 294 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 86, 'DELETE_COPY_NOTE',
 295      'Allow a user to delete another user''s copy notes' );
 296 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 87, 'DELETE_VOLUME_NOTE',
 297      'Allow a user to delete another user''s volume note' );
 298 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 88, 'DELETE_TITLE_NOTE',
 299      'Allow a user to delete another user''s title note' );
 300 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 89, 'UPDATE_CONTAINER',
 301      'Allow a user to update another user''s container' );
 302 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 90, 'CREATE_MY_CONTAINER',
 303      'Allow a user to create a container for themselves' );
 304 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 91, 'VIEW_HOLD_NOTIFICATION',
 305      'Allow a user to view notifications attached to a hold' );
 306 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 92, 'CREATE_HOLD_NOTIFICATION',
 307      'Allow a user to create new hold notifications' );
 308 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 93, 'UPDATE_ORG_SETTING',
 309      'Allow a user to update an organization unit setting' );
 310 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 94, 'OFFLINE_UPLOAD',
 311      'Allow a user to upload an offline script' );
 312 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 95, 'OFFLINE_VIEW',
 313      'Allow a user to view uploaded offline script information' );
 314 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 96, 'OFFLINE_EXECUTE',
 315      'Allow a user to execute an offline script batch' );
 316 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 97, 'CIRC_OVERRIDE_DUE_DATE',
 317      'Allow a user to change the due date on an item to any date' );
 318 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 98, 'CIRC_PERMIT_OVERRIDE',
 319      'Allow a user to bypass the circulation permit call for check out' );
 320 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 99, 'COPY_IS_REFERENCE.override',
 321      'Allow a user to override the copy_is_reference event' );
 322 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 100, 'VOID_BILLING',
 323      'Allow a user to void a bill' );
 324 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 101, 'CIRC_CLAIMS_RETURNED.override',
 325      'Allow a user to check in or check out an item that has a status of ''claims returned''' );
 326 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 102, 'COPY_BAD_STATUS.override',
 327      'Allow a user to check out an item in a non-circulatable status' );
 328 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 103, 'COPY_ALERT_MESSAGE.override',
 329      'Allow a user to check in/out an item that has an alert message' );
 330 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 104, 'COPY_STATUS_LOST.override',
 331      'Allow a user to remove the lost status from a copy' );
 332 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 105, 'COPY_STATUS_MISSING.override',
 333      'Allow a user to change the missing status on a copy' );
 334 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 106, 'ABORT_TRANSIT',
 335      'Allow a user to abort a copy transit if the user is at the transit destination or source' );
 336 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 107, 'ABORT_REMOTE_TRANSIT',
 337      'Allow a user to abort a copy transit if the user is not at the transit source or dest' );
 338 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 108, 'VIEW_ZIP_DATA',
 339      'Allow a user to query the ZIP code data method' );
 340 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 109, 'CANCEL_HOLDS',
 341      'Allow a user to cancel holds' );
 342 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 110, 'CREATE_DUPLICATE_HOLDS',
 343      'Allow a user to create duplicate holds (two or more holds on the same title)' );
 344 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 111, 'actor.org_unit.closed_date.delete',
 345      'Allow a user to remove a closed date interval for a given location' );
 346 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 112, 'actor.org_unit.closed_date.update',
 347      'Allow a user to update a closed date interval for a given location' );
 348 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 113, 'actor.org_unit.closed_date.create',
 349      'Allow a user to create a new closed date for a location' );
 350 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 114, 'DELETE_NON_CAT_TYPE',
 351      'Allow a user to delete a non cataloged type' );
 352 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 115, 'money.collections_tracker.create',
 353      'Allow a user to put someone into collections' );
 354 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 116, 'money.collections_tracker.delete',
 355      'Allow a user to remove someone from collections' );
 356 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 117, 'BAR_PATRON',
 357      'Allow a user to bar a patron' );
 358 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 118, 'UNBAR_PATRON',
 359      'Allow a user to un-bar a patron' );
 360 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 119, 'DELETE_WORKSTATION',
 361      'Allow a user to remove an existing workstation so a new one can replace it' );
 362 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 120, 'group_application.user',
 363      'Allow a user to add/remove users to/from the "User" group' );
 364 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 121, 'group_application.user.patron',
 365      'Allow a user to add/remove users to/from the "Patron" group' );
 366 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 122, 'group_application.user.staff',
 367      'Allow a user to add/remove users to/from the "Staff" group' );
 368 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 123, 'group_application.user.staff.circ',
 369      'Allow a user to add/remove users to/from the "Circulator" group' );
 370 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 124, 'group_application.user.staff.cat',
 371      'Allow a user to add/remove users to/from the "Cataloger" group' );
 372 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 125, 'group_application.user.staff.admin.global_admin',
 373      'Allow a user to add/remove users to/from the "GlobalAdmin" group' );
 374 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 126, 'group_application.user.staff.admin.local_admin',
 375      'Allow a user to add/remove users to/from the "LocalAdmin" group' );
 376 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 127, 'group_application.user.staff.admin.lib_manager',
 377      'Allow a user to add/remove users to/from the "LibraryManager" group' );
 378 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 128, 'group_application.user.staff.cat.cat1',
 379      'Allow a user to add/remove users to/from the "Cat1" group' );
 380 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 129, 'group_application.user.staff.supercat',
 381      'Allow a user to add/remove users to/from the "Supercat" group' );
 382 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 130, 'group_application.user.sip_client',
 383      'Allow a user to add/remove users to/from the "SIP-Client" group' );
 384 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 131, 'group_application.user.vendor',
 385      'Allow a user to add/remove users to/from the "Vendor" group' );
 386 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 132, 'ITEM_AGE_PROTECTED.override',
 387      'Allow a user to place a hold on an age-protected item' );
 388 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 133, 'MAX_RENEWALS_REACHED.override',
 389      'Allow a user to renew an item past the maximum renewal count' );
 390 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 134, 'PATRON_EXCEEDS_CHECKOUT_COUNT.override',
 391      'Allow staff to override checkout count failure' );
 392 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 135, 'PATRON_EXCEEDS_OVERDUE_COUNT.override',
 393      'Allow staff to override overdue count failure' );
 394 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 136, 'PATRON_EXCEEDS_FINES.override',
 395      'Allow staff to override fine amount checkout failure' );
 396 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 137, 'CIRC_EXCEEDS_COPY_RANGE.override',
 397      'Allow staff to override circulation copy range failure' );
 398 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 138, 'ITEM_ON_HOLDS_SHELF.override',
 399      'Allow staff to override item on holds shelf failure' );
 400 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 139, 'COPY_NOT_AVAILABLE.override',
 401      'Allow staff to force checkout of Missing/Lost type items' );
 402 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 140, 'HOLD_EXISTS.override',
 403      'Allow a user to place multiple holds on a single title' );
 404 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 141, 'RUN_REPORTS',
 405      'Allow a user to run reports' );
 406 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 142, 'SHARE_REPORT_FOLDER',
 407      'Allow a user to share report his own folders' );
 408 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 143, 'VIEW_REPORT_OUTPUT',
 409      'Allow a user to view report output' );
 410 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 144, 'COPY_CIRC_NOT_ALLOWED.override',
 411      'Allow a user to checkout an item that is marked as non-circ' );
 412 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 145, 'DELETE_CONTAINER_ITEM',
 413      'Allow a user to delete an item out of another user''s container' );
 414 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 146, 'ASSIGN_WORK_ORG_UNIT',
 415      'Allow a staff member to define where another staff member has their permissions' );
 416 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 147, 'CREATE_FUNDING_SOURCE',
 417      'Allow a user to create a new funding source' );
 418 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 148, 'DELETE_FUNDING_SOURCE',
 419      'Allow a user to delete a funding source' );
 420 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 149, 'VIEW_FUNDING_SOURCE',
 421      'Allow a user to view a funding source' );
 422 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 150, 'UPDATE_FUNDING_SOURCE',
 423      'Allow a user to update a funding source' );
 424 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 151, 'CREATE_FUND',
 425      'Allow a user to create a new fund' );
 426 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 152, 'DELETE_FUND',
 427      'Allow a user to delete a fund' );
 428 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 153, 'VIEW_FUND',
 429      'Allow a user to view a fund' );
 430 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 154, 'UPDATE_FUND',
 431      'Allow a user to update a fund' );
 432 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 155, 'CREATE_FUND_ALLOCATION',
 433      'Allow a user to create a new fund allocation' );
 434 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 156, 'DELETE_FUND_ALLOCATION',
 435      'Allow a user to delete a fund allocation' );
 436 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 157, 'VIEW_FUND_ALLOCATION',
 437      'Allow a user to view a fund allocation' );
 438 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 158, 'UPDATE_FUND_ALLOCATION',
 439      'Allow a user to update a fund allocation' );
 440 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 159, 'GENERAL_ACQ',
 441      'Lowest level permission required to access the ACQ interface' );
 442 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 160, 'CREATE_PROVIDER',
 443      'Allow a user to create a new provider' );
 444 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 161, 'DELETE_PROVIDER',
 445      'Allow a user to delate a provider' );
 446 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 162, 'VIEW_PROVIDER',
 447      'Allow a user to view a provider' );
 448 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 163, 'UPDATE_PROVIDER',
 449      'Allow a user to update a provider' );
 450 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 164, 'ADMIN_FUNDING_SOURCE',
 451      'Allow a user to create/view/update/delete a funding source' );
 452 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 165, 'ADMIN_FUND',
 453      '(Deprecated) Allow a user to create/view/update/delete a fund' );
 454 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 166, 'MANAGE_FUNDING_SOURCE',
 455      'Allow a user to view/credit/debit a funding source' );
 456 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 167, 'MANAGE_FUND',
 457      'Allow a user to view/credit/debit a fund' );
 458 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 168, 'CREATE_PICKLIST',
 459      'Allows a user to create a picklist' );
 460 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 169, 'ADMIN_PROVIDER',
 461      'Allow a user to create/view/update/delete a provider' );
 462 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 170, 'MANAGE_PROVIDER',
 463      'Allow a user to view and purchase from a provider' );
 464 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 171, 'VIEW_PICKLIST',
 465      'Allow a user to view another users picklist' );
 466 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 172, 'DELETE_RECORD',
 467      'Allow a staff member to directly remove a bibliographic record' );
 468 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 173, 'ADMIN_CURRENCY_TYPE',
 469      'Allow a user to create/view/update/delete a currency_type' );
 470 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 174, 'MARK_BAD_DEBT',
 471      'Allow a user to mark a transaction as bad (unrecoverable) debt' );
 472 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 175, 'VIEW_BILLING_TYPE',
 473      'Allow a user to view billing types' );
 474 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 176, 'MARK_ITEM_AVAILABLE',
 475      'Allow a user to mark an item status as ''available''' );
 476 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 177, 'MARK_ITEM_CHECKED_OUT',
 477      'Allow a user to mark an item status as ''checked out''' );
 478 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 178, 'MARK_ITEM_BINDERY',
 479      'Allow a user to mark an item status as ''bindery''' );
 480 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 179, 'MARK_ITEM_LOST',
 481      'Allow a user to mark an item status as ''lost''' );
 482 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 180, 'MARK_ITEM_MISSING',
 483      'Allow a user to mark an item status as ''missing''' );
 484 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 181, 'MARK_ITEM_IN_PROCESS',
 485      'Allow a user to mark an item status as ''in process''' );
 486 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 182, 'MARK_ITEM_IN_TRANSIT',
 487      'Allow a user to mark an item status as ''in transit''' );
 488 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 183, 'MARK_ITEM_RESHELVING',
 489      'Allow a user to mark an item status as ''reshelving''' );
 490 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 184, 'MARK_ITEM_ON_HOLDS_SHELF',
 491      'Allow a user to mark an item status as ''on holds shelf''' );
 492 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 185, 'MARK_ITEM_ON_ORDER',
 493      'Allow a user to mark an item status as ''on order''' );
 494 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 186, 'MARK_ITEM_ILL',
 495      'Allow a user to mark an item status as ''inter-library loan''' );
 496 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 187, 'group_application.user.staff.acq',
 497      'Allows a user to add/remove/edit users in the "ACQ" group' );
 498 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 188, 'CREATE_PURCHASE_ORDER',
 499      'Allows a user to create a purchase order' );
 500 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 189, 'VIEW_PURCHASE_ORDER',
 501      'Allows a user to view a purchase order' );
 502 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 190, 'IMPORT_ACQ_LINEITEM_BIB_RECORD',
 503      'Allows a user to import a bib record from the acq staging area (on-order record) into the ILS bib data set' );
 504 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 191, 'RECEIVE_PURCHASE_ORDER',
 505      'Allows a user to mark a purchase order, lineitem, or individual copy as received' );
 506 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 192, 'VIEW_ORG_SETTINGS',
 507      'Allows a user to view all org settings at the specified level' );
 508 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 193, 'CREATE_MFHD_RECORD',
 509      'Allows a user to create a new MFHD record' );
 510 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 194, 'UPDATE_MFHD_RECORD',
 511      'Allows a user to update an MFHD record' );
 512 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 195, 'DELETE_MFHD_RECORD',
 513      'Allows a user to delete an MFHD record' );
 514 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 196, 'ADMIN_ACQ_FUND',
 515      'Allow a user to create/view/update/delete a fund' );
 516 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 197, 'group_application.user.staff.acq_admin',
 517      'Allows a user to add/remove/edit users in the "Acquisitions Administrators" group' );
 518 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 198, 'SET_CIRC_CLAIMS_RETURNED.override',
 519      'Allows staff to override the max claims returned value for a patron' );
 520 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 199, 'UPDATE_PATRON_CLAIM_RETURN_COUNT',
 521      'Allows staff to manually change a patron''s claims returned count' );
 522 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 200, 'UPDATE_BILL_NOTE',
 523      'Allows staff to edit the note for a bill on a transaction' );
 524 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 201, 'UPDATE_PAYMENT_NOTE',
 525      'Allows staff to edit the note for a payment on a transaction' );
 526 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 202, 'UPDATE_PATRON_CLAIM_NEVER_CHECKED_OUT_COUNT',
 527      'Allows staff to manually change a patron''s claims never checkout out count' );
 528 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 203, 'ADMIN_COPY_LOCATION_ORDER',
 529      'Allow a user to create/view/update/delete a copy location order' );
 530 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 204, 'ASSIGN_GROUP_PERM',
 531      '' );
 532 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 205, 'CREATE_AUDIENCE',
 533      '' );
 534 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 206, 'CREATE_BIB_LEVEL',
 535      '' );
 536 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 207, 'CREATE_CIRC_DURATION',
 537      '' );
 538 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 208, 'CREATE_CIRC_MOD',
 539      '' );
 540 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 209, 'CREATE_COPY_STATUS',
 541      '' );
 542 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 210, 'CREATE_HOURS_OF_OPERATION',
 543      '' );
 544 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 211, 'CREATE_ITEM_FORM',
 545      '' );
 546 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 212, 'CREATE_ITEM_TYPE',
 547      '' );
 548 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 213, 'CREATE_LANGUAGE',
 549      '' );
 550 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 214, 'CREATE_LASSO',
 551      '' );
 552 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 215, 'CREATE_LASSO_MAP',
 553      '' );
 554 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 216, 'CREATE_LIT_FORM',
 555      '' );
 556 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 217, 'CREATE_METABIB_FIELD',
 557      '' );
 558 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 218, 'CREATE_NET_ACCESS_LEVEL',
 559      '' );
 560 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 219, 'CREATE_ORG_ADDRESS',
 561      '' );
 562 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 220, 'CREATE_ORG_TYPE',
 563      '' );
 564 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 221, 'CREATE_ORG_UNIT',
 565      '' );
 566 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 222, 'CREATE_ORG_UNIT_CLOSING',
 567      '' );
 568 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 223, 'CREATE_PERM',
 569      '' );
 570 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 224, 'CREATE_RELEVANCE_ADJUSTMENT',
 571      '' );
 572 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 225, 'CREATE_SURVEY',
 573      '' );
 574 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 226, 'CREATE_VR_FORMAT',
 575      '' );
 576 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 227, 'CREATE_XML_TRANSFORM',
 577      '' );
 578 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 228, 'DELETE_AUDIENCE',
 579      '' );
 580 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 229, 'DELETE_BIB_LEVEL',
 581      '' );
 582 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 230, 'DELETE_CIRC_DURATION',
 583      '' );
 584 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 231, 'DELETE_CIRC_MOD',
 585      '' );
 586 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 232, 'DELETE_COPY_STATUS',
 587      '' );
 588 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 233, 'DELETE_HOURS_OF_OPERATION',
 589      '' );
 590 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 234, 'DELETE_ITEM_FORM',
 591      '' );
 592 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 235, 'DELETE_ITEM_TYPE',
 593      '' );
 594 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 236, 'DELETE_LANGUAGE',
 595      '' );
 596 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 237, 'DELETE_LASSO',
 597      '' );
 598 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 238, 'DELETE_LASSO_MAP',
 599      '' );
 600 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 239, 'DELETE_LIT_FORM',
 601      '' );
 602 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 240, 'DELETE_METABIB_FIELD',
 603      '' );
 604 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 241, 'DELETE_NET_ACCESS_LEVEL',
 605      '' );
 606 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 242, 'DELETE_ORG_ADDRESS',
 607      '' );
 608 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 243, 'DELETE_ORG_TYPE',
 609      '' );
 610 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 244, 'DELETE_ORG_UNIT',
 611      '' );
 612 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 245, 'DELETE_ORG_UNIT_CLOSING',
 613      '' );
 614 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 246, 'DELETE_PERM',
 615      '' );
 616 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 247, 'DELETE_RELEVANCE_ADJUSTMENT',
 617      '' );
 618 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 248, 'DELETE_SURVEY',
 619      '' );
 620 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 249, 'DELETE_TRANSIT',
 621      '' );
 622 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 250, 'DELETE_VR_FORMAT',
 623      '' );
 624 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 251, 'DELETE_XML_TRANSFORM',
 625      '' );
 626 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 252, 'REMOVE_GROUP_PERM',
 627      '' );
 628 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 253, 'TRANSIT_COPY',
 629      '' );
 630 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 254, 'UPDATE_AUDIENCE',
 631      '' );
 632 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 255, 'UPDATE_BIB_LEVEL',
 633      '' );
 634 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 256, 'UPDATE_CIRC_DURATION',
 635      '' );
 636 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 257, 'UPDATE_CIRC_MOD',
 637      '' );
 638 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 258, 'UPDATE_COPY_NOTE',
 639      '' );
 640 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 259, 'UPDATE_COPY_STATUS',
 641      '' );
 642 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 260, 'UPDATE_GROUP_PERM',
 643      '' );
 644 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 261, 'UPDATE_HOURS_OF_OPERATION',
 645      '' );
 646 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 262, 'UPDATE_ITEM_FORM',
 647      '' );
 648 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 263, 'UPDATE_ITEM_TYPE',
 649      '' );
 650 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 264, 'UPDATE_LANGUAGE',
 651      '' );
 652 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 265, 'UPDATE_LASSO',
 653      '' );
 654 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 266, 'UPDATE_LASSO_MAP',
 655      '' );
 656 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 267, 'UPDATE_LIT_FORM',
 657      '' );
 658 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 268, 'UPDATE_METABIB_FIELD',
 659      '' );
 660 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 269, 'UPDATE_NET_ACCESS_LEVEL',
 661      '' );
 662 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 270, 'UPDATE_ORG_ADDRESS',
 663      '' );
 664 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 271, 'UPDATE_ORG_TYPE',
 665      '' );
 666 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 272, 'UPDATE_ORG_UNIT_CLOSING',
 667      '' );
 668 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 273, 'UPDATE_PERM',
 669      '' );
 670 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 274, 'UPDATE_RELEVANCE_ADJUSTMENT',
 671      '' );
 672 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 275, 'UPDATE_SURVEY',
 673      '' );
 674 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 276, 'UPDATE_TRANSIT',
 675      '' );
 676 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 277, 'UPDATE_VOLUME_NOTE',
 677      '' );
 678 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 278, 'UPDATE_VR_FORMAT',
 679      '' );
 680 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 279, 'UPDATE_XML_TRANSFORM',
 681      '' );
 682 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 280, 'MERGE_BIB_RECORDS',
 683      '' );
 684 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 281, 'UPDATE_PICKUP_LIB_FROM_HOLDS_SHELF',
 685      '' );
 686 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 282, 'CREATE_ACQ_FUNDING_SOURCE',
 687      '' );
 688 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 283, 'CREATE_AUTHORITY_IMPORT_IMPORT_FIELD_DEF',
 689      '' );
 690 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 284, 'CREATE_AUTHORITY_IMPORT_QUEUE',
 691      '' );
 692 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 285, 'CREATE_AUTHORITY_RECORD_NOTE',
 693      '' );
 694 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 286, 'CREATE_BIB_IMPORT_FIELD_DEF',
 695      '' );
 696 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 287, 'CREATE_BIB_IMPORT_QUEUE',
 697      '' );
 698 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 288, 'CREATE_LOCALE',
 699      '' );
 700 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 289, 'CREATE_MARC_CODE',
 701      '' );
 702 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 290, 'CREATE_TRANSLATION',
 703      '' );
 704 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 291, 'DELETE_ACQ_FUNDING_SOURCE',
 705      '' );
 706 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 292, 'DELETE_AUTHORITY_IMPORT_IMPORT_FIELD_DEF',
 707      '' );
 708 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 293, 'DELETE_AUTHORITY_IMPORT_QUEUE',
 709      '' );
 710 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 294, 'DELETE_AUTHORITY_RECORD_NOTE',
 711      '' );
 712 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 295, 'DELETE_BIB_IMPORT_IMPORT_FIELD_DEF',
 713      '' );
 714 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 296, 'DELETE_BIB_IMPORT_QUEUE',
 715      '' );
 716 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 297, 'DELETE_LOCALE',
 717      '' );
 718 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 298, 'DELETE_MARC_CODE',
 719      '' );
 720 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 299, 'DELETE_TRANSLATION',
 721      '' );
 722 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 300, 'UPDATE_ACQ_FUNDING_SOURCE',
 723      '' );
 724 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 301, 'UPDATE_AUTHORITY_IMPORT_IMPORT_FIELD_DEF',
 725      '' );
 726 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 302, 'UPDATE_AUTHORITY_IMPORT_QUEUE',
 727      '' );
 728 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 303, 'UPDATE_AUTHORITY_RECORD_NOTE',
 729      '' );
 730 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 304, 'UPDATE_BIB_IMPORT_IMPORT_FIELD_DEF',
 731      '' );
 732 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 305, 'UPDATE_BIB_IMPORT_QUEUE',
 733      '' );
 734 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 306, 'UPDATE_LOCALE',
 735      '' );
 736 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 307, 'UPDATE_MARC_CODE',
 737      '' );
 738 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 308, 'UPDATE_TRANSLATION',
 739      '' );
 740 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 309, 'VIEW_ACQ_FUNDING_SOURCE',
 741      '' );
 742 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 310, 'VIEW_AUTHORITY_RECORD_NOTES',
 743      '' );
 744 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 311, 'CREATE_IMPORT_ITEM',
 745      '' );
 746 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 312, 'CREATE_IMPORT_ITEM_ATTR_DEF',
 747      '' );
 748 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 313, 'CREATE_IMPORT_TRASH_FIELD',
 749      '' );
 750 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 314, 'DELETE_IMPORT_ITEM',
 751      '' );
 752 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 315, 'DELETE_IMPORT_ITEM_ATTR_DEF',
 753      '' );
 754 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 316, 'DELETE_IMPORT_TRASH_FIELD',
 755      '' );
 756 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 317, 'UPDATE_IMPORT_ITEM',
 757      '' );
 758 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 318, 'UPDATE_IMPORT_ITEM_ATTR_DEF',
 759      '' );
 760 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 319, 'UPDATE_IMPORT_TRASH_FIELD',
 761      '' );
 762 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 320, 'UPDATE_ORG_UNIT_SETTING_ALL',
 763      '' );
 764 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 321, 'UPDATE_ORG_UNIT_SETTING.circ.lost_materials_processing_fee',
 765      '' );
 766 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 322, 'UPDATE_ORG_UNIT_SETTING.cat.default_item_price',
 767      '' );
 768 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 323, 'UPDATE_ORG_UNIT_SETTING.auth.opac_timeout',
 769      '' );
 770 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 324, 'UPDATE_ORG_UNIT_SETTING.auth.staff_timeout',
 771      '' );
 772 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 325, 'UPDATE_ORG_UNIT_SETTING.org.bounced_emails',
 773      '' );
 774 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 326, 'UPDATE_ORG_UNIT_SETTING.circ.hold_expire_alert_interval',
 775      '' );
 776 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 327, 'UPDATE_ORG_UNIT_SETTING.circ.hold_expire_interval',
 777      '' );
 778 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 328, 'UPDATE_ORG_UNIT_SETTING.credit.payments.allow',
 779      '' );
 780 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 329, 'UPDATE_ORG_UNIT_SETTING.circ.void_overdue_on_lost',
 781      '' );
 782 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 330, 'UPDATE_ORG_UNIT_SETTING.circ.hold_stalling.soft',
 783      '' );
 784 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 331, 'UPDATE_ORG_UNIT_SETTING.circ.hold_boundary.hard',
 785      '' );
 786 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 332, 'UPDATE_ORG_UNIT_SETTING.circ.hold_boundary.soft',
 787      '' );
 788 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 333, 'UPDATE_ORG_UNIT_SETTING.opac.barcode_regex',
 789      '' );
 790 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 334, 'UPDATE_ORG_UNIT_SETTING.global.password_regex',
 791      '' );
 792 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 335, 'UPDATE_ORG_UNIT_SETTING.circ.item_checkout_history.max',
 793      '' );
 794 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 336, 'UPDATE_ORG_UNIT_SETTING.circ.reshelving_complete.interval',
 795      '' );
 796 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 337, 'UPDATE_ORG_UNIT_SETTING.circ.selfcheck.patron_login_timeout',
 797      '' );
 798 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 338, 'UPDATE_ORG_UNIT_SETTING.circ.selfcheck.alert_on_checkout_event',
 799      '' );
 800 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 339, 'UPDATE_ORG_UNIT_SETTING.circ.selfcheck.require_patron_password',
 801      '' );
 802 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 340, 'UPDATE_ORG_UNIT_SETTING.global.juvenile_age_threshold',
 803      '' );
 804 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 341, 'UPDATE_ORG_UNIT_SETTING.cat.bib.keep_on_empty',
 805      '' );
 806 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 342, 'UPDATE_ORG_UNIT_SETTING.cat.bib.alert_on_empty',
 807      '' );
 808 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 343, 'UPDATE_ORG_UNIT_SETTING.patron.password.use_phone',
 809      '' );
 810 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 344, 'HOLD_ITEM_CHECKED_OUT.override',
 811      'Allows a user to place a hold on an item that they already have checked out' );
 812 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 345, 'ADMIN_ACQ_CANCEL_CAUSE',
 813      'Allow a user to create/update/delete reasons for order cancellations' );
 814 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 346, 'ACQ_XFER_MANUAL_DFUND_AMOUNT',
 815      'Allow a user to transfer different amounts of money out of one fund and into another' );
 816 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 347, 'OVERRIDE_HOLD_HAS_LOCAL_COPY',
 817      'Allow a user to override the circ.holds.hold_has_copy_at.block setting' );
 818 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 348, 'UPDATE_PICKUP_LIB_FROM_TRANSIT',
 819      'Allow a user to change the pickup and transit destination for a captured hold item already in transit' );
 820 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 349, 'COPY_NEEDED_FOR_HOLD.override',
 821      'Allow a user to force renewal of an item that could fulfill a hold request' );
 822 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 350, 'MERGE_AUTH_RECORDS',
 823      'Allow a user to merge authority records together' );
 824 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 351, 'ALLOW_ALT_TCN',
 825      'Allows staff to import a record using an alternate TCN to avoid conflicts' );
 826 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 352, 'ADMIN_TRIGGER_EVENT_DEF',
 827      'Allow a user to administer trigger event definitions' );
 828 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 353, 'ADMIN_TRIGGER_CLEANUP',
 829      'Allow a user to create, delete, and update trigger cleanup entries' );
 830 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 354, 'CREATE_TRIGGER_CLEANUP',
 831      'Allow a user to create trigger cleanup entries' );
 832 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 355, 'DELETE_TRIGGER_CLEANUP',
 833      'Allow a user to delete trigger cleanup entries' );
 834 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 356, 'UPDATE_TRIGGER_CLEANUP',
 835      'Allow a user to update trigger cleanup entries' );
 836 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 357, 'CREATE_TRIGGER_EVENT_DEF',
 837      'Allow a user to create trigger event definitions' );
 838 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 358, 'DELETE_TRIGGER_EVENT_DEF',
 839      'Allow a user to delete trigger event definitions' );
 840 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 359, 'UPDATE_TRIGGER_EVENT_DEF',
 841      'Allow a user to update trigger event definitions' );
 842 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 360, 'VIEW_TRIGGER_EVENT_DEF',
 843      'Allow a user to view trigger event definitions' );
 844 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 361, 'ADMIN_TRIGGER_HOOK',
 845      'Allow a user to create, update, and delete trigger hooks' );
 846 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 362, 'CREATE_TRIGGER_HOOK',
 847      'Allow a user to create trigger hooks' );
 848 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 363, 'DELETE_TRIGGER_HOOK',
 849      'Allow a user to delete trigger hooks' );
 850 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 364, 'UPDATE_TRIGGER_HOOK',
 851      'Allow a user to update trigger hooks' );
 852 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 365, 'ADMIN_TRIGGER_REACTOR',
 853      'Allow a user to create, update, and delete trigger reactors' );
 854 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 366, 'CREATE_TRIGGER_REACTOR',
 855      'Allow a user to create trigger reactors' );
 856 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 367, 'DELETE_TRIGGER_REACTOR',
 857      'Allow a user to delete trigger reactors' );
 858 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 368, 'UPDATE_TRIGGER_REACTOR',
 859      'Allow a user to update trigger reactors' );
 860 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 369, 'ADMIN_TRIGGER_TEMPLATE_OUTPUT',
 861      'Allow a user to delete trigger template output' );
 862 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 370, 'DELETE_TRIGGER_TEMPLATE_OUTPUT',
 863      'Allow a user to delete trigger template output' );
 864 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 371, 'ADMIN_TRIGGER_VALIDATOR',
 865      'Allow a user to create, update, and delete trigger validators' );
 866 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 372, 'CREATE_TRIGGER_VALIDATOR',
 867      'Allow a user to create trigger validators' );
 868 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 373, 'DELETE_TRIGGER_VALIDATOR',
 869      'Allow a user to delete trigger validators' );
 870 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 374, 'UPDATE_TRIGGER_VALIDATOR',
 871      'Allow a user to update trigger validators' );
 872 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 375, 'HOLD_LOCAL_AVAIL_OVERRIDE',
 873      'Allow a user to place a hold despite the availability of a local copy' );
 874 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 376, 'ADMIN_BOOKING_RESOURCE',
 875      'Enables the user to create/update/delete booking resources' );
 876 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 377, 'ADMIN_BOOKING_RESOURCE_TYPE',
 877      'Enables the user to create/update/delete booking resource types' );
 878 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 378, 'ADMIN_BOOKING_RESOURCE_ATTR',
 879      'Enables the user to create/update/delete booking resource attributes' );
 880 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 379, 'ADMIN_BOOKING_RESOURCE_ATTR_MAP',
 881      'Enables the user to create/update/delete booking resource attribute maps' );
 882 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 380, 'ADMIN_BOOKING_RESOURCE_ATTR_VALUE',
 883      'Enables the user to create/update/delete booking resource attribute values' );
 884 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 381, 'ADMIN_BOOKING_RESERVATION',
 885      'Enables the user to create/update/delete booking reservations' );
 886 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 382, 'ADMIN_BOOKING_RESERVATION_ATTR_VALUE_MAP',
 887      'Enables the user to create/update/delete booking reservation attribute value maps' );
 888 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 383, 'RETRIEVE_RESERVATION_PULL_LIST',
 889      'Allows a user to retrieve a booking reservation pull list' );
 890 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 384, 'CAPTURE_RESERVATION',
 891      'Allows a user to capture booking reservations' );
 892 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 385, 'UPDATE_RECORD',
 893      '' );
 894 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 386, 'UPDATE_ORG_UNIT_SETTING.circ.block_renews_for_holds',
 895      '' );
 896 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 387, 'MERGE_USERS',
 897      'Allows user records to be merged' );
 898 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 388, 'ISSUANCE_HOLDS',
 899      'Allow a user to place holds on serials issuances' );
 900 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 389, 'VIEW_CREDIT_CARD_PROCESSING',
 901      'View org unit settings related to credit card processing' );
 902 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 390, 'ADMIN_CREDIT_CARD_PROCESSING',
 903      'Update org unit settings related to credit card processing' );
 904 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 391, 'ADMIN_SERIAL_CAPTION_PATTERN',
 905         'Create/update/delete serial caption and pattern objects' );
 906 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 392, 'ADMIN_SERIAL_SUBSCRIPTION',
 907         'Create/update/delete serial subscription objects' );
 908 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 393, 'ADMIN_SERIAL_DISTRIBUTION',
 909         'Create/update/delete serial distribution objects' );
 910 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 394, 'ADMIN_SERIAL_STREAM',
 911         'Create/update/delete serial stream objects' );
 912 INSERT INTO permission.temp_perm ( id, code, description ) VALUES ( 395, 'RECEIVE_SERIAL',
 913         'Receive serial items' );
 914
 915 -- Now for the permissions from the IDL.  We don't have descriptions for them.
 916
 917 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 396, 'ADMIN_ACQ_CLAIM' );
 918 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 397, 'ADMIN_ACQ_CLAIM_EVENT_TYPE' );
 919 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 398, 'ADMIN_ACQ_CLAIM_TYPE' );
 920 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 399, 'ADMIN_ACQ_DISTRIB_FORMULA' );
 921 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 400, 'ADMIN_ACQ_FISCAL_YEAR' );
 922 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 401, 'ADMIN_ACQ_FUND_ALLOCATION_PERCENT' );
 923 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 402, 'ADMIN_ACQ_FUND_TAG' );
 924 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 403, 'ADMIN_ACQ_LINEITEM_ALERT_TEXT' );
 925 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 404, 'ADMIN_AGE_PROTECT_RULE' );
 926 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 405, 'ADMIN_ASSET_COPY_TEMPLATE' );
 927 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 406, 'ADMIN_BOOKING_RESERVATION_ATTR_MAP' );
 928 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 407, 'ADMIN_CIRC_MATRIX_MATCHPOINT' );
 929 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 408, 'ADMIN_CIRC_MOD' );
 930 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 409, 'ADMIN_CLAIM_POLICY' );
 931 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 410, 'ADMIN_CONFIG_REMOTE_ACCOUNT' );
 932 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 411, 'ADMIN_FIELD_DOC' );
 933 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 412, 'ADMIN_GLOBAL_FLAG' );
 934 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 413, 'ADMIN_GROUP_PENALTY_THRESHOLD' );
 935 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 414, 'ADMIN_HOLD_CANCEL_CAUSE' );
 936 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 415, 'ADMIN_HOLD_MATRIX_MATCHPOINT' );
 937 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 416, 'ADMIN_IDENT_TYPE' );
 938 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 417, 'ADMIN_IMPORT_ITEM_ATTR_DEF' );
 939 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 418, 'ADMIN_INDEX_NORMALIZER' );
 940 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 419, 'ADMIN_INVOICE' );
 941 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 420, 'ADMIN_INVOICE_METHOD' );
 942 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 421, 'ADMIN_INVOICE_PAYMENT_METHOD' );
 943 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 422, 'ADMIN_LINEITEM_MARC_ATTR_DEF' );
 944 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 423, 'ADMIN_MARC_CODE' );
 945 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 424, 'ADMIN_MAX_FINE_RULE' );
 946 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 425, 'ADMIN_MERGE_PROFILE' );
 947 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 426, 'ADMIN_ORG_UNIT_SETTING_TYPE' );
 948 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 427, 'ADMIN_RECURRING_FINE_RULE' );
 949 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 428, 'ADMIN_STANDING_PENALTY' );
 950 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 429, 'ADMIN_SURVEY' );
 951 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 430, 'ADMIN_USER_REQUEST_TYPE' );
 952 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 431, 'ADMIN_USER_SETTING_GROUP' );
 953 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 432, 'ADMIN_USER_SETTING_TYPE' );
 954 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 433, 'ADMIN_Z3950_SOURCE' );
 955 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 434, 'CREATE_BIB_BTYPE' );
 956 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 435, 'CREATE_BIBLIO_FINGERPRINT' );
 957 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 436, 'CREATE_BIB_SOURCE' );
 958 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 437, 'CREATE_BILLING_TYPE' );
 959 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 438, 'CREATE_CN_BTYPE' );
 960 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 439, 'CREATE_COPY_BTYPE' );
 961 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 440, 'CREATE_INVOICE' );
 962 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 441, 'CREATE_INVOICE_ITEM_TYPE' );
 963 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 442, 'CREATE_INVOICE_METHOD' );
 964 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 443, 'CREATE_MERGE_PROFILE' );
 965 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 444, 'CREATE_METABIB_CLASS' );
 966 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 445, 'CREATE_METABIB_SEARCH_ALIAS' );
 967 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 446, 'CREATE_USER_BTYPE' );
 968 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 447, 'DELETE_BIB_BTYPE' );
 969 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 448, 'DELETE_BIBLIO_FINGERPRINT' );
 970 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 449, 'DELETE_BIB_SOURCE' );
 971 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 450, 'DELETE_BILLING_TYPE' );
 972 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 451, 'DELETE_CN_BTYPE' );
 973 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 452, 'DELETE_COPY_BTYPE' );
 974 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 453, 'DELETE_INVOICE_ITEM_TYPE' );
 975 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 454, 'DELETE_INVOICE_METHOD' );
 976 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 455, 'DELETE_MERGE_PROFILE' );
 977 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 456, 'DELETE_METABIB_CLASS' );
 978 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 457, 'DELETE_METABIB_SEARCH_ALIAS' );
 979 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 458, 'DELETE_USER_BTYPE' );
 980 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 459, 'MANAGE_CLAIM' );
 981 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 460, 'UPDATE_BIB_BTYPE' );
 982 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 461, 'UPDATE_BIBLIO_FINGERPRINT' );
 983 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 462, 'UPDATE_BIB_SOURCE' );
 984 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 463, 'UPDATE_BILLING_TYPE' );
 985 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 464, 'UPDATE_CN_BTYPE' );
 986 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 465, 'UPDATE_COPY_BTYPE' );
 987 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 466, 'UPDATE_INVOICE_ITEM_TYPE' );
 988 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 467, 'UPDATE_INVOICE_METHOD' );
 989 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 468, 'UPDATE_MERGE_PROFILE' );
 990 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 469, 'UPDATE_METABIB_CLASS' );
 991 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 470, 'UPDATE_METABIB_SEARCH_ALIAS' );
 992 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 471, 'UPDATE_USER_BTYPE' );
 993 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 472, 'user_request.create' );
 994 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 473, 'user_request.delete' );
 995 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 474, 'user_request.update' );
 996 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 475, 'user_request.view' );
 997 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 476, 'VIEW_ACQ_FUND_ALLOCATION_PERCENT' );
 998 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 477, 'VIEW_CIRC_MATRIX_MATCHPOINT' );
 999 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 478, 'VIEW_CLAIM' );
1000 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 479, 'VIEW_GROUP_PENALTY_THRESHOLD' );
1001 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 480, 'VIEW_HOLD_MATRIX_MATCHPOINT' );
1002 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 481, 'VIEW_INVOICE' );
1003 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 482, 'VIEW_MERGE_PROFILE' );
1004 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 483, 'VIEW_SERIAL_SUBSCRIPTION' );
1005 INSERT INTO permission.temp_perm ( id, code ) VALUES ( 484, 'VIEW_STANDING_PENALTY' );
1006
1007 -- For every permission in the temp_perm table that has a matching
1008 -- permission in the real table: record the original id.
1009
1010 UPDATE permission.temp_perm AS tp
1011 SET old_id =
1012         (
1013                 SELECT id
1014                 FROM permission.perm_list AS ppl
1015                 WHERE ppl.code = tp.code
1016         )
1017 WHERE code IN ( SELECT code FROM permission.perm_list );
1018
1019 -- Start juggling ids.
1020
1021 -- If any permissions have negative ids (with the special exception of -1),
1022 -- we need to move them into the positive range in order to avoid duplicate
1023 -- key problems (since we are going to use the negative range as a temporary
1024 -- staging area).
1025
1026 -- First, move any predefined permissions that have negative ids (again with
1027 -- the special exception of -1).  Temporarily give them positive ids based on
1028 -- the sequence.
1029
1030 UPDATE permission.perm_list
1031 SET id = NEXTVAL('permission.perm_list_id_seq'::regclass)
1032 WHERE id < -1
1033   AND code IN (SELECT code FROM permission.temp_perm);
1034
1035 -- Identify any non-predefined permissions whose ids are either negative
1036 -- or within the range (0-1000) reserved for predefined permissions.
1037 -- Assign them ids above 1000, based on the sequence.  Record the new
1038 -- ids in the temp_perm table.
1039
1040 INSERT INTO permission.temp_perm ( id, code, description, old_id, predefined )
1041 (
1042         SELECT NEXTVAL('permission.perm_list_id_seq'::regclass),
1043                 code, description, id, false
1044         FROM permission.perm_list
1045         WHERE  ( id < -1 OR id BETWEEN 0 AND 1000 )
1046         AND code NOT IN (SELECT code FROM permission.temp_perm)
1047 );
1048
1049 -- Now update the ids of those non-predefined permissions, using the
1050 -- values assigned in the previous step.
1051
1052 UPDATE permission.perm_list AS ppl
1053 SET id = (
1054                 SELECT id
1055                 FROM permission.temp_perm AS tp
1056                 WHERE tp.code = ppl.code
1057         )
1058 WHERE id IN ( SELECT old_id FROM permission.temp_perm WHERE NOT predefined );
1059
1060 -- Now the negative ids have been eliminated, except for -1.  Move all the
1061 -- predefined permissions temporarily into the negative range.
1062
1063 UPDATE permission.perm_list
1064 SET id = -1 - id
1065 WHERE id <> -1
1066 AND code IN ( SELECT code from permission.temp_perm WHERE predefined );
1067
1068 -- Apply the final ids to the existing predefined permissions.
1069
1070 UPDATE permission.perm_list AS ppl
1071 SET id =
1072         (
1073                 SELECT id
1074                 FROM permission.temp_perm AS tp
1075                 WHERE tp.code = ppl.code
1076         )
1077 WHERE
1078         id <> -1
1079         AND ppl.code IN
1080         (
1081                 SELECT code from permission.temp_perm
1082                 WHERE predefined
1083                 AND old_id IS NOT NULL
1084         );
1085
1086 -- If there are any predefined permissions that don't exist yet in
1087 -- permission.perm_list, insert them now.
1088
1089 INSERT INTO permission.perm_list ( id, code, description )
1090 (
1091         SELECT id, code, description
1092         FROM permission.temp_perm
1093         WHERE old_id IS NULL
1094 );
1095
1096 -- Reset the sequence to the lowest feasible value.  This may or may not
1097 -- accomplish anything, but it will do no harm.
1098
1099 SELECT SETVAL('permission.perm_list_id_seq'::TEXT, GREATEST(
1100         (SELECT MAX(id) FROM permission.perm_list), 1000 ));
1101
1102 -- If any permission lacks a description, use the code as a description.
1103 -- It's better than nothing.
1104
1105 UPDATE permission.perm_list
1106 SET description = code
1107 WHERE description IS NULL
1108    OR description = '';
1109
1110 -- Thus endeth the Great Renumbering.
1111
1112 -- Having massaged the permissions, massage the way they are assigned, by inserting
1113 -- rows into permission.grp_perm_map.  Some of these permissions may have already
1114 -- been assigned, so we insert the rows only if they aren't already there.
1115
1116 -- for backwards compat, give everyone the permission
1117 INSERT INTO permission.grp_perm_map (grp, perm, depth, grantable)
1118     SELECT 1, id, 0, false FROM permission.perm_list AS perm
1119         WHERE code = 'HOLD_ITEM_CHECKED_OUT.override'
1120                 AND NOT EXISTS (
1121                         SELECT 1
1122                         FROM permission.grp_perm_map AS map
1123                         WHERE
1124                                 grp = 1
1125                                 AND map.perm = perm.id
1126                 );
1127
1128 -- Add trigger administration permissions to the Local System Administrator group.
1129 INSERT INTO permission.grp_perm_map (grp, perm, depth, grantable)
1130     SELECT 10, id, 1, false FROM permission.perm_list AS perm
1131     WHERE (
1132                 perm.code LIKE 'ADMIN_TRIGGER%'
1133         OR perm.code LIKE 'CREATE_TRIGGER%'
1134         OR perm.code LIKE 'DELETE_TRIGGER%'
1135         OR perm.code LIKE 'UPDATE_TRIGGER%'
1136         ) AND NOT EXISTS (
1137                 SELECT 1
1138                 FROM permission.grp_perm_map AS map
1139                 WHERE
1140                         grp = 10
1141                         AND map.perm = perm.id
1142         );
1143
1144 -- View trigger permissions are required at a consortial level for initial setup
1145 -- (as before, only if the row doesn't already exist)
1146 INSERT INTO permission.grp_perm_map (grp, perm, depth, grantable)
1147     SELECT 10, id, 0, false FROM permission.perm_list AS perm
1148         WHERE code LIKE 'VIEW_TRIGGER%'
1149                 AND NOT EXISTS (
1150                         SELECT 1
1151                         FROM permission.grp_perm_map AS map
1152                         WHERE
1153                                 grp = 10
1154                                 AND map.perm = perm.id
1155                 );
1156
1157 -- Permission for merging auth records may already be defined,
1158 -- so add it only if it isn't there.
1159 INSERT INTO permission.grp_perm_map (grp, perm, depth, grantable)
1160     SELECT 4, id, 1, false FROM permission.perm_list AS perm
1161         WHERE code = 'MERGE_AUTH_RECORDS'
1162                 AND NOT EXISTS (
1163                         SELECT 1
1164                         FROM permission.grp_perm_map AS map
1165                         WHERE
1166                                 grp = 4
1167                                 AND map.perm = perm.id
1168                 );
1169
1170 -- Create a reference table as parent to both
1171 -- config.org_unit_setting_type and config_usr_setting_type
1172
1173 CREATE TABLE config.settings_group (
1174     name    TEXT PRIMARY KEY,
1175     label   TEXT UNIQUE NOT NULL -- I18N
1176 );
1177
1178 -- org_unit setting types
1179 CREATE TABLE config.org_unit_setting_type (
1180     name            TEXT    PRIMARY KEY,
1181     label           TEXT    UNIQUE NOT NULL,
1182     grp             TEXT    REFERENCES config.settings_group (name),
1183     description     TEXT,
1184     datatype        TEXT    NOT NULL DEFAULT 'string',
1185     fm_class        TEXT,
1186     view_perm       INT,
1187     update_perm     INT,
1188     --
1189     -- define valid datatypes
1190     --
1191     CONSTRAINT coust_valid_datatype CHECK ( datatype IN
1192     ( 'bool', 'integer', 'float', 'currency', 'interval',
1193       'date', 'string', 'object', 'array', 'link' ) ),
1194     --
1195     -- fm_class is meaningful only for 'link' datatype
1196     --
1197     CONSTRAINT coust_no_empty_link CHECK
1198     ( ( datatype =  'link' AND fm_class IS NOT NULL ) OR
1199       ( datatype <> 'link' AND fm_class IS NULL ) ),
1200         CONSTRAINT view_perm_fkey FOREIGN KEY (view_perm) REFERENCES permission.perm_list (id)
1201                 ON UPDATE CASCADE
1202                 ON DELETE RESTRICT
1203                 DEFERRABLE INITIALLY DEFERRED,
1204         CONSTRAINT update_perm_fkey FOREIGN KEY (update_perm) REFERENCES permission.perm_list (id)
1205                 ON UPDATE CASCADE
1206                 DEFERRABLE INITIALLY DEFERRED
1207 );
1208
1209 CREATE TABLE config.usr_setting_type (
1210
1211     name TEXT PRIMARY KEY,
1212     opac_visible BOOL NOT NULL DEFAULT FALSE,
1213     label TEXT UNIQUE NOT NULL,
1214     description TEXT,
1215     grp             TEXT    REFERENCES config.settings_group (name),
1216     datatype TEXT NOT NULL DEFAULT 'string',
1217     fm_class TEXT,
1218
1219     --
1220     -- define valid datatypes
1221     --
1222     CONSTRAINT coust_valid_datatype CHECK ( datatype IN
1223     ( 'bool', 'integer', 'float', 'currency', 'interval',
1224         'date', 'string', 'object', 'array', 'link' ) ),
1225
1226     --
1227     -- fm_class is meaningful only for 'link' datatype
1228     --
1229     CONSTRAINT coust_no_empty_link CHECK
1230     ( ( datatype = 'link' AND fm_class IS NOT NULL ) OR
1231         ( datatype <> 'link' AND fm_class IS NULL ) )
1232
1233 );
1234
1235 --------------------------------------
1236 -- Seed data for org_unit_setting_type
1237 --------------------------------------
1238
1239 INSERT into config.org_unit_setting_type
1240 ( name, label, description, datatype ) VALUES
1241
1242 ( 'auth.opac_timeout',
1243   'OPAC Inactivity Timeout (in seconds)',
1244   null,
1245   'integer' ),
1246
1247 ( 'auth.staff_timeout',
1248   'Staff Login Inactivity Timeout (in seconds)',
1249   null,
1250   'integer' ),
1251
1252 ( 'circ.lost_materials_processing_fee',
1253   'Lost Materials Processing Fee',
1254   null,
1255   'currency' ),
1256
1257 ( 'cat.default_item_price',
1258   'Default Item Price',
1259   null,
1260   'currency' ),
1261
1262 ( 'org.bounced_emails',
1263   'Sending email address for patron notices',
1264   null,
1265   'string' ),
1266
1267 ( 'circ.hold_expire_alert_interval',
1268   'Holds: Expire Alert Interval',
1269   'Amount of time before a hold expires at which point the patron should be alerted',
1270   'interval' ),
1271
1272 ( 'circ.hold_expire_interval',
1273   'Holds: Expire Interval',
1274   'Amount of time after a hold is placed before the hold expires.  Example "100 days"',
1275   'interval' ),
1276
1277 ( 'credit.payments.allow',
1278   'Allow Credit Card Payments',
1279   'If enabled, patrons will be able to pay fines accrued at this location via credit card',
1280   'bool' ),
1281
1282 ( 'global.default_locale',
1283   'Global Default Locale',
1284   null,
1285   'string' ),
1286
1287 ( 'circ.void_overdue_on_lost',
1288   'Void overdue fines when items are marked lost',
1289   null,
1290   'bool' ),
1291
1292 ( 'circ.hold_stalling.soft',
1293   'Holds: Soft stalling interval',
1294   'How long to wait before allowing remote items to be opportunistically captured for a hold.  Example "5 days"',
1295   'interval' ),
1296
1297 ( 'circ.hold_stalling_hard',
1298   'Holds: Hard stalling interval',
1299   '',
1300   'interval' ),
1301
1302 ( 'circ.hold_boundary.hard',
1303   'Holds: Hard boundary',
1304   null,
1305   'integer' ),
1306
1307 ( 'circ.hold_boundary.soft',
1308   'Holds: Soft boundary',
1309   null,
1310   'integer' ),
1311
1312 ( 'opac.barcode_regex',
1313   'Patron barcode format',
1314   'Regular expression defining the patron barcode format',
1315   'string' ),
1316
1317 ( 'global.password_regex',
1318   'Password format',
1319   'Regular expression defining the password format',
1320   'string' ),
1321
1322 ( 'circ.item_checkout_history.max',
1323   'Maximum previous checkouts displayed',
1324   'This is the maximum number of previous circulations the staff client will display when investigating item details',
1325   'integer' ),
1326
1327 ( 'circ.reshelving_complete.interval',
1328   'Change reshelving status interval',
1329   'Amount of time to wait before changing an item from "reshelving" status to "available".  Examples: "1 day", "6 hours"',
1330   'interval' ),
1331
1332 ( 'circ.holds.default_estimated_wait_interval',
1333   'Holds: Default Estimated Wait',
1334   'When predicting the amount of time a patron will be waiting for a hold to be fulfilled, this is the default estimated length of time to assume an item will be checked out.',
1335   'interval' ),
1336
1337 ( 'circ.holds.min_estimated_wait_interval',
1338   'Holds: Minimum Estimated Wait',
1339   'When predicting the amount of time a patron will be waiting for a hold to be fulfilled, this is the minimum estimated length of time to assume an item will be checked out.',
1340   'interval' ),
1341
1342 ( 'circ.selfcheck.patron_login_timeout',
1343   'Selfcheck: Patron Login Timeout (in seconds)',
1344   'Number of seconds of inactivity before the patron is logged out of the selfcheck interface',
1345   'integer' ),
1346
1347 ( 'circ.selfcheck.alert.popup',
1348   'Selfcheck: Pop-up alert for errors',
1349   'If true, checkout/renewal errors will cause a pop-up window in addition to the on-screen message',
1350   'bool' ),
1351
1352 ( 'circ.selfcheck.require_patron_password',
1353   'Selfcheck: Require patron password',
1354   'If true, patrons will be required to enter their password in addition to their username/barcode to log into the selfcheck interface',
1355   'bool' ),
1356
1357 ( 'global.juvenile_age_threshold',
1358   'Juvenile Age Threshold',
1359   'The age at which a user is no long considered a juvenile.  For example, "18 years".',
1360   'interval' ),
1361
1362 ( 'cat.bib.keep_on_empty',
1363   'Retain empty bib records',
1364   'Retain a bib record even when all attached copies are deleted',
1365   'bool' ),
1366
1367 ( 'cat.bib.alert_on_empty',
1368   'Alert on empty bib records',
1369   'Alert staff when the last copy for a record is being deleted',
1370   'bool' ),
1371
1372 ( 'patron.password.use_phone',
1373   'Patron: password from phone #',
1374   'Use the last 4 digits of the patrons phone number as the default password when creating new users',
1375   'bool' ),
1376
1377 ( 'circ.charge_on_damaged',
1378   'Charge item price when marked damaged',
1379   'Charge item price when marked damaged',
1380   'bool' ),
1381
1382 ( 'circ.charge_lost_on_zero',
1383   'Charge lost on zero',
1384   '',
1385   'bool' ),
1386
1387 ( 'circ.damaged_item_processing_fee',
1388   'Charge processing fee for damaged items',
1389   'Charge processing fee for damaged items',
1390   'currency' ),
1391
1392 ( 'circ.void_lost_on_checkin',
1393   'Circ: Void lost item billing when returned',
1394   'Void lost item billing when returned',
1395   'bool' ),
1396
1397 ( 'circ.max_accept_return_of_lost',
1398   'Circ: Void lost max interval',
1399   'Items that have been lost this long will not result in voided billings when returned.  E.g. ''6 months''',
1400   'interval' ),
1401
1402 ( 'circ.void_lost_proc_fee_on_checkin',
1403   'Circ: Void processing fee on lost item return',
1404   'Void processing fee when lost item returned',
1405   'bool' ),
1406
1407 ( 'circ.restore_overdue_on_lost_return',
1408   'Circ: Restore overdues on lost item return',
1409   'Restore overdue fines on lost item return',
1410   'bool' ),
1411
1412 ( 'circ.lost_immediately_available',
1413   'Circ: Lost items usable on checkin',
1414   'Lost items are usable on checkin instead of going ''home'' first',
1415   'bool' ),
1416
1417 ( 'circ.holds_fifo',
1418   'Holds: FIFO',
1419   'Force holds to a more strict First-In, First-Out capture',
1420   'bool' ),
1421
1422 ( 'opac.allow_pending_address',
1423   'OPAC: Allow pending addresses',
1424   'If enabled, patrons can create and edit existing addresses.  Addresses are kept in a pending state until staff approves the changes',
1425   'bool' ),
1426
1427 ( 'ui.circ.show_billing_tab_on_bills',
1428   'Show billing tab first when bills are present',
1429   'If enabled and a patron has outstanding bills and the alert page is not required, show the billing tab by default, instead of the checkout tab, when a patron is loaded',
1430   'bool' ),
1431
1432 ( 'ui.general.idle_timeout',
1433     'GUI: Idle timeout',
1434     'If you want staff client windows to be minimized after a certain amount of system idle time, set this to the number of seconds of idle time that you want to allow before minimizing (requires staff client restart).',
1435     'integer' ),
1436
1437 ( 'ui.circ.in_house_use.entry_cap',
1438   'GUI: Record In-House Use: Maximum # of uses allowed per entry.',
1439   'The # of uses entry in the Record In-House Use interface may not exceed the value of this setting.',
1440   'integer' ),
1441
1442 ( 'ui.circ.in_house_use.entry_warn',
1443   'GUI: Record In-House Use: # of uses threshold for Are You Sure? dialog.',
1444   'In the Record In-House Use interface, a submission attempt will warn if the # of uses field exceeds the value of this setting.',
1445   'integer' ),
1446
1447 ( 'acq.default_circ_modifier',
1448   'Default circulation modifier',
1449   null,
1450   'string' ),
1451
1452 ( 'acq.tmp_barcode_prefix',
1453   'Temporary barcode prefix',
1454   null,
1455   'string' ),
1456
1457 ( 'acq.tmp_callnumber_prefix',
1458   'Temporary call number prefix',
1459   null,
1460   'string' ),
1461
1462 ( 'ui.circ.patron_summary.horizontal',
1463   'Patron circulation summary is horizontal',
1464   null,
1465   'bool' ),
1466
1467 ( 'ui.staff.require_initials',
1468   oils_i18n_gettext('ui.staff.require_initials', 'GUI: Require staff initials for entry/edit of item/patron/penalty notes/messages.', 'coust', 'label'),
1469   oils_i18n_gettext('ui.staff.require_initials', 'Appends staff initials and edit date into note content.', 'coust', 'description'),
1470   'bool' ),
1471
1472 ( 'ui.general.button_bar',
1473   'Button bar',
1474   null,
1475   'bool' ),
1476
1477 ( 'circ.hold_shelf_status_delay',
1478   'Hold Shelf Status Delay',
1479   'The purpose is to provide an interval of time after an item goes into the on-holds-shelf status before it appears to patrons that it is actually on the holds shelf.  This gives staff time to process the item before it shows as ready-for-pickup.',
1480   'interval' ),
1481
1482 ( 'circ.patron_invalid_address_apply_penalty',
1483   'Invalid patron address penalty',
1484   'When set, if a patron address is set to invalid, a penalty is applied.',
1485   'bool' ),
1486
1487 ( 'circ.checkout_fills_related_hold',
1488   'Checkout Fills Related Hold',
1489   'When a patron checks out an item and they have no holds that directly target the item, the system will attempt to find a hold for the patron that could be fulfilled by the checked out item and fulfills it',
1490   'bool'),
1491
1492 ( 'circ.selfcheck.auto_override_checkout_events',
1493   'Selfcheck override events list',
1494   'List of checkout/renewal events that the selfcheck interface should automatically override instead instead of alerting and stopping the transaction',
1495   'array' ),
1496
1497 ( 'circ.staff_client.do_not_auto_attempt_print',
1498   'Disable Automatic Print Attempt Type List',
1499   'Disable automatic print attempts from staff client interfaces for the receipt types in this list.  Possible values: "Checkout", "Bill Pay", "Hold Slip", "Transit Slip", and "Hold/Transit Slip".  This is different from the Auto-Print checkbox in the pertinent interfaces in that it disables automatic print attempts altogether, rather than encouraging silent printing by suppressing the print dialog.  The Auto-Print checkbox in these interfaces have no effect on the behavior for this setting.  In the case of the Hold, Transit, and Hold/Transit slips, this also suppresses the alert dialogs that precede the print dialog (the ones that offer Print and Do Not Print as options).',
1500   'array' ),
1501
1502 ( 'ui.patron.default_inet_access_level',
1503   'Default level of patrons'' internet access',
1504   null,
1505   'integer' ),
1506
1507 ( 'circ.max_patron_claim_return_count',
1508     'Max Patron Claims Returned Count',
1509     'When this count is exceeded, a staff override is required to mark the item as claims returned',
1510     'integer' ),
1511
1512 ( 'circ.obscure_dob',
1513     'Obscure the Date of Birth field',
1514     'When true, the Date of Birth column in patron lists will default to Not Visible, and in the Patron Summary sidebar the value will display as <Hidden> unless the field label is clicked.',
1515     'bool' ),
1516
1517 ( 'circ.auto_hide_patron_summary',
1518     'GUI: Toggle off the patron summary sidebar after first view.',
1519     'When true, the patron summary sidebar will collapse after a new patron sub-interface is selected.',
1520     'bool' ),
1521
1522 ( 'credit.processor.default',
1523     'Credit card processing: Name default credit processor',
1524     'This can be "AuthorizeNet", "PayPal" (for the Website Payment Pro API), or "PayflowPro".',
1525     'string' ),
1526
1527 ( 'credit.processor.authorizenet.enabled',
1528     'Credit card processing: AuthorizeNet enabled',
1529     '',
1530     'bool' ),
1531
1532 ( 'credit.processor.authorizenet.login',
1533     'Credit card processing: AuthorizeNet login',
1534     '',
1535     'string' ),
1536
1537 ( 'credit.processor.authorizenet.password',
1538     'Credit card processing: AuthorizeNet password',
1539     '',
1540     'string' ),
1541
1542 ( 'credit.processor.authorizenet.server',
1543     'Credit card processing: AuthorizeNet server',
1544     'Required if using a developer/test account with AuthorizeNet',
1545     'string' ),
1546
1547 ( 'credit.processor.authorizenet.testmode',
1548     'Credit card processing: AuthorizeNet test mode',
1549     '',
1550     'bool' ),
1551
1552 ( 'credit.processor.paypal.enabled',
1553     'Credit card processing: PayPal enabled',
1554     '',
1555     'bool' ),
1556 ( 'credit.processor.paypal.login',
1557     'Credit card processing: PayPal login',
1558     '',
1559     'string' ),
1560 ( 'credit.processor.paypal.password',
1561     'Credit card processing: PayPal password',
1562     '',
1563     'string' ),
1564 ( 'credit.processor.paypal.signature',
1565     'Credit card processing: PayPal signature',
1566     '',
1567     'string' ),
1568 ( 'credit.processor.paypal.testmode',
1569     'Credit card processing: PayPal test mode',
1570     '',
1571     'bool' ),
1572
1573 ( 'ui.admin.work_log.max_entries',
1574     oils_i18n_gettext('ui.admin.work_log.max_entries', 'GUI: Work Log: Maximum Actions Logged', 'coust', 'label'),
1575     oils_i18n_gettext('ui.admin.work_log.max_entries', 'Maximum entries for "Most Recent Staff Actions" section of the Work Log interface.', 'coust', 'description'),
1576   'interval' ),
1577
1578 ( 'ui.admin.patron_log.max_entries',
1579     oils_i18n_gettext('ui.admin.patron_log.max_entries', 'GUI: Work Log: Maximum Patrons Logged', 'coust', 'label'),
1580     oils_i18n_gettext('ui.admin.patron_log.max_entries', 'Maximum entries for "Most Recently Affected Patrons..." section of the Work Log interface.', 'coust', 'description'),
1581   'interval' ),
1582
1583 ( 'lib.courier_code',
1584     oils_i18n_gettext('lib.courier_code', 'Courier Code', 'coust', 'label'),
1585     oils_i18n_gettext('lib.courier_code', 'Courier Code for the library.  Available in transit slip templates as the %courier_code% macro.', 'coust', 'description'),
1586     'string'),
1587
1588 ( 'circ.block_renews_for_holds',
1589     oils_i18n_gettext('circ.block_renews_for_holds', 'Holds: Block Renewal of Items Needed for Holds', 'coust', 'label'),
1590     oils_i18n_gettext('circ.block_renews_for_holds', 'When an item could fulfill a hold, do not allow the current patron to renew', 'coust', 'description'),
1591     'bool' ),
1592
1593 ( 'circ.password_reset_request_per_user_limit',
1594     oils_i18n_gettext('circ.password_reset_request_per_user_limit', 'Circulation: Maximum concurrently active self-serve password reset requests per user', 'coust', 'label'),
1595     oils_i18n_gettext('circ.password_reset_request_per_user_limit', 'When a user has more than this number of concurrently active self-serve password reset requests for their account, prevent the user from creating any new self-serve password reset requests until the number of active requests for the user drops back below this number.', 'coust', 'description'),
1596     'string'),
1597
1598 ( 'circ.password_reset_request_time_to_live',
1599     oils_i18n_gettext('circ.password_reset_request_time_to_live', 'Circulation: Self-serve password reset request time-to-live', 'coust', 'label'),
1600     oils_i18n_gettext('circ.password_reset_request_time_to_live', 'Length of time (in seconds) a self-serve password reset request should remain active.', 'coust', 'description'),
1601     'string'),
1602
1603 ( 'circ.password_reset_request_throttle',
1604     oils_i18n_gettext('circ.password_reset_request_throttle', 'Circulation: Maximum concurrently active self-serve password reset requests', 'coust', 'label'),
1605     oils_i18n_gettext('circ.password_reset_request_throttle', 'Prevent the creation of new self-serve password reset requests until the number of active requests drops back below this number.', 'coust', 'description'),
1606     'string')
1607 ;
1608
1609 INSERT INTO config.org_unit_setting_type ( name, label, description, datatype ) VALUES (
1610         'ui.circ.suppress_checkin_popups',
1611         oils_i18n_gettext(
1612             'ui.circ.suppress_checkin_popups',
1613             'Circ: Suppress popup-dialogs during check-in.',
1614             'coust',
1615             'label'),
1616         oils_i18n_gettext(
1617             'ui.circ.suppress_checkin_popups',
1618             'Circ: Suppress popup-dialogs during check-in.',
1619             'coust',
1620             'description'),
1621         'bool'
1622 );
1623
1624 INSERT INTO config.org_unit_setting_type ( name, label, description, datatype ) VALUES (
1625         'format.date',
1626         oils_i18n_gettext(
1627             'format.date',
1628             'GUI: Format Dates with this pattern.',
1629             'coust',
1630             'label'),
1631         oils_i18n_gettext(
1632             'format.date',
1633             'GUI: Format Dates with this pattern (examples: "yyyy-MM-dd" for "2010-04-26", "MMM d, yyyy" for "Apr 26, 2010")',
1634             'coust',
1635             'description'),
1636         'string'
1637 ), (
1638         'format.time',
1639         oils_i18n_gettext(
1640             'format.time',
1641             'GUI: Format Times with this pattern.',
1642             'coust',
1643             'label'),
1644         oils_i18n_gettext(
1645             'format.time',
1646             'GUI: Format Times with this pattern (examples: "h:m:s.SSS a z" for "2:07:20.666 PM Eastern Daylight Time", "HH:mm" for "14:07")',
1647             'coust',
1648             'description'),
1649         'string'
1650 );
1651
1652 INSERT INTO config.org_unit_setting_type ( name, label, description, datatype ) VALUES (
1653         'cat.bib.delete_on_no_copy_via_acq_lineitem_cancel',
1654         oils_i18n_gettext(
1655             'cat.bib.delete_on_no_copy_via_acq_lineitem_cancel',
1656             'CAT: Delete bib if all copies are deleted via Acquisitions lineitem cancellation.',
1657             'coust',
1658             'label'),
1659         oils_i18n_gettext(
1660             'cat.bib.delete_on_no_copy_via_acq_lineitem_cancel',
1661             'CAT: Delete bib if all copies are deleted via Acquisitions lineitem cancellation.',
1662             'coust',
1663             'description'),
1664         'bool'
1665 );
1666
1667 INSERT INTO config.org_unit_setting_type ( name, label, description, datatype ) VALUES (
1668         'url.remote_column_settings',
1669         oils_i18n_gettext(
1670             'url.remote_column_settings',
1671             'GUI: URL for remote directory containing list column settings.',
1672             'coust',
1673             'label'),
1674         oils_i18n_gettext(
1675             'url.remote_column_settings',
1676             'GUI: URL for remote directory containing list column settings.  The format and naming convention for the files found in this directory match those in the local settings directory for a given workstation.  An administrator could create the desired settings locally and then copy all the tree_columns_for_* files to the remote directory.',
1677             'coust',
1678             'description'),
1679         'string'
1680 );
1681
1682 INSERT INTO config.org_unit_setting_type ( name, label, description, datatype ) VALUES (
1683         'gui.disable_local_save_columns',
1684         oils_i18n_gettext(
1685             'gui.disable_local_save_columns',
1686             'GUI: Disable the ability to save list column configurations locally.',
1687             'coust',
1688             'label'),
1689         oils_i18n_gettext(
1690             'gui.disable_local_save_columns',
1691             'GUI: Disable the ability to save list column configurations locally.  If set, columns may still be manipulated, however, the changes do not persist.  Also, existing local configurations are ignored if this setting is true.',
1692             'coust',
1693             'description'),
1694         'bool'
1695 );
1696
1697 INSERT INTO config.org_unit_setting_type ( name, label, description, datatype ) VALUES (
1698         'circ.password_reset_request_requires_matching_email',
1699         oils_i18n_gettext(
1700             'circ.password_reset_request_requires_matching_email',
1701             'Circulation: Require matching email address for password reset requests',
1702             'coust',
1703             'label'),
1704         oils_i18n_gettext(
1705             'circ.password_reset_request_requires_matching_email',
1706             'Circulation: Require matching email address for password reset requests',
1707             'coust',
1708             'description'),
1709         'bool'
1710 );
1711
1712 INSERT INTO config.org_unit_setting_type ( name, label, description, datatype ) VALUES (
1713         'circ.holds.expired_patron_block',
1714         oils_i18n_gettext(
1715             'circ.holds.expired_patron_block',
1716             'Circulation: Block hold request if hold recipient privileges have expired',
1717             'coust',
1718             'label'),
1719         oils_i18n_gettext(
1720             'circ.holds.expired_patron_block',
1721             'Circulation: Block hold request if hold recipient privileges have expired',
1722             'coust',
1723             'description'),
1724         'bool'
1725 );
1726
1727 INSERT INTO config.org_unit_setting_type
1728     (name, label, description, datatype) VALUES (
1729         'circ.booking_reservation.default_elbow_room',
1730         oils_i18n_gettext(
1731             'circ.booking_reservation.default_elbow_room',
1732             'Booking: Elbow room',
1733             'coust',
1734             'label'
1735         ),
1736         oils_i18n_gettext(
1737             'circ.booking_reservation.default_elbow_room',
1738             'Elbow room specifies how far in the future you must make a reservation on an item if that item will have to transit to reach its pickup location.  It secondarily defines how soon a reservation on a given item must start before the check-in process will opportunistically capture it for the reservation shelf.',
1739             'coust',
1740             'label'
1741         ),
1742         'interval'
1743     );
1744
1745 -- Org_unit_setting_type(s) that need an fm_class:
1746 INSERT into config.org_unit_setting_type
1747 ( name, label, description, datatype, fm_class ) VALUES
1748 ( 'acq.default_copy_location',
1749   'Default copy location',
1750   null,
1751   'link',
1752   'acpl' );
1753
1754 INSERT INTO config.org_unit_setting_type (name, label, description, datatype) VALUES (
1755     'circ.holds.org_unit_target_weight',
1756     'Holds: Org Unit Target Weight',
1757     'Org Units can be organized into hold target groups based on a weight.  Potential copies from org units with the same weight are chosen at random.',
1758     'integer'
1759 );
1760
1761 INSERT INTO config.org_unit_setting_type (name, label, description, datatype) VALUES (
1762     'circ.holds.target_holds_by_org_unit_weight',
1763     'Holds: Use weight-based hold targeting',
1764     'Use library weight based hold targeting',
1765     'bool'
1766 );
1767
1768 INSERT INTO config.org_unit_setting_type (name, label, description, datatype) VALUES (
1769     'circ.holds.max_org_unit_target_loops',
1770     'Holds: Maximum library target attempts',
1771     'When this value is set and greater than 0, the system will only attempt to find a copy at each possible branch the configured number of times',
1772     'integer'
1773 );
1774
1775
1776 -- Org setting for overriding the circ lib of a precat copy
1777 INSERT INTO config.org_unit_setting_type (name, label, description, datatype) VALUES (
1778     'circ.pre_cat_copy_circ_lib',
1779     'Pre-cat Item Circ Lib',
1780     'Override the default circ lib of "here" with a pre-configured circ lib for pre-cat items.  The value should be the "shortname" (aka policy name) of the org unit',
1781     'string'
1782 );
1783
1784 -- Circ auto-renew interval setting
1785 INSERT INTO config.org_unit_setting_type (name, label, description, datatype) VALUES (
1786     'circ.checkout_auto_renew_age',
1787     'Checkout auto renew age',
1788     'When an item has been checked out for at least this amount of time, an attempt to check out the item to the patron that it is already checked out to will simply renew the circulation',
1789     'interval'
1790 );
1791
1792 -- Setting for behind the desk hold pickups
1793 INSERT INTO config.org_unit_setting_type (name, label, description, datatype) VALUES (
1794     'circ.holds.behind_desk_pickup_supported',
1795     'Holds: Behind Desk Pickup Supported',
1796     'If a branch supports both a public holds shelf and behind-the-desk pickups, set this value to true.  This gives the patron the option to enable behind-the-desk pickups for their holds',
1797     'bool'
1798 );
1799
1800 INSERT INTO config.org_unit_setting_type ( name, label, description, datatype ) VALUES (
1801         'acq.holds.allow_holds_from_purchase_request',
1802         oils_i18n_gettext(
1803             'acq.holds.allow_holds_from_purchase_request',
1804             'Allows patrons to create automatic holds from purchase requests.',
1805             'coust',
1806             'label'),
1807         oils_i18n_gettext(
1808             'acq.holds.allow_holds_from_purchase_request',
1809             'Allows patrons to create automatic holds from purchase requests.',
1810             'coust',
1811             'description'),
1812         'bool'
1813 );
1814
1815 INSERT INTO config.org_unit_setting_type (name, label, description, datatype) VALUES (
1816     'circ.holds.target_skip_me',
1817     'Skip For Hold Targeting',
1818     'When true, don''t target any copies at this org unit for holds',
1819     'bool'
1820 );
1821
1822 -- claims returned mark item missing
1823 INSERT INTO
1824     config.org_unit_setting_type ( name, label, description, datatype )
1825     VALUES (
1826         'circ.claim_return.mark_missing',
1827         'Claim Return: Mark copy as missing',
1828         'When a circ is marked as claims-returned, also mark the copy as missing',
1829         'bool'
1830     );
1831
1832 -- claims never checked out mark item missing
1833 INSERT INTO
1834     config.org_unit_setting_type ( name, label, description, datatype )
1835     VALUES (
1836         'circ.claim_never_checked_out.mark_missing',
1837         'Claim Never Checked Out: Mark copy as missing',
1838         'When a circ is marked as claims-never-checked-out, mark the copy as missing',
1839         'bool'
1840     );
1841
1842 -- mark damaged void overdue setting
1843 INSERT INTO
1844     config.org_unit_setting_type ( name, label, description, datatype )
1845     VALUES (
1846         'circ.damaged.void_ovedue',
1847         'Mark item damaged voids overdues',
1848         'When an item is marked damaged, overdue fines on the most recent circulation are voided.',
1849         'bool'
1850     );
1851
1852 -- hold cancel display limits
1853 INSERT INTO config.org_unit_setting_type ( name, label, description, datatype )
1854     VALUES (
1855         'circ.holds.canceled.display_count',
1856         'Holds: Canceled holds display count',
1857         'How many canceled holds to show in patron holds interfaces',
1858         'integer'
1859     );
1860
1861 INSERT INTO config.org_unit_setting_type ( name, label, description, datatype )
1862     VALUES (
1863         'circ.holds.canceled.display_age',
1864         'Holds: Canceled holds display age',
1865         'Show all canceled holds that were canceled within this amount of time',
1866         'interval'
1867     );
1868
1869 INSERT INTO config.org_unit_setting_type ( name, label, description, datatype )
1870     VALUES (
1871         'circ.holds.uncancel.reset_request_time',
1872         'Holds: Reset request time on un-cancel',
1873         'When a hold is uncanceled, reset the request time to push it to the end of the queue',
1874         'bool'
1875     );
1876
1877 INSERT INTO config.org_unit_setting_type (name, label, description, datatype)
1878     VALUES (
1879         'circ.holds.default_shelf_expire_interval',
1880         'Default hold shelf expire interval',
1881         '',
1882         'interval'
1883 );
1884
1885 INSERT INTO config.org_unit_setting_type (name, label, description, datatype, fm_class)
1886     VALUES (
1887         'circ.claim_return.copy_status',
1888         'Claim Return Copy Status',
1889         'Claims returned copies are put into this status.  Default is to leave the copy in the Checked Out status',
1890         'link',
1891         'ccs'
1892     );
1893
1894 INSERT INTO config.org_unit_setting_type ( name, label, description, datatype )
1895     VALUES (
1896         'circ.max_fine.cap_at_price',
1897         oils_i18n_gettext('circ.max_fine.cap_at_price', 'Circ: Cap Max Fine at Item Price', 'coust', 'label'),
1898         oils_i18n_gettext('circ.max_fine.cap_at_price', 'This prevents the system from charging more than the item price in overdue fines', 'coust', 'description'),
1899         'bool'
1900     );
1901
1902 INSERT INTO config.org_unit_setting_type ( name, label, description, datatype, fm_class )
1903     VALUES (
1904         'circ.holds.clear_shelf.copy_status',
1905         oils_i18n_gettext('circ.holds.clear_shelf.copy_status', 'Holds: Clear shelf copy status', 'coust', 'label'),
1906         oils_i18n_gettext('circ.holds.clear_shelf.copy_status', 'Any copies that have not been put into reshelving, in-transit, or on-holds-shelf (for a new hold) during the clear shelf process will be put into this status.  This is basically a purgatory status for copies waiting to be pulled from the shelf and processed by hand', 'coust', 'description'),
1907         'link',
1908         'ccs'
1909     );
1910
1911 INSERT INTO config.org_unit_setting_type ( name, label, description, datatype )
1912     VALUES (
1913         'circ.selfcheck.workstation_required',
1914         oils_i18n_gettext('circ.selfcheck.workstation_required', 'Selfcheck: Workstation Required', 'coust', 'label'),
1915         oils_i18n_gettext('circ.selfcheck.workstation_required', 'All selfcheck stations must use a workstation', 'coust', 'description'),
1916         'bool'
1917     ), (
1918         'circ.selfcheck.patron_password_required',
1919         oils_i18n_gettext('circ.selfcheck.patron_password_required', 'Selfcheck: Require Patron Password', 'coust', 'label'),
1920         oils_i18n_gettext('circ.selfcheck.patron_password_required', 'Patron must log in with barcode and password at selfcheck station', 'coust', 'description'),
1921         'bool'
1922     );
1923
1924 INSERT INTO config.org_unit_setting_type ( name, label, description, datatype )
1925     VALUES (
1926         'circ.selfcheck.alert.sound',
1927         oils_i18n_gettext('circ.selfcheck.alert.sound', 'Selfcheck: Audio Alerts', 'coust', 'label'),
1928         oils_i18n_gettext('circ.selfcheck.alert.sound', 'Use audio alerts for selfcheck events', 'coust', 'description'),
1929         'bool'
1930     );
1931
1932 INSERT INTO
1933     config.org_unit_setting_type (name, label, description, datatype)
1934     VALUES (
1935         'notice.telephony.callfile_lines',
1936         'Telephony: Arbitrary line(s) to include in each notice callfile',
1937         $$
1938         This overrides lines from opensrf.xml.
1939         Line(s) must be valid for your target server and platform
1940         (e.g. Asterisk 1.4).
1941         $$,
1942         'string'
1943     );
1944
1945 INSERT INTO config.org_unit_setting_type ( name, label, description, datatype )
1946     VALUES (
1947         'circ.offline.username_allowed',
1948         oils_i18n_gettext('circ.offline.username_allowed', 'Offline: Patron Usernames Allowed', 'coust', 'label'),
1949         oils_i18n_gettext('circ.offline.username_allowed', 'During offline circulations, allow patrons to identify themselves with usernames in addition to barcode.  For this setting to work, a barcode format must also be defined', 'coust', 'description'),
1950         'bool'
1951     );
1952
1953 INSERT INTO config.org_unit_setting_type ( name, label, description, datatype )
1954 VALUES (
1955     'acq.fund.balance_limit.warn',
1956     oils_i18n_gettext('acq.fund.balance_limit.warn', 'Fund Spending Limit for Warning', 'coust', 'label'),
1957     oils_i18n_gettext('acq.fund.balance_limit.warn', 'When the amount remaining in the fund, including spent money and encumbrances, goes below this percentage, attempts to spend from the fund will result in a warning to the staff.', 'coust', 'descripton'),
1958     'integer'
1959 );
1960
1961 INSERT INTO config.org_unit_setting_type ( name, label, description, datatype )
1962 VALUES (
1963     'acq.fund.balance_limit.block',
1964     oils_i18n_gettext('acq.fund.balance_limit.block', 'Fund Spending Limit for Block', 'coust', 'label'),
1965     oils_i18n_gettext('acq.fund.balance_limit.block', 'When the amount remaining in the fund, including spent money and encumbrances, goes below this percentage, attempts to spend from the fund will be blocked.', 'coust', 'description'),
1966     'integer'
1967 );
1968
1969 INSERT INTO config.org_unit_setting_type ( name, label, description, datatype )
1970     VALUES (
1971         'circ.holds.hold_has_copy_at.alert',
1972         oils_i18n_gettext('circ.holds.hold_has_copy_at.alert', 'Holds: Has Local Copy Alert', 'coust', 'label'),
1973         oils_i18n_gettext('circ.holds.hold_has_copy_at.alert', 'If there is an available copy at the requesting library that could fulfill a hold during hold placement time, alert the patron', 'coust', 'description'),
1974         'bool'
1975     ),(
1976         'circ.holds.hold_has_copy_at.block',
1977         oils_i18n_gettext('circ.holds.hold_has_copy_at.block', 'Holds: Has Local Copy Block', 'coust', 'label'),
1978         oils_i18n_gettext('circ.holds.hold_has_copy_at.block', 'If there is an available copy at the requesting library that could fulfill a hold during hold placement time, do not allow the hold to be placed', 'coust', 'description'),
1979         'bool'
1980     );
1981
1982 INSERT INTO config.org_unit_setting_type ( name, label, description, datatype )
1983 VALUES (
1984     'auth.persistent_login_interval',
1985     oils_i18n_gettext('auth.persistent_login_interval', 'Persistent Login Duration', 'coust', 'label'),
1986     oils_i18n_gettext('auth.persistent_login_interval', 'How long a persistent login lasts.  E.g. ''2 weeks''', 'coust', 'description'),
1987     'interval'
1988 );
1989
1990 INSERT INTO config.org_unit_setting_type ( name, label, description, datatype ) VALUES (
1991         'cat.marc_control_number_identifier',
1992         oils_i18n_gettext(
1993             'cat.marc_control_number_identifier',
1994             'Cat: Defines the control number identifier used in 003 and 035 fields.',
1995             'coust',
1996             'label'),
1997         oils_i18n_gettext(
1998             'cat.marc_control_number_identifier',
1999             'Cat: Defines the control number identifier used in 003 and 035 fields.',
2000             'coust',
2001             'description'),
2002         'string'
2003 );
2004
2005 INSERT INTO config.org_unit_setting_type (name, label, description, datatype)
2006     VALUES (
2007         'circ.selfcheck.block_checkout_on_copy_status',
2008         oils_i18n_gettext(
2009             'circ.selfcheck.block_checkout_on_copy_status',
2010             'Selfcheck: Block copy checkout status',
2011             'coust',
2012             'label'
2013         ),
2014         oils_i18n_gettext(
2015             'circ.selfcheck.block_checkout_on_copy_status',
2016             'List of copy status IDs that will block checkout even if the generic COPY_NOT_AVAILABLE event is overridden',
2017             'coust',
2018             'description'
2019         ),
2020         'array'
2021     );
2022
2023 INSERT INTO config.org_unit_setting_type ( name, label, description, datatype, fm_class )
2024 VALUES (
2025     'serial.prev_issuance_copy_location',
2026     oils_i18n_gettext(
2027         'serial.prev_issuance_copy_location',
2028         'Serials: Previous Issuance Copy Location',
2029         'coust',
2030         'label'
2031     ),
2032     oils_i18n_gettext(
2033         'serial.prev_issuance_copy_location',
2034         'When a serial issuance is received, copies (units) of the previous issuance will be automatically moved into the configured shelving location',
2035         'coust',
2036         'descripton'
2037         ),
2038     'link',
2039     'acpl'
2040 );
2041
2042 INSERT INTO config.org_unit_setting_type ( name, label, description, datatype, fm_class )
2043 VALUES (
2044     'cat.default_classification_scheme',
2045     oils_i18n_gettext(
2046         'cat.default_classification_scheme',
2047         'Cataloging: Default Classification Scheme',
2048         'coust',
2049         'label'
2050     ),
2051     oils_i18n_gettext(
2052         'cat.default_classification_scheme',
2053         'Defines the default classification scheme for new call numbers: 1 = Generic; 2 = Dewey; 3 = LC',
2054         'coust',
2055         'descripton'
2056         ),
2057     'link',
2058     'acnc'
2059 );
2060
2061 INSERT INTO config.org_unit_setting_type ( name, label, description, datatype ) VALUES (
2062         'opac.org_unit_hiding.depth',
2063         oils_i18n_gettext(
2064             'opac.org_unit_hiding.depth',
2065             'OPAC: Org Unit Hiding Depth',
2066             'coust',
2067             'label'),
2068         oils_i18n_gettext(
2069             'opac.org_unit_hiding.depth',
2070             'This will hide certain org units in the public OPAC if the Original Location (url param "ol") for the OPAC inherits this setting.  This setting specifies an org unit depth, that together with the OPAC Original Location determines which section of the Org Hierarchy should be visible in the OPAC.  For example, a stock Evergreen installation will have a 3-tier hierarchy (Consortium/System/Branch), where System has a depth of 1 and Branch has a depth of 2.  If this setting contains a depth of 1 in such an installation, then every library in the System in which the Original Location belongs will be visible, and everything else will be hidden.  A depth of 0 will effectively make every org visible.  The embedded OPAC in the staff client ignores this setting.',
2071             'coust',
2072             'description'),
2073         'integer'
2074 );
2075
2076 INSERT INTO config.org_unit_setting_type (name, label, description, datatype)
2077     VALUES
2078         ('circ.holds.alert_if_local_avail',
2079          'Holds: Local available alert',
2080          'If local copy is available, alert the person making the hold',
2081          'bool'),
2082
2083         ('circ.holds.deny_if_local_avail',
2084          'Holds: Local available block',
2085          'If local copy is available, deny the creation of the hold',
2086          'bool')
2087     ;
2088
2089 INSERT INTO config.org_unit_setting_type ( name, label, description, datatype )
2090     VALUES (
2091         'circ.holds.clear_shelf.no_capture_holds',
2092         oils_i18n_gettext('circ.holds.clear_shelf.no_capture_holds', 'Holds: Bypass hold capture during clear shelf process', 'coust', 'label'),
2093         oils_i18n_gettext('circ.holds.clear_shelf.no_capture_holds', 'During the clear shelf process, avoid capturing new holds on cleared items.', 'coust', 'description'),
2094         'bool'
2095     );
2096
2097 INSERT INTO config.org_unit_setting_type (name, label, description, datatype) VALUES (
2098     'circ.booking_reservation.stop_circ',
2099     'Disallow circulation of items when they are on booking reserve and that reserve overlaps with the checkout period',
2100     'When true, items on booking reserve during the proposed checkout period will not be allowed to circulate unless overridden with the COPY_RESERVED.override permission.',
2101     'bool'
2102 );
2103
2104 ---------------------------------
2105 -- Seed data for usr_setting_type
2106 ----------------------------------
2107
2108 INSERT INTO config.usr_setting_type (name,opac_visible,label,description,datatype)
2109     VALUES ('opac.default_font', TRUE, 'OPAC Font Size', 'OPAC Font Size', 'string');
2110
2111 INSERT INTO config.usr_setting_type (name,opac_visible,label,description,datatype)
2112     VALUES ('opac.default_search_depth', TRUE, 'OPAC Search Depth', 'OPAC Search Depth', 'integer');
2113
2114 INSERT INTO config.usr_setting_type (name,opac_visible,label,description,datatype)
2115     VALUES ('opac.default_search_location', TRUE, 'OPAC Search Location', 'OPAC Search Location', 'integer');
2116
2117 INSERT INTO config.usr_setting_type (name,opac_visible,label,description,datatype)
2118     VALUES ('opac.hits_per_page', TRUE, 'Hits per Page', 'Hits per Page', 'string');
2119
2120 INSERT INTO config.usr_setting_type (name,opac_visible,label,description,datatype)
2121     VALUES ('opac.hold_notify', TRUE, 'Hold Notification Format', 'Hold Notification Format', 'string');
2122
2123 INSERT INTO config.usr_setting_type (name,opac_visible,label,description,datatype)
2124     VALUES ('staff_client.catalog.record_view.default', TRUE, 'Default Record View', 'Default Record View', 'string');
2125
2126 INSERT INTO config.usr_setting_type (name,opac_visible,label,description,datatype)
2127     VALUES ('staff_client.copy_editor.templates', TRUE, 'Copy Editor Template', 'Copy Editor Template', 'object');
2128
2129 INSERT INTO config.usr_setting_type (name,opac_visible,label,description,datatype)
2130     VALUES ('circ.holds_behind_desk', FALSE, 'Hold is behind Circ Desk', 'Hold is behind Circ Desk', 'bool');
2131
2132 INSERT INTO config.usr_setting_type (name,opac_visible,label,description,datatype)
2133     VALUES (
2134         'history.circ.retention_age',
2135         TRUE,
2136         oils_i18n_gettext('history.circ.retention_age','Historical Circulation Retention Age','cust','label'),
2137         oils_i18n_gettext('history.circ.retention_age','Historical Circulation Retention Age','cust','description'),
2138         'interval'
2139     ),(
2140         'history.circ.retention_start',
2141         FALSE,
2142         oils_i18n_gettext('history.circ.retention_start','Historical Circulation Retention Start Date','cust','label'),
2143         oils_i18n_gettext('history.circ.retention_start','Historical Circulation Retention Start Date','cust','description'),
2144         'date'
2145     );
2146
2147 INSERT INTO config.usr_setting_type (name,opac_visible,label,description,datatype)
2148     VALUES (
2149         'history.hold.retention_age',
2150         TRUE,
2151         oils_i18n_gettext('history.hold.retention_age','Historical Hold Retention Age','cust','label'),
2152         oils_i18n_gettext('history.hold.retention_age','Historical Hold Retention Age','cust','description'),
2153         'interval'
2154     ),(
2155         'history.hold.retention_start',
2156         TRUE,
2157         oils_i18n_gettext('history.hold.retention_start','Historical Hold Retention Start Date','cust','label'),
2158         oils_i18n_gettext('history.hold.retention_start','Historical Hold Retention Start Date','cust','description'),
2159         'interval'
2160     ),(
2161         'history.hold.retention_count',
2162         TRUE,
2163         oils_i18n_gettext('history.hold.retention_count','Historical Hold Retention Count','cust','label'),
2164         oils_i18n_gettext('history.hold.retention_count','Historical Hold Retention Count','cust','description'),
2165         'integer'
2166     );
2167
2168 INSERT INTO config.usr_setting_type (name, opac_visible, label, description, datatype)
2169     VALUES (
2170         'opac.default_sort',
2171         TRUE,
2172         oils_i18n_gettext(
2173             'opac.default_sort',
2174             'OPAC Default Search Sort',
2175             'cust',
2176             'label'
2177         ),
2178         oils_i18n_gettext(
2179             'opac.default_sort',
2180             'OPAC Default Search Sort',
2181             'cust',
2182             'description'
2183         ),
2184         'string'
2185     );
2186
2187 INSERT INTO config.org_unit_setting_type ( name, label, description, datatype, fm_class ) VALUES (
2188         'circ.missing_pieces.copy_status',
2189         oils_i18n_gettext(
2190             'circ.missing_pieces.copy_status',
2191             'Circulation: Item Status for Missing Pieces',
2192             'coust',
2193             'label'),
2194         oils_i18n_gettext(
2195             'circ.missing_pieces.copy_status',
2196             'This is the Item Status to use for items that have been marked or scanned as having Missing Pieces.  In the absence of this setting, the Damaged status is used.',
2197             'coust',
2198             'description'),
2199         'link',
2200         'ccs'
2201 );
2202
2203 INSERT INTO config.org_unit_setting_type ( name, label, description, datatype ) VALUES (
2204         'circ.do_not_tally_claims_returned',
2205         oils_i18n_gettext(
2206             'circ.do_not_tally_claims_returned',
2207             'Circulation: Do not include outstanding Claims Returned circulations in lump sum tallies in Patron Display.',
2208             'coust',
2209             'label'),
2210         oils_i18n_gettext(
2211             'circ.do_not_tally_claims_returned',
2212             'In the Patron Display interface, the number of total active circulations for a given patron is presented in the Summary sidebar and underneath the Items Out navigation button.  This setting will prevent Claims Returned circulations from counting toward these tallies.',
2213             'coust',
2214             'description'),
2215         'bool'
2216 );
2217
2218 INSERT INTO config.org_unit_setting_type (name, label, description, datatype)
2219     VALUES
2220         ('cat.label.font.size',
2221             oils_i18n_gettext('cat.label.font.size',
2222                 'Cataloging: Spine and pocket label font size', 'coust', 'label'),
2223             oils_i18n_gettext('cat.label.font.size',
2224                 'Set the default font size for spine and pocket labels', 'coust', 'description'),
2225             'integer'
2226         )
2227         ,('cat.label.font.family',
2228             oils_i18n_gettext('cat.label.font.family',
2229                 'Cataloging: Spine and pocket label font family', 'coust', 'label'),
2230             oils_i18n_gettext('cat.label.font.family',
2231                 'Set the preferred font family for spine and pocket labels. You can specify a list of fonts, separated by commas, in order of preference; the system will use the first font it finds with a matching name. For example, "Arial, Helvetica, serif".',
2232                 'coust', 'description'),
2233             'string'
2234         )
2235         ,('cat.spine.line.width',
2236             oils_i18n_gettext('cat.spine.line.width',
2237                 'Cataloging: Spine label line width', 'coust', 'label'),
2238             oils_i18n_gettext('cat.spine.line.width',
2239                 'Set the default line width for spine labels in number of characters. This specifies the boundary at which lines must be wrapped.',
2240                 'coust', 'description'),
2241             'integer'
2242         )
2243         ,('cat.spine.line.height',
2244             oils_i18n_gettext('cat.spine.line.height',
2245                 'Cataloging: Spine label maximum lines', 'coust', 'label'),
2246             oils_i18n_gettext('cat.spine.line.height',
2247                 'Set the default maximum number of lines for spine labels.',
2248                 'coust', 'description'),
2249             'integer'
2250         )
2251         ,('cat.spine.line.margin',
2252             oils_i18n_gettext('cat.spine.line.margin',
2253                 'Cataloging: Spine label left margin', 'coust', 'label'),
2254             oils_i18n_gettext('cat.spine.line.margin',
2255                 'Set the left margin for spine labels in number of characters.',
2256                 'coust', 'description'),
2257             'integer'
2258         )
2259 ;
2260
2261 INSERT INTO config.org_unit_setting_type (name, label, description, datatype)
2262     VALUES
2263         ('cat.label.font.weight',
2264             oils_i18n_gettext('cat.label.font.weight',
2265                 'Cataloging: Spine and pocket label font weight', 'coust', 'label'),
2266             oils_i18n_gettext('cat.label.font.weight',
2267                 'Set the preferred font weight for spine and pocket labels. You can specify "normal", "bold", "bolder", or "lighter".',
2268                 'coust', 'description'),
2269             'string'
2270         )
2271 ;
2272
2273 INSERT INTO config.org_unit_setting_type ( name, label, description, datatype ) VALUES (
2274         'circ.patron_edit.clone.copy_address',
2275         oils_i18n_gettext(
2276             'circ.patron_edit.clone.copy_address',
2277             'Patron Registration: Cloned patrons get address copy',
2278             'coust',
2279             'label'
2280         ),
2281         oils_i18n_gettext(
2282             'circ.patron_edit.clone.copy_address',
2283             'In the Patron editor, copy addresses from the cloned user instead of linking directly to the address',
2284             'coust',
2285             'description'
2286         ),
2287         'bool'
2288 );
2289
2290 INSERT INTO config.org_unit_setting_type ( name, label, description, datatype, fm_class ) VALUES (
2291         'ui.patron.default_ident_type',
2292         oils_i18n_gettext(
2293             'ui.patron.default_ident_type',
2294             'GUI: Default Ident Type for Patron Registration',
2295             'coust',
2296             'label'),
2297         oils_i18n_gettext(
2298             'ui.patron.default_ident_type',
2299             'This is the default Ident Type for new users in the patron editor.',
2300             'coust',
2301             'description'),
2302         'link',
2303         'cit'
2304 );
2305
2306 INSERT INTO config.org_unit_setting_type ( name, label, description, datatype ) VALUES (
2307         'ui.patron.default_country',
2308         oils_i18n_gettext(
2309             'ui.patron.default_country',
2310             'GUI: Default Country for New Addresses in Patron Editor',
2311             'coust',
2312             'label'),
2313         oils_i18n_gettext(
2314             'ui.patron.default_country',
2315             'This is the default Country for new addresses in the patron editor.',
2316             'coust',
2317             'description'),
2318         'string'
2319 );
2320
2321 INSERT INTO config.org_unit_setting_type ( name, label, description, datatype ) VALUES (
2322         'ui.patron.registration.require_address',
2323         oils_i18n_gettext(
2324             'ui.patron.registration.require_address',
2325             'GUI: Require at least one address for Patron Registration',
2326             'coust',
2327             'label'),
2328         oils_i18n_gettext(
2329             'ui.patron.registration.require_address',
2330             'Enforces a requirement for having at least one address for a patron during registration.',
2331             'coust',
2332             'description'),
2333         'bool'
2334 );
2335
2336 INSERT INTO config.org_unit_setting_type (
2337     name, label, description, datatype
2338 ) VALUES
2339     ('credit.processor.payflowpro.enabled',
2340         'Credit card processing: Enable PayflowPro payments',
2341         'This is NOT the same thing as the settings labeled with just "PayPal."',
2342         'bool'
2343     ),
2344     ('credit.processor.payflowpro.login',
2345         'Credit card processing: PayflowPro login/merchant ID',
2346         'Often the same thing as the PayPal manager login',
2347         'string'
2348     ),
2349     ('credit.processor.payflowpro.password',
2350         'Credit card processing: PayflowPro password',
2351         'PayflowPro password',
2352         'string'
2353     ),
2354     ('credit.processor.payflowpro.testmode',
2355         'Credit card processing: PayflowPro test mode',
2356         'Do not really process transactions, but stay in test mode - uses pilot-payflowpro.paypal.com instead of the usual host',
2357         'bool'
2358     ),
2359     ('credit.processor.payflowpro.vendor',
2360         'Credit card processing: PayflowPro vendor',
2361         'Often the same thing as the login',
2362         'string'
2363     ),
2364     ('credit.processor.payflowpro.partner',
2365         'Credit card processing: PayflowPro partner',
2366         'Often "PayPal" or "VeriSign", sometimes others',
2367         'string'
2368     );
2369
2370 -- Patch the name of an old selfcheck setting
2371 UPDATE actor.org_unit_setting
2372     SET name = 'circ.selfcheck.alert.popup'
2373     WHERE name = 'circ.selfcheck.alert_on_checkout_event';
2374
2375 -- Rename certain existing org_unit settings, if present,
2376 -- and make sure their values are JSON
2377 UPDATE actor.org_unit_setting SET
2378     name = 'circ.holds.default_estimated_wait_interval',
2379     --
2380     -- The value column should be JSON.  The old value should be a number,
2381     -- but it may or may not be quoted.  The following CASE behaves
2382     -- differently depending on whether value is quoted.  It is simplistic,
2383     -- and will be defeated by leading or trailing white space, or various
2384     -- malformations.
2385     --
2386     value = CASE WHEN SUBSTR( value, 1, 1 ) = '"'
2387                 THEN '"' || SUBSTR( value, 2, LENGTH(value) - 2 ) || ' days"'
2388                 ELSE '"' || value || ' days"'
2389             END
2390 WHERE name = 'circ.hold_estimate_wait_interval';
2391
2392 -- Create types for existing org unit settings
2393 -- not otherwise accounted for
2394
2395 INSERT INTO config.org_unit_setting_type(
2396  name,
2397  label,
2398  description
2399 )
2400 SELECT DISTINCT
2401         name,
2402         name,
2403         'FIXME'
2404 FROM
2405         actor.org_unit_setting
2406 WHERE
2407         name NOT IN (
2408                 SELECT name
2409                 FROM config.org_unit_setting_type
2410         );
2411
2412 -- Add foreign key to org_unit_setting
2413
2414 ALTER TABLE actor.org_unit_setting
2415         ADD FOREIGN KEY (name) REFERENCES config.org_unit_setting_type (name)
2416                 DEFERRABLE INITIALLY DEFERRED;
2417
2418 -- Create types for existing user settings
2419 -- not otherwise accounted for
2420
2421 INSERT INTO config.usr_setting_type (
2422         name,
2423         label,
2424         description
2425 )
2426 SELECT DISTINCT
2427         name,
2428         name,
2429         'FIXME'
2430 FROM
2431         actor.usr_setting
2432 WHERE
2433         name NOT IN (
2434                 SELECT name
2435                 FROM config.usr_setting_type
2436         );
2437
2438 -- Add foreign key to user_setting_type
2439
2440 ALTER TABLE actor.usr_setting
2441         ADD FOREIGN KEY (name) REFERENCES config.usr_setting_type (name)
2442                 ON DELETE CASCADE ON UPDATE CASCADE
2443                 DEFERRABLE INITIALLY DEFERRED;
2444
2445 INSERT INTO actor.org_unit_setting (org_unit, name, value) VALUES
2446     (1, 'cat.spine.line.margin', 0)
2447     ,(1, 'cat.spine.line.height', 9)
2448     ,(1, 'cat.spine.line.width', 8)
2449     ,(1, 'cat.label.font.family', '"monospace"')
2450     ,(1, 'cat.label.font.size', 10)
2451     ,(1, 'cat.label.font.weight', '"normal"')
2452 ;
2453
2454 ALTER TABLE action_trigger.event_definition ADD COLUMN granularity TEXT;
2455 ALTER TABLE action_trigger.event ADD COLUMN async_output BIGINT REFERENCES action_trigger.event_output (id);
2456 ALTER TABLE action_trigger.event_definition ADD COLUMN usr_field TEXT;
2457 ALTER TABLE action_trigger.event_definition ADD COLUMN opt_in_setting TEXT REFERENCES config.usr_setting_type (name) DEFERRABLE INITIALLY DEFERRED;
2458
2459 CREATE OR REPLACE FUNCTION is_json( TEXT ) RETURNS BOOL AS $f$
2460     use JSON::XS;
2461     my $json = shift();
2462     eval { JSON::XS->new->allow_nonref->decode( $json ) };
2463     return $@ ? 0 : 1;
2464 $f$ LANGUAGE PLPERLU;
2465
2466 ALTER TABLE action_trigger.event ADD COLUMN user_data TEXT CHECK (user_data IS NULL OR is_json( user_data ));
2467
2468 INSERT INTO action_trigger.hook (key,core_type,description) VALUES (
2469     'hold_request.cancel.expire_no_target',
2470     'ahr',
2471     'A hold is cancelled because no copies were found'
2472 );
2473
2474 INSERT INTO action_trigger.hook (key,core_type,description) VALUES (
2475     'hold_request.cancel.expire_holds_shelf',
2476     'ahr',
2477     'A hold is cancelled because it was on the holds shelf too long'
2478 );
2479
2480 INSERT INTO action_trigger.hook (key,core_type,description) VALUES (
2481     'hold_request.cancel.staff',
2482     'ahr',
2483     'A hold is cancelled because it was cancelled by staff'
2484 );
2485
2486 INSERT INTO action_trigger.hook (key,core_type,description) VALUES (
2487     'hold_request.cancel.patron',
2488     'ahr',
2489     'A hold is cancelled by the patron'
2490 );
2491
2492 -- Fix typos in descriptions
2493 UPDATE action_trigger.hook SET description = 'A hold is successfully placed' WHERE key = 'hold_request.success';
2494 UPDATE action_trigger.hook SET description = 'A hold is attempted but not successfully placed' WHERE key = 'hold_request.failure';
2495
2496 -- Add a hook for renewals
2497 INSERT INTO action_trigger.hook (key,core_type,description) VALUES ('renewal','circ','Item renewed to user');
2498
2499 INSERT INTO action_trigger.validator (module,description) VALUES ('MaxPassiveDelayAge','Check that the event is not too far past the delay_field time -- requires a max_delay_age interval parameter');
2500
2501 -- Sample Pre-due Notice --
2502
2503 INSERT INTO action_trigger.event_definition (id, active, owner, name, hook, validator, reactor, delay, delay_field, group_field, template)
2504     VALUES (6, 'f', 1, '3 Day Courtesy Notice', 'checkout.due', 'CircIsOpen', 'SendEmail', '-3 days', 'due_date', 'usr',
2505 $$
2506 [%- USE date -%]
2507 [%- user = target.0.usr -%]
2508 To: [%- params.recipient_email || user.email %]
2509 From: [%- params.sender_email || default_sender %]
2510 Subject: Courtesy Notice
2511
2512 Dear [% user.family_name %], [% user.first_given_name %]
2513 As a reminder, the following items are due in 3 days.
2514
2515 [% FOR circ IN target %]
2516     Title: [% circ.target_copy.call_number.record.simple_record.title %]
2517     Barcode: [% circ.target_copy.barcode %]
2518     Due: [% date.format(helpers.format_date(circ.due_date), '%Y-%m-%d') %]
2519     Item Cost: [% helpers.get_copy_price(circ.target_copy) %]
2520     Library: [% circ.circ_lib.name %]
2521     Library Phone: [% circ.circ_lib.phone %]
2522 [% END %]
2523
2524 $$);
2525
2526 INSERT INTO action_trigger.environment (event_def, path) VALUES
2527     (6, 'target_copy.call_number.record.simple_record'),
2528     (6, 'usr'),
2529     (6, 'circ_lib.billing_address');
2530
2531 INSERT INTO action_trigger.event_params (event_def, param, value) VALUES
2532     (6, 'max_delay_age', '"1 day"');
2533
2534 -- also add the max delay age to the default overdue notice event def
2535 INSERT INTO action_trigger.event_params (event_def, param, value) VALUES
2536     (1, 'max_delay_age', '"1 day"');
2537
2538 INSERT INTO action_trigger.validator (module,description) VALUES ('MinPassiveTargetAge','Check that the target is old enough to be used by this event -- requires a min_target_age interval parameter, and accepts an optional target_age_field to specify what time to use for offsetting');
2539
2540 INSERT INTO action_trigger.reactor (module,description) VALUES ('ApplyPatronPenalty','Applies the configured penalty to a patron.  Required named environment variables are "user", which refers to the user object, and "context_org", which refers to the org_unit object that acts as the focus for the penalty.');
2541
2542 INSERT INTO action_trigger.hook (
2543         key,
2544         core_type,
2545         description,
2546         passive
2547     ) VALUES (
2548         'hold_request.shelf_expires_soon',
2549         'ahr',
2550         'A hold on the shelf will expire there soon.',
2551         TRUE
2552     );
2553
2554 INSERT INTO action_trigger.event_definition (
2555         id,
2556         active,
2557         owner,
2558         name,
2559         hook,
2560         validator,
2561         reactor,
2562         delay,
2563         delay_field,
2564         group_field,
2565         template
2566     ) VALUES (
2567         7,
2568         FALSE,
2569         1,
2570         'Hold Expires from Shelf Soon',
2571         'hold_request.shelf_expires_soon',
2572         'HoldIsAvailable',
2573         'SendEmail',
2574         '- 1 DAY',
2575         'shelf_expire_time',
2576         'usr',
2577 $$
2578 [%- USE date -%]
2579 [%- user = target.0.usr -%]
2580 To: [%- params.recipient_email || user.email %]
2581 From: [%- params.sender_email || default_sender %]
2582 Subject: Hold Available Notification
2583
2584 Dear [% user.family_name %], [% user.first_given_name %]
2585 You requested holds on the following item(s), which are available for
2586 pickup, but these holds will soon expire.
2587
2588 [% FOR hold IN target %]
2589     [%- data = helpers.get_copy_bib_basics(hold.current_copy.id) -%]
2590     Title: [% data.title %]
2591     Author: [% data.author %]
2592     Library: [% hold.pickup_lib.name %]
2593 [% END %]
2594 $$
2595     );
2596
2597 INSERT INTO action_trigger.environment (
2598         event_def,
2599         path
2600     ) VALUES
2601     ( 7, 'current_copy'),
2602     ( 7, 'pickup_lib.billing_address'),
2603     ( 7, 'usr');
2604
2605 INSERT INTO action_trigger.hook (
2606         key,
2607         core_type,
2608         description,
2609         passive
2610     ) VALUES (
2611         'hold_request.long_wait',
2612         'ahr',
2613         'A patron has been waiting on a hold to be fulfilled for a long time.',
2614         TRUE
2615     );
2616
2617 INSERT INTO action_trigger.event_definition (
2618         id,
2619         active,
2620         owner,
2621         name,
2622         hook,
2623         validator,
2624         reactor,
2625         delay,
2626         delay_field,
2627         group_field,
2628         template
2629     ) VALUES (
2630         9,
2631         FALSE,
2632         1,
2633         'Hold waiting for pickup for long time',
2634         'hold_request.long_wait',
2635         'NOOP_True',
2636         'SendEmail',
2637         '6 MONTHS',
2638         'request_time',
2639         'usr',
2640 $$
2641 [%- USE date -%]
2642 [%- user = target.0.usr -%]
2643 To: [%- params.recipient_email || user.email %]
2644 From: [%- params.sender_email || default_sender %]
2645 Subject: Long Wait Hold Notification
2646
2647 Dear [% user.family_name %], [% user.first_given_name %]
2648
2649 You requested hold(s) on the following item(s), but unfortunately
2650 we have not been able to fulfill your request after a considerable
2651 length of time.  If you would still like to receive these items,
2652 no action is required.
2653
2654 [% FOR hold IN target %]
2655     Title: [% hold.bib_rec.bib_record.simple_record.title %]
2656     Author: [% hold.bib_rec.bib_record.simple_record.author %]
2657 [% END %]
2658 $$
2659 );
2660
2661 INSERT INTO action_trigger.environment (
2662         event_def,
2663         path
2664     ) VALUES
2665     (9, 'pickup_lib'),
2666     (9, 'usr'),
2667     (9, 'bib_rec.bib_record.simple_record');
2668
2669 INSERT INTO action_trigger.hook (key, core_type, description, passive)
2670     VALUES (
2671         'format.selfcheck.checkout',
2672         'circ',
2673         'Formats circ objects for self-checkout receipt',
2674         TRUE
2675     );
2676
2677 INSERT INTO action_trigger.event_definition (id, active, owner, name, hook, validator, reactor, group_field, granularity, template )
2678     VALUES (
2679         10,
2680         TRUE,
2681         1,
2682         'Self-Checkout Receipt',
2683         'format.selfcheck.checkout',
2684         'NOOP_True',
2685         'ProcessTemplate',
2686         'usr',
2687         'print-on-demand',
2688 $$
2689 [%- USE date -%]
2690 [%- SET user = target.0.usr -%]
2691 [%- SET lib = target.0.circ_lib -%]
2692 [%- SET lib_addr = target.0.circ_lib.billing_address -%]
2693 [%- SET hours = lib.hours_of_operation -%]
2694 <div>
2695     <style> li { padding: 8px; margin 5px; }</style>
2696     <div>[% date.format %]</div>
2697     <div>[% lib.name %]</div>
2698     <div>[% lib_addr.street1 %] [% lib_addr.street2 %]</div>
2699     <div>[% lib_addr.city %], [% lib_addr.state %] [% lb_addr.post_code %]</div>
2700     <div>[% lib.phone %]</div>
2701     <br/>
2702
2703     [% user.family_name %], [% user.first_given_name %]
2704     <ol>
2705     [% FOR circ IN target %]
2706         [%-
2707             SET idx = loop.count - 1;
2708             SET udata =  user_data.$idx
2709         -%]
2710         <li>
2711             <div>[% helpers.get_copy_bib_basics(circ.target_copy.id).title %]</div>
2712             <div>Barcode: [% circ.target_copy.barcode %]</div>
2713             [% IF udata.renewal_failure %]
2714                 <div style='color:red;'>Renewal Failed</div>
2715             [% ELSE %]
2716                 <div>Due Date: [% date.format(helpers.format_date(circ.due_date), '%Y-%m-%d') %]</div>
2717             [% END %]
2718         </li>
2719     [% END %]
2720     </ol>
2721
2722     <div>
2723         Library Hours
2724         [%- BLOCK format_time; date.format(time _ ' 1/1/1000', format='%I:%M %p'); END -%]
2725         <div>
2726             Monday
2727             [% PROCESS format_time time = hours.dow_0_open %]
2728             [% PROCESS format_time time = hours.dow_0_close %]
2729         </div>
2730         <div>
2731             Tuesday
2732             [% PROCESS format_time time = hours.dow_1_open %]
2733             [% PROCESS format_time time = hours.dow_1_close %]
2734         </div>
2735         <div>
2736             Wednesday
2737             [% PROCESS format_time time = hours.dow_2_open %]
2738             [% PROCESS format_time time = hours.dow_2_close %]
2739         </div>
2740         <div>
2741             Thursday
2742             [% PROCESS format_time time = hours.dow_3_open %]
2743             [% PROCESS format_time time = hours.dow_3_close %]
2744         </div>
2745         <div>
2746             Friday
2747             [% PROCESS format_time time = hours.dow_4_open %]
2748             [% PROCESS format_time time = hours.dow_4_close %]
2749         </div>
2750         <div>
2751             Saturday
2752             [% PROCESS format_time time = hours.dow_5_open %]
2753             [% PROCESS format_time time = hours.dow_5_close %]
2754         </div>
2755         <div>
2756             Sunday
2757             [% PROCESS format_time time = hours.dow_6_open %]
2758             [% PROCESS format_time time = hours.dow_6_close %]
2759         </div>
2760     </div>
2761 </div>
2762 $$
2763 );
2764
2765 INSERT INTO action_trigger.environment ( event_def, path) VALUES
2766     ( 10, 'target_copy'),
2767     ( 10, 'circ_lib.billing_address'),
2768     ( 10, 'circ_lib.hours_of_operation'),
2769     ( 10, 'usr');
2770
2771 INSERT INTO action_trigger.hook (key, core_type, description, passive)
2772     VALUES (
2773         'format.selfcheck.items_out',
2774         'circ',
2775         'Formats items out for self-checkout receipt',
2776         TRUE
2777     );
2778
2779 INSERT INTO action_trigger.event_definition (id, active, owner, name, hook, validator, reactor, group_field, granularity, template )
2780     VALUES (
2781         11,
2782         TRUE,
2783         1,
2784         'Self-Checkout Items Out Receipt',
2785         'format.selfcheck.items_out',
2786         'NOOP_True',
2787         'ProcessTemplate',
2788         'usr',
2789         'print-on-demand',
2790 $$
2791 [%- USE date -%]
2792 [%- SET user = target.0.usr -%]
2793 <div>
2794     <style> li { padding: 8px; margin 5px; }</style>
2795     <div>[% date.format %]</div>
2796     <br/>
2797
2798     [% user.family_name %], [% user.first_given_name %]
2799     <ol>
2800     [% FOR circ IN target %]
2801         <li>
2802             <div>[% helpers.get_copy_bib_basics(circ.target_copy.id).title %]</div>
2803             <div>Barcode: [% circ.target_copy.barcode %]</div>
2804             <div>Due Date: [% date.format(helpers.format_date(circ.due_date), '%Y-%m-%d') %]</div>
2805         </li>
2806     [% END %]
2807     </ol>
2808 </div>
2809 $$
2810 );
2811
2812
2813 INSERT INTO action_trigger.environment ( event_def, path) VALUES
2814     ( 11, 'target_copy'),
2815     ( 11, 'circ_lib.billing_address'),
2816     ( 11, 'circ_lib.hours_of_operation'),
2817     ( 11, 'usr');
2818
2819 INSERT INTO action_trigger.hook (key, core_type, description, passive)
2820     VALUES (
2821         'format.selfcheck.holds',
2822         'ahr',
2823         'Formats holds for self-checkout receipt',
2824         TRUE
2825     );
2826
2827 INSERT INTO action_trigger.event_definition (id, active, owner, name, hook, validator, reactor, group_field, granularity, template )
2828     VALUES (
2829         12,
2830         TRUE,
2831         1,
2832         'Self-Checkout Holds Receipt',
2833         'format.selfcheck.holds',
2834         'NOOP_True',
2835         'ProcessTemplate',
2836         'usr',
2837         'print-on-demand',
2838 $$
2839 [%- USE date -%]
2840 [%- SET user = target.0.usr -%]
2841 <div>
2842     <style> li { padding: 8px; margin 5px; }</style>
2843     <div>[% date.format %]</div>
2844     <br/>
2845
2846     [% user.family_name %], [% user.first_given_name %]
2847     <ol>
2848     [% FOR hold IN target %]
2849         [%-
2850             SET idx = loop.count - 1;
2851             SET udata =  user_data.$idx
2852         -%]
2853         <li>
2854             <div>Title: [% hold.bib_rec.bib_record.simple_record.title %]</div>
2855             <div>Author: [% hold.bib_rec.bib_record.simple_record.author %]</div>
2856             <div>Pickup Location: [% hold.pickup_lib.name %]</div>
2857             <div>Status:
2858                 [%- IF udata.ready -%]
2859                     Ready for pickup
2860                 [% ELSE %]
2861                     #[% udata.queue_position %] of [% udata.potential_copies %] copies.
2862                 [% END %]
2863             </div>
2864         </li>
2865     [% END %]
2866     </ol>
2867 </div>
2868 $$
2869 );
2870
2871
2872 INSERT INTO action_trigger.environment ( event_def, path) VALUES
2873     ( 12, 'bib_rec.bib_record.simple_record'),
2874     ( 12, 'pickup_lib'),
2875     ( 12, 'usr');
2876
2877 INSERT INTO action_trigger.hook (key, core_type, description, passive)
2878     VALUES (
2879         'format.selfcheck.fines',
2880         'au',
2881         'Formats fines for self-checkout receipt',
2882         TRUE
2883     );
2884
2885 INSERT INTO action_trigger.event_definition (id, active, owner, name, hook, validator, reactor, granularity, template )
2886     VALUES (
2887         13,
2888         TRUE,
2889         1,
2890         'Self-Checkout Fines Receipt',
2891         'format.selfcheck.fines',
2892         'NOOP_True',
2893         'ProcessTemplate',
2894         'print-on-demand',
2895 $$
2896 [%- USE date -%]
2897 [%- SET user = target -%]
2898 <div>
2899     <style> li { padding: 8px; margin 5px; }</style>
2900     <div>[% date.format %]</div>
2901     <br/>
2902
2903     [% user.family_name %], [% user.first_given_name %]
2904     <ol>
2905     [% FOR xact IN user.open_billable_transactions_summary %]
2906         <li>
2907             <div>Details:
2908                 [% IF xact.xact_type == 'circulation' %]
2909                     [%- helpers.get_copy_bib_basics(xact.circulation.target_copy).title -%]
2910                 [% ELSE %]
2911                     [%- xact.last_billing_type -%]
2912                 [% END %]
2913             </div>
2914             <div>Total Billed: [% xact.total_owed %]</div>
2915             <div>Total Paid: [% xact.total_paid %]</div>
2916             <div>Balance Owed : [% xact.balance_owed %]</div>
2917         </li>
2918     [% END %]
2919     </ol>
2920 </div>
2921 $$
2922 );
2923
2924 INSERT INTO action_trigger.environment ( event_def, path) VALUES
2925     ( 13, 'open_billable_transactions_summary.circulation' );
2926
2927 INSERT INTO action_trigger.reactor (module,description) VALUES
2928 (   'SendFile',
2929     oils_i18n_gettext(
2930         'SendFile',
2931         'Build and transfer a file to a remote server.  Required parameter "remote_host" specifying target server.  Optional parameters: remote_user, remote_password, remote_account, port, type (FTP, SFTP or SCP), and debug.',
2932         'atreact',
2933         'description'
2934     )
2935 );
2936
2937 INSERT INTO action_trigger.hook (key, core_type, description, passive)
2938     VALUES (
2939         'format.acqli.html',
2940         'jub',
2941         'Formats lineitem worksheet for titles received',
2942         TRUE
2943     );
2944
2945 INSERT INTO action_trigger.event_definition (id, active, owner, name, hook, validator, reactor, granularity, template)
2946     VALUES (
2947         14,
2948         TRUE,
2949         1,
2950         'Lineitem Worksheet',
2951         'format.acqli.html',
2952         'NOOP_True',
2953         'ProcessTemplate',
2954         'print-on-demand',
2955 $$
2956 [%- USE date -%]
2957 [%- SET li = target; -%]
2958 <div class="wrapper">
2959     <div class="summary" style='font-size:110%; font-weight:bold;'>
2960
2961         <div>Title: [% helpers.get_li_attr("title", "", li.attributes) %]</div>
2962         <div>Author: [% helpers.get_li_attr("author", "", li.attributes) %]</div>
2963         <div class="count">Item Count: [% li.lineitem_details.size %]</div>
2964         <div class="lineid">Lineitem ID: [% li.id %]</div>
2965
2966         [% IF li.distribution_formulas.size > 0 %]
2967             [% SET forms = [] %]
2968             [% FOREACH form IN li.distribution_formulas; forms.push(form.formula.name); END %]
2969             <div>Distribution Formulas: [% forms.join(',') %]</div>
2970         [% END %]
2971
2972         [% IF li.lineitem_notes.size > 0 %]
2973             Lineitem Notes:
2974             <ul>
2975                 [%- FOR note IN li.lineitem_notes -%]
2976                     <li>
2977                     [% IF note.alert_text %]
2978                         [% note.alert_text.code -%]
2979                         [% IF note.value -%]
2980                             : [% note.value %]
2981                         [% END %]
2982                     [% ELSE %]
2983                         [% note.value -%]
2984                     [% END %]
2985                     </li>
2986                 [% END %]
2987             </ul>
2988         [% END %]
2989     </div>
2990     <br/>
2991     <table>
2992         <thead>
2993             <tr>
2994                 <th>Branch</th>
2995                 <th>Barcode</th>
2996                 <th>Call Number</th>
2997                 <th>Fund</th>
2998                 <th>Recd.</th>
2999                 <th>Notes</th>
3000             </tr>
3001         </thead>
3002         <tbody>
3003         [% FOREACH detail IN li.lineitem_details.sort('owning_lib') %]
3004             [%
3005                 IF copy.eg_copy_id;
3006                     SET copy = copy.eg_copy_id;
3007                     SET cn_label = copy.call_number.label;
3008                 ELSE;
3009                     SET copy = detail;
3010                     SET cn_label = detail.cn_label;
3011                 END
3012             %]
3013             <tr>
3014                 <!-- acq.lineitem_detail.id = [%- detail.id -%] -->
3015                 <td style='padding:5px;'>[% detail.owning_lib.shortname %]</td>
3016                 <td style='padding:5px;'>[% IF copy.barcode   %]<span class="barcode"  >[% detail.barcode   %]</span>[% END %]</td>
3017                 <td style='padding:5px;'>[% IF cn_label %]<span class="cn_label" >[% cn_label  %]</span>[% END %]</td>
3018                 <td style='padding:5px;'>[% IF detail.fund %]<span class="fund">[% detail.fund.code %] ([% detail.fund.year %])</span>[% END %]</td>
3019                 <td style='padding:5px;'>[% IF detail.recv_time %]<span class="recv_time">[% detail.recv_time %]</span>[% END %]</td>
3020                 <td style='padding:5px;'>[% detail.note %]</td>
3021             </tr>
3022         [% END %]
3023         </tbody>
3024     </table>
3025 </div>
3026 $$
3027 );
3028
3029
3030 INSERT INTO action_trigger.environment (event_def, path) VALUES
3031     ( 14, 'attributes' ),
3032     ( 14, 'lineitem_details' ),
3033     ( 14, 'lineitem_details.owning_lib' ),
3034     ( 14, 'lineitem_notes' )
3035 ;
3036
3037 INSERT INTO action_trigger.hook (key,core_type,description,passive) VALUES (
3038         'aur.ordered',
3039         'aur',
3040         oils_i18n_gettext(
3041             'aur.ordered',
3042             'A patron acquisition request has been marked On-Order.',
3043             'ath',
3044             'description'
3045         ),
3046         TRUE
3047     ), (
3048         'aur.received',
3049         'aur',
3050         oils_i18n_gettext(
3051             'aur.received',
3052             'A patron acquisition request has been marked Received.',
3053             'ath',
3054             'description'
3055         ),
3056         TRUE
3057     ), (
3058         'aur.cancelled',
3059         'aur',
3060         oils_i18n_gettext(
3061             'aur.cancelled',
3062             'A patron acquisition request has been marked Cancelled.',
3063             'ath',
3064             'description'
3065         ),
3066         TRUE
3067     )
3068 ;
3069
3070 INSERT INTO action_trigger.validator (module,description) VALUES (
3071         'Acq::UserRequestOrdered',
3072         oils_i18n_gettext(
3073             'Acq::UserRequestOrdered',
3074             'Tests to see if the corresponding Line Item has a state of "on-order".',
3075             'atval',
3076             'description'
3077         )
3078     ), (
3079         'Acq::UserRequestReceived',
3080         oils_i18n_gettext(
3081             'Acq::UserRequestReceived',
3082             'Tests to see if the corresponding Line Item has a state of "received".',
3083             'atval',
3084             'description'
3085         )
3086     ), (
3087         'Acq::UserRequestCancelled',
3088         oils_i18n_gettext(
3089             'Acq::UserRequestCancelled',
3090             'Tests to see if the corresponding Line Item has a state of "cancelled".',
3091             'atval',
3092             'description'
3093         )
3094     )
3095 ;
3096
3097 -- What was event_definition #15 in v1.6.1 will be recreated as #20.  This
3098 -- renumbering requires some juggling:
3099 --
3100 -- 1. Update any child rows to point to #20.  These updates will temporarily
3101 -- violate foreign key constraints, but that's okay as long as we create
3102 -- #20 before committing.
3103 --
3104 -- 2. Delete the old #15.
3105 --
3106 -- 3. Insert the new #15.
3107 --
3108 -- 4. Insert #20.
3109 --
3110 -- We could combine steps 2 and 3 into a single update, but that would create
3111 -- additional opportunities for typos, since we already have the insert from
3112 -- an upgrade script.
3113
3114 UPDATE action_trigger.environment
3115 SET event_def = 20
3116 WHERE event_def = 15;
3117
3118 UPDATE action_trigger.event
3119 SET event_def = 20
3120 WHERE event_def = 15;
3121
3122 UPDATE action_trigger.event_params
3123 SET event_def = 20
3124 WHERE event_def = 15;
3125
3126 DELETE FROM action_trigger.event_definition
3127 WHERE id = 15;
3128
3129 INSERT INTO action_trigger.event_definition (
3130         id,
3131         active,
3132         owner,
3133         name,
3134         hook,
3135         validator,
3136         reactor,
3137         template
3138     ) VALUES (
3139         15,
3140         FALSE,
3141         1,
3142         'Email Notice: Patron Acquisition Request marked On-Order.',
3143         'aur.ordered',
3144         'Acq::UserRequestOrdered',
3145         'SendEmail',
3146 $$
3147 [%- USE date -%]
3148 [%- SET li = target.lineitem; -%]
3149 [%- SET user = target.usr -%]
3150 [%- SET title = helpers.get_li_attr("title", "", li.attributes) -%]
3151 [%- SET author = helpers.get_li_attr("author", "", li.attributes) -%]
3152 [%- SET edition = helpers.get_li_attr("edition", "", li.attributes) -%]
3153 [%- SET isbn = helpers.get_li_attr("isbn", "", li.attributes) -%]
3154 [%- SET publisher = helpers.get_li_attr("publisher", "", li.attributes) -%]
3155 [%- SET pubdate = helpers.get_li_attr("pubdate", "", li.attributes) -%]
3156
3157 To: [%- params.recipient_email || user.email %]
3158 From: [%- params.sender_email || default_sender %]
3159 Subject: Acquisition Request Notification
3160
3161 Dear [% user.family_name %], [% user.first_given_name %]
3162 Our records indicate the following acquisition request has been placed on order.
3163
3164 Title: [% title %]
3165 [% IF author %]Author: [% author %][% END %]
3166 [% IF edition %]Edition: [% edition %][% END %]
3167 [% IF isbn %]ISBN: [% isbn %][% END %]
3168 [% IF publisher %]Publisher: [% publisher %][% END %]
3169 [% IF pubdate %]Publication Date: [% pubdate %][% END %]
3170 Lineitem ID: [% li.id %]
3171 $$
3172     ), (
3173         16,
3174         FALSE,
3175         1,
3176         'Email Notice: Patron Acquisition Request marked Received.',
3177         'aur.received',
3178         'Acq::UserRequestReceived',
3179         'SendEmail',
3180 $$
3181 [%- USE date -%]
3182 [%- SET li = target.lineitem; -%]
3183 [%- SET user = target.usr -%]
3184 [%- SET title = helpers.get_li_attr("title", "", li.attributes) %]
3185 [%- SET author = helpers.get_li_attr("author", "", li.attributes) %]
3186 [%- SET edition = helpers.get_li_attr("edition", "", li.attributes) %]
3187 [%- SET isbn = helpers.get_li_attr("isbn", "", li.attributes) %]
3188 [%- SET publisher = helpers.get_li_attr("publisher", "", li.attributes) -%]
3189 [%- SET pubdate = helpers.get_li_attr("pubdate", "", li.attributes) -%]
3190
3191 To: [%- params.recipient_email || user.email %]
3192 From: [%- params.sender_email || default_sender %]
3193 Subject: Acquisition Request Notification
3194
3195 Dear [% user.family_name %], [% user.first_given_name %]
3196 Our records indicate the materials for the following acquisition request have been received.
3197
3198 Title: [% title %]
3199 [% IF author %]Author: [% author %][% END %]
3200 [% IF edition %]Edition: [% edition %][% END %]
3201 [% IF isbn %]ISBN: [% isbn %][% END %]
3202 [% IF publisher %]Publisher: [% publisher %][% END %]
3203 [% IF pubdate %]Publication Date: [% pubdate %][% END %]
3204 Lineitem ID: [% li.id %]
3205 $$
3206     ), (
3207         17,
3208         FALSE,
3209         1,
3210         'Email Notice: Patron Acquisition Request marked Cancelled.',
3211         'aur.cancelled',
3212         'Acq::UserRequestCancelled',
3213         'SendEmail',
3214 $$
3215 [%- USE date -%]
3216 [%- SET li = target.lineitem; -%]
3217 [%- SET user = target.usr -%]
3218 [%- SET title = helpers.get_li_attr("title", "", li.attributes) %]
3219 [%- SET author = helpers.get_li_attr("author", "", li.attributes) %]
3220 [%- SET edition = helpers.get_li_attr("edition", "", li.attributes) %]
3221 [%- SET isbn = helpers.get_li_attr("isbn", "", li.attributes) %]
3222 [%- SET publisher = helpers.get_li_attr("publisher", "", li.attributes) -%]
3223 [%- SET pubdate = helpers.get_li_attr("pubdate", "", li.attributes) -%]
3224
3225 To: [%- params.recipient_email || user.email %]
3226 From: [%- params.sender_email || default_sender %]
3227 Subject: Acquisition Request Notification
3228
3229 Dear [% user.family_name %], [% user.first_given_name %]
3230 Our records indicate the following acquisition request has been cancelled.
3231
3232 Title: [% title %]
3233 [% IF author %]Author: [% author %][% END %]
3234 [% IF edition %]Edition: [% edition %][% END %]
3235 [% IF isbn %]ISBN: [% isbn %][% END %]
3236 [% IF publisher %]Publisher: [% publisher %][% END %]
3237 [% IF pubdate %]Publication Date: [% pubdate %][% END %]
3238 Lineitem ID: [% li.id %]
3239 $$
3240     );
3241
3242 INSERT INTO action_trigger.environment (
3243         event_def,
3244         path
3245     ) VALUES
3246         ( 15, 'lineitem' ),
3247         ( 15, 'lineitem.attributes' ),
3248         ( 15, 'usr' ),
3249
3250         ( 16, 'lineitem' ),
3251         ( 16, 'lineitem.attributes' ),
3252         ( 16, 'usr' ),
3253
3254         ( 17, 'lineitem' ),
3255         ( 17, 'lineitem.attributes' ),
3256         ( 17, 'usr' )
3257     ;
3258
3259 INSERT INTO action_trigger.event_definition
3260 (id, active, owner, name, hook, validator, reactor, cleanup_success, cleanup_failure, delay, delay_field, group_field, template) VALUES
3261 (23, true, 1, 'PO JEDI', 'acqpo.activated', 'Acq::PurchaseOrderEDIRequired', 'GeneratePurchaseOrderJEDI', NULL, NULL, '00:05:00', NULL, NULL,
3262 $$
3263 [%- USE date -%]
3264 [%# start JEDI document
3265   # Vendor specific kludges:
3266   # BT      - vendcode goes to NAD/BY *suffix*  w/ 91 qualifier
3267   # INGRAM  - vendcode goes to NAD/BY *segment* w/ 91 qualifier (separately)
3268   # BRODART - vendcode goes to FTX segment (lineitem level)
3269 -%]
3270 [%-
3271 IF target.provider.edi_default.vendcode && target.provider.code == 'BRODART';
3272     xtra_ftx = target.provider.edi_default.vendcode;
3273 END;
3274 -%]
3275 [%- BLOCK big_block -%]
3276 {
3277    "recipient":"[% target.provider.san %]",
3278    "sender":"[% target.ordering_agency.mailing_address.san %]",
3279    "body": [{
3280      "ORDERS":[ "order", {
3281         "po_number":[% target.id %],
3282         "date":"[% date.format(date.now, '%Y%m%d') %]",
3283         "buyer":[
3284             [%   IF   target.provider.edi_default.vendcode && (target.provider.code == 'BT' || target.provider.name.match('(?i)^BAKER & TAYLOR'))  -%]
3285                 {"id-qualifier": 91, "id":"[% target.ordering_agency.mailing_address.san _ ' ' _ target.provider.edi_default.vendcode %]"}
3286             [%- ELSIF target.provider.edi_default.vendcode && target.provider.code == 'INGRAM' -%]
3287                 {"id":"[% target.ordering_agency.mailing_address.san %]"},
3288                 {"id-qualifier": 91, "id":"[% target.provider.edi_default.vendcode %]"}
3289             [%- ELSE -%]
3290                 {"id":"[% target.ordering_agency.mailing_address.san %]"}
3291             [%- END -%]
3292         ],
3293         "vendor":[
3294             [%- # target.provider.name (target.provider.id) -%]
3295             "[% target.provider.san %]",
3296             {"id-qualifier": 92, "id":"[% target.provider.id %]"}
3297         ],
3298         "currency":"[% target.provider.currency_type %]",
3299
3300         "items":[
3301         [%- FOR li IN target.lineitems %]
3302         {
3303             "line_index":"[% li.id %]",
3304             "identifiers":[   [%-# li.isbns = helpers.get_li_isbns(li.attributes) %]
3305             [% FOR isbn IN helpers.get_li_isbns(li.attributes) -%]
3306                 [% IF isbn.length == 13 -%]
3307                 {"id-qualifier":"EN","id":"[% isbn %]"},
3308                 [% ELSE -%]
3309                 {"id-qualifier":"IB","id":"[% isbn %]"},
3310                 [%- END %]
3311             [% END %]
3312                 {"id-qualifier":"IN","id":"[% li.id %]"}
3313             ],
3314             "price":[% li.estimated_unit_price || '0.00' %],
3315             "desc":[
3316                 {"BTI":"[% helpers.get_li_attr('title',     '', li.attributes) %]"},
3317                 {"BPU":"[% helpers.get_li_attr('publisher', '', li.attributes) %]"},
3318                 {"BPD":"[% helpers.get_li_attr('pubdate',   '', li.attributes) %]"},
3319                 {"BPH":"[% helpers.get_li_attr('pagination','', li.attributes) %]"}
3320             ],
3321             [%- ftx_vals = [];
3322                 FOR note IN li.lineitem_notes;
3323                     NEXT UNLESS note.vendor_public == 't';
3324                     ftx_vals.push(note.value);
3325                 END;
3326                 IF xtra_ftx;           ftx_vals.unshift(xtra_ftx); END;
3327                 IF ftx_vals.size == 0; ftx_vals.unshift('');       END;  # BT needs FTX+LIN for every LI, even if it is an empty one
3328             -%]
3329
3330             "free-text":[
3331                 [% FOR note IN ftx_vals -%] "[% note %]"[% UNLESS loop.last %], [% END %][% END %]
3332             ],
3333             "quantity":[% li.lineitem_details.size %]
3334         }[% UNLESS loop.last %],[% END %]
3335         [%-# TODO: lineitem details (later) -%]
3336         [% END %]
3337         ],
3338         "line_items":[% target.lineitems.size %]
3339      }]  [%# close ORDERS array %]
3340    }]    [%# close  body  array %]
3341 }
3342 [% END %]
3343 [% tempo = PROCESS big_block; helpers.escape_json(tempo) %]
3344
3345 $$);
3346
3347 INSERT INTO action_trigger.environment (event_def, path) VALUES
3348   (23, 'lineitems.attributes'),
3349   (23, 'lineitems.lineitem_details'),
3350   (23, 'lineitems.lineitem_notes'),
3351   (23, 'ordering_agency.mailing_address'),
3352   (23, 'provider');
3353
3354 UPDATE action_trigger.event_definition SET template =
3355 $$
3356 [%- USE date -%]
3357 [%-
3358     # find a lineitem attribute by name and optional type
3359     BLOCK get_li_attr;
3360         FOR attr IN li.attributes;
3361             IF attr.attr_name == attr_name;
3362                 IF !attr_type OR attr_type == attr.attr_type;
3363                     attr.attr_value;
3364                     LAST;
3365                 END;
3366             END;
3367         END;
3368     END
3369 -%]
3370
3371 <h2>Purchase Order [% target.id %]</h2>
3372 <br/>
3373 date <b>[% date.format(date.now, '%Y%m%d') %]</b>
3374 <br/>
3375
3376 <style>
3377     table td { padding:5px; border:1px solid #aaa;}
3378     table { width:95%; border-collapse:collapse; }
3379     #vendor-notes { padding:5px; border:1px solid #aaa; }
3380 </style>
3381 <table id='vendor-table'>
3382   <tr>
3383     <td valign='top'>Vendor</td>
3384     <td>
3385       <div>[% target.provider.name %]</div>
3386       <div>[% target.provider.addresses.0.street1 %]</div>
3387       <div>[% target.provider.addresses.0.street2 %]</div>
3388       <div>[% target.provider.addresses.0.city %]</div>
3389       <div>[% target.provider.addresses.0.state %]</div>
3390       <div>[% target.provider.addresses.0.country %]</div>
3391       <div>[% target.provider.addresses.0.post_code %]</div>
3392     </td>
3393     <td valign='top'>Ship to / Bill to</td>
3394     <td>
3395       <div>[% target.ordering_agency.name %]</div>
3396       <div>[% target.ordering_agency.billing_address.street1 %]</div>
3397       <div>[% target.ordering_agency.billing_address.street2 %]</div>
3398       <div>[% target.ordering_agency.billing_address.city %]</div>
3399       <div>[% target.ordering_agency.billing_address.state %]</div>
3400       <div>[% target.ordering_agency.billing_address.country %]</div>
3401       <div>[% target.ordering_agency.billing_address.post_code %]</div>
3402     </td>
3403   </tr>
3404 </table>
3405
3406 <br/><br/>
3407 <fieldset id='vendor-notes'>
3408     <legend>Notes to the Vendor</legend>
3409     <ul>
3410     [% FOR note IN target.notes %]
3411         [% IF note.vendor_public == 't' %]
3412             <li>[% note.value %]</li>
3413         [% END %]
3414     [% END %]
3415     </ul>
3416 </fieldset>
3417 <br/><br/>
3418
3419 <table>
3420   <thead>
3421     <tr>
3422       <th>PO#</th>
3423       <th>ISBN or Item #</th>
3424       <th>Title</th>
3425       <th>Quantity</th>
3426       <th>Unit Price</th>
3427       <th>Line Total</th>
3428       <th>Notes</th>
3429     </tr>
3430   </thead>
3431   <tbody>
3432
3433   [% subtotal = 0 %]
3434   [% FOR li IN target.lineitems %]
3435
3436   <tr>
3437     [% count = li.lineitem_details.size %]
3438     [% price = li.estimated_unit_price %]
3439     [% litotal = (price * count) %]
3440     [% subtotal = subtotal + litotal %]
3441     [% isbn = PROCESS get_li_attr attr_name = 'isbn' %]
3442     [% ident = PROCESS get_li_attr attr_name = 'identifier' %]
3443
3444     <td>[% target.id %]</td>
3445     <td>[% isbn || ident %]</td>
3446     <td>[% PROCESS get_li_attr attr_name = 'title' %]</td>
3447     <td>[% count %]</td>
3448     <td>[% price %]</td>
3449     <td>[% litotal %]</td>
3450     <td>
3451         <ul>
3452         [% FOR note IN li.lineitem_notes %]
3453             [% IF note.vendor_public == 't' %]
3454                 <li>[% note.value %]</li>
3455             [% END %]
3456         [% END %]
3457         </ul>
3458     </td>
3459   </tr>
3460   [% END %]
3461   <tr>
3462     <td/><td/><td/><td/>
3463     <td>Subtotal</td>
3464     <td>[% subtotal %]</td>
3465   </tr>
3466   </tbody>
3467 </table>
3468
3469 <br/>
3470
3471 Total Line Item Count: [% target.lineitems.size %]
3472 $$
3473 WHERE id = 4;
3474
3475 INSERT INTO action_trigger.environment (event_def, path) VALUES
3476     (4, 'lineitems.lineitem_notes'),
3477     (4, 'notes');
3478
3479 INSERT INTO action_trigger.environment (event_def, path) VALUES
3480     ( 14, 'lineitem_notes.alert_text' ),
3481     ( 14, 'distribution_formulas.formula' ),
3482     ( 14, 'lineitem_details.fund' ),
3483     ( 14, 'lineitem_details.eg_copy_id' ),
3484     ( 14, 'lineitem_details.eg_copy_id.call_number' )
3485 ;
3486
3487 INSERT INTO action_trigger.hook (key,core_type,description,passive) VALUES (
3488         'aur.created',
3489         'aur',
3490         oils_i18n_gettext(
3491             'aur.created',
3492             'A patron has made an acquisitions request.',
3493             'ath',
3494             'description'
3495         ),
3496         TRUE
3497     ), (
3498         'aur.rejected',
3499         'aur',
3500         oils_i18n_gettext(
3501             'aur.rejected',
3502             'A patron acquisition request has been rejected.',
3503             'ath',
3504             'description'
3505         ),
3506         TRUE
3507     )
3508 ;
3509
3510 INSERT INTO action_trigger.event_definition (
3511         id,
3512         active,
3513         owner,
3514         name,
3515         hook,
3516         validator,
3517         reactor,
3518         template
3519     ) VALUES (
3520         18,
3521         FALSE,
3522         1,
3523         'Email Notice: Acquisition Request created.',
3524         'aur.created',
3525         'NOOP_True',
3526         'SendEmail',
3527 $$
3528 [%- USE date -%]
3529 [%- SET user = target.usr -%]
3530 [%- SET title = target.title -%]
3531 [%- SET author = target.author -%]
3532 [%- SET isxn = target.isxn -%]
3533 [%- SET publisher = target.publisher -%]
3534 [%- SET pubdate = target.pubdate -%]
3535
3536 To: [%- params.recipient_email || user.email %]
3537 From: [%- params.sender_email || default_sender %]
3538 Subject: Acquisition Request Notification
3539
3540 Dear [% user.family_name %], [% user.first_given_name %]
3541 Our records indicate that you have made the following acquisition request:
3542
3543 Title: [% title %]
3544 [% IF author %]Author: [% author %][% END %]
3545 [% IF edition %]Edition: [% edition %][% END %]
3546 [% IF isbn %]ISXN: [% isxn %][% END %]
3547 [% IF publisher %]Publisher: [% publisher %][% END %]
3548 [% IF pubdate %]Publication Date: [% pubdate %][% END %]
3549 $$
3550     ), (
3551         19,
3552         FALSE,
3553         1,
3554         'Email Notice: Acquisition Request Rejected.',
3555         'aur.rejected',
3556         'NOOP_True',
3557         'SendEmail',
3558 $$
3559 [%- USE date -%]
3560 [%- SET user = target.usr -%]
3561 [%- SET title = target.title -%]
3562 [%- SET author = target.author -%]
3563 [%- SET isxn = target.isxn -%]
3564 [%- SET publisher = target.publisher -%]
3565 [%- SET pubdate = target.pubdate -%]
3566 [%- SET cancel_reason = target.cancel_reason.description -%]
3567
3568 To: [%- params.recipient_email || user.email %]
3569 From: [%- params.sender_email || default_sender %]
3570 Subject: Acquisition Request Notification
3571
3572 Dear [% user.family_name %], [% user.first_given_name %]
3573 Our records indicate the following acquisition request has been rejected for this reason: [% cancel_reason %]
3574
3575 Title: [% title %]
3576 [% IF author %]Author: [% author %][% END %]
3577 [% IF edition %]Edition: [% edition %][% END %]
3578 [% IF isbn %]ISBN: [% isbn %][% END %]
3579 [% IF publisher %]Publisher: [% publisher %][% END %]
3580 [% IF pubdate %]Publication Date: [% pubdate %][% END %]
3581 $$
3582     );
3583
3584 INSERT INTO action_trigger.environment (
3585         event_def,
3586         path
3587     ) VALUES
3588         ( 18, 'usr' ),
3589         ( 19, 'usr' ),
3590         ( 19, 'cancel_reason' )
3591     ;
3592
3593 INSERT INTO action_trigger.event_definition (id, active, owner, name, hook, validator, reactor, delay, template)
3594     VALUES (20, 'f', 1, 'Password reset request notification', 'password.reset_request', 'NOOP_True', 'SendEmail', '00:00:01',
3595 $$
3596 [%- USE date -%]
3597 [%- user = target.usr -%]
3598 To: [%- params.recipient_email || user.email %]
3599 From: [%- params.sender_email || user.home_ou.email || default_sender %]
3600 Subject: [% user.home_ou.name %]: library account password reset request
3601
3602 You have received this message because you, or somebody else, requested a reset
3603 of your library system password. If you did not request a reset of your library
3604 system password, just ignore this message and your current password will
3605 continue to work.
3606
3607 If you did request a reset of your library system password, please perform
3608 the following steps to continue the process of resetting your password:
3609
3610 1. Open the following link in a web browser: https://[% params.hostname %]/opac/password/[% params.locale || 'en-US' %]/[% target.uuid %]
3611 The browser displays a password reset form.
3612
3613 2. Enter your new password in the password reset form in the browser. You must
3614 enter the password twice to ensure that you do not make a mistake. If the
3615 passwords match, you will then be able to log in to your library system account
3616 with the new password.
3617
3618 $$);
3619
3620 INSERT INTO action_trigger.hook (key, core_type, description, passive)
3621     VALUES (
3622         'format.acqcle.html',
3623         'acqcle',
3624         'Formats claim events into a voucher',
3625         TRUE
3626     );
3627
3628 INSERT INTO action_trigger.event_definition (
3629         id, active, owner, name, hook, group_field,
3630         validator, reactor, granularity, template
3631     ) VALUES (
3632         21,
3633         TRUE,
3634         1,
3635         'Claim Voucher',
3636         'format.acqcle.html',
3637         'claim',
3638         'NOOP_True',
3639         'ProcessTemplate',
3640         'print-on-demand',
3641 $$
3642 [%- USE date -%]
3643 [%- SET claim = target.0.claim -%]
3644 <!-- This will need refined/prettified. -->
3645 <div class="acq-claim-voucher">
3646     <h2>Claim: [% claim.id %] ([% claim.type.code %])</h2>
3647     <h3>Against: [%- helpers.get_li_attr("title", "", claim.lineitem_detail.lineitem.attributes) -%]</h3>
3648     <ul>
3649         [% FOR event IN target %]
3650         <li>
3651             Event type: [% event.type.code %]
3652             [% IF event.type.library_initiated %](Library initiated)[% END %]
3653             <br />
3654             Event date: [% event.event_date %]<br />
3655             Order date: [% event.claim.lineitem_detail.lineitem.purchase_order.order_date %]<br />
3656             Expected receive date: [% event.claim.lineitem_detail.lineitem.expected_recv_time %]<br />
3657             Initiated by: [% event.creator.family_name %], [% event.creator.first_given_name %] [% event.creator.second_given_name %]<br />
3658             Barcode: [% event.claim.lineitem_detail.barcode %]; Fund:
3659             [% event.claim.lineitem_detail.fund.code %]
3660             ([% event.claim.lineitem_detail.fund.year %])
3661         </li>
3662         [% END %]
3663     </ul>
3664 </div>
3665 $$
3666 );
3667
3668 INSERT INTO action_trigger.environment (event_def, path) VALUES
3669     (21, 'claim'),
3670     (21, 'claim.type'),
3671     (21, 'claim.lineitem_detail'),
3672     (21, 'claim.lineitem_detail.fund'),
3673     (21, 'claim.lineitem_detail.lineitem.attributes'),
3674     (21, 'claim.lineitem_detail.lineitem.purchase_order'),
3675     (21, 'creator'),
3676     (21, 'type')
3677 ;
3678
3679 INSERT INTO action_trigger.hook (key, core_type, description, passive)
3680     VALUES (
3681         'format.acqinv.html',
3682         'acqinv',
3683         'Formats invoices into a voucher',
3684         TRUE
3685     );
3686
3687 INSERT INTO action_trigger.event_definition (
3688         id, active, owner, name, hook,
3689         validator, reactor, granularity, template
3690     ) VALUES (
3691         22,
3692         TRUE,
3693         1,
3694         'Invoice',
3695         'format.acqinv.html',
3696         'NOOP_True',
3697         'ProcessTemplate',
3698         'print-on-demand',
3699 $$
3700 [% FILTER collapse %]
3701 [%- SET invoice = target -%]
3702 <!-- This lacks totals, info about funds (for invoice entries,
3703     funds are per-LID!), and general refinement -->
3704 <div class="acq-invoice-voucher">
3705     <h1>Invoice</h1>
3706     <div>
3707         <strong>No.</strong> [% invoice.inv_ident %]
3708         [% IF invoice.inv_type %]
3709             / <strong>Type:</strong>[% invoice.inv_type %]
3710         [% END %]
3711     </div>
3712     <div>
3713         <dl>
3714             [% BLOCK ent_with_address %]
3715             <dt>[% ent_label %]: [% ent.name %] ([% ent.code %])</dt>
3716             <dd>
3717                 [% IF ent.addresses.0 %]
3718                     [% SET addr = ent.addresses.0 %]
3719                     [% addr.street1 %]<br />
3720                     [% IF addr.street2 %][% addr.street2 %]<br />[% END %]
3721                     [% addr.city %],
3722                     [% IF addr.county %] [% addr.county %], [% END %]
3723                     [% IF addr.state %] [% addr.state %] [% END %]
3724                     [% IF addr.post_code %][% addr.post_code %][% END %]<br />
3725                     [% IF addr.country %] [% addr.country %] [% END %]
3726                 [% END %]
3727                 <p>
3728                     [% IF ent.phone %] Phone: [% ent.phone %]<br />[% END %]
3729                     [% IF ent.fax_phone %] Fax: [% ent.fax_phone %]<br />[% END %]
3730                     [% IF ent.url %] URL: [% ent.url %]<br />[% END %]
3731                     [% IF ent.email %] E-mail: [% ent.email %] [% END %]
3732                 </p>
3733             </dd>
3734             [% END %]
3735             [% INCLUDE ent_with_address
3736                 ent = invoice.provider
3737                 ent_label = "Provider" %]
3738             [% INCLUDE ent_with_address
3739                 ent = invoice.shipper
3740                 ent_label = "Shipper" %]
3741             <dt>Receiver</dt>
3742             <dd>
3743                 [% invoice.receiver.name %] ([% invoice.receiver.shortname %])
3744             </dd>
3745             <dt>Received</dt>
3746             <dd>
3747                 [% helpers.format_date(invoice.recv_date) %] by
3748                 [% invoice.recv_method %]
3749             </dd>
3750             [% IF invoice.note %]
3751                 <dt>Note</dt>
3752                 <dd>
3753                     [% invoice.note %]
3754                 </dd>
3755             [% END %]
3756         </dl>
3757     </div>
3758     <ul>
3759         [% FOR entry IN invoice.entries %]
3760             <li>
3761                 [% IF entry.lineitem %]
3762                     Title: [% helpers.get_li_attr(
3763                         "title", "", entry.lineitem.attributes
3764                     ) %]<br />
3765                     Author: [% helpers.get_li_attr(
3766                         "author", "", entry.lineitem.attributes
3767                     ) %]
3768                 [% END %]
3769                 [% IF entry.purchase_order %]
3770                     (PO: [% entry.purchase_order.name %])
3771                 [% END %]<br />
3772                 Invoice item count: [% entry.inv_item_count %]
3773                 [% IF entry.phys_item_count %]
3774                     / Physical item count: [% entry.phys_item_count %]
3775                 [% END %]
3776                 <br />
3777                 [% IF entry.cost_billed %]
3778                     Cost billed: [% entry.cost_billed %]
3779                     [% IF entry.billed_per_item %](per item)[% END %]
3780                     <br />
3781                 [% END %]
3782                 [% IF entry.actual_cost %]
3783                     Actual cost: [% entry.actual_cost %]<br />
3784                 [% END %]
3785                 [% IF entry.amount_paid %]
3786                     Amount paid: [% entry.amount_paid %]<br />
3787                 [% END %]
3788                 [% IF entry.note %]Note: [% entry.note %][% END %]
3789             </li>
3790         [% END %]
3791         [% FOR item IN invoice.items %]
3792             <li>
3793                 [% IF item.inv_item_type %]
3794                     Item Type: [% item.inv_item_type %]<br />
3795                 [% END %]
3796                 [% IF item.title %]Title/Description:
3797                     [% item.title %]<br />
3798                 [% END %]
3799                 [% IF item.author %]Author: [% item.author %]<br />[% END %]
3800                 [% IF item.purchase_order %]PO: [% item.purchase_order %]<br />[% END %]
3801                 [% IF item.note %]Note: [% item.note %]<br />[% END %]
3802                 [% IF item.cost_billed %]
3803                     Cost billed: [% item.cost_billed %]<br />
3804                 [% END %]
3805                 [% IF item.actual_cost %]
3806                     Actual cost: [% item.actual_cost %]<br />
3807                 [% END %]
3808                 [% IF item.amount_paid %]
3809                     Amount paid: [% item.amount_paid %]<br />
3810                 [% END %]
3811             </li>
3812         [% END %]
3813     </ul>
3814 </div>
3815 [% END %]
3816 $$
3817 );
3818
3819 INSERT INTO action_trigger.environment (event_def, path) VALUES
3820     (22, 'provider'),
3821     (22, 'provider.addresses'),
3822     (22, 'shipper'),
3823     (22, 'shipper.addresses'),
3824     (22, 'receiver'),
3825     (22, 'entries'),
3826     (22, 'entries.purchase_order'),
3827     (22, 'entries.lineitem'),
3828     (22, 'entries.lineitem.attributes'),
3829     (22, 'items')
3830 ;
3831
3832 INSERT INTO action_trigger.environment (event_def, path) VALUES
3833   (23, 'provider.edi_default');
3834
3835 INSERT INTO action_trigger.validator (module, description)
3836     VALUES (
3837         'Acq::PurchaseOrderEDIRequired',
3838         oils_i18n_gettext(
3839             'Acq::PurchaseOrderEDIRequired',
3840             'Purchase order is delivered via EDI',
3841             'atval',
3842             'description'
3843         )
3844     );
3845
3846 INSERT INTO action_trigger.reactor (module, description)
3847     VALUES (
3848         'GeneratePurchaseOrderJEDI',
3849         oils_i18n_gettext(
3850             'GeneratePurchaseOrderJEDI',
3851             'Creates purchase order JEDI (JSON EDI) for subsequent EDI processing',
3852             'atreact',
3853             'description'
3854         )
3855     );
3856
3857 UPDATE action_trigger.hook
3858     SET
3859         key = 'acqpo.activated',
3860         passive = FALSE,
3861         description = oils_i18n_gettext(
3862             'acqpo.activated',
3863             'Purchase order was activated',
3864             'ath',
3865             'description'
3866         )
3867     WHERE key = 'format.po.jedi';
3868
3869 -- We just changed a key in action_trigger.hook.  Now redirect any
3870 -- child rows to point to the new key.  (There probably aren't any;
3871 -- this is just a precaution against possible local modifications.)
3872
3873 UPDATE action_trigger.event_definition
3874 SET hook = 'acqpo.activated'
3875 WHERE hook = 'format.po.jedi';
3876
3877 INSERT INTO action_trigger.reactor (module, description) VALUES (
3878     'AstCall', 'Possibly place a phone call with Asterisk'
3879 );
3880
3881 INSERT INTO
3882     action_trigger.event_definition (
3883         id, active, owner, name, hook, validator, reactor,
3884         cleanup_success, cleanup_failure, delay, delay_field, group_field,
3885         max_delay, granularity, usr_field, opt_in_setting, template
3886     ) VALUES (
3887         24,
3888         FALSE,
3889         1,
3890         'Telephone Overdue Notice',
3891         'checkout.due', 'NOOP_True', 'AstCall',
3892         DEFAULT, DEFAULT, '5 seconds', 'due_date', 'usr',
3893         DEFAULT, DEFAULT, DEFAULT, DEFAULT,
3894         $$
3895 [% phone = target.0.usr.day_phone | replace('[\s\-\(\)]', '') -%]
3896 [% IF phone.match('^[2-9]') %][% country = 1 %][% ELSE %][% country = '' %][% END -%]
3897 Channel: [% channel_prefix %]/[% country %][% phone %]
3898 Context: overdue-test
3899 MaxRetries: 1
3900 RetryTime: 60
3901 WaitTime: 30
3902 Extension: 10
3903 Archive: 1
3904 Set: eg_user_id=[% target.0.usr.id %]
3905 Set: items=[% target.size %]
3906 Set: titlestring=[% titles = [] %][% FOR circ IN target %][% titles.push(circ.target_copy.call_number.record.simple_record.title) %][% END %][% titles.join(". ") %]
3907 $$
3908     );
3909
3910 INSERT INTO
3911     action_trigger.environment (id, event_def, path)
3912     VALUES
3913         (DEFAULT, 24, 'target_copy.call_number.record.simple_record'),
3914         (DEFAULT, 24, 'usr')
3915     ;
3916
3917 INSERT INTO action_trigger.hook (key,core_type,description,passive) VALUES (
3918         'circ.format.history.email',
3919         'circ',
3920         oils_i18n_gettext(
3921             'circ.format.history.email',
3922             'An email has been requested for a circ history.',
3923             'ath',
3924             'description'
3925         ),
3926         FALSE
3927     )
3928     ,(
3929         'circ.format.history.print',
3930         'circ',
3931         oils_i18n_gettext(
3932             'circ.format.history.print',
3933             'A circ history needs to be formatted for printing.',
3934             'ath',
3935             'description'
3936         ),
3937         FALSE
3938     )
3939     ,(
3940         'ahr.format.history.email',
3941         'ahr',
3942         oils_i18n_gettext(
3943             'ahr.format.history.email',
3944             'An email has been requested for a hold request history.',
3945             'ath',
3946             'description'
3947         ),
3948         FALSE
3949     )
3950     ,(
3951         'ahr.format.history.print',
3952         'ahr',
3953         oils_i18n_gettext(
3954             'ahr.format.history.print',
3955             'A hold request history needs to be formatted for printing.',
3956             'ath',
3957             'description'
3958         ),
3959         FALSE
3960     )
3961
3962 ;
3963
3964 INSERT INTO action_trigger.event_definition (
3965         id,
3966         active,
3967         owner,
3968         name,
3969         hook,
3970         validator,
3971         reactor,
3972         group_field,
3973         granularity,
3974         template
3975     ) VALUES (
3976         25,
3977         TRUE,
3978         1,
3979         'circ.history.email',
3980         'circ.format.history.email',
3981         'NOOP_True',
3982         'SendEmail',
3983         'usr',
3984         NULL,
3985 $$
3986 [%- USE date -%]
3987 [%- SET user = target.0.usr -%]
3988 To: [%- params.recipient_email || user.email %]
3989 From: [%- params.sender_email || default_sender %]
3990 Subject: Circulation History
3991
3992     [% FOR circ IN target %]
3993             [% helpers.get_copy_bib_basics(circ.target_copy.id).title %]
3994             Barcode: [% circ.target_copy.barcode %]
3995             Checked Out: [% date.format(helpers.format_date(circ.xact_start), '%Y-%m-%d') %]
3996             Due Date: [% date.format(helpers.format_date(circ.due_date), '%Y-%m-%d') %]
3997             Returned: [% date.format(helpers.format_date(circ.checkin_time), '%Y-%m-%d') %]
3998     [% END %]
3999 $$
4000     )
4001     ,(
4002         26,
4003         TRUE,
4004         1,
4005         'circ.history.print',
4006         'circ.format.history.print',
4007         'NOOP_True',
4008         'ProcessTemplate',
4009         'usr',
4010         'print-on-demand',
4011 $$
4012 [%- USE date -%]
4013 <div>
4014     <style> li { padding: 8px; margin 5px; }</style>
4015     <div>[% date.format %]</div>
4016     <br/>
4017
4018     [% user.family_name %], [% user.first_given_name %]
4019     <ol>
4020     [% FOR circ IN target %]
4021         <li>
4022             <div>[% helpers.get_copy_bib_basics(circ.target_copy.id).title %]</div>
4023             <div>Barcode: [% circ.target_copy.barcode %]</div>
4024             <div>Checked Out: [% date.format(helpers.format_date(circ.xact_start), '%Y-%m-%d') %]</div>
4025             <div>Due Date: [% date.format(helpers.format_date(circ.due_date), '%Y-%m-%d') %]</div>
4026             <div>Returned: [% date.format(helpers.format_date(circ.checkin_time), '%Y-%m-%d') %]</div>
4027         </li>
4028     [% END %]
4029     </ol>
4030 </div>
4031 $$
4032     )
4033     ,(
4034         27,
4035         TRUE,
4036         1,
4037         'ahr.history.email',
4038         'ahr.format.history.email',
4039         'NOOP_True',
4040         'SendEmail',
4041         'usr',
4042         NULL,
4043 $$
4044 [%- USE date -%]
4045 [%- SET user = target.0.usr -%]
4046 To: [%- params.recipient_email || user.email %]
4047 From: [%- params.sender_email || default_sender %]
4048 Subject: Hold Request History
4049
4050     [% FOR hold IN target %]
4051             [% helpers.get_copy_bib_basics(hold.current_copy.id).title %]
4052             Requested: [% date.format(helpers.format_date(hold.request_time), '%Y-%m-%d') %]
4053             [% IF hold.fulfillment_time %]Fulfilled: [% date.format(helpers.format_date(hold.fulfillment_time), '%Y-%m-%d') %][% END %]
4054     [% END %]
4055 $$
4056     )
4057     ,(
4058         28,
4059         TRUE,
4060         1,
4061         'ahr.history.print',
4062         'ahr.format.history.print',
4063         'NOOP_True',
4064         'ProcessTemplate',
4065         'usr',
4066         'print-on-demand',
4067 $$
4068 [%- USE date -%]
4069 <div>
4070     <style> li { padding: 8px; margin 5px; }</style>
4071     <div>[% date.format %]</div>
4072     <br/>
4073
4074     [% user.family_name %], [% user.first_given_name %]
4075     <ol>
4076     [% FOR hold IN target %]
4077         <li>
4078             <div>[% helpers.get_copy_bib_basics(hold.current_copy.id).title %]</div>
4079             <div>Requested: [% date.format(helpers.format_date(hold.request_time), '%Y-%m-%d') %]</div>
4080             [% IF hold.fulfillment_time %]<div>Fulfilled: [% date.format(helpers.format_date(hold.fulfillment_time), '%Y-%m-%d') %]</div>[% END %]
4081         </li>
4082     [% END %]
4083     </ol>
4084 </div>
4085 $$
4086     )
4087
4088 ;
4089
4090 INSERT INTO action_trigger.environment (
4091         event_def,
4092         path
4093     ) VALUES
4094          ( 25, 'target_copy')
4095         ,( 25, 'usr' )
4096         ,( 26, 'target_copy' )
4097         ,( 26, 'usr' )
4098         ,( 27, 'current_copy' )
4099         ,( 27, 'usr' )
4100         ,( 28, 'current_copy' )
4101         ,( 28, 'usr' )
4102 ;
4103
4104 INSERT INTO action_trigger.hook (key,core_type,description,passive) VALUES (
4105         'money.format.payment_receipt.email',
4106         'mp',
4107         oils_i18n_gettext(
4108             'money.format.payment_receipt.email',
4109             'An email has been requested for a payment receipt.',
4110             'ath',
4111             'description'
4112         ),
4113         FALSE
4114     )
4115     ,(
4116         'money.format.payment_receipt.print',
4117         'mp',
4118         oils_i18n_gettext(
4119             'money.format.payment_receipt.print',
4120             'A payment receipt needs to be formatted for printing.',
4121             'ath',
4122             'description'
4123         ),
4124         FALSE
4125     )
4126 ;
4127
4128 INSERT INTO action_trigger.event_definition (
4129         id,
4130         active,
4131         owner,
4132         name,
4133         hook,
4134         validator,
4135         reactor,
4136         group_field,
4137         granularity,
4138         template
4139     ) VALUES (
4140         29,
4141         TRUE,
4142         1,
4143         'money.payment_receipt.email',
4144         'money.format.payment_receipt.email',
4145         'NOOP_True',
4146         'SendEmail',
4147         'xact.usr',
4148         NULL,
4149 $$
4150 [%- USE date -%]
4151 [%- SET user = target.0.xact.usr -%]
4152 To: [%- params.recipient_email || user.email %]
4153 From: [%- params.sender_email || default_sender %]
4154 Subject: Payment Receipt
4155
4156 [% date.format -%]
4157 [%- SET xact_mp_hash = {} -%]
4158 [%- FOR mp IN target %][%# Template is hooked around payments, but let us make the receipt focused on transactions -%]
4159     [%- SET xact_id = mp.xact.id -%]
4160     [%- IF ! xact_mp_hash.defined( xact_id ) -%][%- xact_mp_hash.$xact_id = { 'xact' => mp.xact, 'payments' => [] } -%][%- END -%]
4161     [%- xact_mp_hash.$xact_id.payments.push(mp) -%]
4162 [%- END -%]
4163 [%- FOR xact_id IN xact_mp_hash.keys.sort -%]
4164     [%- SET xact = xact_mp_hash.$xact_id.xact %]
4165 Transaction ID: [% xact_id %]
4166     [% IF xact.circulation %][% helpers.get_copy_bib_basics(xact.circulation.target_copy).title %]
4167     [% ELSE %]Miscellaneous
4168     [% END %]
4169     Line item billings:
4170         [%- SET mb_type_hash = {} -%]
4171         [%- FOR mb IN xact.billings %][%# Group billings by their btype -%]
4172             [%- IF mb.voided == 'f' -%]
4173                 [%- SET mb_type = mb.btype.id -%]
4174                 [%- IF ! mb_type_hash.defined( mb_type ) -%][%- mb_type_hash.$mb_type = { 'sum' => 0.00, 'billings' => [] } -%][%- END -%]
4175                 [%- IF ! mb_type_hash.$mb_type.defined( 'first_ts' ) -%][%- mb_type_hash.$mb_type.first_ts = mb.billing_ts -%][%- END -%]
4176                 [%- mb_type_hash.$mb_type.last_ts = mb.billing_ts -%]
4177                 [%- mb_type_hash.$mb_type.sum = mb_type_hash.$mb_type.sum + mb.amount -%]
4178                 [%- mb_type_hash.$mb_type.billings.push( mb ) -%]
4179             [%- END -%]
4180         [%- END -%]
4181         [%- FOR mb_type IN mb_type_hash.keys.sort -%]
4182             [%- IF mb_type == 1 %][%-# Consolidated view of overdue billings -%]
4183                 $[% mb_type_hash.$mb_type.sum %] for [% mb_type_hash.$mb_type.billings.0.btype.name %]
4184                     on [% mb_type_hash.$mb_type.first_ts %] through [% mb_type_hash.$mb_type.last_ts %]
4185             [%- ELSE -%][%# all other billings show individually %]
4186                 [% FOR mb IN mb_type_hash.$mb_type.billings %]
4187                     $[% mb.amount %] for [% mb.btype.name %] on [% mb.billing_ts %] [% mb.note %]
4188                 [% END %]
4189             [% END %]
4190         [% END %]
4191     Line item payments:
4192         [% FOR mp IN xact_mp_hash.$xact_id.payments %]
4193             Payment ID: [% mp.id %]
4194                 Paid [% mp.amount %] via [% SWITCH mp.payment_type -%]
4195                     [% CASE "cash_payment" %]cash
4196                     [% CASE "check_payment" %]check
4197                     [% CASE "credit_card_payment" %]credit card (
4198                         [%- SET cc_chunks = mp.credit_card_payment.cc_number.replace(' ','').chunk(4); -%]
4199                         [%- cc_chunks.slice(0, -1+cc_chunks.max).join.replace('\S','X') -%]
4200                         [% cc_chunks.last -%]
4201                         exp [% mp.credit_card_payment.expire_month %]/[% mp.credit_card_payment.expire_year -%]
4202                     )
4203                     [% CASE "credit_payment" %]credit
4204                     [% CASE "forgive_payment" %]forgiveness
4205                     [% CASE "goods_payment" %]goods
4206                     [% CASE "work_payment" %]work
4207                 [%- END %] on [% mp.payment_ts %] [% mp.note %]
4208         [% END %]
4209 [% END %]
4210 $$
4211     )
4212     ,(
4213         30,
4214         TRUE,
4215         1,
4216         'money.payment_receipt.print',
4217         'money.format.payment_receipt.print',
4218         'NOOP_True',
4219         'ProcessTemplate',
4220         'xact.usr',
4221         'print-on-demand',
4222 $$
4223 [%- USE date -%][%- SET user = target.0.xact.usr -%]
4224 <div style="li { padding: 8px; margin 5px; }">
4225     <div>[% date.format %]</div><br/>
4226     <ol>
4227     [% SET xact_mp_hash = {} %]
4228     [% FOR mp IN target %][%# Template is hooked around payments, but let us make the receipt focused on transactions %]
4229         [% SET xact_id = mp.xact.id %]
4230         [% IF ! xact_mp_hash.defined( xact_id ) %][% xact_mp_hash.$xact_id = { 'xact' => mp.xact, 'payments' => [] } %][% END %]
4231         [% xact_mp_hash.$xact_id.payments.push(mp) %]
4232     [% END %]
4233     [% FOR xact_id IN xact_mp_hash.keys.sort %]
4234         [% SET xact = xact_mp_hash.$xact_id.xact %]
4235         <li>Transaction ID: [% xact_id %]
4236             [% IF xact.circulation %][% helpers.get_copy_bib_basics(xact.circulation.target_copy).title %]
4237             [% ELSE %]Miscellaneous
4238             [% END %]
4239             Line item billings:<ol>
4240                 [% SET mb_type_hash = {} %]
4241                 [% FOR mb IN xact.billings %][%# Group billings by their btype %]
4242                     [% IF mb.voided == 'f' %]
4243                         [% SET mb_type = mb.btype.id %]
4244                         [% IF ! mb_type_hash.defined( mb_type ) %][% mb_type_hash.$mb_type = { 'sum' => 0.00, 'billings' => [] } %][% END %]
4245                         [% IF ! mb_type_hash.$mb_type.defined( 'first_ts' ) %][% mb_type_hash.$mb_type.first_ts = mb.billing_ts %][% END %]
4246                         [% mb_type_hash.$mb_type.last_ts = mb.billing_ts %]
4247                         [% mb_type_hash.$mb_type.sum = mb_type_hash.$mb_type.sum + mb.amount %]
4248                         [% mb_type_hash.$mb_type.billings.push( mb ) %]
4249                     [% END %]
4250                 [% END %]
4251                 [% FOR mb_type IN mb_type_hash.keys.sort %]
4252                     <li>[% IF mb_type == 1 %][%# Consolidated view of overdue billings %]
4253                         $[% mb_type_hash.$mb_type.sum %] for [% mb_type_hash.$mb_type.billings.0.btype.name %]
4254                             on [% mb_type_hash.$mb_type.first_ts %] through [% mb_type_hash.$mb_type.last_ts %]
4255                     [% ELSE %][%# all other billings show individually %]
4256                         [% FOR mb IN mb_type_hash.$mb_type.billings %]
4257                             $[% mb.amount %] for [% mb.btype.name %] on [% mb.billing_ts %] [% mb.note %]
4258                         [% END %]
4259                     [% END %]</li>
4260                 [% END %]
4261             </ol>
4262             Line item payments:<ol>
4263                 [% FOR mp IN xact_mp_hash.$xact_id.payments %]
4264                     <li>Payment ID: [% mp.id %]
4265                         Paid [% mp.amount %] via [% SWITCH mp.payment_type -%]
4266                             [% CASE "cash_payment" %]cash
4267                             [% CASE "check_payment" %]check
4268                             [% CASE "credit_card_payment" %]credit card (
4269                                 [%- SET cc_chunks = mp.credit_card_payment.cc_number.replace(' ','').chunk(4); -%]
4270                                 [%- cc_chunks.slice(0, -1+cc_chunks.max).join.replace('\S','X') -%]
4271                                 [% cc_chunks.last -%]
4272                                 exp [% mp.credit_card_payment.expire_month %]/[% mp.credit_card_payment.expire_year -%]
4273                             )
4274                             [% CASE "credit_payment" %]credit
4275                             [% CASE "forgive_payment" %]forgiveness
4276                             [% CASE "goods_payment" %]goods
4277                             [% CASE "work_payment" %]work
4278                         [%- END %] on [% mp.payment_ts %] [% mp.note %]
4279                     </li>
4280                 [% END %]
4281             </ol>
4282         </li>
4283     [% END %]
4284     </ol>
4285 </div>
4286 $$
4287     )
4288 ;
4289
4290 INSERT INTO action_trigger.environment (
4291         event_def,
4292         path
4293     ) VALUES -- for fleshing mp objects
4294          ( 29, 'xact')
4295         ,( 29, 'xact.usr')
4296         ,( 29, 'xact.grocery' )
4297         ,( 29, 'xact.circulation' )
4298         ,( 29, 'xact.summary' )
4299         ,( 30, 'xact')
4300         ,( 30, 'xact.usr')
4301         ,( 30, 'xact.grocery' )
4302         ,( 30, 'xact.circulation' )
4303         ,( 30, 'xact.summary' )
4304 ;
4305
4306 INSERT INTO action_trigger.cleanup ( module, description ) VALUES (
4307     'DeleteTempBiblioBucket',
4308     oils_i18n_gettext(
4309         'DeleteTempBiblioBucket',
4310         'Deletes a cbreb object used as a target if it has a btype of "temp"',
4311         'atclean',
4312         'description'
4313     )
4314 );
4315
4316 INSERT INTO action_trigger.hook (key,core_type,description,passive) VALUES (
4317         'biblio.format.record_entry.email',
4318         'cbreb',
4319         oils_i18n_gettext(
4320             'biblio.format.record_entry.email',
4321             'An email has been requested for one or more biblio record entries.',
4322             'ath',
4323             'description'
4324         ),
4325         FALSE
4326     )
4327     ,(
4328         'biblio.format.record_entry.print',
4329         'cbreb',
4330         oils_i18n_gettext(
4331             'biblio.format.record_entry.print',
4332             'One or more biblio record entries need to be formatted for printing.',
4333             'ath',
4334             'description'
4335         ),
4336         FALSE
4337     )
4338 ;
4339
4340 INSERT INTO action_trigger.event_definition (
4341         id,
4342         active,
4343         owner,
4344         name,
4345         hook,
4346         validator,
4347         reactor,
4348         cleanup_success,
4349         cleanup_failure,
4350         group_field,
4351         granularity,
4352         template
4353     ) VALUES (
4354         31,
4355         TRUE,
4356         1,
4357         'biblio.record_entry.email',
4358         'biblio.format.record_entry.email',
4359         'NOOP_True',
4360         'SendEmail',
4361         'DeleteTempBiblioBucket',
4362         'DeleteTempBiblioBucket',
4363         'owner',
4364         NULL,
4365 $$
4366 [%- USE date -%]
4367 [%- SET user = target.0.owner -%]
4368 To: [%- params.recipient_email || user.email %]
4369 From: [%- params.sender_email || default_sender %]
4370 Subject: Bibliographic Records
4371
4372     [% FOR cbreb IN target %]
4373     [% FOR cbrebi IN cbreb.items %]
4374         Bib ID# [% cbrebi.target_biblio_record_entry.id %] ISBN: [% crebi.target_biblio_record_entry.simple_record.isbn %]
4375         Title: [% cbrebi.target_biblio_record_entry.simple_record.title %]
4376         Author: [% cbrebi.target_biblio_record_entry.simple_record.author %]
4377         Publication Year: [% cbrebi.target_biblio_record_entry.simple_record.pubdate %]
4378
4379     [% END %]
4380     [% END %]
4381 $$
4382     )
4383     ,(
4384         32,
4385         TRUE,
4386         1,
4387         'biblio.record_entry.print',
4388         'biblio.format.record_entry.print',
4389         'NOOP_True',
4390         'ProcessTemplate',
4391         'DeleteTempBiblioBucket',
4392         'DeleteTempBiblioBucket',
4393         'owner',
4394         'print-on-demand',
4395 $$
4396 [%- USE date -%]
4397 <div>
4398     <style> li { padding: 8px; margin 5px; }</style>
4399     <ol>
4400     [% FOR cbreb IN target %]
4401     [% FOR cbrebi IN cbreb.items %]
4402         <li>Bib ID# [% cbrebi.target_biblio_record_entry.id %] ISBN: [% crebi.target_biblio_record_entry.simple_record.isbn %]<br />
4403             Title: [% cbrebi.target_biblio_record_entry.simple_record.title %]<br />
4404             Author: [% cbrebi.target_biblio_record_entry.simple_record.author %]<br />
4405             Publication Year: [% cbrebi.target_biblio_record_entry.simple_record.pubdate %]
4406         </li>
4407     [% END %]
4408     [% END %]
4409     </ol>
4410 </div>
4411 $$
4412     )
4413 ;
4414
4415 INSERT INTO action_trigger.environment (
4416         event_def,
4417         path
4418     ) VALUES -- for fleshing cbreb objects
4419          ( 31, 'owner' )
4420         ,( 31, 'items' )
4421         ,( 31, 'items.target_biblio_record_entry' )
4422         ,( 31, 'items.target_biblio_record_entry.simple_record' )
4423         ,( 31, 'items.target_biblio_record_entry.call_numbers' )
4424         ,( 31, 'items.target_biblio_record_entry.fixed_fields' )
4425         ,( 31, 'items.target_biblio_record_entry.notes' )
4426         ,( 31, 'items.target_biblio_record_entry.full_record_entries' )
4427         ,( 32, 'owner' )
4428         ,( 32, 'items' )
4429         ,( 32, 'items.target_biblio_record_entry' )
4430         ,( 32, 'items.target_biblio_record_entry.simple_record' )
4431         ,( 32, 'items.target_biblio_record_entry.call_numbers' )
4432         ,( 32, 'items.target_biblio_record_entry.fixed_fields' )
4433         ,( 32, 'items.target_biblio_record_entry.notes' )
4434         ,( 32, 'items.target_biblio_record_entry.full_record_entries' )
4435 ;
4436
4437 INSERT INTO action_trigger.environment (
4438         event_def,
4439         path
4440     ) VALUES -- for fleshing mp objects
4441          ( 29, 'credit_card_payment')
4442         ,( 29, 'xact.billings')
4443         ,( 29, 'xact.billings.btype')
4444         ,( 30, 'credit_card_payment')
4445         ,( 30, 'xact.billings')
4446         ,( 30, 'xact.billings.btype')
4447 ;
4448
4449 INSERT INTO action_trigger.hook (key,core_type,description,passive) VALUES
4450     (   'circ.format.missing_pieces.slip.print',
4451         'circ',
4452         oils_i18n_gettext(
4453             'circ.format.missing_pieces.slip.print',
4454             'A missing pieces slip needs to be formatted for printing.',
4455             'ath',
4456             'description'
4457         ),
4458         FALSE
4459     )
4460     ,(  'circ.format.missing_pieces.letter.print',
4461         'circ',
4462         oils_i18n_gettext(
4463             'circ.format.missing_pieces.letter.print',
4464             'A missing pieces patron letter needs to be formatted for printing.',
4465             'ath',
4466             'description'
4467         ),
4468         FALSE
4469     )
4470 ;
4471
4472 INSERT INTO action_trigger.event_definition (
4473         id,
4474         active,
4475         owner,
4476         name,
4477         hook,
4478         validator,
4479         reactor,
4480         group_field,
4481         granularity,
4482         template
4483     ) VALUES (
4484         33,
4485         TRUE,
4486         1,
4487         'circ.missing_pieces.slip.print',
4488         'circ.format.missing_pieces.slip.print',
4489         'NOOP_True',
4490         'ProcessTemplate',
4491         'usr',
4492         'print-on-demand',
4493 $$
4494 [%- USE date -%]
4495 [%- SET user = target.0.usr -%]
4496 <div style="li { padding: 8px; margin 5px; }">
4497     <div>[% date.format %]</div><br/>
4498     Missing pieces for:
4499     <ol>
4500     [% FOR circ IN target %]
4501         <li>Barcode: [% circ.target_copy.barcode %] Transaction ID: [% circ.id %] Due: [% circ.due_date.format %]<br />
4502             [% helpers.get_copy_bib_basics(circ.target_copy.id).title %]
4503         </li>
4504     [% END %]
4505     </ol>
4506 </div>
4507 $$
4508     )
4509     ,(
4510         34,
4511         TRUE,
4512         1,
4513         'circ.missing_pieces.letter.print',
4514         'circ.format.missing_pieces.letter.print',
4515         'NOOP_True',
4516         'ProcessTemplate',
4517         'usr',
4518         'print-on-demand',
4519 $$
4520 [%- USE date -%]
4521 [%- SET user = target.0.usr -%]
4522 [% date.format %]
4523 Dear [% user.prefix %] [% user.first_given_name %] [% user.family_name %],
4524
4525 We are missing pieces for the following returned items:
4526 [% FOR circ IN target %]
4527 Barcode: [% circ.target_copy.barcode %] Transaction ID: [% circ.id %] Due: [% circ.due_date.format %]
4528 [% helpers.get_copy_bib_basics(circ.target_copy.id).title %]
4529 [% END %]
4530
4531 Please return these pieces as soon as possible.
4532
4533 Thanks!
4534
4535 Library Staff
4536 $$
4537     )
4538 ;
4539
4540 INSERT INTO action_trigger.environment (
4541         event_def,
4542         path
4543     ) VALUES -- for fleshing circ objects
4544          ( 33, 'usr')
4545         ,( 33, 'target_copy')
4546         ,( 33, 'target_copy.circ_lib')
4547         ,( 33, 'target_copy.circ_lib.mailing_address')
4548         ,( 33, 'target_copy.circ_lib.billing_address')
4549         ,( 33, 'target_copy.call_number')
4550         ,( 33, 'target_copy.call_number.owning_lib')
4551         ,( 33, 'target_copy.call_number.owning_lib.mailing_address')
4552         ,( 33, 'target_copy.call_number.owning_lib.billing_address')
4553         ,( 33, 'circ_lib')
4554         ,( 33, 'circ_lib.mailing_address')
4555         ,( 33, 'circ_lib.billing_address')
4556         ,( 34, 'usr')
4557         ,( 34, 'target_copy')
4558         ,( 34, 'target_copy.circ_lib')
4559         ,( 34, 'target_copy.circ_lib.mailing_address')
4560         ,( 34, 'target_copy.circ_lib.billing_address')
4561         ,( 34, 'target_copy.call_number')
4562         ,( 34, 'target_copy.call_number.owning_lib')
4563         ,( 34, 'target_copy.call_number.owning_lib.mailing_address')
4564         ,( 34, 'target_copy.call_number.owning_lib.billing_address')
4565         ,( 34, 'circ_lib')
4566         ,( 34, 'circ_lib.mailing_address')
4567         ,( 34, 'circ_lib.billing_address')
4568 ;
4569
4570 INSERT INTO action_trigger.hook (key,core_type,description,passive)
4571     VALUES (
4572         'ahr.format.pull_list',
4573         'ahr',
4574         oils_i18n_gettext(
4575             'ahr.format.pull_list',
4576             'Format holds pull list for printing',
4577             'ath',
4578             'description'
4579         ),
4580         FALSE
4581     );
4582
4583 INSERT INTO action_trigger.event_definition (
4584         id,
4585         active,
4586         owner,
4587         name,
4588         hook,
4589         validator,
4590         reactor,
4591         group_field,
4592         granularity,
4593         template
4594     ) VALUES (
4595         35,
4596         TRUE,
4597         1,
4598         'Holds Pull List',
4599         'ahr.format.pull_list',
4600         'NOOP_True',
4601         'ProcessTemplate',
4602         'pickup_lib',
4603         'print-on-demand',
4604 $$
4605 [%- USE date -%]
4606 <style>
4607     table { border-collapse: collapse; }
4608     td { padding: 5px; border-bottom: 1px solid #888; }
4609     th { font-weight: bold; }
4610 </style>
4611 [%
4612     # Sort the holds into copy-location buckets
4613     # In the main print loop, sort each bucket by callnumber before printing
4614     SET holds_list = [];
4615     SET loc_data = [];
4616     SET current_location = target.0.current_copy.location.id;
4617     FOR hold IN target;
4618         IF current_location != hold.current_copy.location.id;
4619             SET current_location = hold.current_copy.location.id;
4620             holds_list.push(loc_data);
4621             SET loc_data = [];
4622         END;
4623         SET hold_data = {
4624             'hold' => hold,
4625             'callnumber' => hold.current_copy.call_number.label
4626         };
4627         loc_data.push(hold_data);
4628     END;
4629     holds_list.push(loc_data)
4630 %]
4631 <table>
4632     <thead>
4633         <tr>
4634             <th>Title</th>
4635             <th>Author</th>
4636             <th>Shelving Location</th>
4637             <th>Call Number</th>
4638             <th>Barcode</th>
4639             <th>Patron</th>
4640         </tr>
4641     </thead>
4642     <tbody>
4643     [% FOR loc_data IN holds_list  %]
4644         [% FOR hold_data IN loc_data.sort('callnumber') %]
4645             [%
4646                 SET hold = hold_data.hold;
4647                 SET copy_data = helpers.get_copy_bib_basics(hold.current_copy.id);
4648             %]
4649             <tr>
4650                 <td>[% copy_data.title | truncate %]</td>
4651                 <td>[% copy_data.author | truncate %]</td>
4652                 <td>[% hold.current_copy.location.name %]</td>
4653                 <td>[% hold.current_copy.call_number.label %]</td>
4654                 <td>[% hold.current_copy.barcode %]</td>
4655                 <td>[% hold.usr.card.barcode %]</td>
4656             </tr>
4657         [% END %]
4658     [% END %]
4659     <tbody>
4660 </table>
4661 $$
4662 );
4663
4664 INSERT INTO action_trigger.environment (
4665         event_def,
4666         path
4667     ) VALUES
4668         (35, 'current_copy.location'),
4669         (35, 'current_copy.call_number'),
4670         (35, 'usr.card'),
4671         (35, 'pickup_lib')
4672 ;
4673
4674 INSERT INTO action_trigger.validator (module, description) VALUES (
4675     'HoldIsCancelled',
4676     oils_i18n_gettext(
4677         'HoldIsCancelled',
4678         'Check whether a hold request is cancelled.',
4679         'atval',
4680         'description'
4681     )
4682 );
4683
4684 -- Create the query schema, and the tables and views therein
4685
4686 DROP SCHEMA IF EXISTS sql CASCADE;
4687 DROP SCHEMA IF EXISTS query CASCADE;
4688
4689 CREATE SCHEMA query;
4690
4691 CREATE TABLE query.datatype (
4692         id              SERIAL            PRIMARY KEY,
4693         datatype_name   TEXT              NOT NULL UNIQUE,
4694         is_numeric      BOOL              NOT NULL DEFAULT FALSE,
4695         is_composite    BOOL              NOT NULL DEFAULT FALSE,
4696         CONSTRAINT qdt_comp_not_num CHECK
4697         ( is_numeric IS FALSE OR is_composite IS FALSE )
4698 );
4699
4700 -- Define the most common datatypes in query.datatype.  Note that none of
4701 -- these stock datatypes specifies a width or precision.
4702
4703 -- Also: set the sequence for query.datatype to 1000, leaving plenty of
4704 -- room for more stock datatypes if we ever want to add them.
4705
4706 SELECT setval( 'query.datatype_id_seq', 1000 );
4707
4708 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4709   VALUES (1, 'SMALLINT', true);
4710
4711 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4712   VALUES (2, 'INTEGER', true);
4713
4714 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4715   VALUES (3, 'BIGINT', true);
4716
4717 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4718   VALUES (4, 'DECIMAL', true);
4719
4720 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4721   VALUES (5, 'NUMERIC', true);
4722
4723 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4724   VALUES (6, 'REAL', true);
4725
4726 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4727   VALUES (7, 'DOUBLE PRECISION', true);
4728
4729 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4730   VALUES (8, 'SERIAL', true);
4731
4732 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4733   VALUES (9, 'BIGSERIAL', true);
4734
4735 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4736   VALUES (10, 'MONEY', false);
4737
4738 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4739   VALUES (11, 'VARCHAR', false);
4740
4741 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4742   VALUES (12, 'CHAR', false);
4743
4744 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4745   VALUES (13, 'TEXT', false);
4746
4747 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4748   VALUES (14, '"char"', false);
4749
4750 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4751   VALUES (15, 'NAME', false);
4752
4753 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4754   VALUES (16, 'BYTEA', false);
4755
4756 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4757   VALUES (17, 'TIMESTAMP WITHOUT TIME ZONE', false);
4758
4759 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4760   VALUES (18, 'TIMESTAMP WITH TIME ZONE', false);
4761
4762 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4763   VALUES (19, 'DATE', false);
4764
4765 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4766   VALUES (20, 'TIME WITHOUT TIME ZONE', false);
4767
4768 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4769   VALUES (21, 'TIME WITH TIME ZONE', false);
4770
4771 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4772   VALUES (22, 'INTERVAL', false);
4773
4774 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4775   VALUES (23, 'BOOLEAN', false);
4776
4777 CREATE TABLE query.subfield (
4778         id              SERIAL            PRIMARY KEY,
4779         composite_type  INT               NOT NULL
4780                                           REFERENCES query.datatype(id)
4781                                           ON DELETE CASCADE
4782                                           DEFERRABLE INITIALLY DEFERRED,
4783         seq_no          INT               NOT NULL
4784                                           CONSTRAINT qsf_pos_seq_no
4785                                           CHECK( seq_no > 0 ),
4786         subfield_type   INT               NOT NULL
4787                                           REFERENCES query.datatype(id)
4788                                           DEFERRABLE INITIALLY DEFERRED,
4789         CONSTRAINT qsf_datatype_seq_no UNIQUE (composite_type, seq_no)
4790 );
4791
4792 CREATE TABLE query.function_sig (
4793         id              SERIAL            PRIMARY KEY,
4794         function_name   TEXT              NOT NULL,
4795         return_type     INT               REFERENCES query.datatype(id)
4796                                           DEFERRABLE INITIALLY DEFERRED,
4797         is_aggregate    BOOL              NOT NULL DEFAULT FALSE,
4798         CONSTRAINT qfd_rtn_or_aggr CHECK
4799         ( return_type IS NULL OR is_aggregate = FALSE )
4800 );
4801
4802 CREATE INDEX query_function_sig_name_idx
4803         ON query.function_sig (function_name);
4804
4805 CREATE TABLE query.function_param_def (
4806         id              SERIAL            PRIMARY KEY,
4807         function_id     INT               NOT NULL
4808                                           REFERENCES query.function_sig( id )
4809                                           ON DELETE CASCADE
4810                                           DEFERRABLE INITIALLY DEFERRED,
4811         seq_no          INT               NOT NULL
4812                                           CONSTRAINT qfpd_pos_seq_no CHECK
4813                                           ( seq_no > 0 ),
4814         datatype        INT               NOT NULL
4815                                           REFERENCES query.datatype( id )
4816                                           DEFERRABLE INITIALLY DEFERRED,
4817         CONSTRAINT qfpd_function_param_seq UNIQUE (function_id, seq_no)
4818 );
4819
4820 CREATE TABLE  query.stored_query (
4821         id            SERIAL         PRIMARY KEY,
4822         type          TEXT           NOT NULL CONSTRAINT query_type CHECK
4823                                      ( type IN ( 'SELECT', 'UNION', 'INTERSECT', 'EXCEPT' ) ),
4824         use_all       BOOLEAN        NOT NULL DEFAULT FALSE,
4825         use_distinct  BOOLEAN        NOT NULL DEFAULT FALSE,
4826         from_clause   INT            , --REFERENCES query.from_clause
4827                                      --DEFERRABLE INITIALLY DEFERRED,
4828         where_clause  INT            , --REFERENCES query.expression
4829                                      --DEFERRABLE INITIALLY DEFERRED,
4830         having_clause INT            , --REFERENCES query.expression
4831                                      --DEFERRABLE INITIALLY DEFERRED
4832         limit_count   INT            , --REFERENCES query.expression( id )
4833                                      --DEFERRABLE INITIALLY DEFERRED,
4834         offset_count  INT            --REFERENCES query.expression( id )
4835                                      --DEFERRABLE INITIALLY DEFERRED
4836 );
4837
4838 -- (Foreign keys to be defined later after other tables are created)
4839
4840 CREATE TABLE query.query_sequence (
4841         id              SERIAL            PRIMARY KEY,
4842         parent_query    INT               NOT NULL
4843                                           REFERENCES query.stored_query
4844                                                                           ON DELETE CASCADE
4845                                                                           DEFERRABLE INITIALLY DEFERRED,
4846         seq_no          INT               NOT NULL,
4847         child_query     INT               NOT NULL
4848                                           REFERENCES query.stored_query
4849                                                                           ON DELETE CASCADE
4850                                                                           DEFERRABLE INITIALLY DEFERRED,
4851         CONSTRAINT query_query_seq UNIQUE( parent_query, seq_no )
4852 );
4853
4854 CREATE TABLE query.bind_variable (
4855         name          TEXT             PRIMARY KEY,
4856         type          TEXT             NOT NULL
4857                                            CONSTRAINT bind_variable_type CHECK
4858                                            ( type in ( 'string', 'number', 'string_list', 'number_list' )),
4859         description   TEXT             NOT NULL,
4860         default_value TEXT,            -- to be encoded in JSON
4861         label         TEXT             NOT NULL
4862 );
4863
4864 CREATE TABLE query.expression (
4865         id            SERIAL        PRIMARY KEY,
4866         type          TEXT          NOT NULL CONSTRAINT expression_type CHECK
4867                                     ( type IN (
4868                                     'xbet',    -- between
4869                                     'xbind',   -- bind variable
4870                                     'xbool',   -- boolean
4871                                     'xcase',   -- case
4872                                     'xcast',   -- cast
4873                                     'xcol',    -- column
4874                                     'xex',     -- exists
4875                                     'xfunc',   -- function
4876                                     'xin',     -- in
4877                                     'xisnull', -- is null
4878                                     'xnull',   -- null
4879                                     'xnum',    -- number
4880                                     'xop',     -- operator
4881                                     'xser',    -- series
4882                                     'xstr',    -- string
4883                                     'xsubq'    -- subquery
4884                                                                 ) ),
4885         parenthesize  BOOL          NOT NULL DEFAULT FALSE,
4886         parent_expr   INT           REFERENCES query.expression
4887                                     ON DELETE CASCADE
4888                                     DEFERRABLE INITIALLY DEFERRED,
4889         seq_no        INT           NOT NULL DEFAULT 1,
4890         literal       TEXT,
4891         table_alias   TEXT,
4892         column_name   TEXT,
4893         left_operand  INT           REFERENCES query.expression
4894                                     DEFERRABLE INITIALLY DEFERRED,
4895         operator      TEXT,
4896         right_operand INT           REFERENCES query.expression
4897                                     DEFERRABLE INITIALLY DEFERRED,
4898         function_id   INT           REFERENCES query.function_sig
4899                                     DEFERRABLE INITIALLY DEFERRED,
4900         subquery      INT           REFERENCES query.stored_query
4901                                     DEFERRABLE INITIALLY DEFERRED,
4902         cast_type     INT           REFERENCES query.datatype
4903                                     DEFERRABLE INITIALLY DEFERRED,
4904         negate        BOOL          NOT NULL DEFAULT FALSE,
4905         bind_variable TEXT          REFERENCES query.bind_variable
4906                                         DEFERRABLE INITIALLY DEFERRED
4907 );
4908
4909 CREATE UNIQUE INDEX query_expr_parent_seq
4910         ON query.expression( parent_expr, seq_no )
4911         WHERE parent_expr IS NOT NULL;
4912
4913 -- Due to some circular references, the following foreign key definitions
4914 -- had to be deferred until query.expression existed:
4915
4916 ALTER TABLE query.stored_query
4917         ADD FOREIGN KEY ( where_clause )
4918         REFERENCES query.expression( id )
4919         DEFERRABLE INITIALLY DEFERRED;
4920
4921 ALTER TABLE query.stored_query
4922         ADD FOREIGN KEY ( having_clause )
4923         REFERENCES query.expression( id )
4924         DEFERRABLE INITIALLY DEFERRED;
4925
4926 ALTER TABLE query.stored_query
4927     ADD FOREIGN KEY ( limit_count )
4928     REFERENCES query.expression( id )
4929     DEFERRABLE INITIALLY DEFERRED;
4930
4931 ALTER TABLE query.stored_query
4932     ADD FOREIGN KEY ( offset_count )
4933     REFERENCES query.expression( id )
4934     DEFERRABLE INITIALLY DEFERRED;
4935
4936 CREATE TABLE query.case_branch (
4937         id            SERIAL        PRIMARY KEY,
4938         parent_expr   INT           NOT NULL REFERENCES query.expression
4939                                     ON DELETE CASCADE
4940                                     DEFERRABLE INITIALLY DEFERRED,
4941         seq_no        INT           NOT NULL,
4942         condition     INT           REFERENCES query.expression
4943                                     DEFERRABLE INITIALLY DEFERRED,
4944         result        INT           NOT NULL REFERENCES query.expression
4945                                     DEFERRABLE INITIALLY DEFERRED,
4946         CONSTRAINT case_branch_parent_seq UNIQUE (parent_expr, seq_no)
4947 );
4948
4949 CREATE TABLE query.from_relation (
4950         id               SERIAL        PRIMARY KEY,
4951         type             TEXT          NOT NULL CONSTRAINT relation_type CHECK (
4952                                            type IN ( 'RELATION', 'SUBQUERY', 'FUNCTION' ) ),
4953         table_name       TEXT,
4954         class_name       TEXT,
4955         subquery         INT           REFERENCES query.stored_query,
4956         function_call    INT           REFERENCES query.expression,
4957         table_alias      TEXT,
4958         parent_relation  INT           REFERENCES query.from_relation
4959                                        ON DELETE CASCADE
4960                                        DEFERRABLE INITIALLY DEFERRED,
4961         seq_no           INT           NOT NULL DEFAULT 1,
4962         join_type        TEXT          CONSTRAINT good_join_type CHECK (
4963                                            join_type IS NULL OR join_type IN
4964                                            ( 'INNER', 'LEFT', 'RIGHT', 'FULL' )
4965                                        ),
4966         on_clause        INT           REFERENCES query.expression
4967                                        DEFERRABLE INITIALLY DEFERRED,
4968         CONSTRAINT join_or_core CHECK (
4969         ( parent_relation IS NULL AND join_type IS NULL
4970           AND on_clause IS NULL )
4971         OR
4972         ( parent_relation IS NOT NULL AND join_type IS NOT NULL
4973           AND on_clause IS NOT NULL )
4974         )
4975 );
4976
4977 CREATE UNIQUE INDEX from_parent_seq
4978         ON query.from_relation( parent_relation, seq_no )
4979         WHERE parent_relation IS NOT NULL;
4980
4981 -- The following foreign key had to be deferred until
4982 -- query.from_relation existed
4983
4984 ALTER TABLE query.stored_query
4985         ADD FOREIGN KEY (from_clause)
4986         REFERENCES query.from_relation
4987         DEFERRABLE INITIALLY DEFERRED;
4988
4989 CREATE TABLE query.record_column (
4990         id            SERIAL            PRIMARY KEY,
4991         from_relation INT               NOT NULL REFERENCES query.from_relation
4992                                         ON DELETE CASCADE
4993                                         DEFERRABLE INITIALLY DEFERRED,
4994         seq_no        INT               NOT NULL,
4995         column_name   TEXT              NOT NULL,
4996         column_type   INT               NOT NULL REFERENCES query.datatype
4997                                         ON DELETE CASCADE
4998                                                                         DEFERRABLE INITIALLY DEFERRED,
4999         CONSTRAINT column_sequence UNIQUE (from_relation, seq_no)
5000 );
5001
5002 CREATE TABLE query.select_item (
5003         id               SERIAL         PRIMARY KEY,
5004         stored_query     INT            NOT NULL REFERENCES query.stored_query
5005                                         ON DELETE CASCADE
5006                                         DEFERRABLE INITIALLY DEFERRED,
5007         seq_no           INT            NOT NULL,
5008         expression       INT            NOT NULL REFERENCES query.expression
5009                                         DEFERRABLE INITIALLY DEFERRED,
5010         column_alias     TEXT,
5011         grouped_by       BOOL           NOT NULL DEFAULT FALSE,
5012         CONSTRAINT select_sequence UNIQUE( stored_query, seq_no )
5013 );
5014
5015 CREATE TABLE query.order_by_item (
5016         id               SERIAL         PRIMARY KEY,
5017         stored_query     INT            NOT NULL REFERENCES query.stored_query
5018                                         ON DELETE CASCADE
5019                                         DEFERRABLE INITIALLY DEFERRED,
5020         seq_no           INT            NOT NULL,
5021         expression       INT            NOT NULL REFERENCES query.expression
5022                                         ON DELETE CASCADE
5023                                         DEFERRABLE INITIALLY DEFERRED,
5024         CONSTRAINT order_by_sequence UNIQUE( stored_query, seq_no )
5025 );
5026
5027 ------------------------------------------------------------
5028 -- Create updatable views for different kinds of expressions
5029 ------------------------------------------------------------
5030
5031 -- Create updatable view for BETWEEN expressions
5032
5033 CREATE OR REPLACE VIEW query.expr_xbet AS
5034     SELECT
5035                 id,
5036                 parenthesize,
5037                 parent_expr,
5038                 seq_no,
5039                 left_operand,
5040                 negate
5041     FROM
5042         query.expression
5043     WHERE
5044         type = 'xbet';
5045
5046 CREATE OR REPLACE RULE query_expr_xbet_insert_rule AS
5047     ON INSERT TO query.expr_xbet
5048     DO INSTEAD
5049     INSERT INTO query.expression (
5050                 id,
5051                 type,
5052                 parenthesize,
5053                 parent_expr,
5054                 seq_no,
5055                 left_operand,
5056                 negate
5057     ) VALUES (
5058         COALESCE(NEW.id, NEXTVAL('query.expression_id_seq'::REGCLASS)),
5059         'xbet',
5060         COALESCE(NEW.parenthesize, FALSE),
5061         NEW.parent_expr,
5062         COALESCE(NEW.seq_no, 1),
5063                 NEW.left_operand,
5064                 COALESCE(NEW.negate, false)
5065     );
5066
5067 CREATE OR REPLACE RULE query_expr_xbet_update_rule AS
5068     ON UPDATE TO query.expr_xbet
5069     DO INSTEAD
5070     UPDATE query.expression SET
5071         id = NEW.id,
5072         parenthesize = NEW.parenthesize,
5073         parent_expr = NEW.parent_expr,
5074         seq_no = NEW.seq_no,
5075                 left_operand = NEW.left_operand,
5076                 negate = NEW.negate
5077     WHERE
5078         id = OLD.id;
5079
5080 CREATE OR REPLACE RULE query_expr_xbet_delete_rule AS
5081     ON DELETE TO query.expr_xbet
5082     DO INSTEAD
5083     DELETE FROM query.expression WHERE id = OLD.id;
5084
5085 -- Create updatable view for bind variable expressions
5086
5087 CREATE OR REPLACE VIEW query.expr_xbind AS
5088     SELECT
5089                 id,
5090                 parenthesize,
5091                 parent_expr,
5092                 seq_no,
5093                 bind_variable
5094     FROM
5095         query.expression
5096     WHERE
5097         type = 'xbind';
5098
5099 CREATE OR REPLACE RULE query_expr_xbind_insert_rule AS
5100     ON INSERT TO query.expr_xbind
5101     DO INSTEAD
5102     INSERT INTO query.expression (
5103                 id,
5104                 type,
5105                 parenthesize,
5106                 parent_expr,
5107                 seq_no,
5108                 bind_variable
5109     ) VALUES (
5110         COALESCE(NEW.id, NEXTVAL('query.expression_id_seq'::REGCLASS)),
5111         'xbind',
5112         COALESCE(NEW.parenthesize, FALSE),
5113         NEW.parent_expr,
5114         COALESCE(NEW.seq_no, 1),
5115                 NEW.bind_variable
5116     );
5117
5118 CREATE OR REPLACE RULE query_expr_xbind_update_rule AS
5119     ON UPDATE TO query.expr_xbind
5120     DO INSTEAD
5121     UPDATE query.expression SET
5122         id = NEW.id,
5123         parenthesize = NEW.parenthesize,
5124         parent_expr = NEW.parent_expr,
5125         seq_no = NEW.seq_no,
5126                 bind_variable = NEW.bind_variable
5127     WHERE
5128         id = OLD.id;
5129
5130 CREATE OR REPLACE RULE query_expr_xbind_delete_rule AS
5131     ON DELETE TO query.expr_xbind
5132     DO INSTEAD
5133     DELETE FROM query.expression WHERE id = OLD.id;
5134
5135 -- Create updatable view for boolean expressions
5136
5137 CREATE OR REPLACE VIEW query.expr_xbool AS
5138     SELECT
5139                 id,
5140                 parenthesize,
5141                 parent_expr,
5142                 seq_no,
5143                 literal,
5144                 negate
5145     FROM
5146         query.expression
5147     WHERE
5148         type = 'xbool';
5149
5150 CREATE OR REPLACE RULE query_expr_xbool_insert_rule AS
5151     ON INSERT TO query.expr_xbool
5152     DO INSTEAD
5153     INSERT INTO query.expression (
5154                 id,
5155                 type,
5156                 parenthesize,
5157                 parent_expr,
5158                 seq_no,
5159                 literal,
5160                 negate
5161     ) VALUES (
5162         COALESCE(NEW.id, NEXTVAL('query.expression_id_seq'::REGCLASS)),
5163         'xbool',
5164         COALESCE(NEW.parenthesize, FALSE),
5165         NEW.parent_expr,
5166         COALESCE(NEW.seq_no, 1),
5167         NEW.literal,
5168                 COALESCE(NEW.negate, false)
5169     );
5170
5171 CREATE OR REPLACE RULE query_expr_xbool_update_rule AS
5172     ON UPDATE TO query.expr_xbool
5173     DO INSTEAD
5174     UPDATE query.expression SET
5175         id = NEW.id,
5176         parenthesize = NEW.parenthesize,
5177         parent_expr = NEW.parent_expr,
5178         seq_no = NEW.seq_no,
5179         literal = NEW.literal,
5180                 negate = NEW.negate
5181     WHERE
5182         id = OLD.id;
5183
5184 CREATE OR REPLACE RULE query_expr_xbool_delete_rule AS
5185     ON DELETE TO query.expr_xbool
5186     DO INSTEAD
5187     DELETE FROM query.expression WHERE id = OLD.id;
5188
5189 -- Create updatable view for CASE expressions
5190
5191 CREATE OR REPLACE VIEW query.expr_xcase AS
5192     SELECT
5193                 id,
5194                 parenthesize,
5195                 parent_expr,
5196                 seq_no,
5197                 left_operand,
5198                 negate
5199     FROM
5200         query.expression
5201     WHERE
5202         type = 'xcase';
5203
5204 CREATE OR REPLACE RULE query_expr_xcase_insert_rule AS
5205     ON INSERT TO query.expr_xcase
5206     DO INSTEAD
5207     INSERT INTO query.expression (
5208                 id,
5209                 type,
5210                 parenthesize,
5211                 parent_expr,
5212                 seq_no,
5213                 left_operand,
5214                 negate
5215     ) VALUES (
5216         COALESCE(NEW.id, NEXTVAL('query.expression_id_seq'::REGCLASS)),
5217         'xcase',
5218         COALESCE(NEW.parenthesize, FALSE),
5219         NEW.parent_expr,
5220         COALESCE(NEW.seq_no, 1),
5221                 NEW.left_operand,
5222                 COALESCE(NEW.negate, false)
5223     );
5224
5225 CREATE OR REPLACE RULE query_expr_xcase_update_rule AS
5226     ON UPDATE TO query.expr_xcase
5227     DO INSTEAD
5228     UPDATE query.expression SET
5229         id = NEW.id,
5230         parenthesize = NEW.parenthesize,
5231         parent_expr = NEW.parent_expr,
5232         seq_no = NEW.seq_no,
5233                 left_operand = NEW.left_operand,
5234                 negate = NEW.negate
5235     WHERE
5236         id = OLD.id;
5237
5238 CREATE OR REPLACE RULE query_expr_xcase_delete_rule AS
5239     ON DELETE TO query.expr_xcase
5240     DO INSTEAD
5241     DELETE FROM query.expression WHERE id = OLD.id;
5242
5243 -- Create updatable view for cast expressions
5244
5245 CREATE OR REPLACE VIEW query.expr_xcast AS
5246     SELECT
5247                 id,
5248                 parenthesize,
5249                 parent_expr,
5250                 seq_no,
5251                 left_operand,
5252                 cast_type,
5253                 negate
5254     FROM
5255         query.expression
5256     WHERE
5257         type = 'xcast';
5258
5259 CREATE OR REPLACE RULE query_expr_xcast_insert_rule AS
5260     ON INSERT TO query.expr_xcast
5261     DO INSTEAD
5262     INSERT INTO query.expression (
5263         id,
5264         type,
5265         parenthesize,
5266         parent_expr,
5267         seq_no,
5268         left_operand,
5269         cast_type,
5270         negate
5271     ) VALUES (
5272         COALESCE(NEW.id, NEXTVAL('query.expression_id_seq'::REGCLASS)),
5273         'xcast',
5274         COALESCE(NEW.parenthesize, FALSE),
5275         NEW.parent_expr,
5276         COALESCE(NEW.seq_no, 1),
5277         NEW.left_operand,
5278         NEW.cast_type,
5279         COALESCE(NEW.negate, false)
5280     );
5281
5282 CREATE OR REPLACE RULE query_expr_xcast_update_rule AS
5283     ON UPDATE TO query.expr_xcast
5284     DO INSTEAD
5285     UPDATE query.expression SET
5286         id = NEW.id,
5287         parenthesize = NEW.parenthesize,
5288         parent_expr = NEW.parent_expr,
5289         seq_no = NEW.seq_no,
5290                 left_operand = NEW.left_operand,
5291                 cast_type = NEW.cast_type,
5292                 negate = NEW.negate
5293     WHERE
5294         id = OLD.id;
5295
5296 CREATE OR REPLACE RULE query_expr_xcast_delete_rule AS
5297     ON DELETE TO query.expr_xcast
5298     DO INSTEAD
5299     DELETE FROM query.expression WHERE id = OLD.id;
5300
5301 -- Create updatable view for column expressions
5302
5303 CREATE OR REPLACE VIEW query.expr_xcol AS
5304     SELECT
5305                 id,
5306                 parenthesize,
5307                 parent_expr,
5308                 seq_no,
5309                 table_alias,
5310                 column_name,
5311                 negate
5312     FROM
5313         query.expression
5314     WHERE
5315         type = 'xcol';
5316
5317 CREATE OR REPLACE RULE query_expr_xcol_insert_rule AS
5318     ON INSERT TO query.expr_xcol
5319     DO INSTEAD
5320     INSERT INTO query.expression (
5321                 id,
5322                 type,
5323                 parenthesize,
5324                 parent_expr,
5325                 seq_no,
5326                 table_alias,
5327                 column_name,
5328                 negate
5329     ) VALUES (
5330         COALESCE(NEW.id, NEXTVAL('query.expression_id_seq'::REGCLASS)),
5331         'xcol',
5332         COALESCE(NEW.parenthesize, FALSE),
5333         NEW.parent_expr,
5334         COALESCE(NEW.seq_no, 1),
5335                 NEW.table_alias,
5336                 NEW.column_name,
5337                 COALESCE(NEW.negate, false)
5338     );
5339
5340 CREATE OR REPLACE RULE query_expr_xcol_update_rule AS
5341     ON UPDATE TO query.expr_xcol
5342     DO INSTEAD
5343     UPDATE query.expression SET
5344         id = NEW.id,
5345         parenthesize = NEW.parenthesize,
5346         parent_expr = NEW.parent_expr,
5347         seq_no = NEW.seq_no,
5348                 table_alias = NEW.table_alias,
5349                 column_name = NEW.column_name,
5350                 negate = NEW.negate
5351     WHERE
5352         id = OLD.id;
5353
5354 CREATE OR REPLACE RULE query_expr_xcol_delete_rule AS
5355     ON DELETE TO query.expr_xcol
5356     DO INSTEAD
5357     DELETE FROM query.expression WHERE id = OLD.id;
5358
5359 -- Create updatable view for EXISTS expressions
5360
5361 CREATE OR REPLACE VIEW query.expr_xex AS
5362     SELECT
5363                 id,
5364                 parenthesize,
5365                 parent_expr,
5366                 seq_no,
5367                 subquery,
5368                 negate
5369     FROM
5370         query.expression
5371     WHERE
5372         type = 'xex';
5373
5374 CREATE OR REPLACE RULE query_expr_xex_insert_rule AS
5375     ON INSERT TO query.expr_xex
5376     DO INSTEAD
5377     INSERT INTO query.expression (
5378                 id,
5379                 type,
5380                 parenthesize,
5381                 parent_expr,
5382                 seq_no,
5383                 subquery,
5384                 negate
5385     ) VALUES (
5386         COALESCE(NEW.id, NEXTVAL('query.expression_id_seq'::REGCLASS)),
5387         'xex',
5388         COALESCE(NEW.parenthesize, FALSE),
5389         NEW.parent_expr,
5390         COALESCE(NEW.seq_no, 1),
5391                 NEW.subquery,
5392                 COALESCE(NEW.negate, false)
5393     );
5394
5395 CREATE OR REPLACE RULE query_expr_xex_update_rule AS
5396     ON UPDATE TO query.expr_xex
5397     DO INSTEAD
5398     UPDATE query.expression SET
5399         id = NEW.id,
5400         parenthesize = NEW.parenthesize,
5401         parent_expr = NEW.parent_expr,
5402         seq_no = NEW.seq_no,
5403                 subquery = NEW.subquery,
5404                 negate = NEW.negate
5405     WHERE
5406         id = OLD.id;
5407
5408 CREATE OR REPLACE RULE query_expr_xex_delete_rule AS
5409     ON DELETE TO query.expr_xex
5410     DO INSTEAD
5411     DELETE FROM query.expression WHERE id = OLD.id;
5412
5413 -- Create updatable view for function call expressions
5414
5415 CREATE OR REPLACE VIEW query.expr_xfunc AS
5416     SELECT
5417         id,
5418         parenthesize,
5419         parent_expr,
5420         seq_no,
5421         column_name,
5422         function_id,
5423         negate
5424     FROM
5425         query.expression
5426     WHERE
5427         type = 'xfunc';
5428
5429 CREATE OR REPLACE RULE query_expr_xfunc_insert_rule AS
5430     ON INSERT TO query.expr_xfunc
5431     DO INSTEAD
5432     INSERT INTO query.expression (
5433         id,
5434         type,
5435         parenthesize,
5436         parent_expr,
5437         seq_no,
5438         column_name,
5439         function_id,
5440         negate
5441     ) VALUES (
5442         COALESCE(NEW.id, NEXTVAL('query.expression_id_seq'::REGCLASS)),
5443         'xfunc',
5444         COALESCE(NEW.parenthesize, FALSE),
5445         NEW.parent_expr,
5446         COALESCE(NEW.seq_no, 1),
5447         NEW.column_name,
5448         NEW.function_id,
5449         COALESCE(NEW.negate, false)
5450     );
5451
5452 CREATE OR REPLACE RULE query_expr_xfunc_update_rule AS
5453     ON UPDATE TO query.expr_xfunc
5454     DO INSTEAD
5455     UPDATE query.expression SET
5456         id = NEW.id,
5457         parenthesize = NEW.parenthesize,
5458         parent_expr = NEW.parent_expr,
5459         seq_no = NEW.seq_no,
5460         column_name = NEW.column_name,
5461         function_id = NEW.function_id,
5462         negate = NEW.negate
5463     WHERE
5464         id = OLD.id;
5465
5466 CREATE OR REPLACE RULE query_expr_xfunc_delete_rule AS
5467     ON DELETE TO query.expr_xfunc
5468     DO INSTEAD
5469     DELETE FROM query.expression WHERE id = OLD.id;
5470
5471 -- Create updatable view for IN expressions
5472
5473 CREATE OR REPLACE VIEW query.expr_xin AS
5474     SELECT
5475                 id,
5476                 parenthesize,
5477                 parent_expr,
5478                 seq_no,
5479                 left_operand,
5480                 subquery,
5481                 negate
5482     FROM
5483         query.expression
5484     WHERE
5485         type = 'xin';
5486
5487 CREATE OR REPLACE RULE query_expr_xin_insert_rule AS
5488     ON INSERT TO query.expr_xin
5489     DO INSTEAD
5490     INSERT INTO query.expression (
5491                 id,
5492                 type,
5493                 parenthesize,
5494                 parent_expr,
5495                 seq_no,
5496                 left_operand,
5497                 subquery,
5498                 negate
5499     ) VALUES (
5500         COALESCE(NEW.id, NEXTVAL('query.expression_id_seq'::REGCLASS)),
5501         'xin',
5502         COALESCE(NEW.parenthesize, FALSE),
5503         NEW.parent_expr,
5504         COALESCE(NEW.seq_no, 1),
5505                 NEW.left_operand,
5506                 NEW.subquery,
5507                 COALESCE(NEW.negate, false)
5508     );
5509
5510 CREATE OR REPLACE RULE query_expr_xin_update_rule AS
5511     ON UPDATE TO query.expr_xin
5512     DO INSTEAD
5513     UPDATE query.expression SET
5514         id = NEW.id,
5515         parenthesize = NEW.parenthesize,
5516         parent_expr = NEW.parent_expr,
5517         seq_no = NEW.seq_no,
5518                 left_operand = NEW.left_operand,
5519                 subquery = NEW.subquery,
5520                 negate = NEW.negate
5521     WHERE
5522         id = OLD.id;
5523
5524 CREATE OR REPLACE RULE query_expr_xin_delete_rule AS
5525     ON DELETE TO query.expr_xin
5526     DO INSTEAD
5527     DELETE FROM query.expression WHERE id = OLD.id;
5528
5529 -- Create updatable view for IS NULL expressions
5530
5531 CREATE OR REPLACE VIEW query.expr_xisnull AS
5532     SELECT
5533                 id,
5534                 parenthesize,
5535                 parent_expr,
5536                 seq_no,
5537                 left_operand,
5538                 negate
5539     FROM
5540         query.expression
5541     WHERE
5542         type = 'xisnull';
5543
5544 CREATE OR REPLACE RULE query_expr_xisnull_insert_rule AS
5545     ON INSERT TO query.expr_xisnull
5546     DO INSTEAD
5547     INSERT INTO query.expression (
5548                 id,
5549                 type,
5550                 parenthesize,
5551                 parent_expr,
5552                 seq_no,
5553                 left_operand,
5554                 negate
5555     ) VALUES (
5556         COALESCE(NEW.id, NEXTVAL('query.expression_id_seq'::REGCLASS)),
5557         'xisnull',
5558         COALESCE(NEW.parenthesize, FALSE),
5559         NEW.parent_expr,
5560         COALESCE(NEW.seq_no, 1),
5561                 NEW.left_operand,
5562                 COALESCE(NEW.negate, false)
5563     );
5564
5565 CREATE OR REPLACE RULE query_expr_xisnull_update_rule AS
5566     ON UPDATE TO query.expr_xisnull
5567     DO INSTEAD
5568     UPDATE query.expression SET
5569         id = NEW.id,
5570         parenthesize = NEW.parenthesize,
5571         parent_expr = NEW.parent_expr,
5572         seq_no = NEW.seq_no,
5573                 left_operand = NEW.left_operand,
5574                 negate = NEW.negate
5575     WHERE
5576         id = OLD.id;
5577
5578 CREATE OR REPLACE RULE query_expr_xisnull_delete_rule AS
5579     ON DELETE TO query.expr_xisnull
5580     DO INSTEAD
5581     DELETE FROM query.expression WHERE id = OLD.id;
5582
5583 -- Create updatable view for NULL expressions
5584
5585 CREATE OR REPLACE VIEW query.expr_xnull AS
5586     SELECT
5587                 id,
5588                 parenthesize,
5589                 parent_expr,
5590                 seq_no,
5591                 negate
5592     FROM
5593         query.expression
5594     WHERE
5595         type = 'xnull';
5596
5597 CREATE OR REPLACE RULE query_expr_xnull_insert_rule AS
5598     ON INSERT TO query.expr_xnull
5599     DO INSTEAD
5600     INSERT INTO query.expression (
5601                 id,
5602                 type,
5603                 parenthesize,
5604                 parent_expr,
5605                 seq_no,
5606                 negate
5607     ) VALUES (
5608         COALESCE(NEW.id, NEXTVAL('query.expression_id_seq'::REGCLASS)),
5609         'xnull',
5610         COALESCE(NEW.parenthesize, FALSE),
5611         NEW.parent_expr,
5612         COALESCE(NEW.seq_no, 1),
5613                 COALESCE(NEW.negate, false)
5614     );
5615
5616 CREATE OR REPLACE RULE query_expr_xnull_update_rule AS
5617     ON UPDATE TO query.expr_xnull
5618     DO INSTEAD
5619     UPDATE query.expression SET
5620         id = NEW.id,
5621         parenthesize = NEW.parenthesize,
5622         parent_expr = NEW.parent_expr,
5623         seq_no = NEW.seq_no,
5624                 negate = NEW.negate
5625     WHERE
5626         id = OLD.id;
5627
5628 CREATE OR REPLACE RULE query_expr_xnull_delete_rule AS
5629     ON DELETE TO query.expr_xnull
5630     DO INSTEAD
5631     DELETE FROM query.expression WHERE id = OLD.id;
5632
5633 -- Create updatable view for numeric literal expressions
5634
5635 CREATE OR REPLACE VIEW query.expr_xnum AS
5636     SELECT
5637                 id,
5638                 parenthesize,
5639                 parent_expr,
5640                 seq_no,
5641                 literal
5642     FROM
5643         query.expression
5644     WHERE
5645         type = 'xnum';
5646
5647 CREATE OR REPLACE RULE query_expr_xnum_insert_rule AS
5648     ON INSERT TO query.expr_xnum
5649     DO INSTEAD
5650     INSERT INTO query.expression (
5651                 id,
5652                 type,
5653                 parenthesize,
5654                 parent_expr,
5655                 seq_no,
5656                 literal
5657     ) VALUES (
5658         COALESCE(NEW.id, NEXTVAL('query.expression_id_seq'::REGCLASS)),
5659         'xnum',
5660         COALESCE(NEW.parenthesize, FALSE),
5661         NEW.parent_expr,
5662         COALESCE(NEW.seq_no, 1),
5663         NEW.literal
5664     );
5665
5666 CREATE OR REPLACE RULE query_expr_xnum_update_rule AS
5667     ON UPDATE TO query.expr_xnum
5668     DO INSTEAD
5669     UPDATE query.expression SET
5670         id = NEW.id,
5671         parenthesize = NEW.parenthesize,
5672         parent_expr = NEW.parent_expr,
5673         seq_no = NEW.seq_no,
5674         literal = NEW.literal
5675     WHERE
5676         id = OLD.id;
5677
5678 CREATE OR REPLACE RULE query_expr_xnum_delete_rule AS
5679     ON DELETE TO query.expr_xnum
5680     DO INSTEAD
5681     DELETE FROM query.expression WHERE id = OLD.id;
5682
5683 -- Create updatable view for operator expressions
5684
5685 CREATE OR REPLACE VIEW query.expr_xop AS
5686     SELECT
5687                 id,
5688                 parenthesize,
5689                 parent_expr,
5690                 seq_no,
5691                 left_operand,
5692                 operator,
5693                 right_operand,
5694                 negate
5695     FROM
5696         query.expression
5697     WHERE
5698         type = 'xop';
5699
5700 CREATE OR REPLACE RULE query_expr_xop_insert_rule AS
5701     ON INSERT TO query.expr_xop
5702     DO INSTEAD
5703     INSERT INTO query.expression (
5704                 id,
5705                 type,
5706                 parenthesize,
5707                 parent_expr,
5708                 seq_no,
5709                 left_operand,
5710                 operator,
5711                 right_operand,
5712                 negate
5713     ) VALUES (
5714         COALESCE(NEW.id, NEXTVAL('query.expression_id_seq'::REGCLASS)),
5715         'xop',
5716         COALESCE(NEW.parenthesize, FALSE),
5717         NEW.parent_expr,
5718         COALESCE(NEW.seq_no, 1),
5719                 NEW.left_operand,
5720                 NEW.operator,
5721                 NEW.right_operand,
5722                 COALESCE(NEW.negate, false)
5723     );
5724
5725 CREATE OR REPLACE RULE query_expr_xop_update_rule AS
5726     ON UPDATE TO query.expr_xop
5727     DO INSTEAD
5728     UPDATE query.expression SET
5729         id = NEW.id,
5730         parenthesize = NEW.parenthesize,
5731         parent_expr = NEW.parent_expr,
5732         seq_no = NEW.seq_no,
5733                 left_operand = NEW.left_operand,
5734                 operator = NEW.operator,
5735                 right_operand = NEW.right_operand,
5736                 negate = NEW.negate
5737     WHERE
5738         id = OLD.id;
5739
5740 CREATE OR REPLACE RULE query_expr_xop_delete_rule AS
5741     ON DELETE TO query.expr_xop
5742     DO INSTEAD
5743     DELETE FROM query.expression WHERE id = OLD.id;
5744
5745 -- Create updatable view for series expressions
5746 -- i.e. series of expressions separated by operators
5747
5748 CREATE OR REPLACE VIEW query.expr_xser AS
5749     SELECT
5750                 id,
5751                 parenthesize,
5752                 parent_expr,
5753                 seq_no,
5754                 operator,
5755                 negate
5756     FROM
5757         query.expression
5758     WHERE
5759         type = 'xser';
5760
5761 CREATE OR REPLACE RULE query_expr_xser_insert_rule AS
5762     ON INSERT TO query.expr_xser
5763     DO INSTEAD
5764     INSERT INTO query.expression (
5765                 id,
5766                 type,
5767                 parenthesize,
5768                 parent_expr,
5769                 seq_no,
5770                 operator,
5771                 negate
5772     ) VALUES (
5773         COALESCE(NEW.id, NEXTVAL('query.expression_id_seq'::REGCLASS)),
5774         'xser',
5775         COALESCE(NEW.parenthesize, FALSE),
5776         NEW.parent_expr,
5777         COALESCE(NEW.seq_no, 1),
5778                 NEW.operator,
5779                 COALESCE(NEW.negate, false)
5780     );
5781
5782 CREATE OR REPLACE RULE query_expr_xser_update_rule AS
5783     ON UPDATE TO query.expr_xser
5784     DO INSTEAD
5785     UPDATE query.expression SET
5786         id = NEW.id,
5787         parenthesize = NEW.parenthesize,
5788         parent_expr = NEW.parent_expr,
5789         seq_no = NEW.seq_no,
5790                 operator = NEW.operator,
5791                 negate = NEW.negate
5792     WHERE
5793         id = OLD.id;
5794
5795 CREATE OR REPLACE RULE query_expr_xser_delete_rule AS
5796     ON DELETE TO query.expr_xser
5797     DO INSTEAD
5798     DELETE FROM query.expression WHERE id = OLD.id;
5799
5800 -- Create updatable view for string literal expressions
5801
5802 CREATE OR REPLACE VIEW query.expr_xstr AS
5803     SELECT
5804         id,
5805         parenthesize,
5806         parent_expr,
5807         seq_no,
5808         literal
5809     FROM
5810         query.expression
5811     WHERE
5812         type = 'xstr';
5813
5814 CREATE OR REPLACE RULE query_expr_string_insert_rule AS
5815     ON INSERT TO query.expr_xstr
5816     DO INSTEAD
5817     INSERT INTO query.expression (
5818         id,
5819         type,
5820         parenthesize,
5821         parent_expr,
5822         seq_no,
5823         literal
5824     ) VALUES (
5825         COALESCE(NEW.id, NEXTVAL('query.expression_id_seq'::REGCLASS)),
5826         'xstr',
5827         COALESCE(NEW.parenthesize, FALSE),
5828         NEW.parent_expr,
5829         COALESCE(NEW.seq_no, 1),
5830         NEW.literal
5831     );
5832
5833 CREATE OR REPLACE RULE query_expr_string_update_rule AS
5834     ON UPDATE TO query.expr_xstr
5835     DO INSTEAD
5836     UPDATE query.expression SET
5837         id = NEW.id,
5838         parenthesize = NEW.parenthesize,
5839         parent_expr = NEW.parent_expr,
5840         seq_no = NEW.seq_no,
5841         literal = NEW.literal
5842     WHERE
5843         id = OLD.id;
5844
5845 CREATE OR REPLACE RULE query_expr_string_delete_rule AS
5846     ON DELETE TO query.expr_xstr
5847     DO INSTEAD
5848     DELETE FROM query.expression WHERE id = OLD.id;
5849
5850 -- Create updatable view for subquery expressions
5851
5852 CREATE OR REPLACE VIEW query.expr_xsubq AS
5853     SELECT
5854                 id,
5855                 parenthesize,
5856                 parent_expr,
5857                 seq_no,
5858                 subquery,
5859                 negate
5860     FROM
5861         query.expression
5862     WHERE
5863         type = 'xsubq';
5864
5865 CREATE OR REPLACE RULE query_expr_xsubq_insert_rule AS
5866     ON INSERT TO query.expr_xsubq
5867     DO INSTEAD
5868     INSERT INTO query.expression (
5869                 id,
5870                 type,
5871                 parenthesize,
5872                 parent_expr,
5873                 seq_no,
5874                 subquery,
5875                 negate
5876     ) VALUES (
5877         COALESCE(NEW.id, NEXTVAL('query.expression_id_seq'::REGCLASS)),
5878         'xsubq',
5879         COALESCE(NEW.parenthesize, FALSE),
5880         NEW.parent_expr,
5881         COALESCE(NEW.seq_no, 1),
5882                 NEW.subquery,
5883                 COALESCE(NEW.negate, false)
5884     );
5885
5886 CREATE OR REPLACE RULE query_expr_xsubq_update_rule AS
5887     ON UPDATE TO query.expr_xsubq
5888     DO INSTEAD
5889     UPDATE query.expression SET
5890         id = NEW.id,
5891         parenthesize = NEW.parenthesize,
5892         parent_expr = NEW.parent_expr,
5893         seq_no = NEW.seq_no,
5894                 subquery = NEW.subquery,
5895                 negate = NEW.negate
5896     WHERE
5897         id = OLD.id;
5898
5899 CREATE OR REPLACE RULE query_expr_xsubq_delete_rule AS
5900     ON DELETE TO query.expr_xsubq
5901     DO INSTEAD
5902     DELETE FROM query.expression WHERE id = OLD.id;
5903
5904 CREATE TABLE action.fieldset (
5905     id              SERIAL          PRIMARY KEY,
5906     owner           INT             NOT NULL REFERENCES actor.usr (id)
5907                                     DEFERRABLE INITIALLY DEFERRED,
5908     owning_lib      INT             NOT NULL REFERENCES actor.org_unit (id)
5909                                     DEFERRABLE INITIALLY DEFERRED,
5910     status          TEXT            NOT NULL
5911                                     CONSTRAINT valid_status CHECK ( status in
5912                                     ( 'PENDING', 'APPLIED', 'ERROR' )),
5913     creation_time   TIMESTAMPTZ     NOT NULL DEFAULT NOW(),
5914     scheduled_time  TIMESTAMPTZ,
5915     applied_time    TIMESTAMPTZ,
5916     classname       TEXT            NOT NULL, -- an IDL class name
5917     name            TEXT            NOT NULL,
5918     stored_query    INT             REFERENCES query.stored_query (id)
5919                                     DEFERRABLE INITIALLY DEFERRED,
5920     pkey_value      TEXT,
5921     CONSTRAINT lib_name_unique UNIQUE (owning_lib, name),
5922     CONSTRAINT fieldset_one_or_the_other CHECK (
5923         (stored_query IS NOT NULL AND pkey_value IS NULL) OR
5924         (pkey_value IS NOT NULL AND stored_query IS NULL)
5925     )
5926     -- the CHECK constraint means we can update the fields for a single
5927     -- row without all the extra overhead involved in a query
5928 );
5929
5930 CREATE INDEX action_fieldset_sched_time_idx ON action.fieldset( scheduled_time );
5931 CREATE INDEX action_owner_idx               ON action.fieldset( owner );
5932
5933 CREATE TABLE action.fieldset_col_val (
5934     id              SERIAL  PRIMARY KEY,
5935     fieldset        INT     NOT NULL REFERENCES action.fieldset
5936                                          ON DELETE CASCADE
5937                                          DEFERRABLE INITIALLY DEFERRED,
5938     col             TEXT    NOT NULL,  -- "field" from the idl ... the column on the table
5939     val             TEXT,              -- value for the column ... NULL means, well, NULL
5940     CONSTRAINT fieldset_col_once_per_set UNIQUE (fieldset, col)
5941 );
5942
5943 CREATE OR REPLACE FUNCTION action.apply_fieldset(
5944         fieldset_id IN INT,        -- id from action.fieldset
5945         table_name  IN TEXT,       -- table to be updated
5946         pkey_name   IN TEXT,       -- name of primary key column in that table
5947         query       IN TEXT        -- query constructed by qstore (for query-based
5948                                    --    fieldsets only; otherwise null
5949 )
5950 RETURNS TEXT AS $$
5951 DECLARE
5952         statement TEXT;
5953         fs_status TEXT;
5954         fs_pkey_value TEXT;
5955         fs_query TEXT;
5956         sep CHAR;
5957         status_code TEXT;
5958         msg TEXT;
5959         update_count INT;
5960         cv RECORD;
5961 BEGIN
5962         -- Sanity checks
5963         IF fieldset_id IS NULL THEN
5964                 RETURN 'Fieldset ID parameter is NULL';
5965         END IF;
5966         IF table_name IS NULL THEN
5967                 RETURN 'Table name parameter is NULL';
5968         END IF;
5969         IF pkey_name IS NULL THEN
5970                 RETURN 'Primary key name parameter is NULL';
5971         END IF;
5972         --
5973         statement := 'UPDATE ' || table_name || ' SET';
5974         --
5975         SELECT
5976                 status,
5977                 quote_literal( pkey_value )
5978         INTO
5979                 fs_status,
5980                 fs_pkey_value
5981         FROM
5982                 action.fieldset
5983         WHERE
5984                 id = fieldset_id;
5985         --
5986         IF fs_status IS NULL THEN
5987                 RETURN 'No fieldset found for id = ' || fieldset_id;
5988         ELSIF fs_status = 'APPLIED' THEN
5989                 RETURN 'Fieldset ' || fieldset_id || ' has already been applied';
5990         END IF;
5991         --
5992         sep := '';
5993         FOR cv IN
5994                 SELECT  col,
5995                                 val
5996                 FROM    action.fieldset_col_val
5997                 WHERE   fieldset = fieldset_id
5998         LOOP
5999                 statement := statement || sep || ' ' || cv.col
6000                                          || ' = ' || coalesce( quote_literal( cv.val ), 'NULL' );
6001                 sep := ',';
6002         END LOOP;
6003         --
6004         IF sep = '' THEN
6005                 RETURN 'Fieldset ' || fieldset_id || ' has no column values defined';
6006         END IF;
6007         --
6008         -- Add the WHERE clause.  This differs according to whether it's a
6009         -- single-row fieldset or a query-based fieldset.
6010         --
6011         IF query IS NULL        AND fs_pkey_value IS NULL THEN
6012                 RETURN 'Incomplete fieldset: neither a primary key nor a query available';
6013         ELSIF query IS NOT NULL AND fs_pkey_value IS NULL THEN
6014             fs_query := rtrim( query, ';' );
6015             statement := statement || ' WHERE ' || pkey_name || ' IN ( '
6016                          || fs_query || ' );';
6017         ELSIF query IS NULL     AND fs_pkey_value IS NOT NULL THEN
6018                 statement := statement || ' WHERE ' || pkey_name || ' = '
6019                                      || fs_pkey_value || ';';
6020         ELSE  -- both are not null
6021                 RETURN 'Ambiguous fieldset: both a primary key and a query provided';
6022         END IF;
6023         --
6024         -- Execute the update
6025         --
6026         BEGIN
6027                 EXECUTE statement;
6028                 GET DIAGNOSTICS update_count = ROW_COUNT;
6029                 --
6030                 IF UPDATE_COUNT > 0 THEN
6031                         status_code := 'APPLIED';
6032                         msg := NULL;
6033                 ELSE
6034                         status_code := 'ERROR';
6035                         msg := 'No eligible rows found for fieldset ' || fieldset_id;
6036         END IF;
6037         EXCEPTION WHEN OTHERS THEN
6038                 status_code := 'ERROR';
6039                 msg := 'Unable to apply fieldset ' || fieldset_id
6040                            || ': ' || sqlerrm;
6041         END;
6042         --
6043         -- Update fieldset status
6044         --
6045         UPDATE action.fieldset
6046         SET status       = status_code,
6047             applied_time = now()
6048         WHERE id = fieldset_id;
6049         --
6050         RETURN msg;
6051 END;
6052 $$ LANGUAGE plpgsql;
6053
6054 COMMENT ON FUNCTION action.apply_fieldset( INT, TEXT, TEXT, TEXT ) IS $$
6055 /**
6056  * Applies a specified fieldset, using a supplied table name and primary
6057  * key name.  The query parameter should be non-null only for
6058  * query-based fieldsets.
6059  *
6060  * Returns NULL if successful, or an error message if not.
6061  */
6062 $$;
6063
6064 CREATE INDEX uhr_hold_idx ON action.unfulfilled_hold_list (hold);
6065
6066 CREATE OR REPLACE VIEW action.unfulfilled_hold_loops AS
6067     SELECT  u.hold,
6068             c.circ_lib,
6069             count(*)
6070       FROM  action.unfulfilled_hold_list u
6071             JOIN asset.copy c ON (c.id = u.current_copy)
6072       GROUP BY 1,2;
6073
6074 CREATE OR REPLACE VIEW action.unfulfilled_hold_min_loop AS
6075     SELECT  hold,
6076             min(count)
6077       FROM  action.unfulfilled_hold_loops
6078       GROUP BY 1;
6079
6080 CREATE OR REPLACE VIEW action.unfulfilled_hold_innermost_loop AS
6081     SELECT  DISTINCT l.*
6082       FROM  action.unfulfilled_hold_loops l
6083             JOIN action.unfulfilled_hold_min_loop m USING (hold)
6084       WHERE l.count = m.min;
6085
6086 ALTER TABLE asset.copy
6087 ADD COLUMN dummy_isbn TEXT;
6088
6089 ALTER TABLE auditor.asset_copy_history
6090 ADD COLUMN dummy_isbn TEXT;
6091
6092 -- Add new column status_changed_date to asset.copy, with trigger to maintain it
6093 -- Add corresponding new column to auditor.asset_copy_history
6094
6095 ALTER TABLE asset.copy
6096         ADD COLUMN status_changed_time TIMESTAMPTZ;
6097
6098 ALTER TABLE auditor.asset_copy_history
6099         ADD COLUMN status_changed_time TIMESTAMPTZ;
6100
6101 CREATE OR REPLACE FUNCTION asset.acp_status_changed()
6102 RETURNS TRIGGER AS $$
6103 BEGIN
6104     IF NEW.status <> OLD.status THEN
6105         NEW.status_changed_time := now();
6106     END IF;
6107     RETURN NEW;
6108 END;
6109 $$ LANGUAGE plpgsql;
6110
6111 CREATE TRIGGER acp_status_changed_trig
6112         BEFORE UPDATE ON asset.copy
6113         FOR EACH ROW EXECUTE PROCEDURE asset.acp_status_changed();
6114
6115 ALTER TABLE asset.copy
6116 ADD COLUMN mint_condition boolean NOT NULL DEFAULT TRUE;
6117
6118 ALTER TABLE auditor.asset_copy_history
6119 ADD COLUMN mint_condition boolean NOT NULL DEFAULT TRUE;
6120
6121 ALTER TABLE asset.copy ADD COLUMN floating BOOL NOT NULL DEFAULT FALSE;
6122 ALTER TABLE auditor.asset_copy_history ADD COLUMN floating BOOL;
6123
6124 DROP INDEX IF EXISTS asset.copy_barcode_key;
6125 CREATE UNIQUE INDEX copy_barcode_key ON asset.copy (barcode) WHERE deleted = FALSE OR deleted IS FALSE;
6126
6127 -- Note: later we create a trigger a_opac_vis_mat_view_tgr
6128 -- AFTER INSERT OR UPDATE ON asset.copy
6129
6130 ALTER TABLE asset.copy ADD COLUMN cost NUMERIC(8,2);
6131 ALTER TABLE auditor.asset_copy_history ADD COLUMN cost NUMERIC(8,2);
6132
6133 -- Moke mostly parallel changes to action.circulation
6134 -- and action.aged_circulation
6135
6136 ALTER TABLE action.circulation
6137 ADD COLUMN workstation INT
6138     REFERENCES actor.workstation
6139         ON DELETE SET NULL
6140         DEFERRABLE INITIALLY DEFERRED;
6141
6142 ALTER TABLE action.aged_circulation
6143 ADD COLUMN workstation INT;
6144
6145 ALTER TABLE action.circulation
6146 ADD COLUMN parent_circ BIGINT
6147         REFERENCES action.circulation(id)
6148         DEFERRABLE INITIALLY DEFERRED;
6149
6150 CREATE UNIQUE INDEX circ_parent_idx
6151 ON action.circulation( parent_circ )
6152 WHERE parent_circ IS NOT NULL;
6153
6154 ALTER TABLE action.aged_circulation
6155 ADD COLUMN parent_circ BIGINT;
6156
6157 ALTER TABLE action.circulation
6158 ADD COLUMN checkin_workstation INT
6159         REFERENCES actor.workstation(id)
6160         ON DELETE SET NULL
6161         DEFERRABLE INITIALLY DEFERRED;
6162
6163 ALTER TABLE action.aged_circulation
6164 ADD COLUMN checkin_workstation INT;
6165
6166 ALTER TABLE action.circulation
6167 ADD COLUMN checkin_scan_time TIMESTAMPTZ;
6168
6169 ALTER TABLE action.aged_circulation
6170 ADD COLUMN checkin_scan_time TIMESTAMPTZ;
6171
6172 CREATE INDEX action_circulation_target_copy_idx
6173 ON action.circulation (target_copy);
6174
6175 CREATE INDEX action_aged_circulation_target_copy_idx
6176 ON action.aged_circulation (target_copy);
6177
6178 ALTER TABLE action.circulation
6179 DROP CONSTRAINT circulation_stop_fines_check;
6180
6181 ALTER TABLE action.circulation
6182         ADD CONSTRAINT circulation_stop_fines_check
6183         CHECK (stop_fines IN (
6184         'CHECKIN','CLAIMSRETURNED','LOST','MAXFINES','RENEW','LONGOVERDUE','CLAIMSNEVERCHECKEDOUT'));
6185
6186 -- Correct some long-standing misspellings involving variations of "recur"
6187
6188 ALTER TABLE action.circulation RENAME COLUMN recuring_fine TO recurring_fine;
6189 ALTER TABLE action.circulation RENAME COLUMN recuring_fine_rule TO recurring_fine_rule;
6190
6191 ALTER TABLE action.aged_circulation RENAME COLUMN recuring_fine TO recurring_fine;
6192 ALTER TABLE action.aged_circulation RENAME COLUMN recuring_fine_rule TO recurring_fine_rule;
6193
6194 ALTER TABLE config.rule_recuring_fine RENAME TO rule_recurring_fine;
6195 ALTER TABLE config.rule_recuring_fine_id_seq RENAME TO rule_recurring_fine_id_seq;
6196
6197 ALTER TABLE config.rule_recurring_fine RENAME COLUMN recurance_interval TO recurrence_interval;
6198
6199 -- Might as well keep the comment in sync as well
6200 COMMENT ON TABLE config.rule_recurring_fine IS $$
6201 /*
6202  * Copyright (C) 2005  Georgia Public Library Service
6203  * Mike Rylander <mrylander@gmail.com>
6204  *
6205  * Circulation Recurring Fine rules
6206  *
6207  * Each circulation is given a recurring fine amount based on one of
6208  * these rules.  The recurrence_interval should not be any shorter
6209  * than the interval between runs of the fine_processor.pl script
6210  * (which is run from CRON), or you could miss fines.
6211  *
6212  *
6213  * ****
6214  *
6215  * This program is free software; you can redistribute it and/or
6216  * modify it under the terms of the GNU General Public License
6217  * as published by the Free Software Foundation; either version 2
6218  * of the License, or (at your option) any later version.
6219  *
6220  * This program is distributed in the hope that it will be useful,
6221  * but WITHOUT ANY WARRANTY; without even the implied warranty of
6222  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
6223  * GNU General Public License for more details.
6224  */
6225 $$;
6226
6227 -- Extend the name change to some related views:
6228
6229 DROP VIEW IF EXISTS reporter.overdue_circs;
6230
6231 CREATE OR REPLACE VIEW reporter.overdue_circs AS
6232 SELECT  *
6233   FROM  action.circulation
6234     WHERE checkin_time is null
6235                 AND (stop_fines NOT IN ('LOST','CLAIMSRETURNED') OR stop_fines IS NULL)
6236                                 AND due_date < now();
6237
6238 DROP VIEW IF EXISTS stats.fleshed_circulation;
6239
6240 DROP VIEW IF EXISTS stats.fleshed_copy;
6241
6242 CREATE VIEW stats.fleshed_copy AS
6243         SELECT  cp.*,
6244         CAST(cp.create_date AS DATE) AS create_date_day,
6245         CAST(cp.edit_date AS DATE) AS edit_date_day,
6246         DATE_TRUNC('hour', cp.create_date) AS create_date_hour,
6247         DATE_TRUNC('hour', cp.edit_date) AS edit_date_hour,
6248                 cn.label AS call_number_label,
6249                 cn.owning_lib,
6250                 rd.item_lang,
6251                 rd.item_type,
6252                 rd.item_form
6253         FROM    asset.copy cp
6254                 JOIN asset.call_number cn ON (cp.call_number = cn.id)
6255                 JOIN metabib.rec_descriptor rd ON (rd.record = cn.record);
6256
6257 CREATE VIEW stats.fleshed_circulation AS
6258         SELECT  c.*,
6259                 CAST(c.xact_start AS DATE) AS start_date_day,
6260                 CAST(c.xact_finish AS DATE) AS finish_date_day,
6261                 DATE_TRUNC('hour', c.xact_start) AS start_date_hour,
6262                 DATE_TRUNC('hour', c.xact_finish) AS finish_date_hour,
6263                 cp.call_number_label,
6264                 cp.owning_lib,
6265                 cp.item_lang,
6266                 cp.item_type,
6267                 cp.item_form
6268         FROM    action.circulation c
6269                 JOIN stats.fleshed_copy cp ON (cp.id = c.target_copy);
6270
6271 -- Drop a view temporarily in order to alter action.all_circulation, upon
6272 -- which it is dependent.  We will recreate the view later.
6273
6274 DROP VIEW IF EXISTS extend_reporter.full_circ_count;
6275
6276 -- You would think that CREATE OR REPLACE would be enough, but in testing
6277 -- PostgreSQL complained about renaming the columns in the view. So we
6278 -- drop the view first.
6279 DROP VIEW IF EXISTS action.all_circulation;
6280
6281 CREATE OR REPLACE VIEW action.all_circulation AS
6282     SELECT  id,usr_post_code, usr_home_ou, usr_profile, usr_birth_year, copy_call_number, copy_location,
6283         copy_owning_lib, copy_circ_lib, copy_bib_record, xact_start, xact_finish, target_copy,
6284         circ_lib, circ_staff, checkin_staff, checkin_lib, renewal_remaining, due_date,
6285         stop_fines_time, checkin_time, create_time, duration, fine_interval, recurring_fine,
6286         max_fine, phone_renewal, desk_renewal, opac_renewal, duration_rule, recurring_fine_rule,
6287         max_fine_rule, stop_fines, workstation, checkin_workstation, checkin_scan_time, parent_circ
6288       FROM  action.aged_circulation
6289             UNION ALL
6290     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,
6291         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,
6292         cn.record AS copy_bib_record, circ.xact_start, circ.xact_finish, circ.target_copy, circ.circ_lib, circ.circ_staff, circ.checkin_staff,
6293         circ.checkin_lib, circ.renewal_remaining, circ.due_date, circ.stop_fines_time, circ.checkin_time, circ.create_time, circ.duration,
6294         circ.fine_interval, circ.recurring_fine, circ.max_fine, circ.phone_renewal, circ.desk_renewal, circ.opac_renewal, circ.duration_rule,
6295         circ.recurring_fine_rule, circ.max_fine_rule, circ.stop_fines, circ.workstation, circ.checkin_workstation, circ.checkin_scan_time,
6296         circ.parent_circ
6297       FROM  action.circulation circ
6298         JOIN asset.copy cp ON (circ.target_copy = cp.id)
6299         JOIN asset.call_number cn ON (cp.call_number = cn.id)
6300         JOIN actor.usr p ON (circ.usr = p.id)
6301         LEFT JOIN actor.usr_address a ON (p.mailing_address = a.id)
6302         LEFT JOIN actor.usr_address b ON (p.billing_address = a.id);
6303
6304 -- Recreate the temporarily dropped view, having altered the action.all_circulation view:
6305
6306 CREATE OR REPLACE VIEW extend_reporter.full_circ_count AS
6307  SELECT cp.id, COALESCE(sum(c.circ_count), 0::bigint) + COALESCE(count(circ.id), 0::bigint) + COALESCE(count(acirc.id), 0::bigint) AS circ_count
6308    FROM asset."copy" cp
6309    LEFT JOIN extend_reporter.legacy_circ_count c USING (id)
6310    LEFT JOIN "action".circulation circ ON circ.target_copy = cp.id
6311    LEFT JOIN "action".aged_circulation acirc ON acirc.target_copy = cp.id
6312   GROUP BY cp.id;
6313
6314 CREATE UNIQUE INDEX only_one_concurrent_checkout_per_copy ON action.circulation(target_copy) WHERE checkin_time IS NULL;
6315
6316 ALTER TABLE action.circulation DROP CONSTRAINT action_circulation_target_copy_fkey;
6317
6318 -- Rebuild dependent views
6319
6320 DROP VIEW IF EXISTS action.billable_circulations;
6321
6322 CREATE OR REPLACE VIEW action.billable_circulations AS
6323     SELECT  *
6324       FROM  action.circulation
6325       WHERE xact_finish IS NULL;
6326
6327 DROP VIEW IF EXISTS action.open_circulation;
6328
6329 CREATE OR REPLACE VIEW action.open_circulation AS
6330     SELECT  *
6331       FROM  action.circulation
6332       WHERE checkin_time IS NULL
6333       ORDER BY due_date;
6334
6335 CREATE OR REPLACE FUNCTION action.age_circ_on_delete () RETURNS TRIGGER AS $$
6336 DECLARE
6337 found char := 'N';
6338 BEGIN
6339
6340     -- If there are any renewals for this circulation, don't archive or delete
6341     -- it yet.   We'll do so later, when we archive and delete the renewals.
6342
6343     SELECT 'Y' INTO found
6344     FROM action.circulation
6345     WHERE parent_circ = OLD.id
6346     LIMIT 1;
6347
6348     IF found = 'Y' THEN
6349         RETURN NULL;  -- don't delete
6350         END IF;
6351
6352     -- Archive a copy of the old row to action.aged_circulation
6353
6354     INSERT INTO action.aged_circulation
6355         (id,usr_post_code, usr_home_ou, usr_profile, usr_birth_year, copy_call_number, copy_location,
6356         copy_owning_lib, copy_circ_lib, copy_bib_record, xact_start, xact_finish, target_copy,
6357         circ_lib, circ_staff, checkin_staff, checkin_lib, renewal_remaining, due_date,
6358         stop_fines_time, checkin_time, create_time, duration, fine_interval, recurring_fine,
6359         max_fine, phone_renewal, desk_renewal, opac_renewal, duration_rule, recurring_fine_rule,
6360         max_fine_rule, stop_fines, workstation, checkin_workstation, checkin_scan_time, parent_circ)
6361       SELECT
6362         id,usr_post_code, usr_home_ou, usr_profile, usr_birth_year, copy_call_number, copy_location,
6363         copy_owning_lib, copy_circ_lib, copy_bib_record, xact_start, xact_finish, target_copy,
6364         circ_lib, circ_staff, checkin_staff, checkin_lib, renewal_remaining, due_date,
6365         stop_fines_time, checkin_time, create_time, duration, fine_interval, recurring_fine,
6366         max_fine, phone_renewal, desk_renewal, opac_renewal, duration_rule, recurring_fine_rule,
6367         max_fine_rule, stop_fines, workstation, checkin_workstation, checkin_scan_time, parent_circ
6368         FROM action.all_circulation WHERE id = OLD.id;
6369
6370     RETURN OLD;
6371 END;
6372 $$ LANGUAGE 'plpgsql';
6373
6374 UPDATE config.z3950_attr SET truncation = 1 WHERE source = 'biblios' AND name = 'title';
6375
6376 UPDATE config.z3950_attr SET truncation = 1 WHERE source = 'biblios' AND truncation = 0;
6377
6378 -- Adding circ.holds.target_skip_me OU setting logic to the pre-matchpoint tests
6379
6380 CREATE OR REPLACE FUNCTION action.find_hold_matrix_matchpoint( pickup_ou INT, request_ou INT, match_item BIGINT, match_user INT, match_requestor INT ) RETURNS INT AS $func$
6381 DECLARE
6382     current_requestor_group    permission.grp_tree%ROWTYPE;
6383     requestor_object    actor.usr%ROWTYPE;
6384     user_object        actor.usr%ROWTYPE;
6385     item_object        asset.copy%ROWTYPE;
6386     item_cn_object        asset.call_number%ROWTYPE;
6387     rec_descriptor        metabib.rec_descriptor%ROWTYPE;
6388     current_mp_weight    FLOAT;
6389     matchpoint_weight    FLOAT;
6390     tmp_weight        FLOAT;
6391     current_mp        config.hold_matrix_matchpoint%ROWTYPE;
6392     matchpoint        config.hold_matrix_matchpoint%ROWTYPE;
6393 BEGIN
6394     SELECT INTO user_object * FROM actor.usr WHERE id = match_user;
6395     SELECT INTO requestor_object * FROM actor.usr WHERE id = match_requestor;
6396     SELECT INTO item_object * FROM asset.copy WHERE id = match_item;
6397     SELECT INTO item_cn_object * FROM asset.call_number WHERE id = item_object.call_number;
6398     SELECT INTO rec_descriptor r.* FROM metabib.rec_descriptor r WHERE r.record = item_cn_object.record;
6399
6400     PERFORM * FROM config.internal_flag WHERE name = 'circ.holds.usr_not_requestor' AND enabled;
6401
6402     IF NOT FOUND THEN
6403         SELECT INTO current_requestor_group * FROM permission.grp_tree WHERE id = requestor_object.profile;
6404     ELSE
6405         SELECT INTO current_requestor_group * FROM permission.grp_tree WHERE id = user_object.profile;
6406     END IF;
6407
6408     LOOP
6409         -- for each potential matchpoint for this ou and group ...
6410         FOR current_mp IN
6411             SELECT    m.*
6412               FROM    config.hold_matrix_matchpoint m
6413               WHERE    m.requestor_grp = current_requestor_group.id AND m.active
6414               ORDER BY    CASE WHEN m.circ_modifier    IS NOT NULL THEN 16 ELSE 0 END +
6415                     CASE WHEN m.juvenile_flag    IS NOT NULL THEN 16 ELSE 0 END +
6416                     CASE WHEN m.marc_type        IS NOT NULL THEN 8 ELSE 0 END +
6417                     CASE WHEN m.marc_form        IS NOT NULL THEN 4 ELSE 0 END +
6418                     CASE WHEN m.marc_vr_format    IS NOT NULL THEN 2 ELSE 0 END +
6419                     CASE WHEN m.ref_flag        IS NOT NULL THEN 1 ELSE 0 END DESC LOOP
6420
6421             current_mp_weight := 5.0;
6422
6423             IF current_mp.circ_modifier IS NOT NULL THEN
6424                 CONTINUE WHEN current_mp.circ_modifier <> item_object.circ_modifier OR item_object.circ_modifier IS NULL;
6425             END IF;
6426
6427             IF current_mp.marc_type IS NOT NULL THEN
6428                 IF item_object.circ_as_type IS NOT NULL THEN
6429                     CONTINUE WHEN current_mp.marc_type <> item_object.circ_as_type;
6430                 ELSE
6431                     CONTINUE WHEN current_mp.marc_type <> rec_descriptor.item_type;
6432                 END IF;
6433             END IF;
6434
6435             IF current_mp.marc_form IS NOT NULL THEN
6436                 CONTINUE WHEN current_mp.marc_form <> rec_descriptor.item_form;
6437             END IF;
6438
6439             IF current_mp.marc_vr_format IS NOT NULL THEN
6440                 CONTINUE WHEN current_mp.marc_vr_format <> rec_descriptor.vr_format;
6441             END IF;
6442
6443             IF current_mp.juvenile_flag IS NOT NULL THEN
6444                 CONTINUE WHEN current_mp.juvenile_flag <> user_object.juvenile;
6445             END IF;
6446
6447             IF current_mp.ref_flag IS NOT NULL THEN
6448                 CONTINUE WHEN current_mp.ref_flag <> item_object.ref;
6449             END IF;
6450
6451
6452             -- caclulate the rule match weight
6453             IF current_mp.item_owning_ou IS NOT NULL THEN
6454                 SELECT INTO tmp_weight 1.0 / (actor.org_unit_proximity(current_mp.item_owning_ou, item_cn_object.owning_lib)::FLOAT + 1.0)::FLOAT;
6455                 current_mp_weight := current_mp_weight - tmp_weight;
6456             END IF;
6457
6458             IF current_mp.item_circ_ou IS NOT NULL THEN
6459                 SELECT INTO tmp_weight 1.0 / (actor.org_unit_proximity(current_mp.item_circ_ou, item_object.circ_lib)::FLOAT + 1.0)::FLOAT;
6460                 current_mp_weight := current_mp_weight - tmp_weight;
6461             END IF;
6462
6463             IF current_mp.pickup_ou IS NOT NULL THEN
6464                 SELECT INTO tmp_weight 1.0 / (actor.org_unit_proximity(current_mp.pickup_ou, pickup_ou)::FLOAT + 1.0)::FLOAT;
6465                 current_mp_weight := current_mp_weight - tmp_weight;
6466             END IF;
6467
6468             IF current_mp.request_ou IS NOT NULL THEN
6469                 SELECT INTO tmp_weight 1.0 / (actor.org_unit_proximity(current_mp.request_ou, request_ou)::FLOAT + 1.0)::FLOAT;
6470                 current_mp_weight := current_mp_weight - tmp_weight;
6471             END IF;
6472
6473             IF current_mp.user_home_ou IS NOT NULL THEN
6474                 SELECT INTO tmp_weight 1.0 / (actor.org_unit_proximity(current_mp.user_home_ou, user_object.home_ou)::FLOAT + 1.0)::FLOAT;
6475                 current_mp_weight := current_mp_weight - tmp_weight;
6476             END IF;
6477
6478             -- set the matchpoint if we found the best one
6479             IF matchpoint_weight IS NULL OR matchpoint_weight > current_mp_weight THEN
6480                 matchpoint = current_mp;
6481                 matchpoint_weight = current_mp_weight;
6482             END IF;
6483
6484         END LOOP;
6485
6486         EXIT WHEN current_requestor_group.parent IS NULL OR matchpoint.id IS NOT NULL;
6487
6488         SELECT INTO current_requestor_group * FROM permission.grp_tree WHERE id = current_requestor_group.parent;
6489     END LOOP;
6490
6491     RETURN matchpoint.id;
6492 END;
6493 $func$ LANGUAGE plpgsql;
6494
6495 CREATE OR REPLACE FUNCTION action.hold_request_permit_test( pickup_ou INT, request_ou INT, match_item BIGINT, match_user INT, match_requestor INT, retargetting BOOL ) RETURNS SETOF action.matrix_test_result AS $func$
6496 DECLARE
6497     matchpoint_id        INT;
6498     user_object        actor.usr%ROWTYPE;
6499     age_protect_object    config.rule_age_hold_protect%ROWTYPE;
6500     standing_penalty    config.standing_penalty%ROWTYPE;
6501     transit_range_ou_type    actor.org_unit_type%ROWTYPE;
6502     transit_source        actor.org_unit%ROWTYPE;
6503     item_object        asset.copy%ROWTYPE;
6504     ou_skip              actor.org_unit_setting%ROWTYPE;
6505     result            action.matrix_test_result;
6506     hold_test        config.hold_matrix_matchpoint%ROWTYPE;
6507     hold_count        INT;
6508     hold_transit_prox    INT;
6509     frozen_hold_count    INT;
6510     context_org_list    INT[];
6511     done            BOOL := FALSE;
6512 BEGIN
6513     SELECT INTO user_object * FROM actor.usr WHERE id = match_user;
6514     SELECT INTO context_org_list ARRAY_ACCUM(id) FROM actor.org_unit_full_path( pickup_ou );
6515
6516     result.success := TRUE;
6517
6518     -- Fail if we couldn't find a user
6519     IF user_object.id IS NULL THEN
6520         result.fail_part := 'no_user';
6521         result.success := FALSE;
6522         done := TRUE;
6523         RETURN NEXT result;
6524         RETURN;
6525     END IF;
6526
6527     SELECT INTO item_object * FROM asset.copy WHERE id = match_item;
6528
6529     -- Fail if we couldn't find a copy
6530     IF item_object.id IS NULL THEN
6531         result.fail_part := 'no_item';
6532         result.success := FALSE;
6533         done := TRUE;
6534         RETURN NEXT result;
6535         RETURN;
6536     END IF;
6537
6538     SELECT INTO matchpoint_id action.find_hold_matrix_matchpoint(pickup_ou, request_ou, match_item, match_user, match_requestor);
6539     result.matchpoint := matchpoint_id;
6540
6541     SELECT INTO ou_skip * FROM actor.org_unit_setting WHERE name = 'circ.holds.target_skip_me' AND org_unit = item_object.circ_lib;
6542
6543     -- Fail if the circ_lib for the item has circ.holds.target_skip_me set to true
6544     IF ou_skip.id IS NOT NULL AND ou_skip.value = 'true' THEN
6545         result.fail_part := 'circ.holds.target_skip_me';
6546         result.success := FALSE;
6547         done := TRUE;
6548         RETURN NEXT result;
6549         RETURN;
6550     END IF;
6551
6552     -- Fail if user is barred
6553     IF user_object.barred IS TRUE THEN
6554         result.fail_part := 'actor.usr.barred';
6555         result.success := FALSE;
6556         done := TRUE;
6557         RETURN NEXT result;
6558         RETURN;
6559     END IF;
6560
6561     -- Fail if we couldn't find any matchpoint (requires a default)
6562     IF matchpoint_id IS NULL THEN
6563         result.fail_part := 'no_matchpoint';
6564         result.success := FALSE;
6565         done := TRUE;
6566         RETURN NEXT result;
6567         RETURN;
6568     END IF;
6569
6570     SELECT INTO hold_test * FROM config.hold_matrix_matchpoint WHERE id = matchpoint_id;
6571
6572     IF hold_test.holdable IS FALSE THEN
6573         result.fail_part := 'config.hold_matrix_test.holdable';
6574         result.success := FALSE;
6575         done := TRUE;
6576         RETURN NEXT result;
6577     END IF;
6578
6579     IF hold_test.transit_range IS NOT NULL THEN
6580         SELECT INTO transit_range_ou_type * FROM actor.org_unit_type WHERE id = hold_test.transit_range;
6581         IF hold_test.distance_is_from_owner THEN
6582             SELECT INTO transit_source ou.* FROM actor.org_unit ou JOIN asset.call_number cn ON (cn.owning_lib = ou.id) WHERE cn.id = item_object.call_number;
6583         ELSE
6584             SELECT INTO transit_source * FROM actor.org_unit WHERE id = item_object.circ_lib;
6585         END IF;
6586
6587         PERFORM * FROM actor.org_unit_descendants( transit_source.id, transit_range_ou_type.depth ) WHERE id = pickup_ou;
6588
6589         IF NOT FOUND THEN
6590             result.fail_part := 'transit_range';
6591             result.success := FALSE;
6592             done := TRUE;
6593             RETURN NEXT result;
6594         END IF;
6595     END IF;
6596
6597     IF NOT retargetting THEN
6598         FOR standing_penalty IN
6599             SELECT  DISTINCT csp.*
6600               FROM  actor.usr_standing_penalty usp
6601                     JOIN config.standing_penalty csp ON (csp.id = usp.standing_penalty)
6602               WHERE usr = match_user
6603                     AND usp.org_unit IN ( SELECT * FROM explode_array(context_org_list) )
6604                     AND (usp.stop_date IS NULL or usp.stop_date > NOW())
6605                     AND csp.block_list LIKE '%HOLD%' LOOP
6606
6607             result.fail_part := standing_penalty.name;
6608             result.success := FALSE;
6609             done := TRUE;
6610             RETURN NEXT result;
6611         END LOOP;
6612
6613         IF hold_test.stop_blocked_user IS TRUE THEN
6614             FOR standing_penalty IN
6615                 SELECT  DISTINCT csp.*
6616                   FROM  actor.usr_standing_penalty usp
6617                         JOIN config.standing_penalty csp ON (csp.id = usp.standing_penalty)
6618                   WHERE usr = match_user
6619                         AND usp.org_unit IN ( SELECT * FROM explode_array(context_org_list) )
6620                         AND (usp.stop_date IS NULL or usp.stop_date > NOW())
6621                         AND csp.block_list LIKE '%CIRC%' LOOP
6622
6623                 result.fail_part := standing_penalty.name;
6624                 result.success := FALSE;
6625                 done := TRUE;
6626                 RETURN NEXT result;
6627             END LOOP;
6628         END IF;
6629
6630         IF hold_test.max_holds IS NOT NULL THEN
6631             SELECT    INTO hold_count COUNT(*)
6632               FROM    action.hold_request
6633               WHERE    usr = match_user
6634                 AND fulfillment_time IS NULL
6635                 AND cancel_time IS NULL
6636                 AND CASE WHEN hold_test.include_frozen_holds THEN TRUE ELSE frozen IS FALSE END;
6637
6638             IF hold_count >= hold_test.max_holds THEN
6639                 result.fail_part := 'config.hold_matrix_test.max_holds';
6640                 result.success := FALSE;
6641                 done := TRUE;
6642                 RETURN NEXT result;
6643             END IF;
6644         END IF;
6645     END IF;
6646
6647     IF item_object.age_protect IS NOT NULL THEN
6648         SELECT INTO age_protect_object * FROM config.rule_age_hold_protect WHERE id = item_object.age_protect;
6649
6650         IF item_object.create_date + age_protect_object.age > NOW() THEN
6651             IF hold_test.distance_is_from_owner THEN
6652                 SELECT INTO hold_transit_prox prox FROM actor.org_unit_proximity WHERE from_org = item_cn_object.owning_lib AND to_org = pickup_ou;
6653             ELSE
6654                 SELECT INTO hold_transit_prox prox FROM actor.org_unit_proximity WHERE from_org = item_object.circ_lib AND to_org = pickup_ou;
6655             END IF;
6656
6657             IF hold_transit_prox > age_protect_object.prox THEN
6658                 result.fail_part := 'config.rule_age_hold_protect.prox';
6659                 result.success := FALSE;
6660                 done := TRUE;
6661                 RETURN NEXT result;
6662             END IF;
6663         END IF;
6664     END IF;
6665
6666     IF NOT done THEN
6667         RETURN NEXT result;
6668     END IF;
6669
6670     RETURN;
6671 END;
6672 $func$ LANGUAGE plpgsql;
6673
6674 CREATE OR REPLACE FUNCTION action.hold_request_permit_test( pickup_ou INT, request_ou INT, match_item BIGINT, match_user INT, match_requestor INT ) RETURNS SETOF action.matrix_test_result AS $func$
6675     SELECT * FROM action.hold_request_permit_test( $1, $2, $3, $4, $5, FALSE);
6676 $func$ LANGUAGE SQL;
6677
6678 CREATE OR REPLACE FUNCTION action.hold_retarget_permit_test( pickup_ou INT, request_ou INT, match_item BIGINT, match_user INT, match_requestor INT ) RETURNS SETOF action.matrix_test_result AS $func$
6679     SELECT * FROM action.hold_request_permit_test( $1, $2, $3, $4, $5, TRUE );
6680 $func$ LANGUAGE SQL;
6681
6682 -- New post-delete trigger to propagate deletions to parent(s)
6683
6684 CREATE OR REPLACE FUNCTION action.age_parent_circ_on_delete () RETURNS TRIGGER AS $$
6685 BEGIN
6686
6687     -- Having deleted a renewal, we can delete the original circulation (or a previous
6688     -- renewal, if that's what parent_circ is pointing to).  That deletion will trigger
6689     -- deletion of any prior parents, etc. recursively.
6690
6691     IF OLD.parent_circ IS NOT NULL THEN
6692         DELETE FROM action.circulation
6693         WHERE id = OLD.parent_circ;
6694     END IF;
6695
6696     RETURN OLD;
6697 END;
6698 $$ LANGUAGE 'plpgsql';
6699
6700 CREATE TRIGGER age_parent_circ AFTER DELETE ON action.circulation
6701 FOR EACH ROW EXECUTE PROCEDURE action.age_parent_circ_on_delete ();
6702
6703 -- This only gets inserted if there are no other id > 100 billing types
6704 INSERT INTO config.billing_type (id, name, owner) SELECT DISTINCT 101, oils_i18n_gettext(101, 'Misc', 'cbt', 'name'), 1 FROM config.billing_type_id_seq WHERE last_value < 101;
6705 SELECT SETVAL('config.billing_type_id_seq'::TEXT, 101) FROM config.billing_type_id_seq WHERE last_value < 101;
6706
6707 -- Populate xact_type column in the materialized version of billable_xact_summary
6708
6709 CREATE OR REPLACE FUNCTION money.mat_summary_create () RETURNS TRIGGER AS $$
6710 BEGIN
6711         INSERT INTO money.materialized_billable_xact_summary (id, usr, xact_start, xact_finish, total_paid, total_owed, balance_owed, xact_type)
6712                 VALUES ( NEW.id, NEW.usr, NEW.xact_start, NEW.xact_finish, 0.0, 0.0, 0.0, TG_ARGV[0]);
6713         RETURN NEW;
6714 END;
6715 $$ LANGUAGE PLPGSQL;
6716
6717 DROP TRIGGER IF EXISTS mat_summary_create_tgr ON action.circulation;
6718 CREATE TRIGGER mat_summary_create_tgr AFTER INSERT ON action.circulation FOR EACH ROW EXECUTE PROCEDURE money.mat_summary_create ('circulation');
6719
6720 DROP TRIGGER IF EXISTS mat_summary_create_tgr ON money.grocery;
6721 CREATE TRIGGER mat_summary_create_tgr AFTER INSERT ON money.grocery FOR EACH ROW EXECUTE PROCEDURE money.mat_summary_create ('grocery');
6722
6723 CREATE RULE money_payment_view_update AS ON UPDATE TO money.payment_view DO INSTEAD
6724     UPDATE money.payment SET xact = NEW.xact, payment_ts = NEW.payment_ts, voided = NEW.voided, amount = NEW.amount, note = NEW.note WHERE id = NEW.id;
6725
6726 -- Generate the equivalent of compound subject entries from the existing rows
6727 -- so that we don't have to laboriously reindex them
6728
6729 --INSERT INTO config.metabib_field (field_class, name, format, xpath ) VALUES
6730 --    ( 'subject', 'complete', 'mods32', $$//mods32:mods/mods32:subject//text()$$ );
6731 --
6732 --CREATE INDEX metabib_subject_field_entry_source_idx ON metabib.subject_field_entry (source);
6733 --
6734 --INSERT INTO metabib.subject_field_entry (source, field, value)
6735 --    SELECT source, (
6736 --            SELECT id
6737 --            FROM config.metabib_field
6738 --            WHERE field_class = 'subject' AND name = 'complete'
6739 --        ),
6740 --        ARRAY_TO_STRING (
6741 --            ARRAY (
6742 --                SELECT value
6743 --                FROM metabib.subject_field_entry msfe
6744 --                WHERE msfe.source = groupee.source
6745 --                ORDER BY source
6746 --            ), ' '
6747 --        ) AS grouped
6748 --    FROM (
6749 --        SELECT source
6750 --        FROM metabib.subject_field_entry
6751 --        GROUP BY source
6752 --    ) AS groupee;
6753
6754 CREATE OR REPLACE FUNCTION money.materialized_summary_billing_del () RETURNS TRIGGER AS $$
6755 DECLARE
6756         prev_billing    money.billing%ROWTYPE;
6757         old_billing     money.billing%ROWTYPE;
6758 BEGIN
6759         SELECT * INTO prev_billing FROM money.billing WHERE xact = OLD.xact AND NOT voided ORDER BY billing_ts DESC LIMIT 1 OFFSET 1;
6760         SELECT * INTO old_billing FROM money.billing WHERE xact = OLD.xact AND NOT voided ORDER BY billing_ts DESC LIMIT 1;
6761
6762         IF OLD.id = old_billing.id THEN
6763                 UPDATE  money.materialized_billable_xact_summary
6764                   SET   last_billing_ts = prev_billing.billing_ts,
6765                         last_billing_note = prev_billing.note,
6766                         last_billing_type = prev_billing.billing_type
6767                   WHERE id = OLD.xact;
6768         END IF;
6769
6770         IF NOT OLD.voided THEN
6771                 UPDATE  money.materialized_billable_xact_summary
6772                   SET   total_owed = total_owed - OLD.amount,
6773                         balance_owed = balance_owed + OLD.amount
6774                   WHERE id = OLD.xact;
6775         END IF;
6776
6777         RETURN OLD;
6778 END;
6779 $$ LANGUAGE PLPGSQL;
6780
6781 -- ARG! need to rid ourselves of the broken table definition ... this mechanism is not ideal, sorry.
6782 DROP TABLE IF EXISTS config.index_normalizer CASCADE;
6783
6784 CREATE OR REPLACE FUNCTION public.naco_normalize( TEXT, TEXT ) RETURNS TEXT AS $func$
6785         use Unicode::Normalize;
6786         use Encode;
6787
6788         # When working with Unicode data, the first step is to decode it to
6789         # a byte string; after that, lowercasing is safe
6790         my $txt = lc(decode_utf8(shift));
6791         my $sf = shift;
6792
6793         $txt = NFD($txt);
6794         $txt =~ s/\pM+//go;     # Remove diacritics
6795
6796         $txt =~ s/\xE6/AE/go;   # Convert ae digraph
6797         $txt =~ s/\x{153}/OE/go;# Convert oe digraph
6798         $txt =~ s/\xFE/TH/go;   # Convert Icelandic thorn
6799
6800         $txt =~ tr/\x{2070}\x{2071}\x{2072}\x{2073}\x{2074}\x{2075}\x{2076}\x{2077}\x{2078}\x{2079}\x{207A}\x{207B}/0123456789+-/;# Convert superscript numbers
6801         $txt =~ tr/\x{2080}\x{2081}\x{2082}\x{2083}\x{2084}\x{2085}\x{2086}\x{2087}\x{2088}\x{2089}\x{208A}\x{208B}/0123456889+-/;# Convert subscript numbers
6802
6803         $txt =~ tr/\x{0251}\x{03B1}\x{03B2}\x{0262}\x{03B3}/AABGG/;             # Convert Latin and Greek
6804         $txt =~ tr/\x{2113}\xF0\!\"\(\)\-\{\}\<\>\;\:\.\?\xA1\xBF\/\\\@\*\%\=\xB1\+\xAE\xA9\x{2117}\$\xA3\x{FFE1}\xB0\^\_\~\`/LD /;     # Convert Misc
6805         $txt =~ tr/\'\[\]\|//d;                                                 # Remove Misc
6806
6807         if ($sf && $sf =~ /^a/o) {
6808                 my $commapos = index($txt,',');
6809                 if ($commapos > -1) {
6810                         if ($commapos != length($txt) - 1) {
6811                                 my @list = split /,/, $txt;
6812                                 my $first = shift @list;
6813                                 $txt = $first . ',' . join(' ', @list);
6814                         } else {
6815                                 $txt =~ s/,/ /go;
6816                         }
6817                 }
6818         } else {
6819                 $txt =~ s/,/ /go;
6820         }
6821
6822         $txt =~ s/\s+/ /go;     # Compress multiple spaces
6823         $txt =~ s/^\s+//o;      # Remove leading space
6824         $txt =~ s/\s+$//o;      # Remove trailing space
6825
6826         # Encoding the outgoing string is good practice, but not strictly
6827         # necessary in this case because we've stripped everything from it
6828         return encode_utf8($txt);
6829 $func$ LANGUAGE 'plperlu' STRICT IMMUTABLE;
6830
6831 -- Some handy functions, based on existing ones, to provide optional ingest normalization
6832
6833 CREATE OR REPLACE FUNCTION public.left_trunc( TEXT, INT ) RETURNS TEXT AS $func$
6834         SELECT SUBSTRING($1,$2);
6835 $func$ LANGUAGE SQL STRICT IMMUTABLE;
6836
6837 CREATE OR REPLACE FUNCTION public.right_trunc( TEXT, INT ) RETURNS TEXT AS $func$
6838         SELECT SUBSTRING($1,1,$2);
6839 $func$ LANGUAGE SQL STRICT IMMUTABLE;
6840
6841 CREATE OR REPLACE FUNCTION public.naco_normalize_keep_comma( TEXT ) RETURNS TEXT AS $func$
6842         SELECT public.naco_normalize($1,'a');
6843 $func$ LANGUAGE SQL STRICT IMMUTABLE;
6844
6845 CREATE OR REPLACE FUNCTION public.split_date_range( TEXT ) RETURNS TEXT AS $func$
6846         SELECT REGEXP_REPLACE( $1, E'(\\d{4})-(\\d{4})', E'\\1 \\2', 'g' );
6847 $func$ LANGUAGE SQL STRICT IMMUTABLE;
6848
6849 -- And ... a table in which to register them
6850
6851 CREATE TABLE config.index_normalizer (
6852         id              SERIAL  PRIMARY KEY,
6853         name            TEXT    UNIQUE NOT NULL,
6854         description     TEXT,
6855         func            TEXT    NOT NULL,
6856         param_count     INT     NOT NULL DEFAULT 0
6857 );
6858
6859 CREATE TABLE config.metabib_field_index_norm_map (
6860         id      SERIAL  PRIMARY KEY,
6861         field   INT     NOT NULL REFERENCES config.metabib_field (id) ON DELETE CASCADE DEFERRABLE INITIALLY DEFERRED,
6862         norm    INT     NOT NULL REFERENCES config.index_normalizer (id) ON DELETE CASCADE DEFERRABLE INITIALLY DEFERRED,
6863         params  TEXT,
6864         pos     INT     NOT NULL DEFAULT 0
6865 );
6866
6867 INSERT INTO config.index_normalizer (name, description, func, param_count) VALUES (
6868         'NACO Normalize',
6869         'Apply NACO normalization rules to the extracted text.  See http://www.loc.gov/catdir/pcc/naco/normrule-2.html for details.',
6870         'naco_normalize',
6871         0
6872 );
6873
6874 INSERT INTO config.index_normalizer (name, description, func, param_count) VALUES (
6875         'Normalize date range',
6876         'Split date ranges in the form of "XXXX-YYYY" into "XXXX YYYY" for proper index.',
6877         'split_date_range',
6878         1
6879 );
6880
6881 INSERT INTO config.index_normalizer (name, description, func, param_count) VALUES (
6882         'NACO Normalize -- retain first comma',
6883         'Apply NACO normalization rules to the extracted text, retaining the first comma.  See http://www.loc.gov/catdir/pcc/naco/normrule-2.html for details.',
6884         'naco_normalize_keep_comma',
6885         0
6886 );
6887
6888 INSERT INTO config.index_normalizer (name, description, func, param_count) VALUES (
6889         'Strip Diacritics',
6890         'Convert text to NFD form and remove non-spacing combining marks.',
6891         'remove_diacritics',
6892         0
6893 );
6894
6895 INSERT INTO config.index_normalizer (name, description, func, param_count) VALUES (
6896         'Up-case',
6897         'Convert text upper case.',
6898         'uppercase',
6899         0
6900 );
6901
6902 INSERT INTO config.index_normalizer (name, description, func, param_count) VALUES (
6903         'Down-case',
6904         'Convert text lower case.',
6905         'lowercase',
6906         0
6907 );
6908
6909 INSERT INTO config.index_normalizer (name, description, func, param_count) VALUES (
6910         'Extract Dewey-like number',
6911         'Extract a string of numeric characters ther resembles a DDC number.',
6912         'call_number_dewey',
6913         0
6914 );
6915
6916 INSERT INTO config.index_normalizer (name, description, func, param_count) VALUES (
6917         'Left truncation',
6918         'Discard the specified number of characters from the left side of the string.',
6919         'left_trunc',
6920         1
6921 );
6922
6923 INSERT INTO config.index_normalizer (name, description, func, param_count) VALUES (
6924         'Right truncation',
6925         'Include only the specified number of characters from the left side of the string.',
6926         'right_trunc',
6927         1
6928 );
6929
6930 INSERT INTO config.index_normalizer (name, description, func, param_count) VALUES (
6931         'First word',
6932         'Include only the first space-separated word of a string.',
6933         'first_word',
6934         0
6935 );
6936
6937 INSERT INTO config.metabib_field_index_norm_map (field,norm)
6938         SELECT  m.id,
6939                 i.id
6940           FROM  config.metabib_field m,
6941                 config.index_normalizer i
6942           WHERE i.func IN ('naco_normalize','split_date_range');
6943
6944 CREATE OR REPLACE FUNCTION oils_tsearch2 () RETURNS TRIGGER AS $$
6945 DECLARE
6946     normalizer      RECORD;
6947     value           TEXT := '';
6948 BEGIN
6949
6950     value := NEW.value;
6951
6952     IF TG_TABLE_NAME::TEXT ~ 'field_entry$' THEN
6953         FOR normalizer IN
6954             SELECT  n.func AS func,
6955                     n.param_count AS param_count,
6956                     m.params AS params
6957               FROM  config.index_normalizer n
6958                     JOIN config.metabib_field_index_norm_map m ON (m.norm = n.id)
6959               WHERE field = NEW.field AND m.pos < 0
6960               ORDER BY m.pos LOOP
6961                 EXECUTE 'SELECT ' || normalizer.func || '(' ||
6962                     quote_literal( value ) ||
6963                     CASE
6964                         WHEN normalizer.param_count > 0
6965                             THEN ',' || REPLACE(REPLACE(BTRIM(normalizer.params,'[]'),E'\'',E'\\\''),E'"',E'\'')
6966                             ELSE ''
6967                         END ||
6968                     ')' INTO value;
6969
6970         END LOOP;
6971
6972         NEW.value := value;
6973     END IF;
6974
6975     IF NEW.index_vector = ''::tsvector THEN
6976         RETURN NEW;
6977     END IF;
6978
6979     IF TG_TABLE_NAME::TEXT ~ 'field_entry$' THEN
6980         FOR normalizer IN
6981             SELECT  n.func AS func,
6982                     n.param_count AS param_count,
6983                     m.params AS params
6984               FROM  config.index_normalizer n
6985                     JOIN config.metabib_field_index_norm_map m ON (m.norm = n.id)
6986               WHERE field = NEW.field AND m.pos >= 0
6987               ORDER BY m.pos LOOP
6988                 EXECUTE 'SELECT ' || normalizer.func || '(' ||
6989                     quote_literal( value ) ||
6990                     CASE
6991                         WHEN normalizer.param_count > 0
6992                             THEN ',' || REPLACE(REPLACE(BTRIM(normalizer.params,'[]'),E'\'',E'\\\''),E'"',E'\'')
6993                             ELSE ''
6994                         END ||
6995                     ')' INTO value;
6996
6997         END LOOP;
6998     END IF;
6999
7000     IF REGEXP_REPLACE(VERSION(),E'^.+?(\\d+\\.\\d+).*?$',E'\\1')::FLOAT > 8.2 THEN
7001         NEW.index_vector = to_tsvector((TG_ARGV[0])::regconfig, value);
7002     ELSE
7003         NEW.index_vector = to_tsvector(TG_ARGV[0], value);
7004     END IF;
7005
7006     RETURN NEW;
7007 END;
7008 $$ LANGUAGE PLPGSQL;
7009
7010 CREATE OR REPLACE FUNCTION oils_xpath ( TEXT, TEXT, ANYARRAY ) RETURNS TEXT[] AS 'SELECT XPATH( $1, $2::XML, $3 )::TEXT[];' LANGUAGE SQL IMMUTABLE;
7011
7012 CREATE OR REPLACE FUNCTION oils_xpath ( TEXT, TEXT ) RETURNS TEXT[] AS 'SELECT XPATH( $1, $2::XML )::TEXT[];' LANGUAGE SQL IMMUTABLE;
7013
7014 CREATE OR REPLACE FUNCTION oils_xpath_string ( TEXT, TEXT, TEXT, ANYARRAY ) RETURNS TEXT AS $func$
7015     SELECT  ARRAY_TO_STRING(
7016                 oils_xpath(
7017                     $1 ||
7018                         CASE WHEN $1 ~ $re$/[^/[]*@[^]]+$$re$ OR $1 ~ $re$text\(\)$$re$ THEN '' ELSE '//text()' END,
7019                     $2,
7020                     $4
7021                 ),
7022                 $3
7023             );
7024 $func$ LANGUAGE SQL IMMUTABLE;
7025
7026 CREATE OR REPLACE FUNCTION oils_xpath_string ( TEXT, TEXT, TEXT ) RETURNS TEXT AS $func$
7027     SELECT oils_xpath_string( $1, $2, $3, '{}'::TEXT[] );
7028 $func$ LANGUAGE SQL IMMUTABLE;
7029
7030 CREATE OR REPLACE FUNCTION oils_xpath_string ( TEXT, TEXT, ANYARRAY ) RETURNS TEXT AS $func$
7031     SELECT oils_xpath_string( $1, $2, '', $3 );
7032 $func$ LANGUAGE SQL IMMUTABLE;
7033
7034 CREATE OR REPLACE FUNCTION oils_xpath_string ( TEXT, TEXT ) RETURNS TEXT AS $func$
7035     SELECT oils_xpath_string( $1, $2, '{}'::TEXT[] );
7036 $func$ LANGUAGE SQL IMMUTABLE;
7037
7038 CREATE TYPE metabib.field_entry_template AS (
7039         field_class     TEXT,
7040         field           INT,
7041         source          BIGINT,
7042         value           TEXT
7043 );
7044
7045 CREATE OR REPLACE FUNCTION oils_xslt_process(TEXT, TEXT) RETURNS TEXT AS $func$
7046   use strict;
7047
7048   use XML::LibXSLT;
7049   use XML::LibXML;
7050
7051   my $doc = shift;
7052   my $xslt = shift;
7053
7054   # The following approach uses the older XML::LibXML 1.69 / XML::LibXSLT 1.68
7055   # methods of parsing XML documents and stylesheets, in the hopes of broader
7056   # compatibility with distributions
7057   my $parser = $_SHARED{'_xslt_process'}{parsers}{xml} || XML::LibXML->new();
7058
7059   # Cache the XML parser, if we do not already have one
7060   $_SHARED{'_xslt_process'}{parsers}{xml} = $parser
7061     unless ($_SHARED{'_xslt_process'}{parsers}{xml});
7062
7063   my $xslt_parser = $_SHARED{'_xslt_process'}{parsers}{xslt} || XML::LibXSLT->new();
7064
7065   # Cache the XSLT processor, if we do not already have one
7066   $_SHARED{'_xslt_process'}{parsers}{xslt} = $xslt_parser
7067     unless ($_SHARED{'_xslt_process'}{parsers}{xslt});
7068
7069   my $stylesheet = $_SHARED{'_xslt_process'}{stylesheets}{$xslt} ||
7070     $xslt_parser->parse_stylesheet( $parser->parse_string($xslt) );
7071
7072   $_SHARED{'_xslt_process'}{stylesheets}{$xslt} = $stylesheet
7073     unless ($_SHARED{'_xslt_process'}{stylesheets}{$xslt});
7074
7075   return $stylesheet->output_string(
7076     $stylesheet->transform(
7077       $parser->parse_string($doc)
7078     )
7079   );
7080
7081 $func$ LANGUAGE 'plperlu' STRICT IMMUTABLE;
7082
7083 -- Add two columns so that the following function will compile.
7084 -- Eventually the label column will be NOT NULL, but not yet.
7085 ALTER TABLE config.metabib_field ADD COLUMN label TEXT;
7086 ALTER TABLE config.metabib_field ADD COLUMN facet_xpath TEXT;
7087
7088 CREATE OR REPLACE FUNCTION biblio.extract_metabib_field_entry ( rid BIGINT, default_joiner TEXT ) RETURNS SETOF metabib.field_entry_template AS $func$
7089 DECLARE
7090     bib     biblio.record_entry%ROWTYPE;
7091     idx     config.metabib_field%ROWTYPE;
7092     xfrm        config.xml_transform%ROWTYPE;
7093     prev_xfrm   TEXT;
7094     transformed_xml TEXT;
7095     xml_node    TEXT;
7096     xml_node_list   TEXT[];
7097     facet_text  TEXT;
7098     raw_text    TEXT;
7099     curr_text   TEXT;
7100     joiner      TEXT := default_joiner; -- XXX will index defs supply a joiner?
7101     output_row  metabib.field_entry_template%ROWTYPE;
7102 BEGIN
7103
7104     -- Get the record
7105     SELECT INTO bib * FROM biblio.record_entry WHERE id = rid;
7106
7107     -- Loop over the indexing entries
7108     FOR idx IN SELECT * FROM config.metabib_field ORDER BY format LOOP
7109
7110         SELECT INTO xfrm * from config.xml_transform WHERE name = idx.format;
7111
7112         -- See if we can skip the XSLT ... it's expensive
7113         IF prev_xfrm IS NULL OR prev_xfrm <> xfrm.name THEN
7114             -- Can't skip the transform
7115             IF xfrm.xslt <> '---' THEN
7116                 transformed_xml := oils_xslt_process(bib.marc,xfrm.xslt);
7117             ELSE
7118                 transformed_xml := bib.marc;
7119             END IF;
7120
7121             prev_xfrm := xfrm.name;
7122         END IF;
7123
7124         xml_node_list := oils_xpath( idx.xpath, transformed_xml, ARRAY[ARRAY[xfrm.prefix, xfrm.namespace_uri]] );
7125
7126         raw_text := NULL;
7127         FOR xml_node IN SELECT x FROM explode_array(xml_node_list) AS x LOOP
7128             CONTINUE WHEN xml_node !~ E'^\\s*<';
7129
7130             curr_text := ARRAY_TO_STRING(
7131                 oils_xpath( '//text()',
7132                     REGEXP_REPLACE( -- This escapes all &s not followed by "amp;".  Data ise returned from oils_xpath (above) in UTF-8, not entity encoded
7133                         REGEXP_REPLACE( -- This escapes embeded <s
7134                             xml_node,
7135                             $re$(>[^<]+)(<)([^>]+<)$re$,
7136                             E'\\1&lt;\\3',
7137                             'g'
7138                         ),
7139                         '&(?!amp;)',
7140                         '&amp;',
7141                         'g'
7142                     )
7143                 ),
7144                 ' '
7145             );
7146
7147             CONTINUE WHEN curr_text IS NULL OR curr_text = '';
7148
7149             IF raw_text IS NOT NULL THEN
7150                 raw_text := raw_text || joiner;
7151             END IF;
7152
7153             raw_text := COALESCE(raw_text,'') || curr_text;
7154
7155             -- insert raw node text for faceting
7156             IF idx.facet_field THEN
7157
7158                 IF idx.facet_xpath IS NOT NULL AND idx.facet_xpath <> '' THEN
7159                     facet_text := oils_xpath_string( idx.facet_xpath, xml_node, joiner, ARRAY[ARRAY[xfrm.prefix, xfrm.namespace_uri]] );
7160                 ELSE
7161                     facet_text := curr_text;
7162                 END IF;
7163
7164                 output_row.field_class = idx.field_class;
7165                 output_row.field = -1 * idx.id;
7166                 output_row.source = rid;
7167                 output_row.value = BTRIM(REGEXP_REPLACE(facet_text, E'\\s+', ' ', 'g'));
7168
7169                 RETURN NEXT output_row;
7170             END IF;
7171
7172         END LOOP;
7173
7174         CONTINUE WHEN raw_text IS NULL OR raw_text = '';
7175
7176         -- insert combined node text for searching
7177         IF idx.search_field THEN
7178             output_row.field_class = idx.field_class;
7179             output_row.field = idx.id;
7180             output_row.source = rid;
7181             output_row.value = BTRIM(REGEXP_REPLACE(raw_text, E'\\s+', ' ', 'g'));
7182
7183             RETURN NEXT output_row;
7184         END IF;
7185
7186     END LOOP;
7187
7188 END;
7189 $func$ LANGUAGE PLPGSQL;
7190
7191 -- default to a space joiner
7192 CREATE OR REPLACE FUNCTION biblio.extract_metabib_field_entry ( BIGINT ) RETURNS SETOF metabib.field_entry_template AS $func$
7193         SELECT * FROM biblio.extract_metabib_field_entry($1, ' ');
7194 $func$ LANGUAGE SQL;
7195
7196 CREATE OR REPLACE FUNCTION biblio.flatten_marc ( TEXT ) RETURNS SETOF metabib.full_rec AS $func$
7197
7198 use MARC::Record;
7199 use MARC::File::XML (BinaryEncoding => 'UTF-8');
7200
7201 my $xml = shift;
7202 my $r = MARC::Record->new_from_xml( $xml );
7203
7204 return_next( { tag => 'LDR', value => $r->leader } );
7205
7206 for my $f ( $r->fields ) {
7207     if ($f->is_control_field) {
7208         return_next({ tag => $f->tag, value => $f->data });
7209     } else {
7210         for my $s ($f->subfields) {
7211             return_next({
7212                 tag      => $f->tag,
7213                 ind1     => $f->indicator(1),
7214                 ind2     => $f->indicator(2),
7215                 subfield => $s->[0],
7216                 value    => $s->[1]
7217             });
7218
7219             if ( $f->tag eq '245' and $s->[0] eq 'a' ) {
7220                 my $trim = $f->indicator(2) || 0;
7221                 return_next({
7222                     tag      => 'tnf',
7223                     ind1     => $f->indicator(1),
7224                     ind2     => $f->indicator(2),
7225                     subfield => 'a',
7226                     value    => substr( $s->[1], $trim )
7227                 });
7228             }
7229         }
7230     }
7231 }
7232
7233 return undef;
7234
7235 $func$ LANGUAGE PLPERLU;
7236
7237 CREATE OR REPLACE FUNCTION biblio.flatten_marc ( rid BIGINT ) RETURNS SETOF metabib.full_rec AS $func$
7238 DECLARE
7239     bib biblio.record_entry%ROWTYPE;
7240     output  metabib.full_rec%ROWTYPE;
7241     field   RECORD;
7242 BEGIN
7243     SELECT INTO bib * FROM biblio.record_entry WHERE id = rid;
7244
7245     FOR field IN SELECT * FROM biblio.flatten_marc( bib.marc ) LOOP
7246         output.record := rid;
7247         output.ind1 := field.ind1;
7248         output.ind2 := field.ind2;
7249         output.tag := field.tag;
7250         output.subfield := field.subfield;
7251         IF field.subfield IS NOT NULL AND field.tag NOT IN ('020','022','024') THEN -- exclude standard numbers and control fields
7252             output.value := naco_normalize(field.value, field.subfield);
7253         ELSE
7254             output.value := field.value;
7255         END IF;
7256
7257         CONTINUE WHEN output.value IS NULL;
7258
7259         RETURN NEXT output;
7260     END LOOP;
7261 END;
7262 $func$ LANGUAGE PLPGSQL;
7263
7264 -- functions to create auditor objects
7265
7266 CREATE FUNCTION auditor.create_auditor_seq     ( sch TEXT, tbl TEXT ) RETURNS BOOL AS $creator$
7267 BEGIN
7268     EXECUTE $$
7269         CREATE SEQUENCE auditor.$$ || sch || $$_$$ || tbl || $$_pkey_seq;
7270     $$;
7271         RETURN TRUE;
7272 END;
7273 $creator$ LANGUAGE 'plpgsql';
7274
7275 CREATE FUNCTION auditor.create_auditor_history ( sch TEXT, tbl TEXT ) RETURNS BOOL AS $creator$
7276 BEGIN
7277     EXECUTE $$
7278         CREATE TABLE auditor.$$ || sch || $$_$$ || tbl || $$_history (
7279             audit_id    BIGINT                          PRIMARY KEY,
7280             audit_time  TIMESTAMP WITH TIME ZONE        NOT NULL,
7281             audit_action        TEXT                            NOT NULL,
7282             LIKE $$ || sch || $$.$$ || tbl || $$
7283         );
7284     $$;
7285         RETURN TRUE;
7286 END;
7287 $creator$ LANGUAGE 'plpgsql';
7288
7289 CREATE FUNCTION auditor.create_auditor_func    ( sch TEXT, tbl TEXT ) RETURNS BOOL AS $creator$
7290 BEGIN
7291     EXECUTE $$
7292         CREATE FUNCTION auditor.audit_$$ || sch || $$_$$ || tbl || $$_func ()
7293         RETURNS TRIGGER AS $func$
7294         BEGIN
7295             INSERT INTO auditor.$$ || sch || $$_$$ || tbl || $$_history
7296                 SELECT  nextval('auditor.$$ || sch || $$_$$ || tbl || $$_pkey_seq'),
7297                     now(),
7298                     SUBSTR(TG_OP,1,1),
7299                     OLD.*;
7300             RETURN NULL;
7301         END;
7302         $func$ LANGUAGE 'plpgsql';
7303     $$;
7304         RETURN TRUE;
7305 END;
7306 $creator$ LANGUAGE 'plpgsql';
7307
7308 CREATE FUNCTION auditor.create_auditor_update_trigger ( sch TEXT, tbl TEXT ) RETURNS BOOL AS $creator$
7309 BEGIN
7310     EXECUTE $$
7311         CREATE TRIGGER audit_$$ || sch || $$_$$ || tbl || $$_update_trigger
7312             AFTER UPDATE OR DELETE ON $$ || sch || $$.$$ || tbl || $$ FOR EACH ROW
7313             EXECUTE PROCEDURE auditor.audit_$$ || sch || $$_$$ || tbl || $$_func ();
7314     $$;
7315         RETURN TRUE;
7316 END;
7317 $creator$ LANGUAGE 'plpgsql';
7318
7319 CREATE FUNCTION auditor.create_auditor_lifecycle     ( sch TEXT, tbl TEXT ) RETURNS BOOL AS $creator$
7320 BEGIN
7321     EXECUTE $$
7322         CREATE VIEW auditor.$$ || sch || $$_$$ || tbl || $$_lifecycle AS
7323             SELECT      -1, now() as audit_time, '-' as audit_action, *
7324               FROM      $$ || sch || $$.$$ || tbl || $$
7325                 UNION ALL
7326             SELECT      *
7327               FROM      auditor.$$ || sch || $$_$$ || tbl || $$_history;
7328     $$;
7329         RETURN TRUE;
7330 END;
7331 $creator$ LANGUAGE 'plpgsql';
7332
7333 DROP FUNCTION IF EXISTS auditor.create_auditor (TEXT, TEXT);
7334
7335 -- The main event
7336
7337 CREATE FUNCTION auditor.create_auditor ( sch TEXT, tbl TEXT ) RETURNS BOOL AS $creator$
7338 BEGIN
7339     PERFORM auditor.create_auditor_seq(sch, tbl);
7340     PERFORM auditor.create_auditor_history(sch, tbl);
7341     PERFORM auditor.create_auditor_func(sch, tbl);
7342     PERFORM auditor.create_auditor_update_trigger(sch, tbl);
7343     PERFORM auditor.create_auditor_lifecycle(sch, tbl);
7344     RETURN TRUE;
7345 END;
7346 $creator$ LANGUAGE 'plpgsql';
7347
7348 ALTER TABLE action.hold_request ADD COLUMN cut_in_line BOOL;
7349
7350 ALTER TABLE action.hold_request
7351 ADD COLUMN mint_condition boolean NOT NULL DEFAULT TRUE;
7352
7353 ALTER TABLE action.hold_request
7354 ADD COLUMN shelf_expire_time TIMESTAMPTZ;
7355
7356 ALTER TABLE action.hold_request DROP CONSTRAINT hold_request_current_copy_fkey;
7357
7358 ALTER TABLE action.hold_request DROP CONSTRAINT hold_request_hold_type_check;
7359
7360 UPDATE config.index_normalizer SET param_count = 0 WHERE func = 'split_date_range';
7361
7362 CREATE INDEX actor_usr_usrgroup_idx ON actor.usr (usrgroup);
7363
7364 -- Add claims_never_checked_out_count to actor.usr, related history
7365
7366 ALTER TABLE actor.usr ADD COLUMN
7367         claims_never_checked_out_count  INT         NOT NULL DEFAULT 0;
7368
7369 ALTER TABLE AUDITOR.actor_usr_history ADD COLUMN
7370         claims_never_checked_out_count INT;
7371
7372 DROP VIEW IF EXISTS auditor.actor_usr_lifecycle;
7373
7374 SELECT auditor.create_auditor_lifecycle( 'actor', 'usr' );
7375
7376 -----------
7377
7378 CREATE OR REPLACE FUNCTION action.circulation_claims_returned () RETURNS TRIGGER AS $$
7379 BEGIN
7380         IF OLD.stop_fines IS NULL OR OLD.stop_fines <> NEW.stop_fines THEN
7381                 IF NEW.stop_fines = 'CLAIMSRETURNED' THEN
7382                         UPDATE actor.usr SET claims_returned_count = claims_returned_count + 1 WHERE id = NEW.usr;
7383                 END IF;
7384                 IF NEW.stop_fines = 'CLAIMSNEVERCHECKEDOUT' THEN
7385                         UPDATE actor.usr SET claims_never_checked_out_count = claims_never_checked_out_count + 1 WHERE id = NEW.usr;
7386                 END IF;
7387                 IF NEW.stop_fines = 'LOST' THEN
7388                         UPDATE asset.copy SET status = 3 WHERE id = NEW.target_copy;
7389                 END IF;
7390         END IF;
7391         RETURN NEW;
7392 END;
7393 $$ LANGUAGE 'plpgsql';
7394
7395 -- Create new table acq.fund_allocation_percent
7396 -- Populate it from acq.fund_allocation
7397 -- Convert all percentages to amounts in acq.fund_allocation
7398
7399 CREATE TABLE acq.fund_allocation_percent
7400 (
7401     id                   SERIAL            PRIMARY KEY,
7402     funding_source       INT               NOT NULL REFERENCES acq.funding_source
7403                                                DEFERRABLE INITIALLY DEFERRED,
7404     org                  INT               NOT NULL REFERENCES actor.org_unit
7405                                                DEFERRABLE INITIALLY DEFERRED,
7406     fund_code            TEXT,
7407     percent              NUMERIC           NOT NULL,
7408     allocator            INTEGER           NOT NULL REFERENCES actor.usr
7409                                                DEFERRABLE INITIALLY DEFERRED,
7410     note                 TEXT,
7411     create_time          TIMESTAMPTZ       NOT NULL DEFAULT now(),
7412     CONSTRAINT logical_key UNIQUE( funding_source, org, fund_code ),
7413     CONSTRAINT percentage_range CHECK( percent >= 0 AND percent <= 100 )
7414 );
7415
7416 -- Trigger function to validate combination of org_unit and fund_code
7417
7418 CREATE OR REPLACE FUNCTION acq.fund_alloc_percent_val()
7419 RETURNS TRIGGER AS $$
7420 --
7421 DECLARE
7422 --
7423 dummy int := 0;
7424 --
7425 BEGIN
7426     SELECT
7427         1
7428     INTO
7429         dummy
7430     FROM
7431         acq.fund
7432     WHERE
7433         org = NEW.org
7434         AND code = NEW.fund_code
7435         LIMIT 1;
7436     --
7437     IF dummy = 1 then
7438         RETURN NEW;
7439     ELSE
7440         RAISE EXCEPTION 'No fund exists for org % and code %', NEW.org, NEW.fund_code;
7441     END IF;
7442 END;
7443 $$ LANGUAGE plpgsql;
7444
7445 CREATE TRIGGER acq_fund_alloc_percent_val_trig
7446     BEFORE INSERT OR UPDATE ON acq.fund_allocation_percent
7447     FOR EACH ROW EXECUTE PROCEDURE acq.fund_alloc_percent_val();
7448
7449 CREATE OR REPLACE FUNCTION acq.fap_limit_100()
7450 RETURNS TRIGGER AS $$
7451 DECLARE
7452 --
7453 total_percent numeric;
7454 --
7455 BEGIN
7456     SELECT
7457         sum( percent )
7458     INTO
7459         total_percent
7460     FROM
7461         acq.fund_allocation_percent AS fap
7462     WHERE
7463         fap.funding_source = NEW.funding_source;
7464     --
7465     IF total_percent > 100 THEN
7466         RAISE EXCEPTION 'Total percentages exceed 100 for funding_source %',
7467             NEW.funding_source;
7468     ELSE
7469         RETURN NEW;
7470     END IF;
7471 END;
7472 $$ LANGUAGE plpgsql;
7473
7474 CREATE TRIGGER acqfap_limit_100_trig
7475     AFTER INSERT OR UPDATE ON acq.fund_allocation_percent
7476     FOR EACH ROW EXECUTE PROCEDURE acq.fap_limit_100();
7477
7478 -- Populate new table from acq.fund_allocation
7479
7480 INSERT INTO acq.fund_allocation_percent
7481 (
7482     funding_source,
7483     org,
7484     fund_code,
7485     percent,
7486     allocator,
7487     note,
7488     create_time
7489 )
7490     SELECT
7491         fa.funding_source,
7492         fund.org,
7493         fund.code,
7494         fa.percent,
7495         fa.allocator,
7496         fa.note,
7497         fa.create_time
7498     FROM
7499         acq.fund_allocation AS fa
7500             INNER JOIN acq.fund AS fund
7501                 ON ( fa.fund = fund.id )
7502     WHERE
7503         fa.percent is not null
7504     ORDER BY
7505         fund.org;
7506
7507 -- Temporary function to convert percentages to amounts in acq.fund_allocation
7508
7509 -- Algorithm to apply to each funding source:
7510
7511 -- 1. Add up the credits.
7512 -- 2. Add up the percentages.
7513 -- 3. Multiply the sum of the percentages times the sum of the credits.  Drop any
7514 --    fractional cents from the result.  This is the total amount to be allocated.
7515 -- 4. For each allocation: multiply the percentage by the total allocation.  Drop any
7516 --    fractional cents to get a preliminary amount.
7517 -- 5. Add up the preliminary amounts for all the allocations.
7518 -- 6. Subtract the results of step 5 from the result of step 3.  The difference is the
7519 --    number of residual cents (resulting from having dropped fractional cents) that
7520 --    must be distributed across the funds in order to make the total of the amounts
7521 --    match the total allocation.
7522 -- 7. Make a second pass through the allocations, in decreasing order of the fractional
7523 --    cents that were dropped from their amounts in step 4.  Add one cent to the amount
7524 --    for each successive fund, until all the residual cents have been exhausted.
7525
7526 -- Result: the sum of the individual allocations now equals the total to be allocated,
7527 -- to the penny.  The individual amounts match the percentages as closely as possible,
7528 -- given the constraint that the total must match.
7529
7530 CREATE OR REPLACE FUNCTION acq.apply_percents()
7531 RETURNS VOID AS $$
7532 declare
7533 --
7534 tot              RECORD;
7535 fund             RECORD;
7536 tot_cents        INTEGER;
7537 src              INTEGER;
7538 id               INTEGER[];
7539 curr_id          INTEGER;
7540 pennies          NUMERIC[];
7541 curr_amount      NUMERIC;
7542 i                INTEGER;
7543 total_of_floors  INTEGER;
7544 total_percent    NUMERIC;
7545 total_allocation INTEGER;
7546 residue          INTEGER;
7547 --
7548 begin
7549         RAISE NOTICE 'Applying percents';
7550         FOR tot IN
7551                 SELECT
7552                         fsrc.funding_source,
7553                         sum( fsrc.amount ) AS total
7554                 FROM
7555                         acq.funding_source_credit AS fsrc
7556                 WHERE fsrc.funding_source IN
7557                         ( SELECT DISTINCT fa.funding_source
7558                           FROM acq.fund_allocation AS fa
7559                           WHERE fa.percent IS NOT NULL )
7560                 GROUP BY
7561                         fsrc.funding_source
7562         LOOP
7563                 tot_cents = floor( tot.total * 100 );
7564                 src = tot.funding_source;
7565                 RAISE NOTICE 'Funding source % total %',
7566                         src, tot_cents;
7567                 i := 0;
7568                 total_of_floors := 0;
7569                 total_percent := 0;
7570                 --
7571                 FOR fund in
7572                         SELECT
7573                                 fa.id,
7574                                 fa.percent,
7575                                 floor( fa.percent * tot_cents / 100 ) as floor_pennies
7576                         FROM
7577                                 acq.fund_allocation AS fa
7578                         WHERE
7579                                 fa.funding_source = src
7580                                 AND fa.percent IS NOT NULL
7581                         ORDER BY
7582                                 mod( fa.percent * tot_cents / 100, 1 ),
7583                                 fa.fund,
7584                                 fa.id
7585                 LOOP
7586                         RAISE NOTICE '   %: %',
7587                                 fund.id,
7588                                 fund.floor_pennies;
7589                         i := i + 1;
7590                         id[i] = fund.id;
7591                         pennies[i] = fund.floor_pennies;
7592                         total_percent := total_percent + fund.percent;
7593                         total_of_floors := total_of_floors + pennies[i];
7594                 END LOOP;
7595                 total_allocation := floor( total_percent * tot_cents /100 );
7596                 RAISE NOTICE 'Total before distributing residue: %', total_of_floors;
7597                 residue := total_allocation - total_of_floors;
7598                 RAISE NOTICE 'Residue: %', residue;
7599                 --
7600                 -- Post the calculated amounts, revising as needed to
7601                 -- distribute the rounding error
7602                 --
7603                 WHILE i > 0 LOOP
7604                         IF residue > 0 THEN
7605                                 pennies[i] = pennies[i] + 1;
7606                                 residue := residue - 1;
7607                         END IF;
7608                         --
7609                         -- Post amount
7610                         --
7611                         curr_id     := id[i];
7612                         curr_amount := trunc( pennies[i] / 100, 2 );
7613                         --
7614                         UPDATE
7615                                 acq.fund_allocation AS fa
7616                         SET
7617                                 amount = curr_amount,
7618                                 percent = NULL
7619                         WHERE
7620                                 fa.id = curr_id;
7621                         --
7622                         RAISE NOTICE '   ID % and amount %',
7623                                 curr_id,
7624                                 curr_amount;
7625                         i = i - 1;
7626                 END LOOP;
7627         END LOOP;
7628 end;
7629 $$ LANGUAGE 'plpgsql';
7630
7631 -- Run the temporary function
7632
7633 select * from acq.apply_percents();
7634
7635 -- Drop the temporary function now that we're done with it
7636
7637 DROP FUNCTION IF EXISTS acq.apply_percents();
7638
7639 -- Eliminate acq.fund_allocation.percent, which has been moved to the acq.fund_allocation_percent table.
7640
7641 -- If the following step fails, it's probably because there are still some non-null percent values in
7642 -- acq.fund_allocation.  They should have all been converted to amounts, and then set to null, by a
7643 -- previous upgrade step based on 0049.schema.acq_funding_allocation_percent.sql.  If there are any
7644 -- non-null values, then either that step didn't run, or it didn't work, or some non-null values
7645 -- slipped in afterwards.
7646
7647 -- To convert any remaining percents to amounts: create, run, and then drop the temporary stored
7648 -- procedure acq.apply_percents() as defined above.
7649
7650 ALTER TABLE acq.fund_allocation
7651 ALTER COLUMN amount SET NOT NULL;
7652
7653 CREATE OR REPLACE VIEW acq.fund_allocation_total AS
7654     SELECT  fund,
7655             SUM(a.amount * acq.exchange_ratio(s.currency_type, f.currency_type))::NUMERIC(100,2) AS amount
7656     FROM acq.fund_allocation a
7657          JOIN acq.fund f ON (a.fund = f.id)
7658          JOIN acq.funding_source s ON (a.funding_source = s.id)
7659     GROUP BY 1;
7660
7661 CREATE OR REPLACE VIEW acq.funding_source_allocation_total AS
7662     SELECT  funding_source,
7663             SUM(a.amount)::NUMERIC(100,2) AS amount
7664     FROM  acq.fund_allocation a
7665     GROUP BY 1;
7666
7667 ALTER TABLE acq.fund_allocation
7668 DROP COLUMN percent;
7669
7670 CREATE TABLE asset.copy_location_order
7671 (
7672         id              SERIAL           PRIMARY KEY,
7673         location        INT              NOT NULL
7674                                              REFERENCES asset.copy_location
7675                                              ON DELETE CASCADE
7676                                              DEFERRABLE INITIALLY DEFERRED,
7677         org             INT              NOT NULL
7678                                              REFERENCES actor.org_unit
7679                                              ON DELETE CASCADE
7680                                              DEFERRABLE INITIALLY DEFERRED,
7681         position        INT              NOT NULL DEFAULT 0,
7682         CONSTRAINT acplo_once_per_org UNIQUE ( location, org )
7683 );
7684
7685 ALTER TABLE money.credit_card_payment ADD COLUMN cc_processor TEXT;
7686
7687 -- If you ran this before its most recent incarnation:
7688 -- delete from config.upgrade_log where version = '0328';
7689 -- alter table money.credit_card_payment drop column cc_name;
7690
7691 ALTER TABLE money.credit_card_payment ADD COLUMN cc_first_name TEXT;
7692 ALTER TABLE money.credit_card_payment ADD COLUMN cc_last_name TEXT;
7693
7694 CREATE OR REPLACE FUNCTION action.find_circ_matrix_matchpoint( context_ou INT, match_item BIGINT, match_user INT, renewal BOOL ) RETURNS config.circ_matrix_matchpoint AS $func$
7695 DECLARE
7696     current_group    permission.grp_tree%ROWTYPE;
7697     user_object    actor.usr%ROWTYPE;
7698     item_object    asset.copy%ROWTYPE;
7699     cn_object    asset.call_number%ROWTYPE;
7700     rec_descriptor    metabib.rec_descriptor%ROWTYPE;
7701     current_mp    config.circ_matrix_matchpoint%ROWTYPE;
7702     matchpoint    config.circ_matrix_matchpoint%ROWTYPE;
7703 BEGIN
7704     SELECT INTO user_object * FROM actor.usr WHERE id = match_user;
7705     SELECT INTO item_object * FROM asset.copy WHERE id = match_item;
7706     SELECT INTO cn_object * FROM asset.call_number WHERE id = item_object.call_number;
7707     SELECT INTO rec_descriptor r.* FROM metabib.rec_descriptor r JOIN asset.call_number c USING (record) WHERE c.id = item_object.call_number;
7708     SELECT INTO current_group * FROM permission.grp_tree WHERE id = user_object.profile;
7709
7710     LOOP
7711         -- for each potential matchpoint for this ou and group ...
7712         FOR current_mp IN
7713             SELECT  m.*
7714               FROM  config.circ_matrix_matchpoint m
7715                     JOIN actor.org_unit_ancestors( context_ou ) d ON (m.org_unit = d.id)
7716                     LEFT JOIN actor.org_unit_proximity p ON (p.from_org = context_ou AND p.to_org = d.id)
7717               WHERE m.grp = current_group.id
7718                     AND m.active
7719                     AND (m.copy_owning_lib IS NULL OR cn_object.owning_lib IN ( SELECT id FROM actor.org_unit_descendants(m.copy_owning_lib) ))
7720                     AND (m.copy_circ_lib   IS NULL OR item_object.circ_lib IN ( SELECT id FROM actor.org_unit_descendants(m.copy_circ_lib)   ))
7721               ORDER BY    CASE WHEN p.prox        IS NULL THEN 999 ELSE p.prox END,
7722                     CASE WHEN m.copy_owning_lib IS NOT NULL
7723                         THEN 256 / ( SELECT COALESCE(prox, 255) + 1 FROM actor.org_unit_proximity WHERE to_org = cn_object.owning_lib AND from_org = m.copy_owning_lib LIMIT 1 )
7724                         ELSE 0
7725                     END +
7726                     CASE WHEN m.copy_circ_lib IS NOT NULL
7727                         THEN 256 / ( SELECT COALESCE(prox, 255) + 1 FROM actor.org_unit_proximity WHERE to_org = item_object.circ_lib AND from_org = m.copy_circ_lib LIMIT 1 )
7728                         ELSE 0
7729                     END +
7730                     CASE WHEN m.is_renewal = renewal        THEN 128 ELSE 0 END +
7731                     CASE WHEN m.juvenile_flag    IS NOT NULL THEN 64 ELSE 0 END +
7732                     CASE WHEN m.circ_modifier    IS NOT NULL THEN 32 ELSE 0 END +
7733                     CASE WHEN m.marc_type        IS NOT NULL THEN 16 ELSE 0 END +
7734                     CASE WHEN m.marc_form        IS NOT NULL THEN 8 ELSE 0 END +
7735                     CASE WHEN m.marc_vr_format    IS NOT NULL THEN 4 ELSE 0 END +
7736                     CASE WHEN m.ref_flag        IS NOT NULL THEN 2 ELSE 0 END +
7737                     CASE WHEN m.usr_age_lower_bound    IS NOT NULL THEN 0.5 ELSE 0 END +
7738                     CASE WHEN m.usr_age_upper_bound    IS NOT NULL THEN 0.5 ELSE 0 END DESC LOOP
7739
7740             IF current_mp.is_renewal IS NOT NULL THEN
7741                 CONTINUE WHEN current_mp.is_renewal <> renewal;
7742             END IF;
7743
7744             IF current_mp.circ_modifier IS NOT NULL THEN
7745                 CONTINUE WHEN current_mp.circ_modifier <> item_object.circ_modifier OR item_object.circ_modifier IS NULL;
7746             END IF;
7747
7748             IF current_mp.marc_type IS NOT NULL THEN
7749                 IF item_object.circ_as_type IS NOT NULL THEN
7750                     CONTINUE WHEN current_mp.marc_type <> item_object.circ_as_type;
7751                 ELSE
7752                     CONTINUE WHEN current_mp.marc_type <> rec_descriptor.item_type;
7753                 END IF;
7754             END IF;
7755
7756             IF current_mp.marc_form IS NOT NULL THEN
7757                 CONTINUE WHEN current_mp.marc_form <> rec_descriptor.item_form;
7758             END IF;
7759
7760             IF current_mp.marc_vr_format IS NOT NULL THEN
7761                 CONTINUE WHEN current_mp.marc_vr_format <> rec_descriptor.vr_format;
7762             END IF;
7763
7764             IF current_mp.ref_flag IS NOT NULL THEN
7765                 CONTINUE WHEN current_mp.ref_flag <> item_object.ref;
7766             END IF;
7767
7768             IF current_mp.juvenile_flag IS NOT NULL THEN
7769                 CONTINUE WHEN current_mp.juvenile_flag <> user_object.juvenile;
7770             END IF;
7771
7772             IF current_mp.usr_age_lower_bound IS NOT NULL THEN
7773                 CONTINUE WHEN user_object.dob IS NULL OR current_mp.usr_age_lower_bound < age(user_object.dob);
7774             END IF;
7775
7776             IF current_mp.usr_age_upper_bound IS NOT NULL THEN
7777                 CONTINUE WHEN user_object.dob IS NULL OR current_mp.usr_age_upper_bound > age(user_object.dob);
7778             END IF;
7779
7780
7781             -- everything was undefined or matched
7782             matchpoint = current_mp;
7783
7784             EXIT WHEN matchpoint.id IS NOT NULL;
7785         END LOOP;
7786
7787         EXIT WHEN current_group.parent IS NULL OR matchpoint.id IS NOT NULL;
7788
7789         SELECT INTO current_group * FROM permission.grp_tree WHERE id = current_group.parent;
7790     END LOOP;
7791
7792     RETURN matchpoint;
7793 END;
7794 $func$ LANGUAGE plpgsql;
7795
7796 CREATE TYPE action.hold_stats AS (
7797     hold_count              INT,
7798     copy_count              INT,
7799     available_count         INT,
7800     total_copy_ratio        FLOAT,
7801     available_copy_ratio    FLOAT
7802 );
7803
7804 CREATE OR REPLACE FUNCTION action.copy_related_hold_stats (copy_id INT) RETURNS action.hold_stats AS $func$
7805 DECLARE
7806     output          action.hold_stats%ROWTYPE;
7807     hold_count      INT := 0;
7808     copy_count      INT := 0;
7809     available_count INT := 0;
7810     hold_map_data   RECORD;
7811 BEGIN
7812
7813     output.hold_count := 0;
7814     output.copy_count := 0;
7815     output.available_count := 0;
7816
7817     SELECT  COUNT( DISTINCT m.hold ) INTO hold_count
7818       FROM  action.hold_copy_map m
7819             JOIN action.hold_request h ON (m.hold = h.id)
7820       WHERE m.target_copy = copy_id
7821             AND NOT h.frozen;
7822
7823     output.hold_count := hold_count;
7824
7825     IF output.hold_count > 0 THEN
7826         FOR hold_map_data IN
7827             SELECT  DISTINCT m.target_copy,
7828                     acp.status
7829               FROM  action.hold_copy_map m
7830                     JOIN asset.copy acp ON (m.target_copy = acp.id)
7831                     JOIN action.hold_request h ON (m.hold = h.id)
7832               WHERE m.hold IN ( SELECT DISTINCT hold FROM action.hold_copy_map WHERE target_copy = copy_id ) AND NOT h.frozen
7833         LOOP
7834             output.copy_count := output.copy_count + 1;
7835             IF hold_map_data.status IN (0,7,12) THEN
7836                 output.available_count := output.available_count + 1;
7837             END IF;
7838         END LOOP;
7839         output.total_copy_ratio = output.copy_count::FLOAT / output.hold_count::FLOAT;
7840         output.available_copy_ratio = output.available_count::FLOAT / output.hold_count::FLOAT;
7841
7842     END IF;
7843
7844     RETURN output;
7845
7846 END;
7847 $func$ LANGUAGE PLPGSQL;
7848
7849 ALTER TABLE config.circ_matrix_matchpoint ADD COLUMN total_copy_hold_ratio FLOAT;
7850 ALTER TABLE config.circ_matrix_matchpoint ADD COLUMN available_copy_hold_ratio FLOAT;
7851
7852 ALTER TABLE config.circ_matrix_matchpoint DROP CONSTRAINT ep_once_per_grp_loc_mod_marc;
7853
7854 ALTER TABLE config.circ_matrix_matchpoint ADD COLUMN copy_circ_lib   INT REFERENCES actor.org_unit (id) DEFERRABLE INITIALLY DEFERRED;
7855 ALTER TABLE config.circ_matrix_matchpoint ADD COLUMN copy_owning_lib INT REFERENCES actor.org_unit (id) DEFERRABLE INITIALLY DEFERRED;
7856
7857 ALTER TABLE config.circ_matrix_matchpoint ADD CONSTRAINT ep_once_per_grp_loc_mod_marc UNIQUE (
7858     grp, org_unit, circ_modifier, marc_type, marc_form, marc_vr_format, ref_flag,
7859     juvenile_flag, usr_age_lower_bound, usr_age_upper_bound, is_renewal, copy_circ_lib,
7860     copy_owning_lib
7861 );
7862
7863 -- Return the correct fail_part when the item can't be found
7864 CREATE OR REPLACE FUNCTION action.item_user_circ_test( circ_ou INT, match_item BIGINT, match_user INT, renewal BOOL ) RETURNS SETOF action.matrix_test_result AS $func$
7865 DECLARE
7866     user_object        actor.usr%ROWTYPE;
7867     standing_penalty    config.standing_penalty%ROWTYPE;
7868     item_object        asset.copy%ROWTYPE;
7869     item_status_object    config.copy_status%ROWTYPE;
7870     item_location_object    asset.copy_location%ROWTYPE;
7871     result            action.matrix_test_result;
7872     circ_test        config.circ_matrix_matchpoint%ROWTYPE;
7873     out_by_circ_mod        config.circ_matrix_circ_mod_test%ROWTYPE;
7874     circ_mod_map        config.circ_matrix_circ_mod_test_map%ROWTYPE;
7875     hold_ratio          action.hold_stats%ROWTYPE;
7876     penalty_type         TEXT;
7877     tmp_grp         INT;
7878     items_out        INT;
7879     context_org_list        INT[];
7880     done            BOOL := FALSE;
7881 BEGIN
7882     result.success := TRUE;
7883
7884     -- Fail if the user is BARRED
7885     SELECT INTO user_object * FROM actor.usr WHERE id = match_user;
7886
7887     -- Fail if we couldn't find the user
7888     IF user_object.id IS NULL THEN
7889         result.fail_part := 'no_user';
7890         result.success := FALSE;
7891         done := TRUE;
7892         RETURN NEXT result;
7893         RETURN;
7894     END IF;
7895
7896     SELECT INTO item_object * FROM asset.copy WHERE id = match_item;
7897
7898     -- Fail if we couldn't find the item
7899     IF item_object.id IS NULL THEN
7900         result.fail_part := 'no_item';
7901         result.success := FALSE;
7902         done := TRUE;
7903         RETURN NEXT result;
7904         RETURN;
7905     END IF;
7906
7907     SELECT INTO circ_test * FROM action.find_circ_matrix_matchpoint(circ_ou, match_item, match_user, renewal);
7908     result.matchpoint := circ_test.id;
7909
7910     -- Fail if we couldn't find a matchpoint
7911     IF result.matchpoint IS NULL THEN
7912         result.fail_part := 'no_matchpoint';
7913         result.success := FALSE;
7914         done := TRUE;
7915         RETURN NEXT result;
7916     END IF;
7917
7918     IF user_object.barred IS TRUE THEN
7919         result.fail_part := 'actor.usr.barred';
7920         result.success := FALSE;
7921         done := TRUE;
7922         RETURN NEXT result;
7923     END IF;
7924
7925     -- Fail if the item can't circulate
7926     IF item_object.circulate IS FALSE THEN
7927         result.fail_part := 'asset.copy.circulate';
7928         result.success := FALSE;
7929         done := TRUE;
7930         RETURN NEXT result;
7931     END IF;
7932
7933     -- Fail if the item isn't in a circulateable status on a non-renewal
7934     IF NOT renewal AND item_object.status NOT IN ( 0, 7, 8 ) THEN
7935         result.fail_part := 'asset.copy.status';
7936         result.success := FALSE;
7937         done := TRUE;
7938         RETURN NEXT result;
7939     ELSIF renewal AND item_object.status <> 1 THEN
7940         result.fail_part := 'asset.copy.status';
7941         result.success := FALSE;
7942         done := TRUE;
7943         RETURN NEXT result;
7944     END IF;
7945
7946     -- Fail if the item can't circulate because of the shelving location
7947     SELECT INTO item_location_object * FROM asset.copy_location WHERE id = item_object.location;
7948     IF item_location_object.circulate IS FALSE THEN
7949         result.fail_part := 'asset.copy_location.circulate';
7950         result.success := FALSE;
7951         done := TRUE;
7952         RETURN NEXT result;
7953     END IF;
7954
7955     SELECT INTO context_org_list ARRAY_ACCUM(id) FROM actor.org_unit_full_path( circ_test.org_unit );
7956
7957     -- Fail if the test is set to hard non-circulating
7958     IF circ_test.circulate IS FALSE THEN
7959         result.fail_part := 'config.circ_matrix_test.circulate';
7960         result.success := FALSE;
7961         done := TRUE;
7962         RETURN NEXT result;
7963     END IF;
7964
7965     -- Fail if the total copy-hold ratio is too low
7966     IF circ_test.total_copy_hold_ratio IS NOT NULL THEN
7967         SELECT INTO hold_ratio * FROM action.copy_related_hold_stats(match_item);
7968         IF hold_ratio.total_copy_ratio IS NOT NULL AND hold_ratio.total_copy_ratio < circ_test.total_copy_hold_ratio THEN
7969             result.fail_part := 'config.circ_matrix_test.total_copy_hold_ratio';
7970             result.success := FALSE;
7971             done := TRUE;
7972             RETURN NEXT result;
7973         END IF;
7974     END IF;
7975
7976     -- Fail if the available copy-hold ratio is too low
7977     IF circ_test.available_copy_hold_ratio IS NOT NULL THEN
7978         SELECT INTO hold_ratio * FROM action.copy_related_hold_stats(match_item);
7979         IF hold_ratio.available_copy_ratio IS NOT NULL AND hold_ratio.available_copy_ratio < circ_test.available_copy_hold_ratio THEN
7980             result.fail_part := 'config.circ_matrix_test.available_copy_hold_ratio';
7981             result.success := FALSE;
7982             done := TRUE;
7983             RETURN NEXT result;
7984         END IF;
7985     END IF;
7986
7987     IF renewal THEN
7988         penalty_type = '%RENEW%';
7989     ELSE
7990         penalty_type = '%CIRC%';
7991     END IF;
7992
7993     FOR standing_penalty IN
7994         SELECT  DISTINCT csp.*
7995           FROM  actor.usr_standing_penalty usp
7996                 JOIN config.standing_penalty csp ON (csp.id = usp.standing_penalty)
7997           WHERE usr = match_user
7998                 AND usp.org_unit IN ( SELECT * FROM explode_array(context_org_list) )
7999                 AND (usp.stop_date IS NULL or usp.stop_date > NOW())
8000                 AND csp.block_list LIKE penalty_type LOOP
8001
8002         result.fail_part := standing_penalty.name;
8003         result.success := FALSE;
8004         done := TRUE;
8005         RETURN NEXT result;
8006     END LOOP;
8007
8008     -- Fail if the user has too many items with specific circ_modifiers checked out
8009     FOR out_by_circ_mod IN SELECT * FROM config.circ_matrix_circ_mod_test WHERE matchpoint = circ_test.id LOOP
8010         SELECT  INTO items_out COUNT(*)
8011           FROM  action.circulation circ
8012             JOIN asset.copy cp ON (cp.id = circ.target_copy)
8013           WHERE circ.usr = match_user
8014                AND circ.circ_lib IN ( SELECT * FROM explode_array(context_org_list) )
8015             AND circ.checkin_time IS NULL
8016             AND (circ.stop_fines IN ('MAXFINES','LONGOVERDUE') OR circ.stop_fines IS NULL)
8017             AND cp.circ_modifier IN (SELECT circ_mod FROM config.circ_matrix_circ_mod_test_map WHERE circ_mod_test = out_by_circ_mod.id);
8018         IF items_out >= out_by_circ_mod.items_out THEN
8019             result.fail_part := 'config.circ_matrix_circ_mod_test';
8020             result.success := FALSE;
8021             done := TRUE;
8022             RETURN NEXT result;
8023         END IF;
8024     END LOOP;
8025
8026     -- If we passed everything, return the successful matchpoint id
8027     IF NOT done THEN
8028         RETURN NEXT result;
8029     END IF;
8030
8031     RETURN;
8032 END;
8033 $func$ LANGUAGE plpgsql;
8034
8035 CREATE TABLE config.remote_account (
8036     id          SERIAL  PRIMARY KEY,
8037     label       TEXT    NOT NULL,
8038     host        TEXT    NOT NULL,   -- name or IP, :port optional
8039     username    TEXT,               -- optional, since we could default to $USER
8040     password    TEXT,               -- optional, since we could use SSH keys, or anonymous login.
8041     account     TEXT,               -- aka profile or FTP "account" command
8042     path        TEXT,               -- aka directory
8043     owner       INT     NOT NULL REFERENCES actor.org_unit (id) DEFERRABLE INITIALLY DEFERRED,
8044     last_activity TIMESTAMP WITH TIME ZONE
8045 );
8046
8047 CREATE TABLE acq.edi_account (      -- similar tables can extend remote_account for other parts of EG
8048     provider    INT     NOT NULL REFERENCES acq.provider          (id) ON DELETE CASCADE DEFERRABLE INITIALLY DEFERRED,
8049     in_dir      TEXT,   -- incoming messages dir (probably different than config.remote_account.path, the outgoing dir)
8050         vendcode    TEXT,
8051         vendacct    TEXT
8052
8053 ) INHERITS (config.remote_account);
8054
8055 ALTER TABLE acq.edi_account ADD PRIMARY KEY (id);
8056
8057 CREATE TABLE acq.claim_type (
8058         id             SERIAL           PRIMARY KEY,
8059         org_unit       INT              NOT NULL REFERENCES actor.org_unit(id)
8060                                                  DEFERRABLE INITIALLY DEFERRED,
8061         code           TEXT             NOT NULL,
8062         description    TEXT             NOT NULL,
8063         CONSTRAINT claim_type_once_per_org UNIQUE ( org_unit, code )
8064 );
8065
8066 CREATE TABLE acq.claim (
8067         id             SERIAL           PRIMARY KEY,
8068         type           INT              NOT NULL REFERENCES acq.claim_type
8069                                                  DEFERRABLE INITIALLY DEFERRED,
8070         lineitem_detail BIGINT          NOT NULL REFERENCES acq.lineitem_detail
8071                                                  DEFERRABLE INITIALLY DEFERRED
8072 );
8073
8074 CREATE TABLE acq.claim_policy (
8075         id              SERIAL       PRIMARY KEY,
8076         org_unit        INT          NOT NULL REFERENCES actor.org_unit
8077                                      DEFERRABLE INITIALLY DEFERRED,
8078         name            TEXT         NOT NULL,
8079         description     TEXT         NOT NULL,
8080         CONSTRAINT name_once_per_org UNIQUE (org_unit, name)
8081 );
8082
8083 -- Add a san column for EDI.
8084 -- See: http://isbn.org/standards/home/isbn/us/san/san-qa.asp
8085
8086 ALTER TABLE acq.provider ADD COLUMN san INT;
8087
8088 ALTER TABLE acq.provider ALTER COLUMN san TYPE TEXT USING lpad(text(san), 7, '0');
8089
8090 -- null edi_default is OK... it has to be, since we have no values in acq.edi_account yet
8091 ALTER TABLE acq.provider ADD COLUMN edi_default INT REFERENCES acq.edi_account (id) DEFERRABLE INITIALLY DEFERRED;
8092
8093 ALTER TABLE acq.provider
8094         ADD COLUMN active BOOL NOT NULL DEFAULT TRUE;
8095
8096 ALTER TABLE acq.provider
8097         ADD COLUMN prepayment_required BOOLEAN NOT NULL DEFAULT FALSE;
8098
8099 ALTER TABLE acq.provider
8100         ADD COLUMN url TEXT;
8101
8102 ALTER TABLE acq.provider
8103         ADD COLUMN email TEXT;
8104
8105 ALTER TABLE acq.provider
8106         ADD COLUMN phone TEXT;
8107
8108 ALTER TABLE acq.provider
8109         ADD COLUMN fax_phone TEXT;
8110
8111 ALTER TABLE acq.provider
8112         ADD COLUMN default_claim_policy INT
8113                 REFERENCES acq.claim_policy
8114                 DEFERRABLE INITIALLY DEFERRED;
8115
8116 ALTER TABLE action.transit_copy
8117 ADD COLUMN prev_dest INTEGER REFERENCES actor.org_unit( id )
8118                                                          DEFERRABLE INITIALLY DEFERRED;
8119
8120 DROP SCHEMA IF EXISTS booking CASCADE;
8121
8122 CREATE SCHEMA booking;
8123
8124 CREATE TABLE booking.resource_type (
8125         id             SERIAL          PRIMARY KEY,
8126         name           TEXT            NOT NULL,
8127         fine_interval  INTERVAL,
8128         fine_amount    DECIMAL(8,2)    NOT NULL DEFAULT 0,
8129         owner          INT             NOT NULL
8130                                        REFERENCES actor.org_unit( id )
8131                                        DEFERRABLE INITIALLY DEFERRED,
8132         catalog_item   BOOLEAN         NOT NULL DEFAULT FALSE,
8133         transferable   BOOLEAN         NOT NULL DEFAULT FALSE,
8134     record         BIGINT          REFERENCES biblio.record_entry (id)
8135                                        DEFERRABLE INITIALLY DEFERRED,
8136     max_fine       NUMERIC(8,2),
8137     elbow_room     INTERVAL,
8138     CONSTRAINT brt_name_and_record_once_per_owner UNIQUE(owner, name, record)
8139 );
8140
8141 CREATE TABLE booking.resource (
8142         id             SERIAL           PRIMARY KEY,
8143         owner          INT              NOT NULL
8144                                         REFERENCES actor.org_unit(id)
8145                                         DEFERRABLE INITIALLY DEFERRED,
8146         type           INT              NOT NULL
8147                                         REFERENCES booking.resource_type(id)
8148                                         DEFERRABLE INITIALLY DEFERRED,
8149         overbook       BOOLEAN          NOT NULL DEFAULT FALSE,
8150         barcode        TEXT             NOT NULL,
8151         deposit        BOOLEAN          NOT NULL DEFAULT FALSE,
8152         deposit_amount DECIMAL(8,2)     NOT NULL DEFAULT 0.00,
8153         user_fee       DECIMAL(8,2)     NOT NULL DEFAULT 0.00,
8154         CONSTRAINT br_unique UNIQUE (owner, barcode)
8155 );
8156
8157 -- For non-catalog items: hijack barcode for name/description
8158
8159 CREATE TABLE booking.resource_attr (
8160         id              SERIAL          PRIMARY KEY,
8161         owner           INT             NOT NULL
8162                                         REFERENCES actor.org_unit(id)
8163                                         DEFERRABLE INITIALLY DEFERRED,
8164         name            TEXT            NOT NULL,
8165         resource_type   INT             NOT NULL
8166                                         REFERENCES booking.resource_type(id)
8167                                         ON DELETE CASCADE
8168                                         DEFERRABLE INITIALLY DEFERRED,
8169         required        BOOLEAN         NOT NULL DEFAULT FALSE,
8170         CONSTRAINT bra_name_once_per_type UNIQUE(resource_type, name)
8171 );
8172
8173 CREATE TABLE booking.resource_attr_value (
8174         id               SERIAL         PRIMARY KEY,
8175         owner            INT            NOT NULL
8176                                         REFERENCES actor.org_unit(id)
8177                                         DEFERRABLE INITIALLY DEFERRED,
8178         attr             INT            NOT NULL
8179                                         REFERENCES booking.resource_attr(id)
8180                                         DEFERRABLE INITIALLY DEFERRED,
8181         valid_value      TEXT           NOT NULL,
8182         CONSTRAINT brav_logical_key UNIQUE(owner, attr, valid_value)
8183 );
8184
8185 CREATE TABLE booking.resource_attr_map (
8186         id               SERIAL         PRIMARY KEY,
8187         resource         INT            NOT NULL
8188                                         REFERENCES booking.resource(id)
8189                                         ON DELETE CASCADE
8190                                         DEFERRABLE INITIALLY DEFERRED,
8191         resource_attr    INT            NOT NULL
8192                                         REFERENCES booking.resource_attr(id)
8193                                         ON DELETE CASCADE
8194                                         DEFERRABLE INITIALLY DEFERRED,
8195         value            INT            NOT NULL
8196                                         REFERENCES booking.resource_attr_value(id)
8197                                         DEFERRABLE INITIALLY DEFERRED,
8198         CONSTRAINT bram_one_value_per_attr UNIQUE(resource, resource_attr)
8199 );
8200
8201 CREATE TABLE booking.reservation (
8202         request_time     TIMESTAMPTZ   NOT NULL DEFAULT now(),
8203         start_time       TIMESTAMPTZ,
8204         end_time         TIMESTAMPTZ,
8205         capture_time     TIMESTAMPTZ,
8206         cancel_time      TIMESTAMPTZ,
8207         pickup_time      TIMESTAMPTZ,
8208         return_time      TIMESTAMPTZ,
8209         booking_interval INTERVAL,
8210         fine_interval    INTERVAL,
8211         fine_amount      DECIMAL(8,2),
8212         target_resource_type  INT       NOT NULL
8213                                         REFERENCES booking.resource_type(id)
8214                                         ON DELETE CASCADE
8215                                         DEFERRABLE INITIALLY DEFERRED,
8216         target_resource  INT            REFERENCES booking.resource(id)
8217                                         ON DELETE CASCADE
8218                                         DEFERRABLE INITIALLY DEFERRED,
8219         current_resource INT            REFERENCES booking.resource(id)
8220                                         ON DELETE CASCADE
8221                                         DEFERRABLE INITIALLY DEFERRED,
8222         request_lib      INT            NOT NULL
8223                                         REFERENCES actor.org_unit(id)
8224                                         DEFERRABLE INITIALLY DEFERRED,
8225         pickup_lib       INT            REFERENCES actor.org_unit(id)
8226                                         DEFERRABLE INITIALLY DEFERRED,
8227         capture_staff    INT            REFERENCES actor.usr(id)
8228                                         DEFERRABLE INITIALLY DEFERRED,
8229     max_fine         NUMERIC(8,2)
8230 ) INHERITS (money.billable_xact);
8231
8232 ALTER TABLE booking.reservation ADD PRIMARY KEY (id);
8233
8234 ALTER TABLE booking.reservation
8235         ADD CONSTRAINT booking_reservation_usr_fkey
8236         FOREIGN KEY (usr) REFERENCES actor.usr (id)
8237         DEFERRABLE INITIALLY DEFERRED;
8238
8239 CREATE TABLE booking.reservation_attr_value_map (
8240         id               SERIAL         PRIMARY KEY,
8241         reservation      INT            NOT NULL
8242                                         REFERENCES booking.reservation(id)
8243                                         ON DELETE CASCADE
8244                                         DEFERRABLE INITIALLY DEFERRED,
8245         attr_value       INT            NOT NULL
8246                                         REFERENCES booking.resource_attr_value(id)
8247                                         ON DELETE CASCADE
8248                                         DEFERRABLE INITIALLY DEFERRED,
8249         CONSTRAINT bravm_logical_key UNIQUE(reservation, attr_value)
8250 );
8251
8252 -- represents a circ chain summary
8253 CREATE TYPE action.circ_chain_summary AS (
8254     num_circs INTEGER,
8255     start_time TIMESTAMP WITH TIME ZONE,
8256     checkout_workstation TEXT,
8257     last_renewal_time TIMESTAMP WITH TIME ZONE, -- NULL if no renewals
8258     last_stop_fines TEXT,
8259     last_stop_fines_time TIMESTAMP WITH TIME ZONE,
8260     last_renewal_workstation TEXT, -- NULL if no renewals
8261     last_checkin_workstation TEXT,
8262     last_checkin_time TIMESTAMP WITH TIME ZONE,
8263     last_checkin_scan_time TIMESTAMP WITH TIME ZONE
8264 );
8265
8266 CREATE OR REPLACE FUNCTION action.circ_chain ( ctx_circ_id INTEGER ) RETURNS SETOF action.circulation AS $$
8267 DECLARE
8268     tmp_circ action.circulation%ROWTYPE;
8269     circ_0 action.circulation%ROWTYPE;
8270 BEGIN
8271
8272     SELECT INTO tmp_circ * FROM action.circulation WHERE id = ctx_circ_id;
8273
8274     IF tmp_circ IS NULL THEN
8275         RETURN NEXT tmp_circ;
8276     END IF;
8277     circ_0 := tmp_circ;
8278
8279     -- find the front of the chain
8280     WHILE TRUE LOOP
8281         SELECT INTO tmp_circ * FROM action.circulation WHERE id = tmp_circ.parent_circ;
8282         IF tmp_circ IS NULL THEN
8283             EXIT;
8284         END IF;
8285         circ_0 := tmp_circ;
8286     END LOOP;
8287
8288     -- now send the circs to the caller, oldest to newest
8289     tmp_circ := circ_0;
8290     WHILE TRUE LOOP
8291         IF tmp_circ IS NULL THEN
8292             EXIT;
8293         END IF;
8294         RETURN NEXT tmp_circ;
8295         SELECT INTO tmp_circ * FROM action.circulation WHERE parent_circ = tmp_circ.id;
8296     END LOOP;
8297
8298 END;
8299 $$ LANGUAGE 'plpgsql';
8300
8301 CREATE OR REPLACE FUNCTION action.summarize_circ_chain ( ctx_circ_id INTEGER ) RETURNS action.circ_chain_summary AS $$
8302
8303 DECLARE
8304
8305     -- first circ in the chain
8306     circ_0 action.circulation%ROWTYPE;
8307
8308     -- last circ in the chain
8309     circ_n action.circulation%ROWTYPE;
8310
8311     -- circ chain under construction
8312     chain action.circ_chain_summary;
8313     tmp_circ action.circulation%ROWTYPE;
8314
8315 BEGIN
8316
8317     chain.num_circs := 0;
8318     FOR tmp_circ IN SELECT * FROM action.circ_chain(ctx_circ_id) LOOP
8319
8320         IF chain.num_circs = 0 THEN
8321             circ_0 := tmp_circ;
8322         END IF;
8323
8324         chain.num_circs := chain.num_circs + 1;
8325         circ_n := tmp_circ;
8326     END LOOP;
8327
8328     chain.start_time := circ_0.xact_start;
8329     chain.last_stop_fines := circ_n.stop_fines;
8330     chain.last_stop_fines_time := circ_n.stop_fines_time;
8331     chain.last_checkin_time := circ_n.checkin_time;
8332     chain.last_checkin_scan_time := circ_n.checkin_scan_time;
8333     SELECT INTO chain.checkout_workstation name FROM actor.workstation WHERE id = circ_0.workstation;
8334     SELECT INTO chain.last_checkin_workstation name FROM actor.workstation WHERE id = circ_n.checkin_workstation;
8335
8336     IF chain.num_circs > 1 THEN
8337         chain.last_renewal_time := circ_n.xact_start;
8338         SELECT INTO chain.last_renewal_workstation name FROM actor.workstation WHERE id = circ_n.workstation;
8339     END IF;
8340
8341     RETURN chain;
8342
8343 END;
8344 $$ LANGUAGE 'plpgsql';
8345
8346 CREATE TRIGGER mat_summary_create_tgr AFTER INSERT ON booking.reservation FOR EACH ROW EXECUTE PROCEDURE money.mat_summary_create ('reservation');
8347 CREATE TRIGGER mat_summary_change_tgr AFTER UPDATE ON booking.reservation FOR EACH ROW EXECUTE PROCEDURE money.mat_summary_update ();
8348 CREATE TRIGGER mat_summary_remove_tgr AFTER DELETE ON booking.reservation FOR EACH ROW EXECUTE PROCEDURE money.mat_summary_delete ();
8349
8350 ALTER TABLE config.standing_penalty
8351         ADD COLUMN org_depth   INTEGER;
8352
8353 CREATE OR REPLACE FUNCTION actor.calculate_system_penalties( match_user INT, context_org INT ) RETURNS SETOF actor.usr_standing_penalty AS $func$
8354 DECLARE
8355     user_object         actor.usr%ROWTYPE;
8356     new_sp_row          actor.usr_standing_penalty%ROWTYPE;
8357     existing_sp_row     actor.usr_standing_penalty%ROWTYPE;
8358     collections_fines   permission.grp_penalty_threshold%ROWTYPE;
8359     max_fines           permission.grp_penalty_threshold%ROWTYPE;
8360     max_overdue         permission.grp_penalty_threshold%ROWTYPE;
8361     max_items_out       permission.grp_penalty_threshold%ROWTYPE;
8362     tmp_grp             INT;
8363     items_overdue       INT;
8364     items_out           INT;
8365     context_org_list    INT[];
8366     current_fines        NUMERIC(8,2) := 0.0;
8367     tmp_fines            NUMERIC(8,2);
8368     tmp_groc            RECORD;
8369     tmp_circ            RECORD;
8370     tmp_org             actor.org_unit%ROWTYPE;
8371     tmp_penalty         config.standing_penalty%ROWTYPE;
8372     tmp_depth           INTEGER;
8373 BEGIN
8374     SELECT INTO user_object * FROM actor.usr WHERE id = match_user;
8375
8376     -- Max fines
8377     SELECT INTO tmp_org * FROM actor.org_unit WHERE id = context_org;
8378
8379     -- Fail if the user has a high fine balance
8380     LOOP
8381         tmp_grp := user_object.profile;
8382         LOOP
8383             SELECT * INTO max_fines FROM permission.grp_penalty_threshold WHERE grp = tmp_grp AND penalty = 1 AND org_unit = tmp_org.id;
8384
8385             IF max_fines.threshold IS NULL THEN
8386                 SELECT parent INTO tmp_grp FROM permission.grp_tree WHERE id = tmp_grp;
8387             ELSE
8388                 EXIT;
8389             END IF;
8390
8391             IF tmp_grp IS NULL THEN
8392                 EXIT;
8393             END IF;
8394         END LOOP;
8395
8396         IF max_fines.threshold IS NOT NULL OR tmp_org.parent_ou IS NULL THEN
8397             EXIT;
8398         END IF;
8399
8400         SELECT * INTO tmp_org FROM actor.org_unit WHERE id = tmp_org.parent_ou;
8401
8402     END LOOP;
8403
8404     IF max_fines.threshold IS NOT NULL THEN
8405
8406         FOR existing_sp_row IN
8407                 SELECT  *
8408                   FROM  actor.usr_standing_penalty
8409                   WHERE usr = match_user
8410                         AND org_unit = max_fines.org_unit
8411                         AND (stop_date IS NULL or stop_date > NOW())
8412                         AND standing_penalty = 1
8413                 LOOP
8414             RETURN NEXT existing_sp_row;
8415         END LOOP;
8416
8417         SELECT  SUM(f.balance_owed) INTO current_fines
8418           FROM  money.materialized_billable_xact_summary f
8419                 JOIN (
8420                     SELECT  r.id
8421                       FROM  booking.reservation r
8422                             JOIN  actor.org_unit_full_path( max_fines.org_unit ) fp ON (r.pickup_lib = fp.id)
8423                       WHERE usr = match_user
8424                             AND xact_finish IS NULL
8425                                 UNION ALL
8426                     SELECT  g.id
8427                       FROM  money.grocery g
8428                             JOIN  actor.org_unit_full_path( max_fines.org_unit ) fp ON (g.billing_location = fp.id)
8429                       WHERE usr = match_user
8430                             AND xact_finish IS NULL
8431                                 UNION ALL
8432                     SELECT  circ.id
8433                       FROM  action.circulation circ
8434                             JOIN  actor.org_unit_full_path( max_fines.org_unit ) fp ON (circ.circ_lib = fp.id)
8435                       WHERE usr = match_user
8436                             AND xact_finish IS NULL ) l USING (id);
8437
8438         IF current_fines >= max_fines.threshold THEN
8439             new_sp_row.usr := match_user;
8440             new_sp_row.org_unit := max_fines.org_unit;
8441             new_sp_row.standing_penalty := 1;
8442             RETURN NEXT new_sp_row;
8443         END IF;
8444     END IF;
8445
8446     -- Start over for max overdue
8447     SELECT INTO tmp_org * FROM actor.org_unit WHERE id = context_org;
8448
8449     -- Fail if the user has too many overdue items
8450     LOOP
8451         tmp_grp := user_object.profile;
8452         LOOP
8453
8454             SELECT * INTO max_overdue FROM permission.grp_penalty_threshold WHERE grp = tmp_grp AND penalty = 2 AND org_unit = tmp_org.id;
8455
8456             IF max_overdue.threshold IS NULL THEN
8457                 SELECT parent INTO tmp_grp FROM permission.grp_tree WHERE id = tmp_grp;
8458             ELSE
8459                 EXIT;
8460             END IF;
8461
8462             IF tmp_grp IS NULL THEN
8463                 EXIT;
8464             END IF;
8465         END LOOP;
8466
8467         IF max_overdue.threshold IS NOT NULL OR tmp_org.parent_ou IS NULL THEN
8468             EXIT;
8469         END IF;
8470
8471         SELECT INTO tmp_org * FROM actor.org_unit WHERE id = tmp_org.parent_ou;
8472
8473     END LOOP;
8474
8475     IF max_overdue.threshold IS NOT NULL THEN
8476
8477         FOR existing_sp_row IN
8478                 SELECT  *
8479                   FROM  actor.usr_standing_penalty
8480                   WHERE usr = match_user
8481                         AND org_unit = max_overdue.org_unit
8482                         AND (stop_date IS NULL or stop_date > NOW())
8483                         AND standing_penalty = 2
8484                 LOOP
8485             RETURN NEXT existing_sp_row;
8486         END LOOP;
8487
8488         SELECT  INTO items_overdue COUNT(*)
8489           FROM  action.circulation circ
8490                 JOIN  actor.org_unit_full_path( max_overdue.org_unit ) fp ON (circ.circ_lib = fp.id)
8491           WHERE circ.usr = match_user
8492             AND circ.checkin_time IS NULL
8493             AND circ.due_date < NOW()
8494             AND (circ.stop_fines = 'MAXFINES' OR circ.stop_fines IS NULL);
8495
8496         IF items_overdue >= max_overdue.threshold::INT THEN
8497             new_sp_row.usr := match_user;
8498             new_sp_row.org_unit := max_overdue.org_unit;
8499             new_sp_row.standing_penalty := 2;
8500             RETURN NEXT new_sp_row;
8501         END IF;
8502     END IF;
8503
8504     -- Start over for max out
8505     SELECT INTO tmp_org * FROM actor.org_unit WHERE id = context_org;
8506
8507     -- Fail if the user has too many checked out items
8508     LOOP
8509         tmp_grp := user_object.profile;
8510         LOOP
8511             SELECT * INTO max_items_out FROM permission.grp_penalty_threshold WHERE grp = tmp_grp AND penalty = 3 AND org_unit = tmp_org.id;
8512
8513             IF max_items_out.threshold IS NULL THEN
8514                 SELECT parent INTO tmp_grp FROM permission.grp_tree WHERE id = tmp_grp;
8515             ELSE
8516                 EXIT;
8517             END IF;
8518
8519             IF tmp_grp IS NULL THEN
8520                 EXIT;
8521             END IF;
8522         END LOOP;
8523
8524         IF max_items_out.threshold IS NOT NULL OR tmp_org.parent_ou IS NULL THEN
8525             EXIT;
8526         END IF;
8527
8528         SELECT INTO tmp_org * FROM actor.org_unit WHERE id = tmp_org.parent_ou;
8529
8530     END LOOP;
8531
8532
8533     -- Fail if the user has too many items checked out
8534     IF max_items_out.threshold IS NOT NULL THEN
8535
8536         FOR existing_sp_row IN
8537                 SELECT  *
8538                   FROM  actor.usr_standing_penalty
8539                   WHERE usr = match_user
8540                         AND org_unit = max_items_out.org_unit
8541                         AND (stop_date IS NULL or stop_date > NOW())
8542                         AND standing_penalty = 3
8543                 LOOP
8544             RETURN NEXT existing_sp_row;
8545         END LOOP;
8546
8547         SELECT  INTO items_out COUNT(*)
8548           FROM  action.circulation circ
8549                 JOIN  actor.org_unit_full_path( max_items_out.org_unit ) fp ON (circ.circ_lib = fp.id)
8550           WHERE circ.usr = match_user
8551                 AND circ.checkin_time IS NULL
8552                 AND (circ.stop_fines IN ('MAXFINES','LONGOVERDUE') OR circ.stop_fines IS NULL);
8553
8554            IF items_out >= max_items_out.threshold::INT THEN
8555             new_sp_row.usr := match_user;
8556             new_sp_row.org_unit := max_items_out.org_unit;
8557             new_sp_row.standing_penalty := 3;
8558             RETURN NEXT new_sp_row;
8559            END IF;
8560     END IF;
8561
8562     -- Start over for collections warning
8563     SELECT INTO tmp_org * FROM actor.org_unit WHERE id = context_org;
8564
8565     -- Fail if the user has a collections-level fine balance
8566     LOOP
8567         tmp_grp := user_object.profile;
8568         LOOP
8569             SELECT * INTO max_fines FROM permission.grp_penalty_threshold WHERE grp = tmp_grp AND penalty = 4 AND org_unit = tmp_org.id;
8570
8571             IF max_fines.threshold IS NULL THEN
8572                 SELECT parent INTO tmp_grp FROM permission.grp_tree WHERE id = tmp_grp;
8573             ELSE
8574                 EXIT;
8575             END IF;
8576
8577             IF tmp_grp IS NULL THEN
8578                 EXIT;
8579             END IF;
8580         END LOOP;
8581
8582         IF max_fines.threshold IS NOT NULL OR tmp_org.parent_ou IS NULL THEN
8583             EXIT;
8584         END IF;
8585
8586         SELECT * INTO tmp_org FROM actor.org_unit WHERE id = tmp_org.parent_ou;
8587
8588     END LOOP;
8589
8590     IF max_fines.threshold IS NOT NULL THEN
8591
8592         FOR existing_sp_row IN
8593                 SELECT  *
8594                   FROM  actor.usr_standing_penalty
8595                   WHERE usr = match_user
8596                         AND org_unit = max_fines.org_unit
8597                         AND (stop_date IS NULL or stop_date > NOW())
8598                         AND standing_penalty = 4
8599                 LOOP
8600             RETURN NEXT existing_sp_row;
8601         END LOOP;
8602
8603         SELECT  SUM(f.balance_owed) INTO current_fines
8604           FROM  money.materialized_billable_xact_summary f
8605                 JOIN (
8606                     SELECT  r.id
8607                       FROM  booking.reservation r
8608                             JOIN  actor.org_unit_full_path( max_fines.org_unit ) fp ON (r.pickup_lib = fp.id)
8609                       WHERE usr = match_user
8610                             AND xact_finish IS NULL
8611                                 UNION ALL
8612                     SELECT  g.id
8613                       FROM  money.grocery g
8614                             JOIN  actor.org_unit_full_path( max_fines.org_unit ) fp ON (g.billing_location = fp.id)
8615                       WHERE usr = match_user
8616                             AND xact_finish IS NULL
8617                                 UNION ALL
8618                     SELECT  circ.id
8619                       FROM  action.circulation circ
8620                             JOIN  actor.org_unit_full_path( max_fines.org_unit ) fp ON (circ.circ_lib = fp.id)
8621                       WHERE usr = match_user
8622                             AND xact_finish IS NULL ) l USING (id);
8623
8624         IF current_fines >= max_fines.threshold THEN
8625             new_sp_row.usr := match_user;
8626             new_sp_row.org_unit := max_fines.org_unit;
8627             new_sp_row.standing_penalty := 4;
8628             RETURN NEXT new_sp_row;
8629         END IF;
8630     END IF;
8631
8632     -- Start over for in collections
8633     SELECT INTO tmp_org * FROM actor.org_unit WHERE id = context_org;
8634
8635     -- Remove the in-collections penalty if the user has paid down enough
8636     -- This penalty is different, because this code is not responsible for creating
8637     -- new in-collections penalties, only for removing them
8638     LOOP
8639         tmp_grp := user_object.profile;
8640         LOOP
8641             SELECT * INTO max_fines FROM permission.grp_penalty_threshold WHERE grp = tmp_grp AND penalty = 30 AND org_unit = tmp_org.id;
8642
8643             IF max_fines.threshold IS NULL THEN
8644                 SELECT parent INTO tmp_grp FROM permission.grp_tree WHERE id = tmp_grp;
8645             ELSE
8646                 EXIT;
8647             END IF;
8648
8649             IF tmp_grp IS NULL THEN
8650                 EXIT;
8651             END IF;
8652         END LOOP;
8653
8654         IF max_fines.threshold IS NOT NULL OR tmp_org.parent_ou IS NULL THEN
8655             EXIT;
8656         END IF;
8657
8658         SELECT * INTO tmp_org FROM actor.org_unit WHERE id = tmp_org.parent_ou;
8659
8660     END LOOP;
8661
8662     IF max_fines.threshold IS NOT NULL THEN
8663
8664         -- first, see if the user had paid down to the threshold
8665         SELECT  SUM(f.balance_owed) INTO current_fines
8666           FROM  money.materialized_billable_xact_summary f
8667                 JOIN (
8668                     SELECT  r.id
8669                       FROM  booking.reservation r
8670                             JOIN  actor.org_unit_full_path( max_fines.org_unit ) fp ON (r.pickup_lib = fp.id)
8671                       WHERE usr = match_user
8672                             AND xact_finish IS NULL
8673                                 UNION ALL
8674                     SELECT  g.id
8675                       FROM  money.grocery g
8676                             JOIN  actor.org_unit_full_path( max_fines.org_unit ) fp ON (g.billing_location = fp.id)
8677                       WHERE usr = match_user
8678                             AND xact_finish IS NULL
8679                                 UNION ALL
8680                     SELECT  circ.id
8681                       FROM  action.circulation circ
8682                             JOIN  actor.org_unit_full_path( max_fines.org_unit ) fp ON (circ.circ_lib = fp.id)
8683                       WHERE usr = match_user
8684                             AND xact_finish IS NULL ) l USING (id);
8685
8686         IF current_fines IS NULL OR current_fines <= max_fines.threshold THEN
8687             -- patron has paid down enough
8688
8689             SELECT INTO tmp_penalty * FROM config.standing_penalty WHERE id = 30;
8690
8691             IF tmp_penalty.org_depth IS NOT NULL THEN
8692
8693                 -- since this code is not responsible for applying the penalty, it can't
8694                 -- guarantee the current context org will match the org at which the penalty
8695                 --- was applied.  search up the org tree until we hit the configured penalty depth
8696                 SELECT INTO tmp_org * FROM actor.org_unit WHERE id = context_org;
8697                 SELECT INTO tmp_depth depth FROM actor.org_unit_type WHERE id = tmp_org.ou_type;
8698
8699                 WHILE tmp_depth >= tmp_penalty.org_depth LOOP
8700
8701                     FOR existing_sp_row IN
8702                             SELECT  *
8703                             FROM  actor.usr_standing_penalty
8704                             WHERE usr = match_user
8705                                     AND org_unit = tmp_org.id
8706                                     AND (stop_date IS NULL or stop_date > NOW())
8707                                     AND standing_penalty = 30
8708                             LOOP
8709
8710                         -- Penalty exists, return it for removal
8711                         RETURN NEXT existing_sp_row;
8712                     END LOOP;
8713
8714                     IF tmp_org.parent_ou IS NULL THEN
8715                         EXIT;
8716                     END IF;
8717
8718                     SELECT * INTO tmp_org FROM actor.org_unit WHERE id = tmp_org.parent_ou;
8719                     SELECT INTO tmp_depth depth FROM actor.org_unit_type WHERE id = tmp_org.ou_type;
8720                 END LOOP;
8721
8722             ELSE
8723
8724                 -- no penalty depth is defined, look for exact matches
8725
8726                 FOR existing_sp_row IN
8727                         SELECT  *
8728                         FROM  actor.usr_standing_penalty
8729                         WHERE usr = match_user
8730                                 AND org_unit = max_fines.org_unit
8731                                 AND (stop_date IS NULL or stop_date > NOW())
8732                                 AND standing_penalty = 30
8733                         LOOP
8734                     -- Penalty exists, return it for removal
8735                     RETURN NEXT existing_sp_row;
8736                 END LOOP;
8737             END IF;
8738
8739         END IF;
8740
8741     END IF;
8742
8743     RETURN;
8744 END;
8745 $func$ LANGUAGE plpgsql;
8746
8747 -- Create a default row in acq.fiscal_calendar
8748 -- Add a column in actor.org_unit to point to it
8749
8750 INSERT INTO acq.fiscal_calendar ( id, name ) VALUES ( 1, 'Default' );
8751
8752 ALTER TABLE actor.org_unit
8753 ADD COLUMN fiscal_calendar INT NOT NULL
8754         REFERENCES acq.fiscal_calendar( id )
8755         DEFERRABLE INITIALLY DEFERRED
8756         DEFAULT 1;
8757
8758 ALTER TABLE auditor.actor_org_unit_history
8759         ADD COLUMN fiscal_calendar INT;
8760
8761 DROP VIEW IF EXISTS auditor.actor_org_unit_lifecycle;
8762
8763 SELECT auditor.create_auditor_lifecycle( 'actor', 'org_unit' );
8764
8765 ALTER TABLE acq.funding_source_credit
8766 ADD COLUMN deadline_date TIMESTAMPTZ;
8767
8768 ALTER TABLE acq.funding_source_credit
8769 ADD COLUMN effective_date TIMESTAMPTZ NOT NULL DEFAULT now();
8770
8771 INSERT INTO config.standing_penalty (id,name,label) VALUES (30,'PATRON_IN_COLLECTIONS','Patron has been referred to a collections agency');
8772
8773 CREATE TABLE acq.fund_transfer (
8774         id               SERIAL         PRIMARY KEY,
8775         src_fund         INT            NOT NULL REFERENCES acq.fund( id )
8776                                         DEFERRABLE INITIALLY DEFERRED,
8777         src_amount       NUMERIC        NOT NULL,
8778         dest_fund        INT            REFERENCES acq.fund( id )
8779                                         DEFERRABLE INITIALLY DEFERRED,
8780         dest_amount      NUMERIC,
8781         transfer_time    TIMESTAMPTZ    NOT NULL DEFAULT now(),
8782         transfer_user    INT            NOT NULL REFERENCES actor.usr( id )
8783                                         DEFERRABLE INITIALLY DEFERRED,
8784         note             TEXT,
8785     funding_source_credit INTEGER   NOT NULL
8786                                         REFERENCES acq.funding_source_credit(id)
8787                                         DEFERRABLE INITIALLY DEFERRED
8788 );
8789
8790 CREATE INDEX acqftr_usr_idx
8791 ON acq.fund_transfer( transfer_user );
8792
8793 COMMENT ON TABLE acq.fund_transfer IS $$
8794 /*
8795  * Copyright (C) 2009  Georgia Public Library Service
8796  * Scott McKellar <scott@esilibrary.com>
8797  *
8798  * Fund Transfer
8799  *
8800  * Each row represents the transfer of money from a source fund
8801  * to a destination fund.  There should be corresponding entries
8802  * in acq.fund_allocation.  The purpose of acq.fund_transfer is
8803  * to record how much money moved from which fund to which other
8804  * fund.
8805  *
8806  * The presence of two amount fields, rather than one, reflects
8807  * the possibility that the two funds are denominated in different
8808  * currencies.  If they use the same currency type, the two
8809  * amounts should be the same.
8810  *
8811  * ****
8812  *
8813  * This program is free software; you can redistribute it and/or
8814  * modify it under the terms of the GNU General Public License
8815  * as published by the Free Software Foundation; either version 2
8816  * of the License, or (at your option) any later version.
8817  *
8818  * This program is distributed in the hope that it will be useful,
8819  * but WITHOUT ANY WARRANTY; without even the implied warranty of
8820  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
8821  * GNU General Public License for more details.
8822  */
8823 $$;
8824
8825 CREATE TABLE acq.claim_event_type (
8826         id             SERIAL           PRIMARY KEY,
8827         org_unit       INT              NOT NULL REFERENCES actor.org_unit(id)
8828                                                  DEFERRABLE INITIALLY DEFERRED,
8829         code           TEXT             NOT NULL,
8830         description    TEXT             NOT NULL,
8831         library_initiated BOOL          NOT NULL DEFAULT FALSE,
8832         CONSTRAINT event_type_once_per_org UNIQUE ( org_unit, code )
8833 );
8834
8835 CREATE TABLE acq.claim_event (
8836         id             BIGSERIAL        PRIMARY KEY,
8837         type           INT              NOT NULL REFERENCES acq.claim_event_type
8838                                                  DEFERRABLE INITIALLY DEFERRED,
8839         claim          SERIAL           NOT NULL REFERENCES acq.claim
8840                                                  DEFERRABLE INITIALLY DEFERRED,
8841         event_date     TIMESTAMPTZ      NOT NULL DEFAULT now(),
8842         creator        INT              NOT NULL REFERENCES actor.usr
8843                                                  DEFERRABLE INITIALLY DEFERRED,
8844         note           TEXT
8845 );
8846
8847 CREATE INDEX claim_event_claim_date_idx ON acq.claim_event( claim, event_date );
8848
8849 CREATE OR REPLACE FUNCTION actor.usr_purge_data(
8850         src_usr  IN INTEGER,
8851         dest_usr IN INTEGER
8852 ) RETURNS VOID AS $$
8853 DECLARE
8854         suffix TEXT;
8855         renamable_row RECORD;
8856 BEGIN
8857
8858         UPDATE actor.usr SET
8859                 active = FALSE,
8860                 card = NULL,
8861                 mailing_address = NULL,
8862                 billing_address = NULL
8863         WHERE id = src_usr;
8864
8865         -- acq.*
8866         UPDATE acq.fund_allocation SET allocator = dest_usr WHERE allocator = src_usr;
8867         UPDATE acq.lineitem SET creator = dest_usr WHERE creator = src_usr;
8868         UPDATE acq.lineitem SET editor = dest_usr WHERE editor = src_usr;
8869         UPDATE acq.lineitem SET selector = dest_usr WHERE selector = src_usr;
8870         UPDATE acq.lineitem_note SET creator = dest_usr WHERE creator = src_usr;
8871         UPDATE acq.lineitem_note SET editor = dest_usr WHERE editor = src_usr;
8872         DELETE FROM acq.lineitem_usr_attr_definition WHERE usr = src_usr;
8873
8874         -- Update with a rename to avoid collisions
8875         FOR renamable_row in
8876                 SELECT id, name
8877                 FROM   acq.picklist
8878                 WHERE  owner = src_usr
8879         LOOP
8880                 suffix := ' (' || src_usr || ')';
8881                 LOOP
8882                         BEGIN
8883                                 UPDATE  acq.picklist
8884                                 SET     owner = dest_usr, name = name || suffix
8885                                 WHERE   id = renamable_row.id;
8886                         EXCEPTION WHEN unique_violation THEN
8887                                 suffix := suffix || ' ';
8888                                 CONTINUE;
8889                         END;
8890                         EXIT;
8891                 END LOOP;
8892         END LOOP;
8893
8894         UPDATE acq.picklist SET creator = dest_usr WHERE creator = src_usr;
8895         UPDATE acq.picklist SET editor = dest_usr WHERE editor = src_usr;
8896         UPDATE acq.po_note SET creator = dest_usr WHERE creator = src_usr;
8897         UPDATE acq.po_note SET editor = dest_usr WHERE editor = src_usr;
8898         UPDATE acq.purchase_order SET owner = dest_usr WHERE owner = src_usr;
8899         UPDATE acq.purchase_order SET creator = dest_usr WHERE creator = src_usr;
8900         UPDATE acq.purchase_order SET editor = dest_usr WHERE editor = src_usr;
8901         UPDATE acq.claim_event SET creator = dest_usr WHERE creator = src_usr;
8902
8903         -- action.*
8904         DELETE FROM action.circulation WHERE usr = src_usr;
8905         UPDATE action.circulation SET circ_staff = dest_usr WHERE circ_staff = src_usr;
8906         UPDATE action.circulation SET checkin_staff = dest_usr WHERE checkin_staff = src_usr;
8907         UPDATE action.hold_notification SET notify_staff = dest_usr WHERE notify_staff = src_usr;
8908         UPDATE action.hold_request SET fulfillment_staff = dest_usr WHERE fulfillment_staff = src_usr;
8909         UPDATE action.hold_request SET requestor = dest_usr WHERE requestor = src_usr;
8910         DELETE FROM action.hold_request WHERE usr = src_usr;
8911         UPDATE action.in_house_use SET staff = dest_usr WHERE staff = src_usr;
8912         UPDATE action.non_cat_in_house_use SET staff = dest_usr WHERE staff = src_usr;
8913         DELETE FROM action.non_cataloged_circulation WHERE patron = src_usr;
8914         UPDATE action.non_cataloged_circulation SET staff = dest_usr WHERE staff = src_usr;
8915         DELETE FROM action.survey_response WHERE usr = src_usr;
8916         UPDATE action.fieldset SET owner = dest_usr WHERE owner = src_usr;
8917
8918         -- actor.*
8919         DELETE FROM actor.card WHERE usr = src_usr;
8920         DELETE FROM actor.stat_cat_entry_usr_map WHERE target_usr = src_usr;
8921
8922         -- The following update is intended to avoid transient violations of a foreign
8923         -- key constraint, whereby actor.usr_address references itself.  It may not be
8924         -- necessary, but it does no harm.
8925         UPDATE actor.usr_address SET replaces = NULL
8926                 WHERE usr = src_usr AND replaces IS NOT NULL;
8927         DELETE FROM actor.usr_address WHERE usr = src_usr;
8928         DELETE FROM actor.usr_note WHERE usr = src_usr;
8929         UPDATE actor.usr_note SET creator = dest_usr WHERE creator = src_usr;
8930         DELETE FROM actor.usr_org_unit_opt_in WHERE usr = src_usr;
8931         UPDATE actor.usr_org_unit_opt_in SET staff = dest_usr WHERE staff = src_usr;
8932         DELETE FROM actor.usr_setting WHERE usr = src_usr;
8933         DELETE FROM actor.usr_standing_penalty WHERE usr = src_usr;
8934         UPDATE actor.usr_standing_penalty SET staff = dest_usr WHERE staff = src_usr;
8935
8936         -- asset.*
8937         UPDATE asset.call_number SET creator = dest_usr WHERE creator = src_usr;
8938         UPDATE asset.call_number SET editor = dest_usr WHERE editor = src_usr;
8939         UPDATE asset.call_number_note SET creator = dest_usr WHERE creator = src_usr;
8940         UPDATE asset.copy SET creator = dest_usr WHERE creator = src_usr;
8941         UPDATE asset.copy SET editor = dest_usr WHERE editor = src_usr;
8942         UPDATE asset.copy_note SET creator = dest_usr WHERE creator = src_usr;
8943
8944         -- auditor.*
8945         DELETE FROM auditor.actor_usr_address_history WHERE id = src_usr;
8946         DELETE FROM auditor.actor_usr_history WHERE id = src_usr;
8947         UPDATE auditor.asset_call_number_history SET creator = dest_usr WHERE creator = src_usr;
8948         UPDATE auditor.asset_call_number_history SET editor  = dest_usr WHERE editor  = src_usr;
8949         UPDATE auditor.asset_copy_history SET creator = dest_usr WHERE creator = src_usr;
8950         UPDATE auditor.asset_copy_history SET editor  = dest_usr WHERE editor  = src_usr;
8951         UPDATE auditor.biblio_record_entry_history SET creator = dest_usr WHERE creator = src_usr;
8952         UPDATE auditor.biblio_record_entry_history SET editor  = dest_usr WHERE editor  = src_usr;
8953
8954         -- biblio.*
8955         UPDATE biblio.record_entry SET creator = dest_usr WHERE creator = src_usr;
8956         UPDATE biblio.record_entry SET editor = dest_usr WHERE editor = src_usr;
8957         UPDATE biblio.record_note SET creator = dest_usr WHERE creator = src_usr;
8958         UPDATE biblio.record_note SET editor = dest_usr WHERE editor = src_usr;
8959
8960         -- container.*
8961         -- Update buckets with a rename to avoid collisions
8962         FOR renamable_row in
8963                 SELECT id, name
8964                 FROM   container.biblio_record_entry_bucket
8965                 WHERE  owner = src_usr
8966         LOOP
8967                 suffix := ' (' || src_usr || ')';
8968                 LOOP
8969                         BEGIN
8970                                 UPDATE  container.biblio_record_entry_bucket
8971                                 SET     owner = dest_usr, name = name || suffix
8972                                 WHERE   id = renamable_row.id;
8973                         EXCEPTION WHEN unique_violation THEN
8974                                 suffix := suffix || ' ';
8975                                 CONTINUE;
8976                         END;
8977                         EXIT;
8978                 END LOOP;
8979         END LOOP;
8980
8981         FOR renamable_row in
8982                 SELECT id, name
8983                 FROM   container.call_number_bucket
8984                 WHERE  owner = src_usr
8985         LOOP
8986                 suffix := ' (' || src_usr || ')';
8987                 LOOP
8988                         BEGIN
8989                                 UPDATE  container.call_number_bucket
8990                                 SET     owner = dest_usr, name = name || suffix
8991                                 WHERE   id = renamable_row.id;
8992                         EXCEPTION WHEN unique_violation THEN
8993                                 suffix := suffix || ' ';
8994                                 CONTINUE;
8995                         END;
8996                         EXIT;
8997                 END LOOP;
8998         END LOOP;
8999
9000         FOR renamable_row in
9001                 SELECT id, name
9002                 FROM   container.copy_bucket
9003                 WHERE  owner = src_usr
9004         LOOP
9005                 suffix := ' (' || src_usr || ')';
9006                 LOOP
9007                         BEGIN
9008                                 UPDATE  container.copy_bucket
9009                                 SET     owner = dest_usr, name = name || suffix
9010                                 WHERE   id = renamable_row.id;
9011                         EXCEPTION WHEN unique_violation THEN
9012                                 suffix := suffix || ' ';
9013                                 CONTINUE;
9014                         END;
9015                         EXIT;
9016                 END LOOP;
9017         END LOOP;
9018
9019         FOR renamable_row in
9020                 SELECT id, name
9021                 FROM   container.user_bucket
9022                 WHERE  owner = src_usr
9023         LOOP
9024                 suffix := ' (' || src_usr || ')';
9025                 LOOP
9026                         BEGIN
9027                                 UPDATE  container.user_bucket
9028                                 SET     owner = dest_usr, name = name || suffix
9029                                 WHERE   id = renamable_row.id;
9030                         EXCEPTION WHEN unique_violation THEN
9031                                 suffix := suffix || ' ';
9032                                 CONTINUE;
9033                         END;
9034                         EXIT;
9035                 END LOOP;
9036         END LOOP;
9037
9038         DELETE FROM container.user_bucket_item WHERE target_user = src_usr;
9039
9040         -- money.*
9041         DELETE FROM money.billable_xact WHERE usr = src_usr;
9042         DELETE FROM money.collections_tracker WHERE usr = src_usr;
9043         UPDATE money.collections_tracker SET collector = dest_usr WHERE collector = src_usr;
9044
9045         -- permission.*
9046         DELETE FROM permission.usr_grp_map WHERE usr = src_usr;
9047         DELETE FROM permission.usr_object_perm_map WHERE usr = src_usr;
9048         DELETE FROM permission.usr_perm_map WHERE usr = src_usr;
9049         DELETE FROM permission.usr_work_ou_map WHERE usr = src_usr;
9050
9051         -- reporter.*
9052         -- Update with a rename to avoid collisions
9053         BEGIN
9054                 FOR renamable_row in
9055                         SELECT id, name
9056                         FROM   reporter.output_folder
9057                         WHERE  owner = src_usr
9058                 LOOP
9059                         suffix := ' (' || src_usr || ')';
9060                         LOOP
9061                                 BEGIN
9062                                         UPDATE  reporter.output_folder
9063                                         SET     owner = dest_usr, name = name || suffix
9064                                         WHERE   id = renamable_row.id;
9065                                 EXCEPTION WHEN unique_violation THEN
9066                                         suffix := suffix || ' ';
9067                                         CONTINUE;
9068                                 END;
9069                                 EXIT;
9070                         END LOOP;
9071                 END LOOP;
9072         EXCEPTION WHEN undefined_table THEN
9073                 -- do nothing
9074         END;
9075
9076         BEGIN
9077                 UPDATE reporter.report SET owner = dest_usr WHERE owner = src_usr;
9078         EXCEPTION WHEN undefined_table THEN
9079                 -- do nothing
9080         END;
9081
9082         -- Update with a rename to avoid collisions
9083         BEGIN
9084                 FOR renamable_row in
9085                         SELECT id, name
9086                         FROM   reporter.report_folder
9087                         WHERE  owner = src_usr
9088                 LOOP
9089                         suffix := ' (' || src_usr || ')';
9090                         LOOP
9091                                 BEGIN
9092                                         UPDATE  reporter.report_folder
9093                                         SET     owner = dest_usr, name = name || suffix
9094                                         WHERE   id = renamable_row.id;
9095                                 EXCEPTION WHEN unique_violation THEN
9096                                         suffix := suffix || ' ';
9097                                         CONTINUE;
9098                                 END;
9099                                 EXIT;
9100                         END LOOP;
9101                 END LOOP;
9102         EXCEPTION WHEN undefined_table THEN
9103                 -- do nothing
9104         END;
9105
9106         BEGIN
9107                 UPDATE reporter.schedule SET runner = dest_usr WHERE runner = src_usr;
9108         EXCEPTION WHEN undefined_table THEN
9109                 -- do nothing
9110         END;
9111
9112         BEGIN
9113                 UPDATE reporter.template SET owner = dest_usr WHERE owner = src_usr;
9114         EXCEPTION WHEN undefined_table THEN
9115                 -- do nothing
9116         END;
9117
9118         -- Update with a rename to avoid collisions
9119         BEGIN
9120                 FOR renamable_row in
9121                         SELECT id, name
9122                         FROM   reporter.template_folder
9123                         WHERE  owner = src_usr
9124                 LOOP
9125                         suffix := ' (' || src_usr || ')';
9126                         LOOP
9127                                 BEGIN
9128                                         UPDATE  reporter.template_folder
9129                                         SET     owner = dest_usr, name = name || suffix
9130                                         WHERE   id = renamable_row.id;
9131                                 EXCEPTION WHEN unique_violation THEN
9132                                         suffix := suffix || ' ';
9133                                         CONTINUE;
9134                                 END;
9135                                 EXIT;
9136                         END LOOP;
9137                 END LOOP;
9138         EXCEPTION WHEN undefined_table THEN
9139         -- do nothing
9140         END;
9141
9142         -- vandelay.*
9143         -- Update with a rename to avoid collisions
9144         FOR renamable_row in
9145                 SELECT id, name
9146                 FROM   vandelay.queue
9147                 WHERE  owner = src_usr
9148         LOOP
9149                 suffix := ' (' || src_usr || ')';
9150                 LOOP
9151                         BEGIN
9152                                 UPDATE  vandelay.queue
9153                                 SET     owner = dest_usr, name = name || suffix
9154                                 WHERE   id = renamable_row.id;
9155                         EXCEPTION WHEN unique_violation THEN
9156                                 suffix := suffix || ' ';
9157                                 CONTINUE;
9158                         END;
9159                         EXIT;
9160                 END LOOP;
9161         END LOOP;
9162
9163 END;
9164 $$ LANGUAGE plpgsql;
9165
9166 COMMENT ON FUNCTION actor.usr_purge_data(INT, INT) IS $$
9167 /**
9168  * Finds rows dependent on a given row in actor.usr and either deletes them
9169  * or reassigns them to a different user.
9170  */
9171 $$;
9172
9173 CREATE OR REPLACE FUNCTION actor.usr_delete(
9174         src_usr  IN INTEGER,
9175         dest_usr IN INTEGER
9176 ) RETURNS VOID AS $$
9177 DECLARE
9178         old_profile actor.usr.profile%type;
9179         old_home_ou actor.usr.home_ou%type;
9180         new_profile actor.usr.profile%type;
9181         new_home_ou actor.usr.home_ou%type;
9182         new_name    text;
9183         new_dob     actor.usr.dob%type;
9184 BEGIN
9185         SELECT
9186                 id || '-PURGED-' || now(),
9187                 profile,
9188                 home_ou,
9189                 dob
9190         INTO
9191                 new_name,
9192                 old_profile,
9193                 old_home_ou,
9194                 new_dob
9195         FROM
9196                 actor.usr
9197         WHERE
9198                 id = src_usr;
9199         --
9200         -- Quit if no such user
9201         --
9202         IF old_profile IS NULL THEN
9203                 RETURN;
9204         END IF;
9205         --
9206         perform actor.usr_purge_data( src_usr, dest_usr );
9207         --
9208         -- Find the root grp_tree and the root org_unit.  This would be simpler if we
9209         -- could assume that there is only one root.  Theoretically, someday, maybe,
9210         -- there could be multiple roots, so we take extra trouble to get the right ones.
9211         --
9212         SELECT
9213                 id
9214         INTO
9215                 new_profile
9216         FROM
9217                 permission.grp_ancestors( old_profile )
9218         WHERE
9219                 parent is null;
9220         --
9221         SELECT
9222                 id
9223         INTO
9224                 new_home_ou
9225         FROM
9226                 actor.org_unit_ancestors( old_home_ou )
9227         WHERE
9228                 parent_ou is null;
9229         --
9230         -- Truncate date of birth
9231         --
9232         IF new_dob IS NOT NULL THEN
9233                 new_dob := date_trunc( 'year', new_dob );
9234         END IF;
9235         --
9236         UPDATE
9237                 actor.usr
9238                 SET
9239                         card = NULL,
9240                         profile = new_profile,
9241                         usrname = new_name,
9242                         email = NULL,
9243                         passwd = random()::text,
9244                         standing = DEFAULT,
9245                         ident_type =
9246                         (
9247                                 SELECT MIN( id )
9248                                 FROM config.identification_type
9249                         ),
9250                         ident_value = NULL,
9251                         ident_type2 = NULL,
9252                         ident_value2 = NULL,
9253                         net_access_level = DEFAULT,
9254                         photo_url = NULL,
9255                         prefix = NULL,
9256                         first_given_name = new_name,
9257                         second_given_name = NULL,
9258                         family_name = new_name,
9259                         suffix = NULL,
9260                         alias = NULL,
9261                         day_phone = NULL,
9262                         evening_phone = NULL,
9263                         other_phone = NULL,
9264                         mailing_address = NULL,
9265                         billing_address = NULL,
9266                         home_ou = new_home_ou,
9267                         dob = new_dob,
9268                         active = FALSE,
9269                         master_account = DEFAULT,
9270                         super_user = DEFAULT,
9271                         barred = FALSE,
9272                         deleted = TRUE,
9273                         juvenile = DEFAULT,
9274                         usrgroup = 0,
9275                         claims_returned_count = DEFAULT,
9276                         credit_forward_balance = DEFAULT,
9277                         last_xact_id = DEFAULT,
9278                         alert_message = NULL,
9279                         create_date = now(),
9280                         expire_date = now()
9281         WHERE
9282                 id = src_usr;
9283 END;
9284 $$ LANGUAGE plpgsql;
9285
9286 COMMENT ON FUNCTION actor.usr_delete(INT, INT) IS $$
9287 /**
9288  * Logically deletes a user.  Removes personally identifiable information,
9289  * and purges associated data in other tables.
9290  */
9291 $$;
9292
9293 -- INSERT INTO config.copy_status (id,name) VALUES (15,oils_i18n_gettext(15, 'On reservation shelf', 'ccs', 'name'));
9294
9295 ALTER TABLE acq.fund
9296 ADD COLUMN rollover BOOL NOT NULL DEFAULT FALSE;
9297
9298 ALTER TABLE acq.fund
9299         ADD COLUMN propagate BOOLEAN NOT NULL DEFAULT TRUE;
9300
9301 -- A fund can't roll over if it doesn't propagate from one year to the next
9302
9303 ALTER TABLE acq.fund
9304         ADD CONSTRAINT acq_fund_rollover_implies_propagate CHECK
9305         ( propagate OR NOT rollover );
9306
9307 ALTER TABLE acq.fund
9308         ADD COLUMN active BOOL NOT NULL DEFAULT TRUE;
9309
9310 ALTER TABLE acq.fund
9311     ADD COLUMN balance_warning_percent INT
9312     CONSTRAINT balance_warning_percent_limit
9313         CHECK( balance_warning_percent <= 100 );
9314
9315 ALTER TABLE acq.fund
9316     ADD COLUMN balance_stop_percent INT
9317     CONSTRAINT balance_stop_percent_limit
9318         CHECK( balance_stop_percent <= 100 );
9319
9320 CREATE VIEW acq.ordered_funding_source_credit AS
9321         SELECT
9322                 CASE WHEN deadline_date IS NULL THEN
9323                         2
9324                 ELSE
9325                         1
9326                 END AS sort_priority,
9327                 CASE WHEN deadline_date IS NULL THEN
9328                         effective_date
9329                 ELSE
9330                         deadline_date
9331                 END AS sort_date,
9332                 id,
9333                 funding_source,
9334                 amount,
9335                 note
9336         FROM
9337                 acq.funding_source_credit;
9338
9339 COMMENT ON VIEW acq.ordered_funding_source_credit IS $$
9340 /*
9341  * Copyright (C) 2009  Georgia Public Library Service
9342  * Scott McKellar <scott@gmail.com>
9343  *
9344  * The acq.ordered_funding_source_credit view is a prioritized
9345  * ordering of funding source credits.  When ordered by the first
9346  * three columns, this view defines the order in which the various
9347  * credits are to be tapped for spending, subject to the allocations
9348  * in the acq.fund_allocation table.
9349  *
9350  * The first column reflects the principle that we should spend
9351  * money with deadlines before spending money without deadlines.
9352  *
9353  * The second column reflects the principle that we should spend the
9354  * oldest money first.  For money with deadlines, that means that we
9355  * spend first from the credit with the earliest deadline.  For
9356  * money without deadlines, we spend first from the credit with the
9357  * earliest effective date.
9358  *
9359  * The third column is a tie breaker to ensure a consistent
9360  * ordering.
9361  *
9362  * ****
9363  *
9364  * This program is free software; you can redistribute it and/or
9365  * modify it under the terms of the GNU General Public License
9366  * as published by the Free Software Foundation; either version 2
9367  * of the License, or (at your option) any later version.
9368  *
9369  * This program is distributed in the hope that it will be useful,
9370  * but WITHOUT ANY WARRANTY; without even the implied warranty of
9371  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
9372  * GNU General Public License for more details.
9373  */
9374 $$;
9375
9376 CREATE OR REPLACE VIEW money.billable_xact_summary_location_view AS
9377     SELECT  m.*, COALESCE(c.circ_lib, g.billing_location, r.pickup_lib) AS billing_location
9378       FROM  money.materialized_billable_xact_summary m
9379             LEFT JOIN action.circulation c ON (c.id = m.id)
9380             LEFT JOIN money.grocery g ON (g.id = m.id)
9381             LEFT JOIN booking.reservation r ON (r.id = m.id);
9382
9383 CREATE TABLE config.marc21_rec_type_map (
9384     code        TEXT    PRIMARY KEY,
9385     type_val    TEXT    NOT NULL,
9386     blvl_val    TEXT    NOT NULL
9387 );
9388
9389 CREATE TABLE config.marc21_ff_pos_map (
9390     id          SERIAL  PRIMARY KEY,
9391     fixed_field TEXT    NOT NULL,
9392     tag         TEXT    NOT NULL,
9393     rec_type    TEXT    NOT NULL,
9394     start_pos   INT     NOT NULL,
9395     length      INT     NOT NULL,
9396     default_val TEXT    NOT NULL DEFAULT ' '
9397 );
9398
9399 CREATE TABLE config.marc21_physical_characteristic_type_map (
9400     ptype_key   TEXT    PRIMARY KEY,
9401     label       TEXT    NOT NULL -- I18N
9402 );
9403
9404 CREATE TABLE config.marc21_physical_characteristic_subfield_map (
9405     id          SERIAL  PRIMARY KEY,
9406     ptype_key   TEXT    NOT NULL REFERENCES config.marc21_physical_characteristic_type_map (ptype_key) ON DELETE CASCADE ON UPDATE CASCADE,
9407     subfield    TEXT    NOT NULL,
9408     start_pos   INT     NOT NULL,
9409     length      INT     NOT NULL,
9410     label       TEXT    NOT NULL -- I18N
9411 );
9412
9413 CREATE TABLE config.marc21_physical_characteristic_value_map (
9414     id              SERIAL  PRIMARY KEY,
9415     value           TEXT    NOT NULL,
9416     ptype_subfield  INT     NOT NULL REFERENCES config.marc21_physical_characteristic_subfield_map (id),
9417     label           TEXT    NOT NULL -- I18N
9418 );
9419
9420 ----------------------------------
9421 -- MARC21 record structure data --
9422 ----------------------------------
9423
9424 -- Record type map
9425 INSERT INTO config.marc21_rec_type_map (code, type_val, blvl_val) VALUES ('BKS','at','acdm');
9426 INSERT INTO config.marc21_rec_type_map (code, type_val, blvl_val) VALUES ('SER','a','bsi');
9427 INSERT INTO config.marc21_rec_type_map (code, type_val, blvl_val) VALUES ('VIS','gkro','abcdmsi');
9428 INSERT INTO config.marc21_rec_type_map (code, type_val, blvl_val) VALUES ('MIX','p','cdi');
9429 INSERT INTO config.marc21_rec_type_map (code, type_val, blvl_val) VALUES ('MAP','ef','abcdmsi');
9430 INSERT INTO config.marc21_rec_type_map (code, type_val, blvl_val) VALUES ('SCO','cd','abcdmsi');
9431 INSERT INTO config.marc21_rec_type_map (code, type_val, blvl_val) VALUES ('REC','ij','abcdmsi');
9432 INSERT INTO config.marc21_rec_type_map (code, type_val, blvl_val) VALUES ('COM','m','abcdmsi');
9433
9434 ------ Physical Characteristics
9435
9436 -- Map
9437 INSERT INTO config.marc21_physical_characteristic_type_map (ptype_key, label) VALUES ('a','Map');
9438 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('a','b','1','1','SMD');
9439 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Atlas');
9440 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('g',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Diagram');
9441 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('j',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Map');
9442 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('k',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Profile');
9443 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('q',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Model');
9444 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('r',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Remote-sensing image');
9445 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('s',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Section');
9446 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unspecified');
9447 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('y',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'View');
9448 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9449 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('a','d','3','1','Color');
9450 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'One color');
9451 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Multicolored');
9452 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('a','e','4','1','Physical medium');
9453 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Paper');
9454 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Wood');
9455 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Stone');
9456 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Metal');
9457 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Synthetics');
9458 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Skins');
9459 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('g',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Textile');
9460 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('p',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Plaster');
9461 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('q',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Flexible base photographic medium, positive');
9462 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('r',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Flexible base photographic medium, negative');
9463 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('s',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Non-flexible base photographic medium, positive');
9464 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('t',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Non-flexible base photographic medium, negative');
9465 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9466 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('y',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other photographic medium');
9467 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9468 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('a','f','5','1','Type of reproduction');
9469 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Facsimile');
9470 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('n',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Not applicable');
9471 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9472 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9473 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('a','g','6','1','Production/reproduction details');
9474 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Photocopy, blueline print');
9475 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Photocopy');
9476 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Pre-production');
9477 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Film');
9478 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9479 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9480 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('a','h','7','1','Positive/negative');
9481 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Positive');
9482 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Negative');
9483 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixed');
9484 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('n',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Not applicable');
9485
9486 -- Electronic Resource
9487 INSERT INTO config.marc21_physical_characteristic_type_map (ptype_key, label) VALUES ('c','Electronic Resource');
9488 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('c','b','1','1','SMD');
9489 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Tape Cartridge');
9490 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Chip cartridge');
9491 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Computer optical disk cartridge');
9492 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Tape cassette');
9493 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('h',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Tape reel');
9494 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('j',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Magnetic disk');
9495 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Magneto-optical disk');
9496 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('o',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Optical disk');
9497 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('r',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Remote');
9498 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unspecified');
9499 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9500 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('c','d','3','1','Color');
9501 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'One color');
9502 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Black-and-white');
9503 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Multicolored');
9504 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('g',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Gray scale');
9505 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixed');
9506 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('n',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Not applicable');
9507 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9508 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9509 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('c','e','4','1','Dimensions');
9510 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'3 1/2 in.');
9511 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'12 in.');
9512 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('g',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'4 3/4 in. or 12 cm.');
9513 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('i',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'1 1/8 x 2 3/8 in.');
9514 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('j',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'3 7/8 x 2 1/2 in.');
9515 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('n',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Not applicable');
9516 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('o',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'5 1/4 in.');
9517 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9518 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('v',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'8 in.');
9519 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9520 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('c','f','5','1','Sound');
9521 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES (' ',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'No sound (Silent)');
9522 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Sound');
9523 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9524 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('c','g','6','3','Image bit depth');
9525 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('---',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9526 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('mmm',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Multiple');
9527 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('nnn',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Not applicable');
9528 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('c','h','9','1','File formats');
9529 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'One file format');
9530 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Multiple file formats');
9531 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9532 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('c','i','10','1','Quality assurance target(s)');
9533 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Absent');
9534 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('n',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Not applicable');
9535 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('p',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Present');
9536 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9537 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('c','j','11','1','Antecedent/Source');
9538 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'File reproduced from original');
9539 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'File reproduced from microform');
9540 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'File reproduced from electronic resource');
9541 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'File reproduced from an intermediate (not microform)');
9542 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixed');
9543 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('n',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Not applicable');
9544 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9545 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('c','k','12','1','Level of compression');
9546 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Uncompressed');
9547 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Lossless');
9548 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Lossy');
9549 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixed');
9550 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9551 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('c','l','13','1','Reformatting quality');
9552 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Access');
9553 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('n',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Not applicable');
9554 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('p',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Preservation');
9555 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('r',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Replacement');
9556 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9557
9558 -- Globe
9559 INSERT INTO config.marc21_physical_characteristic_type_map (ptype_key, label) VALUES ('d','Globe');
9560 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('d','b','1','1','SMD');
9561 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Celestial globe');
9562 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Planetary or lunar globe');
9563 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Terrestrial globe');
9564 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Earth moon globe');
9565 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unspecified');
9566 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9567 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('d','d','3','1','Color');
9568 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'One color');
9569 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Multicolored');
9570 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('d','e','4','1','Physical medium');
9571 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Paper');
9572 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Wood');
9573 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Stone');
9574 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Metal');
9575 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Synthetics');
9576 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Skins');
9577 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('g',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Textile');
9578 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('p',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Plaster');
9579 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9580 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9581 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('d','f','5','1','Type of reproduction');
9582 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Facsimile');
9583 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('n',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Not applicable');
9584 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9585 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9586
9587 -- Tactile Material
9588 INSERT INTO config.marc21_physical_characteristic_type_map (ptype_key, label) VALUES ('f','Tactile Material');
9589 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('f','b','1','1','SMD');
9590 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Moon');
9591 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Braille');
9592 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Combination');
9593 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Tactile, with no writing system');
9594 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unspecified');
9595 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9596 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('f','d','3','2','Class of braille writing');
9597 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Literary braille');
9598 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Format code braille');
9599 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mathematics and scientific braille');
9600 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Computer braille');
9601 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Music braille');
9602 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Multiple braille types');
9603 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('n',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Not applicable');
9604 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9605 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9606 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('f','e','4','1','Level of contraction');
9607 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Uncontracted');
9608 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Contracted');
9609 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Combination');
9610 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('n',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Not applicable');
9611 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9612 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9613 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('f','f','6','3','Braille music format');
9614 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Bar over bar');
9615 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Bar by bar');
9616 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Line over line');
9617 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Paragraph');
9618 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Single line');
9619 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Section by section');
9620 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('g',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Line by line');
9621 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('h',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Open score');
9622 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('i',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Spanner short form scoring');
9623 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('j',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Short form scoring');
9624 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('k',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Outline');
9625 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('l',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Vertical score');
9626 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('n',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Not applicable');
9627 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9628 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9629 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('f','g','9','1','Special physical characteristics');
9630 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Print/braille');
9631 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Jumbo or enlarged braille');
9632 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('n',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Not applicable');
9633 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9634 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9635
9636 -- Projected Graphic
9637 INSERT INTO config.marc21_physical_characteristic_type_map (ptype_key, label) VALUES ('g','Projected Graphic');
9638 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('g','b','1','1','SMD');
9639 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Film cartridge');
9640 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Filmstrip');
9641 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Film filmstrip type');
9642 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('o',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Filmstrip roll');
9643 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('s',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Slide');
9644 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('t',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Transparency');
9645 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9646 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('g','d','3','1','Color');
9647 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Black-and-white');
9648 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Multicolored');
9649 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('h',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Hand-colored');
9650 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixed');
9651 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('n',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Not applicable');
9652 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9653 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9654 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('g','e','4','1','Base of emulsion');
9655 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Glass');
9656 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Synthetics');
9657 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('j',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Safety film');
9658 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('k',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Film base, other than safety film');
9659 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixed collection');
9660 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('o',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Paper');
9661 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9662 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9663 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('g','f','5','1','Sound on medium or separate');
9664 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Sound on medium');
9665 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Sound separate from medium');
9666 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9667 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('g','g','6','1','Medium for sound');
9668 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Optical sound track on motion picture film');
9669 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Magnetic sound track on motion picture film');
9670 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Magnetic audio tape in cartridge');
9671 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Sound disc');
9672 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Magnetic audio tape on reel');
9673 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Magnetic audio tape in cassette');
9674 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('g',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Optical and magnetic sound track on film');
9675 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('h',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Videotape');
9676 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('i',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Videodisc');
9677 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9678 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9679 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('g','h','7','1','Dimensions');
9680 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Standard 8 mm.');
9681 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Super 8 mm./single 8 mm.');
9682 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'9.5 mm.');
9683 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'16 mm.');
9684 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'28 mm.');
9685 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'35 mm.');
9686 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('g',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'70 mm.');
9687 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('j',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'2 x 2 in. (5 x 5 cm.)');
9688 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('k',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'2 1/4 x 2 1/4 in. (6 x 6 cm.)');
9689 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('s',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'4 x 5 in. (10 x 13 cm.)');
9690 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('t',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'5 x 7 in. (13 x 18 cm.)');
9691 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9692 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('v',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'8 x 10 in. (21 x 26 cm.)');
9693 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('w',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'9 x 9 in. (23 x 23 cm.)');
9694 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('x',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'10 x 10 in. (26 x 26 cm.)');
9695 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('y',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'7 x 7 in. (18 x 18 cm.)');
9696 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9697 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('g','i','8','1','Secondary support material');
9698 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Cardboard');
9699 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Glass');
9700 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Synthetics');
9701 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('h',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'metal');
9702 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('j',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Metal and glass');
9703 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('k',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Synthetics and glass');
9704 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixed collection');
9705 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9706 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9707
9708 -- Microform
9709 INSERT INTO config.marc21_physical_characteristic_type_map (ptype_key, label) VALUES ('h','Microform');
9710 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('h','b','1','1','SMD');
9711 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Aperture card');
9712 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Microfilm cartridge');
9713 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Microfilm cassette');
9714 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Microfilm reel');
9715 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Microfiche');
9716 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Microfiche cassette');
9717 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('g',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Microopaque');
9718 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unspecified');
9719 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9720 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('h','d','3','1','Positive/negative');
9721 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Positive');
9722 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Negative');
9723 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixed');
9724 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9725 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('h','e','4','1','Dimensions');
9726 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'8 mm.');
9727 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'16 mm.');
9728 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'35 mm.');
9729 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('g',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'70mm.');
9730 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('h',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'105 mm.');
9731 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('l',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'3 x 5 in. (8 x 13 cm.)');
9732 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'4 x 6 in. (11 x 15 cm.)');
9733 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('o',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'6 x 9 in. (16 x 23 cm.)');
9734 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('p',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'3 1/4 x 7 3/8 in. (9 x 19 cm.)');
9735 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9736 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9737 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('h','f','5','4','Reduction ratio range/Reduction ratio');
9738 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Low (1-16x)');
9739 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Normal (16-30x)');
9740 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'High (31-60x)');
9741 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Very high (61-90x)');
9742 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Ultra (90x-)');
9743 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9744 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('v',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Reduction ratio varies');
9745 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('h','g','9','1','Color');
9746 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Black-and-white');
9747 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Multicolored');
9748 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixed');
9749 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9750 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9751 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('h','h','10','1','Emulsion on film');
9752 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Silver halide');
9753 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Diazo');
9754 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Vesicular');
9755 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixed');
9756 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('n',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Not applicable');
9757 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9758 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9759 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('h','i','11','1','Quality assurance target(s)');
9760 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'1st gen. master');
9761 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Printing master');
9762 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Service copy');
9763 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixed generation');
9764 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9765 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('h','j','12','1','Base of film');
9766 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Safety base, undetermined');
9767 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Safety base, acetate undetermined');
9768 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Safety base, diacetate');
9769 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('l',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Nitrate base');
9770 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixed base');
9771 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('n',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Not applicable');
9772 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('p',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Safety base, polyester');
9773 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('r',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Safety base, mixed');
9774 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('t',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Safety base, triacetate');
9775 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9776 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9777
9778 -- Non-projected Graphic
9779 INSERT INTO config.marc21_physical_characteristic_type_map (ptype_key, label) VALUES ('k','Non-projected Graphic');
9780 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('k','b','1','1','SMD');
9781 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Collage');
9782 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Drawing');
9783 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Painting');
9784 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Photo-mechanical print');
9785 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('g',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Photonegative');
9786 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('h',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Photoprint');
9787 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('i',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Picture');
9788 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('j',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Print');
9789 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('l',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Technical drawing');
9790 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('n',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Chart');
9791 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('o',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Flash/activity card');
9792 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unspecified');
9793 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9794 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('k','d','3','1','Color');
9795 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'One color');
9796 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Black-and-white');
9797 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Multicolored');
9798 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('h',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Hand-colored');
9799 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixed');
9800 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9801 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9802 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('k','e','4','1','Primary support material');
9803 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Canvas');
9804 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Bristol board');
9805 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Cardboard/illustration board');
9806 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Glass');
9807 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Synthetics');
9808 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Skins');
9809 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('g',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Textile');
9810 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('h',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Metal');
9811 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixed collection');
9812 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('o',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Paper');
9813 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('p',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Plaster');
9814 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('q',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Hardboard');
9815 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('r',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Porcelain');
9816 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('s',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Stone');
9817 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('t',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Wood');
9818 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9819 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9820 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('k','f','5','1','Secondary support material');
9821 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Canvas');
9822 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Bristol board');
9823 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Cardboard/illustration board');
9824 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Glass');
9825 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Synthetics');
9826 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Skins');
9827 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('g',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Textile');
9828 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('h',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Metal');
9829 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixed collection');
9830 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('o',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Paper');
9831 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('p',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Plaster');
9832 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('q',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Hardboard');
9833 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('r',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Porcelain');
9834 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('s',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Stone');
9835 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('t',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Wood');
9836 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9837 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9838
9839 -- Motion Picture
9840 INSERT INTO config.marc21_physical_characteristic_type_map (ptype_key, label) VALUES ('m','Motion Picture');
9841 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('m','b','1','1','SMD');
9842 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Film cartridge');
9843 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Film cassette');
9844 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('r',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Film reel');
9845 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unspecified');
9846 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9847 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('m','d','3','1','Color');
9848 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Black-and-white');
9849 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Multicolored');
9850 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('h',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Hand-colored');
9851 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixed');
9852 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9853 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9854 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('m','e','4','1','Motion picture presentation format');
9855 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Standard sound aperture, reduced frame');
9856 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Nonanamorphic (wide-screen)');
9857 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'3D');
9858 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Anamorphic (wide-screen)');
9859 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other-wide screen format');
9860 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Standard. silent aperture, full frame');
9861 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9862 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9863 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('m','f','5','1','Sound on medium or separate');
9864 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Sound on medium');
9865 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Sound separate from medium');
9866 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9867 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('m','g','6','1','Medium for sound');
9868 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Optical sound track on motion picture film');
9869 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Magnetic sound track on motion picture film');
9870 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Magnetic audio tape in cartridge');
9871 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Sound disc');
9872 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Magnetic audio tape on reel');
9873 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Magnetic audio tape in cassette');
9874 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('g',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Optical and magnetic sound track on film');
9875 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('h',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Videotape');
9876 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('i',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Videodisc');
9877 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9878 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9879 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('m','h','7','1','Dimensions');
9880 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Standard 8 mm.');
9881 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Super 8 mm./single 8 mm.');
9882 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'9.5 mm.');
9883 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'16 mm.');
9884 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'28 mm.');
9885 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'35 mm.');
9886 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('g',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'70 mm.');
9887 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9888 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9889 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('m','i','8','1','Configuration of playback channels');
9890 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('k',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixed');
9891 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Monaural');
9892 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('n',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Not applicable');
9893 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('q',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Multichannel, surround or quadraphonic');
9894 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('s',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Stereophonic');
9895 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9896 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9897 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('m','j','9','1','Production elements');
9898 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Work print');
9899 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Trims');
9900 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Outtakes');
9901 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Rushes');
9902 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixing tracks');
9903 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Title bands/inter-title rolls');
9904 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('g',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Production rolls');
9905 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('n',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Not applicable');
9906 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9907
9908 -- Remote-sensing Image
9909 INSERT INTO config.marc21_physical_characteristic_type_map (ptype_key, label) VALUES ('r','Remote-sensing Image');
9910 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('r','b','1','1','SMD');
9911 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unspecified');
9912 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('r','d','3','1','Altitude of sensor');
9913 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Surface');
9914 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Airborne');
9915 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Spaceborne');
9916 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('n',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Not applicable');
9917 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9918 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9919 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('r','e','4','1','Attitude of sensor');
9920 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Low oblique');
9921 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'High oblique');
9922 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Vertical');
9923 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('n',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Not applicable');
9924 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9925 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('r','f','5','1','Cloud cover');
9926 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('0',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'0-09%');
9927 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('1',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'10-19%');
9928 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('2',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'20-29%');
9929 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('3',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'30-39%');
9930 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('4',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'40-49%');
9931 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('5',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'50-59%');
9932 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('6',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'60-69%');
9933 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('7',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'70-79%');
9934 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('8',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'80-89%');
9935 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('9',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'90-100%');
9936 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('n',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Not applicable');
9937 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9938 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('r','g','6','1','Platform construction type');
9939 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Balloon');
9940 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Aircraft-low altitude');
9941 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Aircraft-medium altitude');
9942 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Aircraft-high altitude');
9943 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Manned spacecraft');
9944 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unmanned spacecraft');
9945 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('g',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Land-based remote-sensing device');
9946 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('h',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Water surface-based remote-sensing device');
9947 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('i',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Submersible remote-sensing device');
9948 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('n',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Not applicable');
9949 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9950 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9951 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('r','h','7','1','Platform use category');
9952 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Meteorological');
9953 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Surface observing');
9954 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Space observing');
9955 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixed uses');
9956 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('n',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Not applicable');
9957 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9958 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9959 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('r','i','8','1','Sensor type');
9960 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Active');
9961 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Passive');
9962 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9963 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9964 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('r','j','9','2','Data type');
9965 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('aa',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Visible light');
9966 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('da',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Near infrared');
9967 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('db',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Middle infrared');
9968 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('dc',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Far infrared');
9969 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('dd',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Thermal infrared');
9970 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('de',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Shortwave infrared (SWIR)');
9971 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('df',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Reflective infrared');
9972 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('dv',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Combinations');
9973 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('dz',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other infrared data');
9974 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('ga',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Sidelooking airborne radar (SLAR)');
9975 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('gb',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Synthetic aperture radar (SAR-single frequency)');
9976 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('gc',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'SAR-multi-frequency (multichannel)');
9977 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('gd',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'SAR-like polarization');
9978 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('ge',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'SAR-cross polarization');
9979 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('gf',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Infometric SAR');
9980 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('gg',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Polarmetric SAR');
9981 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('gu',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Passive microwave mapping');
9982 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('gz',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other microwave data');
9983 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('ja',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Far ultraviolet');
9984 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('jb',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Middle ultraviolet');
9985 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('jc',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Near ultraviolet');
9986 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('jv',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Ultraviolet combinations');
9987 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('jz',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other ultraviolet data');
9988 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('ma',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Multi-spectral, multidata');
9989 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('mb',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Multi-temporal');
9990 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('mm',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Combination of various data types');
9991 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('nn',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Not applicable');
9992 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('pa',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Sonar-water depth');
9993 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('pb',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Sonar-bottom topography images, sidescan');
9994 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('pc',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Sonar-bottom topography, near-surface');
9995 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('pd',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Sonar-bottom topography, near-bottom');
9996 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('pe',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Seismic surveys');
9997 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('pz',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other acoustical data');
9998 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('ra',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Gravity anomales (general)');
9999 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('rb',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Free-air');
10000 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('rc',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Bouger');
10001 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('rd',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Isostatic');
10002 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('sa',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Magnetic field');
10003 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('ta',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Radiometric surveys');
10004 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('uu',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
10005 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('zz',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
10006
10007 -- Sound Recording
10008 INSERT INTO config.marc21_physical_characteristic_type_map (ptype_key, label) VALUES ('s','Sound Recording');
10009 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('s','b','1','1','SMD');
10010 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Sound disc');
10011 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Cylinder');
10012 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('g',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Sound cartridge');
10013 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('i',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Sound-track film');
10014 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('q',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Roll');
10015 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('s',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Sound cassette');
10016 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('t',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Sound-tape reel');
10017 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unspecified');
10018 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('w',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Wire recording');
10019 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
10020 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('s','d','3','1','Speed');
10021 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'16 rpm');
10022 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'33 1/3 rpm');
10023 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'45 rpm');
10024 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'78 rpm');
10025 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'8 rpm');
10026 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'1.4 mps');
10027 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('h',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'120 rpm');
10028 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('i',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'160 rpm');
10029 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('k',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'15/16 ips');
10030 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('l',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'1 7/8 ips');
10031 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'3 3/4 ips');
10032 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('o',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'7 1/2 ips');
10033 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('p',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'15 ips');
10034 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('r',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'30 ips');
10035 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
10036 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
10037 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('s','e','4','1','Configuration of playback channels');
10038 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Monaural');
10039 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('q',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Quadraphonic');
10040 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('s',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Stereophonic');
10041 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
10042 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
10043 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('s','f','5','1','Groove width or pitch');
10044 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Microgroove/fine');
10045 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('n',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Not applicable');
10046 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('s',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Coarse/standard');
10047 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
10048 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
10049 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('s','g','6','1','Dimensions');
10050 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'3 in.');
10051 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'5 in.');
10052 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'7 in.');
10053 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'10 in.');
10054 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'12 in.');
10055 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'16 in.');
10056 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('g',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'4 3/4 in. (12 cm.)');
10057 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('j',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'3 7/8 x 2 1/2 in.');
10058 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('n',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Not applicable');
10059 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('o',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'5 1/4 x 3 7/8 in.');
10060 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('s',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'2 3/4 x 4 in.');
10061 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
10062 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
10063 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('s','h','7','1','Tape width');
10064 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('l',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'1/8 in.');
10065 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'1/4in.');
10066 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('n',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Not applicable');
10067 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('o',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'1/2 in.');
10068 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('p',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'1 in.');
10069 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
10070 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
10071 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('s','i','8','1','Tape configuration ');
10072 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Full (1) track');
10073 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Half (2) track');
10074 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Quarter (4) track');
10075 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'8 track');
10076 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'12 track');
10077 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'16 track');
10078 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('n',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Not applicable');
10079 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
10080 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
10081 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('s','m','12','1','Special playback');
10082 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'NAB standard');
10083 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'CCIR standard');
10084 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Dolby-B encoded, standard Dolby');
10085 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'dbx encoded');
10086 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Digital recording');
10087 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Dolby-A encoded');
10088 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('g',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Dolby-C encoded');
10089 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('h',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'CX encoded');
10090 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('n',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Not applicable');
10091 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
10092 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
10093 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('s','n','13','1','Capture and storage');
10094 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Acoustical capture, direct storage');
10095 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Direct storage, not acoustical');
10096 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Digital storage');
10097 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Analog electrical storage');
10098 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
10099 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
10100
10101 -- Videorecording
10102 INSERT INTO config.marc21_physical_characteristic_type_map (ptype_key, label) VALUES ('v','Videorecording');
10103 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('v','b','1','1','SMD');
10104 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Videocartridge');
10105 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Videodisc');
10106 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Videocassette');
10107 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('r',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Videoreel');
10108 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unspecified');
10109 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
10110 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('v','d','3','1','Color');
10111 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Black-and-white');
10112 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Multicolored');
10113 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixed');
10114 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('n',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Not applicable');
10115 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
10116 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
10117 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('v','e','4','1','Videorecording format');
10118 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Beta');
10119 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'VHS');
10120 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'U-matic');
10121 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'EIAJ');
10122 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Type C');
10123 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Quadruplex');
10124 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('g',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Laserdisc');
10125 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('h',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'CED');
10126 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('i',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Betacam');
10127 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('j',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Betacam SP');
10128 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('k',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Super-VHS');
10129 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'M-II');
10130 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('o',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'D-2');
10131 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('p',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'8 mm.');
10132 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('q',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Hi-8 mm.');
10133 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
10134 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('v',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'DVD');
10135 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
10136 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('v','f','5','1','Sound on medium or separate');
10137 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Sound on medium');
10138 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Sound separate from medium');
10139 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
10140 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('v','g','6','1','Medium for sound');
10141 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Optical sound track on motion picture film');
10142 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Magnetic sound track on motion picture film');
10143 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Magnetic audio tape in cartridge');
10144 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Sound disc');
10145 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Magnetic audio tape on reel');
10146 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Magnetic audio tape in cassette');
10147 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('g',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Optical and magnetic sound track on motion picture film');
10148 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('h',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Videotape');
10149 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('i',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Videodisc');
10150 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
10151 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
10152 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('v','h','7','1','Dimensions');
10153 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'8 mm.');
10154 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'1/4 in.');
10155 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('o',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'1/2 in.');
10156 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('p',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'1 in.');
10157 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('q',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'2 in.');
10158 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('r',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'3/4 in.');
10159 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
10160 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
10161 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('v','i','8','1','Configuration of playback channel');
10162 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('k',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixed');
10163 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Monaural');
10164 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('n',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Not applicable');
10165 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('q',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Multichannel, surround or quadraphonic');
10166 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('s',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Stereophonic');
10167 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
10168 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
10169
10170 -- Fixed Field position data -- 0-based!
10171 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Alph', '006', 'SER', 16, 1, ' ');
10172 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Alph', '008', 'SER', 33, 1, ' ');
10173 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Audn', '006', 'BKS', 5, 1, ' ');
10174 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Audn', '006', 'COM', 5, 1, ' ');
10175 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Audn', '006', 'REC', 5, 1, ' ');
10176 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Audn', '006', 'SCO', 5, 1, ' ');
10177 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Audn', '006', 'SER', 5, 1, ' ');
10178 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Audn', '006', 'VIS', 5, 1, ' ');
10179 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Audn', '008', 'BKS', 22, 1, ' ');
10180 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Audn', '008', 'COM', 22, 1, ' ');
10181 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Audn', '008', 'REC', 22, 1, ' ');
10182 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Audn', '008', 'SCO', 22, 1, ' ');
10183 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Audn', '008', 'SER', 22, 1, ' ');
10184 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Audn', '008', 'VIS', 22, 1, ' ');
10185 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('BLvl', 'ldr', 'BKS', 7, 1, 'm');
10186 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('BLvl', 'ldr', 'COM', 7, 1, 'm');
10187 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('BLvl', 'ldr', 'MAP', 7, 1, 'm');
10188 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('BLvl', 'ldr', 'MIX', 7, 1, 'c');
10189 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('BLvl', 'ldr', 'REC', 7, 1, 'm');
10190 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('BLvl', 'ldr', 'SCO', 7, 1, 'm');
10191 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('BLvl', 'ldr', 'SER', 7, 1, 's');
10192 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('BLvl', 'ldr', 'VIS', 7, 1, 'm');
10193 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Biog', '006', 'BKS', 17, 1, ' ');
10194 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Biog', '008', 'BKS', 34, 1, ' ');
10195 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Conf', '006', 'BKS', 7, 4, ' ');
10196 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Conf', '006', 'SER', 8, 3, ' ');
10197 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Conf', '008', 'BKS', 24, 4, ' ');
10198 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Conf', '008', 'SER', 25, 3, ' ');
10199 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ctrl', 'ldr', 'BKS', 8, 1, ' ');
10200 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ctrl', 'ldr', 'COM', 8, 1, ' ');
10201 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ctrl', 'ldr', 'MAP', 8, 1, ' ');
10202 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ctrl', 'ldr', 'MIX', 8, 1, ' ');
10203 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ctrl', 'ldr', 'REC', 8, 1, ' ');
10204 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ctrl', 'ldr', 'SCO', 8, 1, ' ');
10205 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ctrl', 'ldr', 'SER', 8, 1, ' ');
10206 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ctrl', 'ldr', 'VIS', 8, 1, ' ');
10207 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ctry', '008', 'BKS', 15, 3, ' ');
10208 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ctry', '008', 'COM', 15, 3, ' ');
10209 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ctry', '008', 'MAP', 15, 3, ' ');
10210 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ctry', '008', 'MIX', 15, 3, ' ');
10211 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ctry', '008', 'REC', 15, 3, ' ');
10212 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ctry', '008', 'SCO', 15, 3, ' ');
10213 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ctry', '008', 'SER', 15, 3, ' ');
10214 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ctry', '008', 'VIS', 15, 3, ' ');
10215 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Date1', '008', 'BKS', 7, 4, ' ');
10216 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Date1', '008', 'COM', 7, 4, ' ');
10217 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Date1', '008', 'MAP', 7, 4, ' ');
10218 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Date1', '008', 'MIX', 7, 4, ' ');
10219 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Date1', '008', 'REC', 7, 4, ' ');
10220 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Date1', '008', 'SCO', 7, 4, ' ');
10221 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Date1', '008', 'SER', 7, 4, ' ');
10222 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Date1', '008', 'VIS', 7, 4, ' ');
10223 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Date2', '008', 'BKS', 11, 4, ' ');
10224 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Date2', '008', 'COM', 11, 4, ' ');
10225 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Date2', '008', 'MAP', 11, 4, ' ');
10226 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Date2', '008', 'MIX', 11, 4, ' ');
10227 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Date2', '008', 'REC', 11, 4, ' ');
10228 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Date2', '008', 'SCO', 11, 4, ' ');
10229 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Date2', '008', 'SER', 11, 4, '9');
10230 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Date2', '008', 'VIS', 11, 4, ' ');
10231 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Desc', 'ldr', 'BKS', 18, 1, ' ');
10232 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Desc', 'ldr', 'COM', 18, 1, ' ');
10233 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Desc', 'ldr', 'MAP', 18, 1, ' ');
10234 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Desc', 'ldr', 'MIX', 18, 1, ' ');
10235 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Desc', 'ldr', 'REC', 18, 1, ' ');
10236 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Desc', 'ldr', 'SCO', 18, 1, ' ');
10237 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Desc', 'ldr', 'SER', 18, 1, ' ');
10238 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Desc', 'ldr', 'VIS', 18, 1, ' ');
10239 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('DtSt', '008', 'BKS', 6, 1, ' ');
10240 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('DtSt', '008', 'COM', 6, 1, ' ');
10241 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('DtSt', '008', 'MAP', 6, 1, ' ');
10242 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('DtSt', '008', 'MIX', 6, 1, ' ');
10243 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('DtSt', '008', 'REC', 6, 1, ' ');
10244 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('DtSt', '008', 'SCO', 6, 1, ' ');
10245 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('DtSt', '008', 'SER', 6, 1, 'c');
10246 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('DtSt', '008', 'VIS', 6, 1, ' ');
10247 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('ELvl', 'ldr', 'BKS', 17, 1, ' ');
10248 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('ELvl', 'ldr', 'COM', 17, 1, ' ');
10249 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('ELvl', 'ldr', 'MAP', 17, 1, ' ');
10250 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('ELvl', 'ldr', 'MIX', 17, 1, ' ');
10251 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('ELvl', 'ldr', 'REC', 17, 1, ' ');
10252 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('ELvl', 'ldr', 'SCO', 17, 1, ' ');
10253 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('ELvl', 'ldr', 'SER', 17, 1, ' ');
10254 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('ELvl', 'ldr', 'VIS', 17, 1, ' ');
10255 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Fest', '006', 'BKS', 13, 1, '0');
10256 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Fest', '008', 'BKS', 30, 1, '0');
10257 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Form', '006', 'BKS', 6, 1, ' ');
10258 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Form', '006', 'MAP', 12, 1, ' ');
10259 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Form', '006', 'MIX', 6, 1, ' ');
10260 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Form', '006', 'REC', 6, 1, ' ');
10261 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Form', '006', 'SCO', 6, 1, ' ');
10262 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Form', '006', 'SER', 6, 1, ' ');
10263 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Form', '006', 'VIS', 12, 1, ' ');
10264 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Form', '008', 'BKS', 23, 1, ' ');
10265 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Form', '008', 'MAP', 29, 1, ' ');
10266 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Form', '008', 'MIX', 23, 1, ' ');
10267 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Form', '008', 'REC', 23, 1, ' ');
10268 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Form', '008', 'SCO', 23, 1, ' ');
10269 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Form', '008', 'SER', 23, 1, ' ');
10270 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Form', '008', 'VIS', 29, 1, ' ');
10271 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('GPub', '006', 'BKS', 11, 1, ' ');
10272 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('GPub', '006', 'COM', 11, 1, ' ');
10273 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('GPub', '006', 'MAP', 11, 1, ' ');
10274 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('GPub', '006', 'SER', 11, 1, ' ');
10275 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('GPub', '006', 'VIS', 11, 1, ' ');
10276 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('GPub', '008', 'BKS', 28, 1, ' ');
10277 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('GPub', '008', 'COM', 28, 1, ' ');
10278 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('GPub', '008', 'MAP', 28, 1, ' ');
10279 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('GPub', '008', 'SER', 28, 1, ' ');
10280 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('GPub', '008', 'VIS', 28, 1, ' ');
10281 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ills', '006', 'BKS', 1, 4, ' ');
10282 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ills', '008', 'BKS', 18, 4, ' ');
10283 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Indx', '006', 'BKS', 14, 1, '0');
10284 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Indx', '006', 'MAP', 14, 1, '0');
10285 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Indx', '008', 'BKS', 31, 1, '0');
10286 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Indx', '008', 'MAP', 31, 1, '0');
10287 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Lang', '008', 'BKS', 35, 3, ' ');
10288 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Lang', '008', 'COM', 35, 3, ' ');
10289 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Lang', '008', 'MAP', 35, 3, ' ');
10290 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Lang', '008', 'MIX', 35, 3, ' ');
10291 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Lang', '008', 'REC', 35, 3, ' ');
10292 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Lang', '008', 'SCO', 35, 3, ' ');
10293 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Lang', '008', 'SER', 35, 3, ' ');
10294 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Lang', '008', 'VIS', 35, 3, ' ');
10295 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('LitF', '006', 'BKS', 16, 1, '0');
10296 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('LitF', '008', 'BKS', 33, 1, '0');
10297 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('MRec', '008', 'BKS', 38, 1, ' ');
10298 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('MRec', '008', 'COM', 38, 1, ' ');
10299 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('MRec', '008', 'MAP', 38, 1, ' ');
10300 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('MRec', '008', 'MIX', 38, 1, ' ');
10301 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('MRec', '008', 'REC', 38, 1, ' ');
10302 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('MRec', '008', 'SCO', 38, 1, ' ');
10303 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('MRec', '008', 'SER', 38, 1, ' ');
10304 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('MRec', '008', 'VIS', 38, 1, ' ');
10305 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('S/L', '006', 'SER', 17, 1, '0');
10306 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('S/L', '008', 'SER', 34, 1, '0');
10307 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('TMat', '006', 'VIS', 16, 1, ' ');
10308 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('TMat', '008', 'VIS', 33, 1, ' ');
10309 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Type', 'ldr', 'BKS', 6, 1, 'a');
10310 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Type', 'ldr', 'COM', 6, 1, 'm');
10311 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Type', 'ldr', 'MAP', 6, 1, 'e');
10312 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Type', 'ldr', 'MIX', 6, 1, 'p');
10313 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Type', 'ldr', 'REC', 6, 1, 'i');
10314 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Type', 'ldr', 'SCO', 6, 1, 'c');
10315 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Type', 'ldr', 'SER', 6, 1, 'a');
10316 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Type', 'ldr', 'VIS', 6, 1, 'g');
10317
10318 CREATE OR REPLACE FUNCTION biblio.marc21_record_type( rid BIGINT ) RETURNS config.marc21_rec_type_map AS $func$
10319 DECLARE
10320         ldr         RECORD;
10321         tval        TEXT;
10322         tval_rec    RECORD;
10323         bval        TEXT;
10324         bval_rec    RECORD;
10325     retval      config.marc21_rec_type_map%ROWTYPE;
10326 BEGIN
10327     SELECT * INTO ldr FROM metabib.full_rec WHERE record = rid AND tag = 'LDR' LIMIT 1;
10328
10329     IF ldr.id IS NULL THEN
10330         SELECT * INTO retval FROM config.marc21_rec_type_map WHERE code = 'BKS';
10331         RETURN retval;
10332     END IF;
10333
10334     SELECT * INTO tval_rec FROM config.marc21_ff_pos_map WHERE fixed_field = 'Type' LIMIT 1; -- They're all the same
10335     SELECT * INTO bval_rec FROM config.marc21_ff_pos_map WHERE fixed_field = 'BLvl' LIMIT 1; -- They're all the same
10336
10337
10338     tval := SUBSTRING( ldr.value, tval_rec.start_pos + 1, tval_rec.length );
10339     bval := SUBSTRING( ldr.value, bval_rec.start_pos + 1, bval_rec.length );
10340
10341     -- RAISE NOTICE 'type %, blvl %, ldr %', tval, bval, ldr.value;
10342
10343     SELECT * INTO retval FROM config.marc21_rec_type_map WHERE type_val LIKE '%' || tval || '%' AND blvl_val LIKE '%' || bval || '%';
10344
10345
10346     IF retval.code IS NULL THEN
10347         SELECT * INTO retval FROM config.marc21_rec_type_map WHERE code = 'BKS';
10348     END IF;
10349
10350     RETURN retval;
10351 END;
10352 $func$ LANGUAGE PLPGSQL;
10353
10354 CREATE OR REPLACE FUNCTION biblio.marc21_extract_fixed_field( rid BIGINT, ff TEXT ) RETURNS TEXT AS $func$
10355 DECLARE
10356     rtype       TEXT;
10357     ff_pos      RECORD;
10358     tag_data    RECORD;
10359     val         TEXT;
10360 BEGIN
10361     rtype := (biblio.marc21_record_type( rid )).code;
10362     FOR ff_pos IN SELECT * FROM config.marc21_ff_pos_map WHERE fixed_field = ff AND rec_type = rtype ORDER BY tag DESC LOOP
10363         FOR tag_data IN SELECT * FROM metabib.full_rec WHERE tag = UPPER(ff_pos.tag) AND record = rid LOOP
10364             val := SUBSTRING( tag_data.value, ff_pos.start_pos + 1, ff_pos.length );
10365             RETURN val;
10366         END LOOP;
10367         val := REPEAT( ff_pos.default_val, ff_pos.length );
10368         RETURN val;
10369     END LOOP;
10370
10371     RETURN NULL;
10372 END;
10373 $func$ LANGUAGE PLPGSQL;
10374
10375 CREATE TYPE biblio.marc21_physical_characteristics AS ( id INT, record BIGINT, ptype TEXT, subfield INT, value INT );
10376 CREATE OR REPLACE FUNCTION biblio.marc21_physical_characteristics( rid BIGINT ) RETURNS SETOF biblio.marc21_physical_characteristics AS $func$
10377 DECLARE
10378     rowid   INT := 0;
10379     _007    RECORD;
10380     ptype   config.marc21_physical_characteristic_type_map%ROWTYPE;
10381     psf     config.marc21_physical_characteristic_subfield_map%ROWTYPE;
10382     pval    config.marc21_physical_characteristic_value_map%ROWTYPE;
10383     retval  biblio.marc21_physical_characteristics%ROWTYPE;
10384 BEGIN
10385
10386     SELECT * INTO _007 FROM metabib.full_rec WHERE record = rid AND tag = '007' LIMIT 1;
10387
10388     IF _007.id IS NOT NULL THEN
10389         SELECT * INTO ptype FROM config.marc21_physical_characteristic_type_map WHERE ptype_key = SUBSTRING( _007.value, 1, 1 );
10390
10391         IF ptype.ptype_key IS NOT NULL THEN
10392             FOR psf IN SELECT * FROM config.marc21_physical_characteristic_subfield_map WHERE ptype_key = ptype.ptype_key LOOP
10393                 SELECT * INTO pval FROM config.marc21_physical_characteristic_value_map WHERE ptype_subfield = psf.id AND value = SUBSTRING( _007.value, psf.start_pos + 1, psf.length );
10394
10395                 IF pval.id IS NOT NULL THEN
10396                     rowid := rowid + 1;
10397                     retval.id := rowid;
10398                     retval.record := rid;
10399                     retval.ptype := ptype.ptype_key;
10400                     retval.subfield := psf.id;
10401                     retval.value := pval.id;
10402                     RETURN NEXT retval;
10403                 END IF;
10404
10405             END LOOP;
10406         END IF;
10407     END IF;
10408
10409     RETURN;
10410 END;
10411 $func$ LANGUAGE PLPGSQL;
10412
10413 DROP VIEW IF EXISTS money.open_usr_circulation_summary;
10414 DROP VIEW IF EXISTS money.open_usr_summary;
10415 DROP VIEW IF EXISTS money.open_billable_xact_summary;
10416
10417 -- The view should supply defaults for numeric (amount) columns
10418 CREATE OR REPLACE VIEW money.billable_xact_summary AS
10419     SELECT  xact.id,
10420         xact.usr,
10421         xact.xact_start,
10422         xact.xact_finish,
10423         COALESCE(credit.amount, 0.0::numeric) AS total_paid,
10424         credit.payment_ts AS last_payment_ts,
10425         credit.note AS last_payment_note,
10426         credit.payment_type AS last_payment_type,
10427         COALESCE(debit.amount, 0.0::numeric) AS total_owed,
10428         debit.billing_ts AS last_billing_ts,
10429         debit.note AS last_billing_note,
10430         debit.billing_type AS last_billing_type,
10431         COALESCE(debit.amount, 0.0::numeric) - COALESCE(credit.amount, 0.0::numeric) AS balance_owed,
10432         p.relname AS xact_type
10433       FROM  money.billable_xact xact
10434         JOIN pg_class p ON xact.tableoid = p.oid
10435         LEFT JOIN (
10436             SELECT  billing.xact,
10437                 sum(billing.amount) AS amount,
10438                 max(billing.billing_ts) AS billing_ts,
10439                 last(billing.note) AS note,
10440                 last(billing.billing_type) AS billing_type
10441               FROM  money.billing
10442               WHERE billing.voided IS FALSE
10443               GROUP BY billing.xact
10444             ) debit ON xact.id = debit.xact
10445         LEFT JOIN (
10446             SELECT  payment_view.xact,
10447                 sum(payment_view.amount) AS amount,
10448                 max(payment_view.payment_ts) AS payment_ts,
10449                 last(payment_view.note) AS note,
10450                 last(payment_view.payment_type) AS payment_type
10451               FROM  money.payment_view
10452               WHERE payment_view.voided IS FALSE
10453               GROUP BY payment_view.xact
10454             ) credit ON xact.id = credit.xact
10455       ORDER BY debit.billing_ts, credit.payment_ts;
10456
10457 CREATE OR REPLACE VIEW money.open_billable_xact_summary AS
10458     SELECT * FROM money.billable_xact_summary_location_view
10459     WHERE xact_finish IS NULL;
10460
10461 CREATE OR REPLACE VIEW money.open_usr_circulation_summary AS
10462     SELECT
10463         usr,
10464         SUM(total_paid) AS total_paid,
10465         SUM(total_owed) AS total_owed,
10466         SUM(balance_owed) AS balance_owed
10467     FROM  money.materialized_billable_xact_summary
10468     WHERE xact_type = 'circulation' AND xact_finish IS NULL
10469     GROUP BY usr;
10470
10471 CREATE OR REPLACE VIEW money.usr_summary AS
10472     SELECT
10473         usr,
10474         sum(total_paid) AS total_paid,
10475         sum(total_owed) AS total_owed,
10476         sum(balance_owed) AS balance_owed
10477     FROM money.materialized_billable_xact_summary
10478     GROUP BY usr;
10479
10480 CREATE OR REPLACE VIEW money.open_usr_summary AS
10481     SELECT
10482         usr,
10483         sum(total_paid) AS total_paid,
10484         sum(total_owed) AS total_owed,
10485         sum(balance_owed) AS balance_owed
10486     FROM money.materialized_billable_xact_summary
10487     WHERE xact_finish IS NULL
10488     GROUP BY usr;
10489
10490 -- CREATE RULE protect_mfhd_delete AS ON DELETE TO serial.record_entry DO INSTEAD UPDATE serial.record_entry SET deleted = true WHERE old.id = serial.record_entry.id;
10491
10492 CREATE TABLE config.biblio_fingerprint (
10493         id                      SERIAL  PRIMARY KEY,
10494         name            TEXT    NOT NULL,
10495         xpath           TEXT    NOT NULL,
10496     first_word  BOOL    NOT NULL DEFAULT FALSE,
10497         format          TEXT    NOT NULL DEFAULT 'marcxml'
10498 );
10499
10500 INSERT INTO config.biblio_fingerprint (name, xpath, format)
10501     VALUES (
10502         'Title',
10503         '//marc:datafield[@tag="700"]/marc:subfield[@code="t"]|' ||
10504             '//marc:datafield[@tag="240"]/marc:subfield[@code="a"]|' ||
10505             '//marc:datafield[@tag="242"]/marc:subfield[@code="a"]|' ||
10506             '//marc:datafield[@tag="246"]/marc:subfield[@code="a"]|' ||
10507             '//marc:datafield[@tag="245"]/marc:subfield[@code="a"]',
10508         'marcxml'
10509     );
10510
10511 INSERT INTO config.biblio_fingerprint (name, xpath, format, first_word)
10512     VALUES (
10513         'Author',
10514         '//marc:datafield[@tag="700" and ./*[@code="t"]]/marc:subfield[@code="a"]|'
10515             '//marc:datafield[@tag="100"]/marc:subfield[@code="a"]|'
10516             '//marc:datafield[@tag="110"]/marc:subfield[@code="a"]|'
10517             '//marc:datafield[@tag="111"]/marc:subfield[@code="a"]|'
10518             '//marc:datafield[@tag="260"]/marc:subfield[@code="b"]',
10519         'marcxml',
10520         TRUE
10521     );
10522
10523 CREATE OR REPLACE FUNCTION biblio.extract_quality ( marc TEXT, best_lang TEXT, best_type TEXT ) RETURNS INT AS $func$
10524 DECLARE
10525     qual        INT;
10526     ldr         TEXT;
10527     tval        TEXT;
10528     tval_rec    RECORD;
10529     bval        TEXT;
10530     bval_rec    RECORD;
10531     type_map    RECORD;
10532     ff_pos      RECORD;
10533     ff_tag_data TEXT;
10534 BEGIN
10535
10536     IF marc IS NULL OR marc = '' THEN
10537         RETURN NULL;
10538     END IF;
10539
10540     -- First, the count of tags
10541     qual := ARRAY_UPPER(oils_xpath('*[local-name()="datafield"]', marc), 1);
10542
10543     -- now go through a bunch of pain to get the record type
10544     IF best_type IS NOT NULL THEN
10545         ldr := (oils_xpath('//*[local-name()="leader"]/text()', marc))[1];
10546
10547         IF ldr IS NOT NULL THEN
10548             SELECT * INTO tval_rec FROM config.marc21_ff_pos_map WHERE fixed_field = 'Type' LIMIT 1; -- They're all the same
10549             SELECT * INTO bval_rec FROM config.marc21_ff_pos_map WHERE fixed_field = 'BLvl' LIMIT 1; -- They're all the same
10550
10551
10552             tval := SUBSTRING( ldr, tval_rec.start_pos + 1, tval_rec.length );
10553             bval := SUBSTRING( ldr, bval_rec.start_pos + 1, bval_rec.length );
10554
10555             -- RAISE NOTICE 'type %, blvl %, ldr %', tval, bval, ldr;
10556
10557             SELECT * INTO type_map FROM config.marc21_rec_type_map WHERE type_val LIKE '%' || tval || '%' AND blvl_val LIKE '%' || bval || '%';
10558
10559             IF type_map.code IS NOT NULL THEN
10560                 IF best_type = type_map.code THEN
10561                     qual := qual + qual / 2;
10562                 END IF;
10563
10564                 FOR ff_pos IN SELECT * FROM config.marc21_ff_pos_map WHERE fixed_field = 'Lang' AND rec_type = type_map.code ORDER BY tag DESC LOOP
10565                     ff_tag_data := SUBSTRING((oils_xpath('//*[@tag="' || ff_pos.tag || '"]/text()',marc))[1], ff_pos.start_pos + 1, ff_pos.length);
10566                     IF ff_tag_data = best_lang THEN
10567                             qual := qual + 100;
10568                     END IF;
10569                 END LOOP;
10570             END IF;
10571         END IF;
10572     END IF;
10573
10574     -- Now look for some quality metrics
10575     -- DCL record?
10576     IF ARRAY_UPPER(oils_xpath('//*[@tag="040"]/*[@code="a" and contains(.,"DLC")]', marc), 1) = 1 THEN
10577         qual := qual + 10;
10578     END IF;
10579
10580     -- From OCLC?
10581     IF (oils_xpath('//*[@tag="003"]/text()', marc))[1] ~* E'oclo?c' THEN
10582         qual := qual + 10;
10583     END IF;
10584
10585     RETURN qual;
10586
10587 END;
10588 $func$ LANGUAGE PLPGSQL;
10589
10590 CREATE OR REPLACE FUNCTION biblio.extract_fingerprint ( marc text ) RETURNS TEXT AS $func$
10591 DECLARE
10592     idx     config.biblio_fingerprint%ROWTYPE;
10593     xfrm        config.xml_transform%ROWTYPE;
10594     prev_xfrm   TEXT;
10595     transformed_xml TEXT;
10596     xml_node    TEXT;
10597     xml_node_list   TEXT[];
10598     raw_text    TEXT;
10599     output_text TEXT := '';
10600 BEGIN
10601
10602     IF marc IS NULL OR marc = '' THEN
10603         RETURN NULL;
10604     END IF;
10605
10606     -- Loop over the indexing entries
10607     FOR idx IN SELECT * FROM config.biblio_fingerprint ORDER BY format, id LOOP
10608
10609         SELECT INTO xfrm * from config.xml_transform WHERE name = idx.format;
10610
10611         -- See if we can skip the XSLT ... it's expensive
10612         IF prev_xfrm IS NULL OR prev_xfrm <> xfrm.name THEN
10613             -- Can't skip the transform
10614             IF xfrm.xslt <> '---' THEN
10615                 transformed_xml := oils_xslt_process(marc,xfrm.xslt);
10616             ELSE
10617                 transformed_xml := marc;
10618             END IF;
10619
10620             prev_xfrm := xfrm.name;
10621         END IF;
10622
10623         raw_text := COALESCE(
10624             naco_normalize(
10625                 ARRAY_TO_STRING(
10626                     oils_xpath(
10627                         '//text()',
10628                         (oils_xpath(
10629                             idx.xpath,
10630                             transformed_xml,
10631                             ARRAY[ARRAY[xfrm.prefix, xfrm.namespace_uri]]
10632                         ))[1]
10633                     ),
10634                     ''
10635                 )
10636             ),
10637             ''
10638         );
10639
10640         raw_text := REGEXP_REPLACE(raw_text, E'\\[.+?\\]', E'');
10641         raw_text := REGEXP_REPLACE(raw_text, E'\\mthe\\M|\\man?d?d\\M', E'', 'g'); -- arg! the pain!
10642
10643         IF idx.first_word IS TRUE THEN
10644             raw_text := REGEXP_REPLACE(raw_text, E'^(\\w+).*?$', E'\\1');
10645         END IF;
10646
10647         output_text := output_text || REGEXP_REPLACE(raw_text, E'\\s+', '', 'g');
10648
10649     END LOOP;
10650
10651     RETURN output_text;
10652
10653 END;
10654 $func$ LANGUAGE PLPGSQL;
10655
10656 -- BEFORE UPDATE OR INSERT trigger for biblio.record_entry
10657 CREATE OR REPLACE FUNCTION biblio.fingerprint_trigger () RETURNS TRIGGER AS $func$
10658 BEGIN
10659
10660     -- For TG_ARGV, first param is language (like 'eng'), second is record type (like 'BKS')
10661
10662     IF NEW.deleted IS TRUE THEN -- we don't much care, then, do we?
10663         RETURN NEW;
10664     END IF;
10665
10666     NEW.fingerprint := biblio.extract_fingerprint(NEW.marc);
10667     NEW.quality := biblio.extract_quality(NEW.marc, TG_ARGV[0], TG_ARGV[1]);
10668
10669     RETURN NEW;
10670
10671 END;
10672 $func$ LANGUAGE PLPGSQL;
10673
10674 CREATE TABLE config.internal_flag (
10675     name    TEXT    PRIMARY KEY,
10676     value   TEXT,
10677     enabled BOOL    NOT NULL DEFAULT FALSE
10678 );
10679 INSERT INTO config.internal_flag (name) VALUES ('ingest.metarecord_mapping.skip_on_insert');
10680 INSERT INTO config.internal_flag (name) VALUES ('ingest.reingest.force_on_same_marc');
10681 INSERT INTO config.internal_flag (name) VALUES ('ingest.reingest.skip_located_uri');
10682 INSERT INTO config.internal_flag (name) VALUES ('ingest.disable_located_uri');
10683 INSERT INTO config.internal_flag (name) VALUES ('ingest.disable_metabib_full_rec');
10684 INSERT INTO config.internal_flag (name) VALUES ('ingest.disable_metabib_rec_descriptor');
10685 INSERT INTO config.internal_flag (name) VALUES ('ingest.disable_metabib_field_entry');
10686 INSERT INTO config.internal_flag (name) VALUES ('ingest.disable_authority_linking');
10687 INSERT INTO config.internal_flag (name) VALUES ('ingest.metarecord_mapping.skip_on_update');
10688 INSERT INTO config.internal_flag (name) VALUES ('ingest.assume_inserts_only');
10689
10690 CREATE TABLE authority.bib_linking (
10691     id          BIGSERIAL   PRIMARY KEY,
10692     bib         BIGINT      NOT NULL REFERENCES biblio.record_entry (id),
10693     authority   BIGINT      NOT NULL REFERENCES authority.record_entry (id)
10694 );
10695 CREATE INDEX authority_bl_bib_idx ON authority.bib_linking ( bib );
10696 CREATE UNIQUE INDEX authority_bl_bib_authority_once_idx ON authority.bib_linking ( authority, bib );
10697
10698 CREATE OR REPLACE FUNCTION public.remove_paren_substring( TEXT ) RETURNS TEXT AS $func$
10699     SELECT regexp_replace($1, $$\([^)]+\)$$, '', 'g');
10700 $func$ LANGUAGE SQL STRICT IMMUTABLE;
10701
10702 CREATE OR REPLACE FUNCTION biblio.map_authority_linking (bibid BIGINT, marc TEXT) RETURNS BIGINT AS $func$
10703     DELETE FROM authority.bib_linking WHERE bib = $1;
10704     INSERT INTO authority.bib_linking (bib, authority)
10705         SELECT  y.bib,
10706                 y.authority
10707           FROM (    SELECT  DISTINCT $1 AS bib,
10708                             BTRIM(remove_paren_substring(txt))::BIGINT AS authority
10709                       FROM  explode_array(oils_xpath('//*[@code="0"]/text()',$2)) x(txt)
10710                       WHERE BTRIM(remove_paren_substring(txt)) ~ $re$^\d+$$re$
10711                 ) y JOIN authority.record_entry r ON r.id = y.authority;
10712     SELECT $1;
10713 $func$ LANGUAGE SQL;
10714
10715 CREATE OR REPLACE FUNCTION metabib.reingest_metabib_rec_descriptor( bib_id BIGINT ) RETURNS VOID AS $func$
10716 BEGIN
10717     PERFORM * FROM config.internal_flag WHERE name = 'ingest.assume_inserts_only' AND enabled;
10718     IF NOT FOUND THEN
10719         DELETE FROM metabib.rec_descriptor WHERE record = bib_id;
10720     END IF;
10721     INSERT INTO metabib.rec_descriptor (record, item_type, item_form, bib_level, control_type, enc_level, audience, lit_form, type_mat, cat_form, pub_status, item_lang, vr_format, date1, date2)
10722         SELECT  bib_id,
10723                 biblio.marc21_extract_fixed_field( bib_id, 'Type' ),
10724                 biblio.marc21_extract_fixed_field( bib_id, 'Form' ),
10725                 biblio.marc21_extract_fixed_field( bib_id, 'BLvl' ),
10726                 biblio.marc21_extract_fixed_field( bib_id, 'Ctrl' ),
10727                 biblio.marc21_extract_fixed_field( bib_id, 'ELvl' ),
10728                 biblio.marc21_extract_fixed_field( bib_id, 'Audn' ),
10729                 biblio.marc21_extract_fixed_field( bib_id, 'LitF' ),
10730                 biblio.marc21_extract_fixed_field( bib_id, 'TMat' ),
10731                 biblio.marc21_extract_fixed_field( bib_id, 'Desc' ),
10732                 biblio.marc21_extract_fixed_field( bib_id, 'DtSt' ),
10733                 biblio.marc21_extract_fixed_field( bib_id, 'Lang' ),
10734                 (   SELECT  v.value
10735                       FROM  biblio.marc21_physical_characteristics( bib_id) p
10736                             JOIN config.marc21_physical_characteristic_subfield_map s ON (s.id = p.subfield)
10737                             JOIN config.marc21_physical_characteristic_value_map v ON (v.id = p.value)
10738                       WHERE p.ptype = 'v' AND s.subfield = 'e'    ),
10739                 LPAD(NULLIF(REGEXP_REPLACE(NULLIF(biblio.marc21_extract_fixed_field( bib_id, 'Date1'), ''), E'\\D', '0', 'g')::INT,0)::TEXT,4,'0'),
10740                 LPAD(NULLIF(REGEXP_REPLACE(NULLIF(biblio.marc21_extract_fixed_field( bib_id, 'Date2'), ''), E'\\D', '9', 'g')::INT,9999)::TEXT,4,'0');
10741
10742     RETURN;
10743 END;
10744 $func$ LANGUAGE PLPGSQL;
10745
10746 CREATE TABLE config.metabib_class (
10747     name    TEXT    PRIMARY KEY,
10748     label   TEXT    NOT NULL UNIQUE
10749 );
10750
10751 INSERT INTO config.metabib_class ( name, label ) VALUES ( 'keyword', oils_i18n_gettext('keyword', 'Keyword', 'cmc', 'label') );
10752 INSERT INTO config.metabib_class ( name, label ) VALUES ( 'title', oils_i18n_gettext('title', 'Title', 'cmc', 'label') );
10753 INSERT INTO config.metabib_class ( name, label ) VALUES ( 'author', oils_i18n_gettext('author', 'Author', 'cmc', 'label') );
10754 INSERT INTO config.metabib_class ( name, label ) VALUES ( 'subject', oils_i18n_gettext('subject', 'Subject', 'cmc', 'label') );
10755 INSERT INTO config.metabib_class ( name, label ) VALUES ( 'series', oils_i18n_gettext('series', 'Series', 'cmc', 'label') );
10756
10757 CREATE TABLE metabib.facet_entry (
10758         id              BIGSERIAL       PRIMARY KEY,
10759         source          BIGINT          NOT NULL,
10760         field           INT             NOT NULL,
10761         value           TEXT            NOT NULL
10762 );
10763
10764 CREATE OR REPLACE FUNCTION metabib.reingest_metabib_field_entries( bib_id BIGINT ) RETURNS VOID AS $func$
10765 DECLARE
10766     fclass          RECORD;
10767     ind_data        metabib.field_entry_template%ROWTYPE;
10768 BEGIN
10769     PERFORM * FROM config.internal_flag WHERE name = 'ingest.assume_inserts_only' AND enabled;
10770     IF NOT FOUND THEN
10771         FOR fclass IN SELECT * FROM config.metabib_class LOOP
10772             -- RAISE NOTICE 'Emptying out %', fclass.name;
10773             EXECUTE $$DELETE FROM metabib.$$ || fclass.name || $$_field_entry WHERE source = $$ || bib_id;
10774         END LOOP;
10775         DELETE FROM metabib.facet_entry WHERE source = bib_id;
10776     END IF;
10777
10778     FOR ind_data IN SELECT * FROM biblio.extract_metabib_field_entry( bib_id ) LOOP
10779         IF ind_data.field < 0 THEN
10780             ind_data.field = -1 * ind_data.field;
10781             INSERT INTO metabib.facet_entry (field, source, value)
10782                 VALUES (ind_data.field, ind_data.source, ind_data.value);
10783         ELSE
10784             EXECUTE $$
10785                 INSERT INTO metabib.$$ || ind_data.field_class || $$_field_entry (field, source, value)
10786                     VALUES ($$ ||
10787                         quote_literal(ind_data.field) || $$, $$ ||
10788                         quote_literal(ind_data.source) || $$, $$ ||
10789                         quote_literal(ind_data.value) ||
10790                     $$);$$;
10791         END IF;
10792
10793     END LOOP;
10794
10795     RETURN;
10796 END;
10797 $func$ LANGUAGE PLPGSQL;
10798
10799 CREATE OR REPLACE FUNCTION biblio.extract_located_uris( bib_id BIGINT, marcxml TEXT, editor_id INT ) RETURNS VOID AS $func$
10800 DECLARE
10801     uris            TEXT[];
10802     uri_xml         TEXT;
10803     uri_label       TEXT;
10804     uri_href        TEXT;
10805     uri_use         TEXT;
10806     uri_owner       TEXT;
10807     uri_owner_id    INT;
10808     uri_id          INT;
10809     uri_cn_id       INT;
10810     uri_map_id      INT;
10811 BEGIN
10812
10813     uris := oils_xpath('//*[@tag="856" and (@ind1="4" or @ind1="1") and (@ind2="0" or @ind2="1")]',marcxml);
10814     IF ARRAY_UPPER(uris,1) > 0 THEN
10815         FOR i IN 1 .. ARRAY_UPPER(uris, 1) LOOP
10816             -- First we pull info out of the 856
10817             uri_xml     := uris[i];
10818
10819             uri_href    := (oils_xpath('//*[@code="u"]/text()',uri_xml))[1];
10820             CONTINUE WHEN uri_href IS NULL;
10821
10822             uri_label   := (oils_xpath('//*[@code="y"]/text()|//*[@code="3"]/text()|//*[@code="u"]/text()',uri_xml))[1];
10823             CONTINUE WHEN uri_label IS NULL;
10824
10825             uri_owner   := (oils_xpath('//*[@code="9"]/text()|//*[@code="w"]/text()|//*[@code="n"]/text()',uri_xml))[1];
10826             CONTINUE WHEN uri_owner IS NULL;
10827
10828             uri_use     := (oils_xpath('//*[@code="z"]/text()|//*[@code="2"]/text()|//*[@code="n"]/text()',uri_xml))[1];
10829
10830             uri_owner := REGEXP_REPLACE(uri_owner, $re$^.*?\((\w+)\).*$$re$, E'\\1');
10831
10832             SELECT id INTO uri_owner_id FROM actor.org_unit WHERE shortname = uri_owner;
10833             CONTINUE WHEN NOT FOUND;
10834
10835             -- now we look for a matching uri
10836             SELECT id INTO uri_id FROM asset.uri WHERE label = uri_label AND href = uri_href AND use_restriction = uri_use AND active;
10837             IF NOT FOUND THEN -- create one
10838                 INSERT INTO asset.uri (label, href, use_restriction) VALUES (uri_label, uri_href, uri_use);
10839                 SELECT id INTO uri_id FROM asset.uri WHERE label = uri_label AND href = uri_href AND use_restriction = uri_use AND active;
10840             END IF;
10841
10842             -- we need a call number to link through
10843             SELECT id INTO uri_cn_id FROM asset.call_number WHERE owning_lib = uri_owner_id AND record = bib_id AND label = '##URI##' AND NOT deleted;
10844             IF NOT FOUND THEN
10845                 INSERT INTO asset.call_number (owning_lib, record, create_date, edit_date, creator, editor, label)
10846                     VALUES (uri_owner_id, bib_id, 'now', 'now', editor_id, editor_id, '##URI##');
10847                 SELECT id INTO uri_cn_id FROM asset.call_number WHERE owning_lib = uri_owner_id AND record = bib_id AND label = '##URI##' AND NOT deleted;
10848             END IF;
10849
10850             -- now, link them if they're not already
10851             SELECT id INTO uri_map_id FROM asset.uri_call_number_map WHERE call_number = uri_cn_id AND uri = uri_id;
10852             IF NOT FOUND THEN
10853                 INSERT INTO asset.uri_call_number_map (call_number, uri) VALUES (uri_cn_id, uri_id);
10854             END IF;
10855
10856         END LOOP;
10857     END IF;
10858
10859     RETURN;
10860 END;
10861 $func$ LANGUAGE PLPGSQL;
10862
10863 CREATE OR REPLACE FUNCTION metabib.remap_metarecord_for_bib( bib_id BIGINT, fp TEXT ) RETURNS BIGINT AS $func$
10864 DECLARE
10865     source_count    INT;
10866     old_mr          BIGINT;
10867     tmp_mr          metabib.metarecord%ROWTYPE;
10868     deleted_mrs     BIGINT[];
10869 BEGIN
10870
10871     DELETE FROM metabib.metarecord_source_map WHERE source = bib_id; -- Rid ourselves of the search-estimate-killing linkage
10872
10873     FOR tmp_mr IN SELECT  m.* FROM  metabib.metarecord m JOIN metabib.metarecord_source_map s ON (s.metarecord = m.id) WHERE s.source = bib_id LOOP
10874
10875         IF old_mr IS NULL AND fp = tmp_mr.fingerprint THEN -- Find the first fingerprint-matching
10876             old_mr := tmp_mr.id;
10877         ELSE
10878             SELECT COUNT(*) INTO source_count FROM metabib.metarecord_source_map WHERE metarecord = tmp_mr.id;
10879             IF source_count = 0 THEN -- No other records
10880                 deleted_mrs := ARRAY_APPEND(deleted_mrs, tmp_mr.id);
10881                 DELETE FROM metabib.metarecord WHERE id = tmp_mr.id;
10882             END IF;
10883         END IF;
10884
10885     END LOOP;
10886
10887     IF old_mr IS NULL THEN -- we found no suitable, preexisting MR based on old source maps
10888         SELECT id INTO old_mr FROM metabib.metarecord WHERE fingerprint = fp; -- is there one for our current fingerprint?
10889         IF old_mr IS NULL THEN -- nope, create one and grab its id
10890             INSERT INTO metabib.metarecord ( fingerprint, master_record ) VALUES ( fp, bib_id );
10891             SELECT id INTO old_mr FROM metabib.metarecord WHERE fingerprint = fp;
10892         ELSE -- indeed there is. update it with a null cache and recalcualated master record
10893             UPDATE  metabib.metarecord
10894               SET   mods = NULL,
10895                     master_record = ( SELECT id FROM biblio.record_entry WHERE fingerprint = fp ORDER BY quality DESC LIMIT 1)
10896               WHERE id = old_mr;
10897         END IF;
10898     ELSE -- there was one we already attached to, update its mods cache and master_record
10899         UPDATE  metabib.metarecord
10900           SET   mods = NULL,
10901                 master_record = ( SELECT id FROM biblio.record_entry WHERE fingerprint = fp ORDER BY quality DESC LIMIT 1)
10902           WHERE id = old_mr;
10903     END IF;
10904
10905     INSERT INTO metabib.metarecord_source_map (metarecord, source) VALUES (old_mr, bib_id); -- new source mapping
10906
10907     IF ARRAY_UPPER(deleted_mrs,1) > 0 THEN
10908         UPDATE action.hold_request SET target = old_mr WHERE target IN ( SELECT explode_array(deleted_mrs) ) AND hold_type = 'M'; -- if we had to delete any MRs above, make sure their holds are moved
10909     END IF;
10910
10911     RETURN old_mr;
10912
10913 END;
10914 $func$ LANGUAGE PLPGSQL;
10915
10916 CREATE OR REPLACE FUNCTION metabib.reingest_metabib_full_rec( bib_id BIGINT ) RETURNS VOID AS $func$
10917 BEGIN
10918     PERFORM * FROM config.internal_flag WHERE name = 'ingest.assume_inserts_only' AND enabled;
10919     IF NOT FOUND THEN
10920         DELETE FROM metabib.real_full_rec WHERE record = bib_id;
10921     END IF;
10922     INSERT INTO metabib.real_full_rec (record, tag, ind1, ind2, subfield, value)
10923         SELECT record, tag, ind1, ind2, subfield, value FROM biblio.flatten_marc( bib_id );
10924
10925     RETURN;
10926 END;
10927 $func$ LANGUAGE PLPGSQL;
10928
10929 -- AFTER UPDATE OR INSERT trigger for biblio.record_entry
10930 CREATE OR REPLACE FUNCTION biblio.indexing_ingest_or_delete () RETURNS TRIGGER AS $func$
10931 BEGIN
10932
10933     IF NEW.deleted IS TRUE THEN -- If this bib is deleted
10934         DELETE FROM metabib.metarecord_source_map WHERE source = NEW.id; -- Rid ourselves of the search-estimate-killing linkage
10935         DELETE FROM authority.bib_linking WHERE bib = NEW.id; -- Avoid updating fields in bibs that are no longer visible
10936         RETURN NEW; -- and we're done
10937     END IF;
10938
10939     IF TG_OP = 'UPDATE' THEN -- re-ingest?
10940         PERFORM * FROM config.internal_flag WHERE name = 'ingest.reingest.force_on_same_marc' AND enabled;
10941
10942         IF NOT FOUND AND OLD.marc = NEW.marc THEN -- don't do anything if the MARC didn't change
10943             RETURN NEW;
10944         END IF;
10945     END IF;
10946
10947     -- Record authority linking
10948     PERFORM * FROM config.internal_flag WHERE name = 'ingest.disable_authority_linking' AND enabled;
10949     IF NOT FOUND THEN
10950         PERFORM biblio.map_authority_linking( NEW.id, NEW.marc );
10951     END IF;
10952
10953     -- Flatten and insert the mfr data
10954     PERFORM * FROM config.internal_flag WHERE name = 'ingest.disable_metabib_full_rec' AND enabled;
10955     IF NOT FOUND THEN
10956         PERFORM metabib.reingest_metabib_full_rec(NEW.id);
10957         PERFORM * FROM config.internal_flag WHERE name = 'ingest.disable_metabib_rec_descriptor' AND enabled;
10958         IF NOT FOUND THEN
10959             PERFORM metabib.reingest_metabib_rec_descriptor(NEW.id);
10960         END IF;
10961     END IF;
10962
10963     -- Gather and insert the field entry data
10964     PERFORM metabib.reingest_metabib_field_entries(NEW.id);
10965
10966     -- Located URI magic
10967     IF TG_OP = 'INSERT' THEN
10968         PERFORM * FROM config.internal_flag WHERE name = 'ingest.disable_located_uri' AND enabled;
10969         IF NOT FOUND THEN
10970             PERFORM biblio.extract_located_uris( NEW.id, NEW.marc, NEW.editor );
10971         END IF;
10972     ELSE
10973         PERFORM * FROM config.internal_flag WHERE name = 'ingest.disable_located_uri' AND enabled;
10974         IF NOT FOUND THEN
10975             PERFORM biblio.extract_located_uris( NEW.id, NEW.marc, NEW.editor );
10976         END IF;
10977     END IF;
10978
10979     -- (re)map metarecord-bib linking
10980     IF TG_OP = 'INSERT' THEN -- if not deleted and performing an insert, check for the flag
10981         PERFORM * FROM config.internal_flag WHERE name = 'ingest.metarecord_mapping.skip_on_insert' AND enabled;
10982         IF NOT FOUND THEN
10983             PERFORM metabib.remap_metarecord_for_bib( NEW.id, NEW.fingerprint );
10984         END IF;
10985     ELSE -- we're doing an update, and we're not deleted, remap
10986         PERFORM * FROM config.internal_flag WHERE name = 'ingest.metarecord_mapping.skip_on_update' AND enabled;
10987         IF NOT FOUND THEN
10988             PERFORM metabib.remap_metarecord_for_bib( NEW.id, NEW.fingerprint );
10989         END IF;
10990     END IF;
10991
10992     RETURN NEW;
10993 END;
10994 $func$ LANGUAGE PLPGSQL;
10995
10996 CREATE TRIGGER fingerprint_tgr BEFORE INSERT OR UPDATE ON biblio.record_entry FOR EACH ROW EXECUTE PROCEDURE biblio.fingerprint_trigger ('eng','BKS');
10997 CREATE TRIGGER aaa_indexing_ingest_or_delete AFTER INSERT OR UPDATE ON biblio.record_entry FOR EACH ROW EXECUTE PROCEDURE biblio.indexing_ingest_or_delete ();
10998
10999 DROP TRIGGER IF EXISTS zzz_update_materialized_simple_rec_delete_tgr ON biblio.record_entry;
11000
11001 CREATE OR REPLACE FUNCTION oils_xpath_table ( key TEXT, document_field TEXT, relation_name TEXT, xpaths TEXT, criteria TEXT ) RETURNS SETOF RECORD AS $func$
11002 DECLARE
11003     xpath_list  TEXT[];
11004     select_list TEXT[];
11005     where_list  TEXT[];
11006     q           TEXT;
11007     out_record  RECORD;
11008     empty_test  RECORD;
11009 BEGIN
11010     xpath_list := STRING_TO_ARRAY( xpaths, '|' );
11011
11012     select_list := ARRAY_APPEND( select_list, key || '::INT AS key' );
11013
11014     FOR i IN 1 .. ARRAY_UPPER(xpath_list,1) LOOP
11015         IF xpath_list[i] = 'null()' THEN
11016             select_list := ARRAY_APPEND( select_list, 'NULL::TEXT AS c_' || i );
11017         ELSE
11018             select_list := ARRAY_APPEND(
11019                 select_list,
11020                 $sel$
11021                 EXPLODE_ARRAY(
11022                     COALESCE(
11023                         NULLIF(
11024                             oils_xpath(
11025                                 $sel$ ||
11026                                     quote_literal(
11027                                         CASE
11028                                             WHEN xpath_list[i] ~ $re$/[^/[]*@[^/]+$$re$ OR xpath_list[i] ~ $re$text\(\)$$re$ THEN xpath_list[i]
11029                                             ELSE xpath_list[i] || '//text()'
11030                                         END
11031                                     ) ||
11032                                 $sel$,
11033                                 $sel$ || document_field || $sel$
11034                             ),
11035                            '{}'::TEXT[]
11036                         ),
11037                         '{NULL}'::TEXT[]
11038                     )
11039                 ) AS c_$sel$ || i
11040             );
11041             where_list := ARRAY_APPEND(
11042                 where_list,
11043                 'c_' || i || ' IS NOT NULL'
11044             );
11045         END IF;
11046     END LOOP;
11047
11048     q := $q$
11049 SELECT * FROM (
11050     SELECT $q$ || ARRAY_TO_STRING( select_list, ', ' ) || $q$ FROM $q$ || relation_name || $q$ WHERE ($q$ || criteria || $q$)
11051 )x WHERE $q$ || ARRAY_TO_STRING( where_list, ' AND ' );
11052     -- RAISE NOTICE 'query: %', q;
11053
11054     FOR out_record IN EXECUTE q LOOP
11055         RETURN NEXT out_record;
11056     END LOOP;
11057
11058     RETURN;
11059 END;
11060 $func$ LANGUAGE PLPGSQL IMMUTABLE;
11061
11062 CREATE OR REPLACE FUNCTION vandelay.ingest_items ( import_id BIGINT, attr_def_id BIGINT ) RETURNS SETOF vandelay.import_item AS $$
11063 DECLARE
11064
11065     owning_lib      TEXT;
11066     circ_lib        TEXT;
11067     call_number     TEXT;
11068     copy_number     TEXT;
11069     status          TEXT;
11070     location        TEXT;
11071     circulate       TEXT;
11072     deposit         TEXT;
11073     deposit_amount  TEXT;
11074     ref             TEXT;
11075     holdable        TEXT;
11076     price           TEXT;
11077     barcode         TEXT;
11078     circ_modifier   TEXT;
11079     circ_as_type    TEXT;
11080     alert_message   TEXT;
11081     opac_visible    TEXT;
11082     pub_note        TEXT;
11083     priv_note       TEXT;
11084
11085     attr_def        RECORD;
11086     tmp_attr_set    RECORD;
11087     attr_set        vandelay.import_item%ROWTYPE;
11088
11089     xpath           TEXT;
11090
11091 BEGIN
11092
11093     SELECT * INTO attr_def FROM vandelay.import_item_attr_definition WHERE id = attr_def_id;
11094
11095     IF FOUND THEN
11096
11097         attr_set.definition := attr_def.id;
11098
11099         -- Build the combined XPath
11100
11101         owning_lib :=
11102             CASE
11103                 WHEN attr_def.owning_lib IS NULL THEN 'null()'
11104                 WHEN LENGTH( attr_def.owning_lib ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.owning_lib || '"]'
11105                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.owning_lib
11106             END;
11107
11108         circ_lib :=
11109             CASE
11110                 WHEN attr_def.circ_lib IS NULL THEN 'null()'
11111                 WHEN LENGTH( attr_def.circ_lib ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.circ_lib || '"]'
11112                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.circ_lib
11113             END;
11114
11115         call_number :=
11116             CASE
11117                 WHEN attr_def.call_number IS NULL THEN 'null()'
11118                 WHEN LENGTH( attr_def.call_number ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.call_number || '"]'
11119                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.call_number
11120             END;
11121
11122         copy_number :=
11123             CASE
11124                 WHEN attr_def.copy_number IS NULL THEN 'null()'
11125                 WHEN LENGTH( attr_def.copy_number ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.copy_number || '"]'
11126                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.copy_number
11127             END;
11128
11129         status :=
11130             CASE
11131                 WHEN attr_def.status IS NULL THEN 'null()'
11132                 WHEN LENGTH( attr_def.status ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.status || '"]'
11133                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.status
11134             END;
11135
11136         location :=
11137             CASE
11138                 WHEN attr_def.location IS NULL THEN 'null()'
11139                 WHEN LENGTH( attr_def.location ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.location || '"]'
11140                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.location
11141             END;
11142
11143         circulate :=
11144             CASE
11145                 WHEN attr_def.circulate IS NULL THEN 'null()'
11146                 WHEN LENGTH( attr_def.circulate ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.circulate || '"]'
11147                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.circulate
11148             END;
11149
11150         deposit :=
11151             CASE
11152                 WHEN attr_def.deposit IS NULL THEN 'null()'
11153                 WHEN LENGTH( attr_def.deposit ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.deposit || '"]'
11154                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.deposit
11155             END;
11156
11157         deposit_amount :=
11158             CASE
11159                 WHEN attr_def.deposit_amount IS NULL THEN 'null()'
11160                 WHEN LENGTH( attr_def.deposit_amount ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.deposit_amount || '"]'
11161                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.deposit_amount
11162             END;
11163
11164         ref :=
11165             CASE
11166                 WHEN attr_def.ref IS NULL THEN 'null()'
11167                 WHEN LENGTH( attr_def.ref ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.ref || '"]'
11168                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.ref
11169             END;
11170
11171         holdable :=
11172             CASE
11173                 WHEN attr_def.holdable IS NULL THEN 'null()'
11174                 WHEN LENGTH( attr_def.holdable ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.holdable || '"]'
11175                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.holdable
11176             END;
11177
11178         price :=
11179             CASE
11180                 WHEN attr_def.price IS NULL THEN 'null()'
11181                 WHEN LENGTH( attr_def.price ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.price || '"]'
11182                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.price
11183             END;
11184
11185         barcode :=
11186             CASE
11187                 WHEN attr_def.barcode IS NULL THEN 'null()'
11188                 WHEN LENGTH( attr_def.barcode ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.barcode || '"]'
11189                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.barcode
11190             END;
11191
11192         circ_modifier :=
11193             CASE
11194                 WHEN attr_def.circ_modifier IS NULL THEN 'null()'
11195                 WHEN LENGTH( attr_def.circ_modifier ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.circ_modifier || '"]'
11196                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.circ_modifier
11197             END;
11198
11199         circ_as_type :=
11200             CASE
11201                 WHEN attr_def.circ_as_type IS NULL THEN 'null()'
11202                 WHEN LENGTH( attr_def.circ_as_type ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.circ_as_type || '"]'
11203                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.circ_as_type
11204             END;
11205
11206         alert_message :=
11207             CASE
11208                 WHEN attr_def.alert_message IS NULL THEN 'null()'
11209                 WHEN LENGTH( attr_def.alert_message ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.alert_message || '"]'
11210                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.alert_message
11211             END;
11212
11213         opac_visible :=
11214             CASE
11215                 WHEN attr_def.opac_visible IS NULL THEN 'null()'
11216                 WHEN LENGTH( attr_def.opac_visible ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.opac_visible || '"]'
11217                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.opac_visible
11218             END;
11219
11220         pub_note :=
11221             CASE
11222                 WHEN attr_def.pub_note IS NULL THEN 'null()'
11223                 WHEN LENGTH( attr_def.pub_note ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.pub_note || '"]'
11224                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.pub_note
11225             END;
11226         priv_note :=
11227             CASE
11228                 WHEN attr_def.priv_note IS NULL THEN 'null()'
11229                 WHEN LENGTH( attr_def.priv_note ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.priv_note || '"]'
11230                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.priv_note
11231             END;
11232
11233
11234         xpath :=
11235             owning_lib      || '|' ||
11236             circ_lib        || '|' ||
11237             call_number     || '|' ||
11238             copy_number     || '|' ||
11239             status          || '|' ||
11240             location        || '|' ||
11241             circulate       || '|' ||
11242             deposit         || '|' ||
11243             deposit_amount  || '|' ||
11244             ref             || '|' ||
11245             holdable        || '|' ||
11246             price           || '|' ||
11247             barcode         || '|' ||
11248             circ_modifier   || '|' ||
11249             circ_as_type    || '|' ||
11250             alert_message   || '|' ||
11251             pub_note        || '|' ||
11252             priv_note       || '|' ||
11253             opac_visible;
11254
11255         -- RAISE NOTICE 'XPath: %', xpath;
11256
11257         FOR tmp_attr_set IN
11258                 SELECT  *
11259                   FROM  oils_xpath_table( 'id', 'marc', 'vandelay.queued_bib_record', xpath, 'id = ' || import_id )
11260                             AS t( id INT, ol TEXT, clib TEXT, cn TEXT, cnum TEXT, cs TEXT, cl TEXT, circ TEXT,
11261                                   dep TEXT, dep_amount TEXT, r TEXT, hold TEXT, pr TEXT, bc TEXT, circ_mod TEXT,
11262                                   circ_as TEXT, amessage TEXT, note TEXT, pnote TEXT, opac_vis TEXT )
11263         LOOP
11264
11265             tmp_attr_set.pr = REGEXP_REPLACE(tmp_attr_set.pr, E'[^0-9\\.]', '', 'g');
11266             tmp_attr_set.dep_amount = REGEXP_REPLACE(tmp_attr_set.dep_amount, E'[^0-9\\.]', '', 'g');
11267
11268             tmp_attr_set.pr := NULLIF( tmp_attr_set.pr, '' );
11269             tmp_attr_set.dep_amount := NULLIF( tmp_attr_set.dep_amount, '' );
11270
11271             SELECT id INTO attr_set.owning_lib FROM actor.org_unit WHERE shortname = UPPER(tmp_attr_set.ol); -- INT
11272             SELECT id INTO attr_set.circ_lib FROM actor.org_unit WHERE shortname = UPPER(tmp_attr_set.clib); -- INT
11273             SELECT id INTO attr_set.status FROM config.copy_status WHERE LOWER(name) = LOWER(tmp_attr_set.cs); -- INT
11274
11275             SELECT  id INTO attr_set.location
11276               FROM  asset.copy_location
11277               WHERE LOWER(name) = LOWER(tmp_attr_set.cl)
11278                     AND asset.copy_location.owning_lib = COALESCE(attr_set.owning_lib, attr_set.circ_lib); -- INT
11279
11280             attr_set.circulate      :=
11281                 LOWER( SUBSTRING( tmp_attr_set.circ, 1, 1)) IN ('t','y','1')
11282                 OR LOWER(tmp_attr_set.circ) = 'circulating'; -- BOOL
11283
11284             attr_set.deposit        :=
11285                 LOWER( SUBSTRING( tmp_attr_set.dep, 1, 1 ) ) IN ('t','y','1')
11286                 OR LOWER(tmp_attr_set.dep) = 'deposit'; -- BOOL
11287
11288             attr_set.holdable       :=
11289                 LOWER( SUBSTRING( tmp_attr_set.hold, 1, 1 ) ) IN ('t','y','1')
11290                 OR LOWER(tmp_attr_set.hold) = 'holdable'; -- BOOL
11291
11292             attr_set.opac_visible   :=
11293                 LOWER( SUBSTRING( tmp_attr_set.opac_vis, 1, 1 ) ) IN ('t','y','1')
11294                 OR LOWER(tmp_attr_set.opac_vis) = 'visible'; -- BOOL
11295
11296             attr_set.ref            :=
11297                 LOWER( SUBSTRING( tmp_attr_set.r, 1, 1 ) ) IN ('t','y','1')
11298                 OR LOWER(tmp_attr_set.r) = 'reference'; -- BOOL
11299
11300             attr_set.copy_number    := tmp_attr_set.cnum::INT; -- INT,
11301             attr_set.deposit_amount := tmp_attr_set.dep_amount::NUMERIC(6,2); -- NUMERIC(6,2),
11302             attr_set.price          := tmp_attr_set.pr::NUMERIC(8,2); -- NUMERIC(8,2),
11303
11304             attr_set.call_number    := tmp_attr_set.cn; -- TEXT
11305             attr_set.barcode        := tmp_attr_set.bc; -- TEXT,
11306             attr_set.circ_modifier  := tmp_attr_set.circ_mod; -- TEXT,
11307             attr_set.circ_as_type   := tmp_attr_set.circ_as; -- TEXT,
11308             attr_set.alert_message  := tmp_attr_set.amessage; -- TEXT,
11309             attr_set.pub_note       := tmp_attr_set.note; -- TEXT,
11310             attr_set.priv_note      := tmp_attr_set.pnote; -- TEXT,
11311             attr_set.alert_message  := tmp_attr_set.amessage; -- TEXT,
11312
11313             RETURN NEXT attr_set;
11314
11315         END LOOP;
11316
11317     END IF;
11318
11319     RETURN;
11320
11321 END;
11322 $$ LANGUAGE PLPGSQL;
11323
11324 CREATE OR REPLACE FUNCTION vandelay.ingest_bib_items ( ) RETURNS TRIGGER AS $func$
11325 DECLARE
11326     attr_def    BIGINT;
11327     item_data   vandelay.import_item%ROWTYPE;
11328 BEGIN
11329
11330     SELECT item_attr_def INTO attr_def FROM vandelay.bib_queue WHERE id = NEW.queue;
11331
11332     FOR item_data IN SELECT * FROM vandelay.ingest_items( NEW.id::BIGINT, attr_def ) LOOP
11333         INSERT INTO vandelay.import_item (
11334             record,
11335             definition,
11336             owning_lib,
11337             circ_lib,
11338             call_number,
11339             copy_number,
11340             status,
11341             location,
11342             circulate,
11343             deposit,
11344             deposit_amount,
11345             ref,
11346             holdable,
11347             price,
11348             barcode,
11349             circ_modifier,
11350             circ_as_type,
11351             alert_message,
11352             pub_note,
11353             priv_note,
11354             opac_visible
11355         ) VALUES (
11356             NEW.id,
11357             item_data.definition,
11358             item_data.owning_lib,
11359             item_data.circ_lib,
11360             item_data.call_number,
11361             item_data.copy_number,
11362             item_data.status,
11363             item_data.location,
11364             item_data.circulate,
11365             item_data.deposit,
11366             item_data.deposit_amount,
11367             item_data.ref,
11368             item_data.holdable,
11369             item_data.price,
11370             item_data.barcode,
11371             item_data.circ_modifier,
11372             item_data.circ_as_type,
11373             item_data.alert_message,
11374             item_data.pub_note,
11375             item_data.priv_note,
11376             item_data.opac_visible
11377         );
11378     END LOOP;
11379
11380     RETURN NULL;
11381 END;
11382 $func$ LANGUAGE PLPGSQL;
11383
11384 CREATE OR REPLACE FUNCTION acq.create_acq_seq     ( sch TEXT, tbl TEXT ) RETURNS BOOL AS $creator$
11385 BEGIN
11386     EXECUTE $$
11387         CREATE SEQUENCE acq.$$ || sch || $$_$$ || tbl || $$_pkey_seq;
11388     $$;
11389         RETURN TRUE;
11390 END;
11391 $creator$ LANGUAGE 'plpgsql';
11392
11393 CREATE OR REPLACE FUNCTION acq.create_acq_history ( sch TEXT, tbl TEXT ) RETURNS BOOL AS $creator$
11394 BEGIN
11395     EXECUTE $$
11396         CREATE TABLE acq.$$ || sch || $$_$$ || tbl || $$_history (
11397             audit_id    BIGINT                          PRIMARY KEY,
11398             audit_time  TIMESTAMP WITH TIME ZONE        NOT NULL,
11399             audit_action        TEXT                            NOT NULL,
11400             LIKE $$ || sch || $$.$$ || tbl || $$
11401         );
11402     $$;
11403         RETURN TRUE;
11404 END;
11405 $creator$ LANGUAGE 'plpgsql';
11406
11407 CREATE OR REPLACE FUNCTION acq.create_acq_func    ( sch TEXT, tbl TEXT ) RETURNS BOOL AS $creator$
11408 BEGIN
11409     EXECUTE $$
11410         CREATE OR REPLACE FUNCTION acq.audit_$$ || sch || $$_$$ || tbl || $$_func ()
11411         RETURNS TRIGGER AS $func$
11412         BEGIN
11413             INSERT INTO acq.$$ || sch || $$_$$ || tbl || $$_history
11414                 SELECT  nextval('acq.$$ || sch || $$_$$ || tbl || $$_pkey_seq'),
11415                     now(),
11416                     SUBSTR(TG_OP,1,1),
11417                     OLD.*;
11418             RETURN NULL;
11419         END;
11420         $func$ LANGUAGE 'plpgsql';
11421     $$;
11422         RETURN TRUE;
11423 END;
11424 $creator$ LANGUAGE 'plpgsql';
11425
11426 CREATE OR REPLACE FUNCTION acq.create_acq_update_trigger ( sch TEXT, tbl TEXT ) RETURNS BOOL AS $creator$
11427 BEGIN
11428     EXECUTE $$
11429         CREATE TRIGGER audit_$$ || sch || $$_$$ || tbl || $$_update_trigger
11430             AFTER UPDATE OR DELETE ON $$ || sch || $$.$$ || tbl || $$ FOR EACH ROW
11431             EXECUTE PROCEDURE acq.audit_$$ || sch || $$_$$ || tbl || $$_func ();
11432     $$;
11433         RETURN TRUE;
11434 END;
11435 $creator$ LANGUAGE 'plpgsql';
11436
11437 CREATE OR REPLACE FUNCTION acq.create_acq_lifecycle     ( sch TEXT, tbl TEXT ) RETURNS BOOL AS $creator$
11438 BEGIN
11439     EXECUTE $$
11440         CREATE OR REPLACE VIEW acq.$$ || sch || $$_$$ || tbl || $$_lifecycle AS
11441             SELECT      -1, now() as audit_time, '-' as audit_action, *
11442               FROM      $$ || sch || $$.$$ || tbl || $$
11443                 UNION ALL
11444             SELECT      *
11445               FROM      acq.$$ || sch || $$_$$ || tbl || $$_history;
11446     $$;
11447         RETURN TRUE;
11448 END;
11449 $creator$ LANGUAGE 'plpgsql';
11450
11451 -- The main event
11452
11453 CREATE OR REPLACE FUNCTION acq.create_acq_auditor ( sch TEXT, tbl TEXT ) RETURNS BOOL AS $creator$
11454 BEGIN
11455     PERFORM acq.create_acq_seq(sch, tbl);
11456     PERFORM acq.create_acq_history(sch, tbl);
11457     PERFORM acq.create_acq_func(sch, tbl);
11458     PERFORM acq.create_acq_update_trigger(sch, tbl);
11459     PERFORM acq.create_acq_lifecycle(sch, tbl);
11460     RETURN TRUE;
11461 END;
11462 $creator$ LANGUAGE 'plpgsql';
11463
11464 ALTER TABLE acq.lineitem DROP COLUMN item_count;
11465
11466 CREATE OR REPLACE VIEW acq.fund_debit_total AS
11467     SELECT  fund.id AS fund,
11468             fund_debit.encumbrance AS encumbrance,
11469             SUM( COALESCE( fund_debit.amount, 0 ) ) AS amount
11470       FROM acq.fund AS fund
11471                         LEFT JOIN acq.fund_debit AS fund_debit
11472                                 ON ( fund.id = fund_debit.fund )
11473       GROUP BY 1,2;
11474
11475 CREATE TABLE acq.debit_attribution (
11476         id                     INT         NOT NULL PRIMARY KEY,
11477         fund_debit             INT         NOT NULL
11478                                            REFERENCES acq.fund_debit
11479                                            DEFERRABLE INITIALLY DEFERRED,
11480     debit_amount           NUMERIC     NOT NULL,
11481         funding_source_credit  INT         REFERENCES acq.funding_source_credit
11482                                            DEFERRABLE INITIALLY DEFERRED,
11483     credit_amount          NUMERIC
11484 );
11485
11486 CREATE INDEX acq_attribution_debit_idx
11487         ON acq.debit_attribution( fund_debit );
11488
11489 CREATE INDEX acq_attribution_credit_idx
11490         ON acq.debit_attribution( funding_source_credit );
11491
11492 CREATE OR REPLACE FUNCTION acq.attribute_debits() RETURNS VOID AS $$
11493 /*
11494 Function to attribute expenditures and encumbrances to funding source credits,
11495 and thereby to funding sources.
11496
11497 Read the debits in chonological order, attributing each one to one or
11498 more funding source credits.  Constraints:
11499
11500 1. Don't attribute more to a credit than the amount of the credit.
11501
11502 2. For a given fund, don't attribute more to a funding source than the
11503 source has allocated to that fund.
11504
11505 3. Attribute debits to credits with deadlines before attributing them to
11506 credits without deadlines.  Otherwise attribute to the earliest credits
11507 first, based on the deadline date when present, or on the effective date
11508 when there is no deadline.  Use funding_source_credit.id as a tie-breaker.
11509 This ordering is defined by an ORDER BY clause on the view
11510 acq.ordered_funding_source_credit.
11511
11512 Start by truncating the table acq.debit_attribution.  Then insert a row
11513 into that table for each attribution.  If a debit cannot be fully
11514 attributed, insert a row for the unattributable balance, with the
11515 funding_source_credit and credit_amount columns NULL.
11516 */
11517 DECLARE
11518         curr_fund_source_bal RECORD;
11519         seqno                INT;     -- sequence num for credits applicable to a fund
11520         fund_credit          RECORD;  -- current row in temp t_fund_credit table
11521         fc                   RECORD;  -- used for loading t_fund_credit table
11522         sc                   RECORD;  -- used for loading t_fund_credit table
11523         --
11524         -- Used exclusively in the main loop:
11525         --
11526         deb                 RECORD;   -- current row from acq.fund_debit table
11527         curr_credit_bal     RECORD;   -- current row from temp t_credit table
11528         debit_balance       NUMERIC;  -- amount left to attribute for current debit
11529         conv_debit_balance  NUMERIC;  -- debit balance in currency of the fund
11530         attr_amount         NUMERIC;  -- amount being attributed, in currency of debit
11531         conv_attr_amount    NUMERIC;  -- amount being attributed, in currency of source
11532         conv_cred_balance   NUMERIC;  -- credit_balance in the currency of the fund
11533         conv_alloc_balance  NUMERIC;  -- allocated balance in the currency of the fund
11534         attrib_count        INT;      -- populates id of acq.debit_attribution
11535 BEGIN
11536         --
11537         -- Load a temporary table.  For each combination of fund and funding source,
11538         -- load an entry with the total amount allocated to that fund by that source.
11539         -- This sum may reflect transfers as well as original allocations.  We will
11540         -- reduce this balance whenever we attribute debits to it.
11541         --
11542         CREATE TEMP TABLE t_fund_source_bal
11543         ON COMMIT DROP AS
11544                 SELECT
11545                         fund AS fund,
11546                         funding_source AS source,
11547                         sum( amount ) AS balance
11548                 FROM
11549                         acq.fund_allocation
11550                 GROUP BY
11551                         fund,
11552                         funding_source
11553                 HAVING
11554                         sum( amount ) > 0;
11555         --
11556         CREATE INDEX t_fund_source_bal_idx
11557                 ON t_fund_source_bal( fund, source );
11558         -------------------------------------------------------------------------------
11559         --
11560         -- Load another temporary table.  For each fund, load zero or more
11561         -- funding source credits from which that fund can get money.
11562         --
11563         CREATE TEMP TABLE t_fund_credit (
11564                 fund        INT,
11565                 seq         INT,
11566                 credit      INT
11567         ) ON COMMIT DROP;
11568         --
11569         FOR fc IN
11570                 SELECT DISTINCT fund
11571                 FROM acq.fund_allocation
11572                 ORDER BY fund
11573         LOOP                  -- Loop over the funds
11574                 seqno := 1;
11575                 FOR sc IN
11576                         SELECT
11577                                 ofsc.id
11578                         FROM
11579                                 acq.ordered_funding_source_credit AS ofsc
11580                         WHERE
11581                                 ofsc.funding_source IN
11582                                 (
11583                                         SELECT funding_source
11584                                         FROM acq.fund_allocation
11585                                         WHERE fund = fc.fund
11586                                 )
11587                 ORDER BY
11588                     ofsc.sort_priority,
11589                     ofsc.sort_date,
11590                     ofsc.id
11591                 LOOP                        -- Add each credit to the list
11592                         INSERT INTO t_fund_credit (
11593                                 fund,
11594                                 seq,
11595                                 credit
11596                         ) VALUES (
11597                                 fc.fund,
11598                                 seqno,
11599                                 sc.id
11600                         );
11601                         --RAISE NOTICE 'Fund % credit %', fc.fund, sc.id;
11602                         seqno := seqno + 1;
11603                 END LOOP;     -- Loop over credits for a given fund
11604         END LOOP;         -- Loop over funds
11605         --
11606         CREATE INDEX t_fund_credit_idx
11607                 ON t_fund_credit( fund, seq );
11608         -------------------------------------------------------------------------------
11609         --
11610         -- Load yet another temporary table.  This one is a list of funding source
11611         -- credits, with their balances.  We shall reduce those balances as we
11612         -- attribute debits to them.
11613         --
11614         CREATE TEMP TABLE t_credit
11615         ON COMMIT DROP AS
11616         SELECT
11617             fsc.id AS credit,
11618             fsc.funding_source AS source,
11619             fsc.amount AS balance,
11620             fs.currency_type AS currency_type
11621         FROM
11622             acq.funding_source_credit AS fsc,
11623             acq.funding_source fs
11624         WHERE
11625             fsc.funding_source = fs.id
11626                         AND fsc.amount > 0;
11627         --
11628         CREATE INDEX t_credit_idx
11629                 ON t_credit( credit );
11630         --
11631         -------------------------------------------------------------------------------
11632         --
11633         -- Now that we have loaded the lookup tables: loop through the debits,
11634         -- attributing each one to one or more funding source credits.
11635         --
11636         truncate table acq.debit_attribution;
11637         --
11638         attrib_count := 0;
11639         FOR deb in
11640                 SELECT
11641                         fd.id,
11642                         fd.fund,
11643                         fd.amount,
11644                         f.currency_type,
11645                         fd.encumbrance
11646                 FROM
11647                         acq.fund_debit fd,
11648                         acq.fund f
11649                 WHERE
11650                         fd.fund = f.id
11651                 ORDER BY
11652                         fd.id
11653         LOOP
11654                 --RAISE NOTICE 'Debit %, fund %', deb.id, deb.fund;
11655                 --
11656                 debit_balance := deb.amount;
11657                 --
11658                 -- Loop over the funding source credits that are eligible
11659                 -- to pay for this debit
11660                 --
11661                 FOR fund_credit IN
11662                         SELECT
11663                                 credit
11664                         FROM
11665                                 t_fund_credit
11666                         WHERE
11667                                 fund = deb.fund
11668                         ORDER BY
11669                                 seq
11670                 LOOP
11671                         --RAISE NOTICE '   Examining credit %', fund_credit.credit;
11672                         --
11673                         -- Look up the balance for this credit.  If it's zero, then
11674                         -- it's not useful, so treat it as if you didn't find it.
11675                         -- (Actually there shouldn't be any zero balances in the table,
11676                         -- but we check just to make sure.)
11677                         --
11678                         SELECT *
11679                         INTO curr_credit_bal
11680                         FROM t_credit
11681                         WHERE
11682                                 credit = fund_credit.credit
11683                                 AND balance > 0;
11684                         --
11685                         IF curr_credit_bal IS NULL THEN
11686                                 --
11687                                 -- This credit is exhausted; try the next one.
11688                                 --
11689                                 CONTINUE;
11690                         END IF;
11691                         --
11692                         --
11693                         -- At this point we have an applicable credit with some money left.
11694                         -- Now see if the relevant funding_source has any money left.
11695                         --
11696                         -- Look up the balance of the allocation for this combination of
11697                         -- fund and source.  If you find such an entry, but it has a zero
11698                         -- balance, then it's not useful, so treat it as unfound.
11699                         -- (Actually there shouldn't be any zero balances in the table,
11700                         -- but we check just to make sure.)
11701                         --
11702                         SELECT *
11703                         INTO curr_fund_source_bal
11704                         FROM t_fund_source_bal
11705                         WHERE
11706                                 fund = deb.fund
11707                                 AND source = curr_credit_bal.source
11708                                 AND balance > 0;
11709                         --
11710                         IF curr_fund_source_bal IS NULL THEN
11711                                 --
11712                                 -- This fund/source doesn't exist or is already exhausted,
11713                                 -- so we can't use this credit.  Go on to the next one.
11714                                 --
11715                                 CONTINUE;
11716                         END IF;
11717                         --
11718                         -- Convert the available balances to the currency of the fund
11719                         --
11720                         conv_alloc_balance := curr_fund_source_bal.balance * acq.exchange_ratio(
11721                                 curr_credit_bal.currency_type, deb.currency_type );
11722                         conv_cred_balance := curr_credit_bal.balance * acq.exchange_ratio(
11723                                 curr_credit_bal.currency_type, deb.currency_type );
11724                         --
11725                         -- Determine how much we can attribute to this credit: the minimum
11726                         -- of the debit amount, the fund/source balance, and the
11727                         -- credit balance
11728                         --
11729                         --RAISE NOTICE '   deb bal %', debit_balance;
11730                         --RAISE NOTICE '      source % balance %', curr_credit_bal.source, conv_alloc_balance;
11731                         --RAISE NOTICE '      credit % balance %', curr_credit_bal.credit, conv_cred_balance;
11732                         --
11733                         conv_attr_amount := NULL;
11734                         attr_amount := debit_balance;
11735                         --
11736                         IF attr_amount > conv_alloc_balance THEN
11737                                 attr_amount := conv_alloc_balance;
11738                                 conv_attr_amount := curr_fund_source_bal.balance;
11739                         END IF;
11740                         IF attr_amount > conv_cred_balance THEN
11741                                 attr_amount := conv_cred_balance;
11742                                 conv_attr_amount := curr_credit_bal.balance;
11743                         END IF;
11744                         --
11745                         -- If we're attributing all of one of the balances, then that's how
11746                         -- much we will deduct from the balances, and we already captured
11747                         -- that amount above.  Otherwise we must convert the amount of the
11748                         -- attribution from the currency of the fund back to the currency of
11749                         -- the funding source.
11750                         --
11751                         IF conv_attr_amount IS NULL THEN
11752                                 conv_attr_amount := attr_amount * acq.exchange_ratio(
11753                                         deb.currency_type, curr_credit_bal.currency_type );
11754                         END IF;
11755                         --
11756                         -- Insert a row to record the attribution
11757                         --
11758                         attrib_count := attrib_count + 1;
11759                         INSERT INTO acq.debit_attribution (
11760                                 id,
11761                                 fund_debit,
11762                                 debit_amount,
11763                                 funding_source_credit,
11764                                 credit_amount
11765                         ) VALUES (
11766                                 attrib_count,
11767                                 deb.id,
11768                                 attr_amount,
11769                                 curr_credit_bal.credit,
11770                                 conv_attr_amount
11771                         );
11772                         --
11773                         -- Subtract the attributed amount from the various balances
11774                         --
11775                         debit_balance := debit_balance - attr_amount;
11776                         curr_fund_source_bal.balance := curr_fund_source_bal.balance - conv_attr_amount;
11777                         --
11778                         IF curr_fund_source_bal.balance <= 0 THEN
11779                                 --
11780                                 -- This allocation is exhausted.  Delete it so
11781                                 -- that we don't waste time looking at it again.
11782                                 --
11783                                 DELETE FROM t_fund_source_bal
11784                                 WHERE
11785                                         fund = curr_fund_source_bal.fund
11786                                         AND source = curr_fund_source_bal.source;
11787                         ELSE
11788                                 UPDATE t_fund_source_bal
11789                                 SET balance = balance - conv_attr_amount
11790                                 WHERE
11791                                         fund = curr_fund_source_bal.fund
11792                                         AND source = curr_fund_source_bal.source;
11793                         END IF;
11794                         --
11795                         IF curr_credit_bal.balance <= 0 THEN
11796                                 --
11797                                 -- This funding source credit is exhausted.  Delete it
11798                                 -- so that we don't waste time looking at it again.
11799                                 --
11800                                 --DELETE FROM t_credit
11801                                 --WHERE
11802                                 --      credit = curr_credit_bal.credit;
11803                                 --
11804                                 DELETE FROM t_fund_credit
11805                                 WHERE
11806                                         credit = curr_credit_bal.credit;
11807                         ELSE
11808                                 UPDATE t_credit
11809                                 SET balance = curr_credit_bal.balance
11810                                 WHERE
11811                                         credit = curr_credit_bal.credit;
11812                         END IF;
11813                         --
11814                         -- Are we done with this debit yet?
11815                         --
11816                         IF debit_balance <= 0 THEN
11817                                 EXIT;       -- We've fully attributed this debit; stop looking at credits.
11818                         END IF;
11819                 END LOOP;       -- End loop over credits
11820                 --
11821                 IF debit_balance <> 0 THEN
11822                         --
11823                         -- We weren't able to attribute this debit, or at least not
11824                         -- all of it.  Insert a row for the unattributed balance.
11825                         --
11826                         attrib_count := attrib_count + 1;
11827                         INSERT INTO acq.debit_attribution (
11828                                 id,
11829                                 fund_debit,
11830                                 debit_amount,
11831                                 funding_source_credit,
11832                                 credit_amount
11833                         ) VALUES (
11834                                 attrib_count,
11835                                 deb.id,
11836                                 debit_balance,
11837                                 NULL,
11838                                 NULL
11839                         );
11840                 END IF;
11841         END LOOP;   -- End of loop over debits
11842 END;
11843 $$ LANGUAGE 'plpgsql';
11844
11845 CREATE OR REPLACE FUNCTION extract_marc_field ( TEXT, BIGINT, TEXT, TEXT ) RETURNS TEXT AS $$
11846 DECLARE
11847     query TEXT;
11848     output TEXT;
11849 BEGIN
11850     query := $q$
11851         SELECT  regexp_replace(
11852                     oils_xpath_string(
11853                         $q$ || quote_literal($3) || $q$,
11854                         marc,
11855                         ' '
11856                     ),
11857                     $q$ || quote_literal($4) || $q$,
11858                     '',
11859                     'g')
11860           FROM  $q$ || $1 || $q$
11861           WHERE id = $q$ || $2;
11862
11863     EXECUTE query INTO output;
11864
11865     -- RAISE NOTICE 'query: %, output; %', query, output;
11866
11867     RETURN output;
11868 END;
11869 $$ LANGUAGE PLPGSQL IMMUTABLE;
11870
11871 CREATE OR REPLACE FUNCTION extract_marc_field ( TEXT, BIGINT, TEXT ) RETURNS TEXT AS $$
11872     SELECT extract_marc_field($1,$2,$3,'');
11873 $$ LANGUAGE SQL IMMUTABLE;
11874
11875 CREATE OR REPLACE FUNCTION asset.merge_record_assets( target_record BIGINT, source_record BIGINT ) RETURNS INT AS $func$
11876 DECLARE
11877     moved_objects INT := 0;
11878     source_cn     asset.call_number%ROWTYPE;
11879     target_cn     asset.call_number%ROWTYPE;
11880     metarec       metabib.metarecord%ROWTYPE;
11881     hold          action.hold_request%ROWTYPE;
11882     ser_rec       serial.record_entry%ROWTYPE;
11883     uri_count     INT := 0;
11884     counter       INT := 0;
11885     uri_datafield TEXT;
11886     uri_text      TEXT := '';
11887 BEGIN
11888
11889     -- move any 856 entries on records that have at least one MARC-mapped URI entry
11890     SELECT  INTO uri_count COUNT(*)
11891       FROM  asset.uri_call_number_map m
11892             JOIN asset.call_number cn ON (m.call_number = cn.id)
11893       WHERE cn.record = source_record;
11894
11895     IF uri_count > 0 THEN
11896
11897         SELECT  COUNT(*) INTO counter
11898           FROM  oils_xpath_table(
11899                     'id',
11900                     'marc',
11901                     'biblio.record_entry',
11902                     '//*[@tag="856"]',
11903                     'id=' || source_record
11904                 ) as t(i int,c text);
11905
11906         FOR i IN 1 .. counter LOOP
11907             SELECT  '<datafield xmlns="http://www.loc.gov/MARC21/slim"' ||
11908                         ' tag="856"' ||
11909                         ' ind1="' || FIRST(ind1) || '"'  ||
11910                         ' ind2="' || FIRST(ind2) || '">' ||
11911                         array_to_string(
11912                             array_accum(
11913                                 '<subfield code="' || subfield || '">' ||
11914                                 regexp_replace(
11915                                     regexp_replace(
11916                                         regexp_replace(data,'&','&amp;','g'),
11917                                         '>', '&gt;', 'g'
11918                                     ),
11919                                     '<', '&lt;', 'g'
11920                                 ) || '</subfield>'
11921                             ), ''
11922                         ) || '</datafield>' INTO uri_datafield
11923               FROM  oils_xpath_table(
11924                         'id',
11925                         'marc',
11926                         'biblio.record_entry',
11927                         '//*[@tag="856"][position()=' || i || ']/@ind1|' ||
11928                         '//*[@tag="856"][position()=' || i || ']/@ind2|' ||
11929                         '//*[@tag="856"][position()=' || i || ']/*/@code|' ||
11930                         '//*[@tag="856"][position()=' || i || ']/*[@code]',
11931                         'id=' || source_record
11932                     ) as t(id int,ind1 text, ind2 text,subfield text,data text);
11933
11934             uri_text := uri_text || uri_datafield;
11935         END LOOP;
11936
11937         IF uri_text <> '' THEN
11938             UPDATE  biblio.record_entry
11939               SET   marc = regexp_replace(marc,'(</[^>]*record>)', uri_text || E'\\1')
11940               WHERE id = target_record;
11941         END IF;
11942
11943     END IF;
11944
11945     -- Find and move metarecords to the target record
11946     SELECT  INTO metarec *
11947       FROM  metabib.metarecord
11948       WHERE master_record = source_record;
11949
11950     IF FOUND THEN
11951         UPDATE  metabib.metarecord
11952           SET   master_record = target_record,
11953             mods = NULL
11954           WHERE id = metarec.id;
11955
11956         moved_objects := moved_objects + 1;
11957     END IF;
11958
11959     -- Find call numbers attached to the source ...
11960     FOR source_cn IN SELECT * FROM asset.call_number WHERE record = source_record LOOP
11961
11962         SELECT  INTO target_cn *
11963           FROM  asset.call_number
11964           WHERE label = source_cn.label
11965             AND owning_lib = source_cn.owning_lib
11966             AND record = target_record;
11967
11968         -- ... and if there's a conflicting one on the target ...
11969         IF FOUND THEN
11970
11971             -- ... move the copies to that, and ...
11972             UPDATE  asset.copy
11973               SET   call_number = target_cn.id
11974               WHERE call_number = source_cn.id;
11975
11976             -- ... move V holds to the move-target call number
11977             FOR hold IN SELECT * FROM action.hold_request WHERE target = source_cn.id AND hold_type = 'V' LOOP
11978
11979                 UPDATE  action.hold_request
11980                   SET   target = target_cn.id
11981                   WHERE id = hold.id;
11982
11983                 moved_objects := moved_objects + 1;
11984             END LOOP;
11985
11986         -- ... if not ...
11987         ELSE
11988             -- ... just move the call number to the target record
11989             UPDATE  asset.call_number
11990               SET   record = target_record
11991               WHERE id = source_cn.id;
11992         END IF;
11993
11994         moved_objects := moved_objects + 1;
11995     END LOOP;
11996
11997     -- Find T holds targeting the source record ...
11998     FOR hold IN SELECT * FROM action.hold_request WHERE target = source_record AND hold_type = 'T' LOOP
11999
12000         -- ... and move them to the target record
12001         UPDATE  action.hold_request
12002           SET   target = target_record
12003           WHERE id = hold.id;
12004
12005         moved_objects := moved_objects + 1;
12006     END LOOP;
12007
12008     -- Find serial records targeting the source record ...
12009     FOR ser_rec IN SELECT * FROM serial.record_entry WHERE record = source_record LOOP
12010         -- ... and move them to the target record
12011         UPDATE  serial.record_entry
12012           SET   record = target_record
12013           WHERE id = ser_rec.id;
12014
12015         moved_objects := moved_objects + 1;
12016     END LOOP;
12017
12018     -- Finally, "delete" the source record
12019     DELETE FROM biblio.record_entry WHERE id = source_record;
12020
12021     -- That's all, folks!
12022     RETURN moved_objects;
12023 END;
12024 $func$ LANGUAGE plpgsql;
12025
12026 CREATE OR REPLACE FUNCTION acq.transfer_fund(
12027         old_fund   IN INT,
12028         old_amount IN NUMERIC,     -- in currency of old fund
12029         new_fund   IN INT,
12030         new_amount IN NUMERIC,     -- in currency of new fund
12031         user_id    IN INT,
12032         xfer_note  IN TEXT         -- to be recorded in acq.fund_transfer
12033         -- ,funding_source_in IN INT  -- if user wants to specify a funding source (see notes)
12034 ) RETURNS VOID AS $$
12035 /* -------------------------------------------------------------------------------
12036
12037 Function to transfer money from one fund to another.
12038
12039 A transfer is represented as a pair of entries in acq.fund_allocation, with a
12040 negative amount for the old (losing) fund and a positive amount for the new
12041 (gaining) fund.  In some cases there may be more than one such pair of entries
12042 in order to pull the money from different funding sources, or more specifically
12043 from different funding source credits.  For each such pair there is also an
12044 entry in acq.fund_transfer.
12045
12046 Since funding_source is a non-nullable column in acq.fund_allocation, we must
12047 choose a funding source for the transferred money to come from.  This choice
12048 must meet two constraints, so far as possible:
12049
12050 1. The amount transferred from a given funding source must not exceed the
12051 amount allocated to the old fund by the funding source.  To that end we
12052 compare the amount being transferred to the amount allocated.
12053
12054 2. We shouldn't transfer money that has already been spent or encumbered, as
12055 defined by the funding attribution process.  We attribute expenses to the
12056 oldest funding source credits first.  In order to avoid transferring that
12057 attributed money, we reverse the priority, transferring from the newest funding
12058 source credits first.  There can be no guarantee that this approach will
12059 avoid overcommitting a fund, but no other approach can do any better.
12060
12061 In this context the age of a funding source credit is defined by the
12062 deadline_date for credits with deadline_dates, and by the effective_date for
12063 credits without deadline_dates, with the proviso that credits with deadline_dates
12064 are all considered "older" than those without.
12065
12066 ----------
12067
12068 In the signature for this function, there is one last parameter commented out,
12069 named "funding_source_in".  Correspondingly, the WHERE clause for the query
12070 driving the main loop has an OR clause commented out, which references the
12071 funding_source_in parameter.
12072
12073 If these lines are uncommented, this function will allow the user optionally to
12074 restrict a fund transfer to a specified funding source.  If the source
12075 parameter is left NULL, then there will be no such restriction.
12076
12077 ------------------------------------------------------------------------------- */
12078 DECLARE
12079         same_currency      BOOLEAN;
12080         currency_ratio     NUMERIC;
12081         old_fund_currency  TEXT;
12082         old_remaining      NUMERIC;  -- in currency of old fund
12083         new_fund_currency  TEXT;
12084         new_fund_active    BOOLEAN;
12085         new_remaining      NUMERIC;  -- in currency of new fund
12086         curr_old_amt       NUMERIC;  -- in currency of old fund
12087         curr_new_amt       NUMERIC;  -- in currency of new fund
12088         source_addition    NUMERIC;  -- in currency of funding source
12089         source_deduction   NUMERIC;  -- in currency of funding source
12090         orig_allocated_amt NUMERIC;  -- in currency of funding source
12091         allocated_amt      NUMERIC;  -- in currency of fund
12092         source             RECORD;
12093 BEGIN
12094         --
12095         -- Sanity checks
12096         --
12097         IF old_fund IS NULL THEN
12098                 RAISE EXCEPTION 'acq.transfer_fund: old fund id is NULL';
12099         END IF;
12100         --
12101         IF old_amount IS NULL THEN
12102                 RAISE EXCEPTION 'acq.transfer_fund: amount to transfer is NULL';
12103         END IF;
12104         --
12105         -- The new fund and its amount must be both NULL or both not NULL.
12106         --
12107         IF new_fund IS NOT NULL AND new_amount IS NULL THEN
12108                 RAISE EXCEPTION 'acq.transfer_fund: amount to transfer to receiving fund is NULL';
12109         END IF;
12110         --
12111         IF new_fund IS NULL AND new_amount IS NOT NULL THEN
12112                 RAISE EXCEPTION 'acq.transfer_fund: receiving fund is NULL, its amount is not NULL';
12113         END IF;
12114         --
12115         IF user_id IS NULL THEN
12116                 RAISE EXCEPTION 'acq.transfer_fund: user id is NULL';
12117         END IF;
12118         --
12119         -- Initialize the amounts to be transferred, each denominated
12120         -- in the currency of its respective fund.  They will be
12121         -- reduced on each iteration of the loop.
12122         --
12123         old_remaining := old_amount;
12124         new_remaining := new_amount;
12125         --
12126         -- RAISE NOTICE 'Transferring % in fund % to % in fund %',
12127         --      old_amount, old_fund, new_amount, new_fund;
12128         --
12129         -- Get the currency types of the old and new funds.
12130         --
12131         SELECT
12132                 currency_type
12133         INTO
12134                 old_fund_currency
12135         FROM
12136                 acq.fund
12137         WHERE
12138                 id = old_fund;
12139         --
12140         IF old_fund_currency IS NULL THEN
12141                 RAISE EXCEPTION 'acq.transfer_fund: old fund id % is not defined', old_fund;
12142         END IF;
12143         --
12144         IF new_fund IS NOT NULL THEN
12145                 SELECT
12146                         currency_type,
12147                         active
12148                 INTO
12149                         new_fund_currency,
12150                         new_fund_active
12151                 FROM
12152                         acq.fund
12153                 WHERE
12154                         id = new_fund;
12155                 --
12156                 IF new_fund_currency IS NULL THEN
12157                         RAISE EXCEPTION 'acq.transfer_fund: new fund id % is not defined', new_fund;
12158                 ELSIF NOT new_fund_active THEN
12159                         --
12160                         -- No point in putting money into a fund from whence you can't spend it
12161                         --
12162                         RAISE EXCEPTION 'acq.transfer_fund: new fund id % is inactive', new_fund;
12163                 END IF;
12164                 --
12165                 IF new_amount = old_amount THEN
12166                         same_currency := true;
12167                         currency_ratio := 1;
12168                 ELSE
12169                         --
12170                         -- We'll have to translate currency between funds.  We presume that
12171                         -- the calling code has already applied an appropriate exchange rate,
12172                         -- so we'll apply the same conversion to each sub-transfer.
12173                         --
12174                         same_currency := false;
12175                         currency_ratio := new_amount / old_amount;
12176                 END IF;
12177         END IF;
12178         --
12179         -- Identify the funding source(s) from which we want to transfer the money.
12180         -- The principle is that we want to transfer the newest money first, because
12181         -- we spend the oldest money first.  The priority for spending is defined
12182         -- by a sort of the view acq.ordered_funding_source_credit.
12183         --
12184         FOR source in
12185                 SELECT
12186                         ofsc.id,
12187                         ofsc.funding_source,
12188                         ofsc.amount,
12189                         ofsc.amount * acq.exchange_ratio( fs.currency_type, old_fund_currency )
12190                                 AS converted_amt,
12191                         fs.currency_type
12192                 FROM
12193                         acq.ordered_funding_source_credit AS ofsc,
12194                         acq.funding_source fs
12195                 WHERE
12196                         ofsc.funding_source = fs.id
12197                         and ofsc.funding_source IN
12198                         (
12199                                 SELECT funding_source
12200                                 FROM acq.fund_allocation
12201                                 WHERE fund = old_fund
12202                         )
12203                         -- and
12204                         -- (
12205                         --      ofsc.funding_source = funding_source_in
12206                         --      OR funding_source_in IS NULL
12207                         -- )
12208                 ORDER BY
12209                         ofsc.sort_priority desc,
12210                         ofsc.sort_date desc,
12211                         ofsc.id desc
12212         LOOP
12213                 --
12214                 -- Determine how much money the old fund got from this funding source,
12215                 -- denominated in the currency types of the source and of the fund.
12216                 -- This result may reflect transfers from previous iterations.
12217                 --
12218                 SELECT
12219                         COALESCE( sum( amount ), 0 ),
12220                         COALESCE( sum( amount )
12221                                 * acq.exchange_ratio( source.currency_type, old_fund_currency ), 0 )
12222                 INTO
12223                         orig_allocated_amt,     -- in currency of the source
12224                         allocated_amt           -- in currency of the old fund
12225                 FROM
12226                         acq.fund_allocation
12227                 WHERE
12228                         fund = old_fund
12229                         and funding_source = source.funding_source;
12230                 --
12231                 -- Determine how much to transfer from this credit, in the currency
12232                 -- of the fund.   Begin with the amount remaining to be attributed:
12233                 --
12234                 curr_old_amt := old_remaining;
12235                 --
12236                 -- Can't attribute more than was allocated from the fund:
12237                 --
12238                 IF curr_old_amt > allocated_amt THEN
12239                         curr_old_amt := allocated_amt;
12240                 END IF;
12241                 --
12242                 -- Can't attribute more than the amount of the current credit:
12243                 --
12244                 IF curr_old_amt > source.converted_amt THEN
12245                         curr_old_amt := source.converted_amt;
12246                 END IF;
12247                 --
12248                 curr_old_amt := trunc( curr_old_amt, 2 );
12249                 --
12250                 old_remaining := old_remaining - curr_old_amt;
12251                 --
12252                 -- Determine the amount to be deducted, if any,
12253                 -- from the old allocation.
12254                 --
12255                 IF old_remaining > 0 THEN
12256                         --
12257                         -- In this case we're using the whole allocation, so use that
12258                         -- amount directly instead of applying a currency translation
12259                         -- and thereby inviting round-off errors.
12260                         --
12261                         source_deduction := - orig_allocated_amt;
12262                 ELSE
12263                         source_deduction := trunc(
12264                                 ( - curr_old_amt ) *
12265                                         acq.exchange_ratio( old_fund_currency, source.currency_type ),
12266                                 2 );
12267                 END IF;
12268                 --
12269                 IF source_deduction <> 0 THEN
12270                         --
12271                         -- Insert negative allocation for old fund in fund_allocation,
12272                         -- converted into the currency of the funding source
12273                         --
12274                         INSERT INTO acq.fund_allocation (
12275                                 funding_source,
12276                                 fund,
12277                                 amount,
12278                                 allocator,
12279                                 note
12280                         ) VALUES (
12281                                 source.funding_source,
12282                                 old_fund,
12283                                 source_deduction,
12284                                 user_id,
12285                                 'Transfer to fund ' || new_fund
12286                         );
12287                 END IF;
12288                 --
12289                 IF new_fund IS NOT NULL THEN
12290                         --
12291                         -- Determine how much to add to the new fund, in
12292                         -- its currency, and how much remains to be added:
12293                         --
12294                         IF same_currency THEN
12295                                 curr_new_amt := curr_old_amt;
12296                         ELSE
12297                                 IF old_remaining = 0 THEN
12298                                         --
12299                                         -- This is the last iteration, so nothing should be left
12300                                         --
12301                                         curr_new_amt := new_remaining;
12302                                         new_remaining := 0;
12303                                 ELSE
12304                                         curr_new_amt := trunc( curr_old_amt * currency_ratio, 2 );
12305                                         new_remaining := new_remaining - curr_new_amt;
12306                                 END IF;
12307                         END IF;
12308                         --
12309                         -- Determine how much to add, if any,
12310                         -- to the new fund's allocation.
12311                         --
12312                         IF old_remaining > 0 THEN
12313                                 --
12314                                 -- In this case we're using the whole allocation, so use that amount
12315                                 -- amount directly instead of applying a currency translation and
12316                                 -- thereby inviting round-off errors.
12317                                 --
12318                                 source_addition := orig_allocated_amt;
12319                         ELSIF source.currency_type = old_fund_currency THEN
12320                                 --
12321                                 -- In this case we don't need a round trip currency translation,
12322                                 -- thereby inviting round-off errors:
12323                                 --
12324                                 source_addition := curr_old_amt;
12325                         ELSE
12326                                 source_addition := trunc(
12327                                         curr_new_amt *
12328                                                 acq.exchange_ratio( new_fund_currency, source.currency_type ),
12329                                         2 );
12330                         END IF;
12331                         --
12332                         IF source_addition <> 0 THEN
12333                                 --
12334                                 -- Insert positive allocation for new fund in fund_allocation,
12335                                 -- converted to the currency of the founding source
12336                                 --
12337                                 INSERT INTO acq.fund_allocation (
12338                                         funding_source,
12339                                         fund,
12340                                         amount,
12341                                         allocator,
12342                                         note
12343                                 ) VALUES (
12344                                         source.funding_source,
12345                                         new_fund,
12346                                         source_addition,
12347                                         user_id,
12348                                         'Transfer from fund ' || old_fund
12349                                 );
12350                         END IF;
12351                 END IF;
12352                 --
12353                 IF trunc( curr_old_amt, 2 ) <> 0
12354                 OR trunc( curr_new_amt, 2 ) <> 0 THEN
12355                         --
12356                         -- Insert row in fund_transfer, using amounts in the currency of the funds
12357                         --
12358                         INSERT INTO acq.fund_transfer (
12359                                 src_fund,
12360                                 src_amount,
12361                                 dest_fund,
12362                                 dest_amount,
12363                                 transfer_user,
12364                                 note,
12365                                 funding_source_credit
12366                         ) VALUES (
12367                                 old_fund,
12368                                 trunc( curr_old_amt, 2 ),
12369                                 new_fund,
12370                                 trunc( curr_new_amt, 2 ),
12371                                 user_id,
12372                                 xfer_note,
12373                                 source.id
12374                         );
12375                 END IF;
12376                 --
12377                 if old_remaining <= 0 THEN
12378                         EXIT;                   -- Nothing more to be transferred
12379                 END IF;
12380         END LOOP;
12381 END;
12382 $$ LANGUAGE plpgsql;
12383
12384 CREATE OR REPLACE FUNCTION acq.propagate_funds_by_org_unit(
12385         old_year INTEGER,
12386         user_id INTEGER,
12387         org_unit_id INTEGER
12388 ) RETURNS VOID AS $$
12389 DECLARE
12390 --
12391 new_id      INT;
12392 old_fund    RECORD;
12393 org_found   BOOLEAN;
12394 --
12395 BEGIN
12396         --
12397         -- Sanity checks
12398         --
12399         IF old_year IS NULL THEN
12400                 RAISE EXCEPTION 'Input year argument is NULL';
12401         ELSIF old_year NOT BETWEEN 2008 and 2200 THEN
12402                 RAISE EXCEPTION 'Input year is out of range';
12403         END IF;
12404         --
12405         IF user_id IS NULL THEN
12406                 RAISE EXCEPTION 'Input user id argument is NULL';
12407         END IF;
12408         --
12409         IF org_unit_id IS NULL THEN
12410                 RAISE EXCEPTION 'Org unit id argument is NULL';
12411         ELSE
12412                 SELECT TRUE INTO org_found
12413                 FROM actor.org_unit
12414                 WHERE id = org_unit_id;
12415                 --
12416                 IF org_found IS NULL THEN
12417                         RAISE EXCEPTION 'Org unit id is invalid';
12418                 END IF;
12419         END IF;
12420         --
12421         -- Loop over the applicable funds
12422         --
12423         FOR old_fund in SELECT * FROM acq.fund
12424         WHERE
12425                 year = old_year
12426                 AND propagate
12427                 AND org = org_unit_id
12428         LOOP
12429                 BEGIN
12430                         INSERT INTO acq.fund (
12431                                 org,
12432                                 name,
12433                                 year,
12434                                 currency_type,
12435                                 code,
12436                                 rollover,
12437                                 propagate,
12438                                 balance_warning_percent,
12439                                 balance_stop_percent
12440                         ) VALUES (
12441                                 old_fund.org,
12442                                 old_fund.name,
12443                                 old_year + 1,
12444                                 old_fund.currency_type,
12445                                 old_fund.code,
12446                                 old_fund.rollover,
12447                                 true,
12448                                 old_fund.balance_warning_percent,
12449                                 old_fund.balance_stop_percent
12450                         )
12451                         RETURNING id INTO new_id;
12452                 EXCEPTION
12453                         WHEN unique_violation THEN
12454                                 --RAISE NOTICE 'Fund % already propagated', old_fund.id;
12455                                 CONTINUE;
12456                 END;
12457                 --RAISE NOTICE 'Propagating fund % to fund %',
12458                 --      old_fund.code, new_id;
12459         END LOOP;
12460 END;
12461 $$ LANGUAGE plpgsql;
12462
12463 CREATE OR REPLACE FUNCTION acq.propagate_funds_by_org_tree(
12464         old_year INTEGER,
12465         user_id INTEGER,
12466         org_unit_id INTEGER
12467 ) RETURNS VOID AS $$
12468 DECLARE
12469 --
12470 new_id      INT;
12471 old_fund    RECORD;
12472 org_found   BOOLEAN;
12473 --
12474 BEGIN
12475         --
12476         -- Sanity checks
12477         --
12478         IF old_year IS NULL THEN
12479                 RAISE EXCEPTION 'Input year argument is NULL';
12480         ELSIF old_year NOT BETWEEN 2008 and 2200 THEN
12481                 RAISE EXCEPTION 'Input year is out of range';
12482         END IF;
12483         --
12484         IF user_id IS NULL THEN
12485                 RAISE EXCEPTION 'Input user id argument is NULL';
12486         END IF;
12487         --
12488         IF org_unit_id IS NULL THEN
12489                 RAISE EXCEPTION 'Org unit id argument is NULL';
12490         ELSE
12491                 SELECT TRUE INTO org_found
12492                 FROM actor.org_unit
12493                 WHERE id = org_unit_id;
12494                 --
12495                 IF org_found IS NULL THEN
12496                         RAISE EXCEPTION 'Org unit id is invalid';
12497                 END IF;
12498         END IF;
12499         --
12500         -- Loop over the applicable funds
12501         --
12502         FOR old_fund in SELECT * FROM acq.fund
12503         WHERE
12504                 year = old_year
12505                 AND propagate
12506                 AND org in (
12507                         SELECT id FROM actor.org_unit_descendants( org_unit_id )
12508                 )
12509         LOOP
12510                 BEGIN
12511                         INSERT INTO acq.fund (
12512                                 org,
12513                                 name,
12514                                 year,
12515                                 currency_type,
12516                                 code,
12517                                 rollover,
12518                                 propagate,
12519                                 balance_warning_percent,
12520                                 balance_stop_percent
12521                         ) VALUES (
12522                                 old_fund.org,
12523                                 old_fund.name,
12524                                 old_year + 1,
12525                                 old_fund.currency_type,
12526                                 old_fund.code,
12527                                 old_fund.rollover,
12528                                 true,
12529                                 old_fund.balance_warning_percent,
12530                                 old_fund.balance_stop_percent
12531                         )
12532                         RETURNING id INTO new_id;
12533                 EXCEPTION
12534                         WHEN unique_violation THEN
12535                                 --RAISE NOTICE 'Fund % already propagated', old_fund.id;
12536                                 CONTINUE;
12537                 END;
12538                 --RAISE NOTICE 'Propagating fund % to fund %',
12539                 --      old_fund.code, new_id;
12540         END LOOP;
12541 END;
12542 $$ LANGUAGE plpgsql;
12543
12544 CREATE OR REPLACE FUNCTION acq.rollover_funds_by_org_unit(
12545         old_year INTEGER,
12546         user_id INTEGER,
12547         org_unit_id INTEGER
12548 ) RETURNS VOID AS $$
12549 DECLARE
12550 --
12551 new_fund    INT;
12552 new_year    INT := old_year + 1;
12553 org_found   BOOL;
12554 xfer_amount NUMERIC;
12555 roll_fund   RECORD;
12556 deb         RECORD;
12557 detail      RECORD;
12558 --
12559 BEGIN
12560         --
12561         -- Sanity checks
12562         --
12563         IF old_year IS NULL THEN
12564                 RAISE EXCEPTION 'Input year argument is NULL';
12565     ELSIF old_year NOT BETWEEN 2008 and 2200 THEN
12566         RAISE EXCEPTION 'Input year is out of range';
12567         END IF;
12568         --
12569         IF user_id IS NULL THEN
12570                 RAISE EXCEPTION 'Input user id argument is NULL';
12571         END IF;
12572         --
12573         IF org_unit_id IS NULL THEN
12574                 RAISE EXCEPTION 'Org unit id argument is NULL';
12575         ELSE
12576                 --
12577                 -- Validate the org unit
12578                 --
12579                 SELECT TRUE
12580                 INTO org_found
12581                 FROM actor.org_unit
12582                 WHERE id = org_unit_id;
12583                 --
12584                 IF org_found IS NULL THEN
12585                         RAISE EXCEPTION 'Org unit id % is invalid', org_unit_id;
12586                 END IF;
12587         END IF;
12588         --
12589         -- Loop over the propagable funds to identify the details
12590         -- from the old fund plus the id of the new one, if it exists.
12591         --
12592         FOR roll_fund in
12593         SELECT
12594             oldf.id AS old_fund,
12595             oldf.org,
12596             oldf.name,
12597             oldf.currency_type,
12598             oldf.code,
12599                 oldf.rollover,
12600             newf.id AS new_fund_id
12601         FROM
12602         acq.fund AS oldf
12603         LEFT JOIN acq.fund AS newf
12604                 ON ( oldf.code = newf.code )
12605         WHERE
12606                     oldf.org = org_unit_id
12607                 and oldf.year = old_year
12608                 and oldf.propagate
12609         and newf.year = new_year
12610         LOOP
12611                 --RAISE NOTICE 'Processing fund %', roll_fund.old_fund;
12612                 --
12613                 IF roll_fund.new_fund_id IS NULL THEN
12614                         --
12615                         -- The old fund hasn't been propagated yet.  Propagate it now.
12616                         --
12617                         INSERT INTO acq.fund (
12618                                 org,
12619                                 name,
12620                                 year,
12621                                 currency_type,
12622                                 code,
12623                                 rollover,
12624                                 propagate,
12625                                 balance_warning_percent,
12626                                 balance_stop_percent
12627                         ) VALUES (
12628                                 roll_fund.org,
12629                                 roll_fund.name,
12630                                 new_year,
12631                                 roll_fund.currency_type,
12632                                 roll_fund.code,
12633                                 true,
12634                                 true,
12635                                 roll_fund.balance_warning_percent,
12636                                 roll_fund.balance_stop_percent
12637                         )
12638                         RETURNING id INTO new_fund;
12639                 ELSE
12640                         new_fund = roll_fund.new_fund_id;
12641                 END IF;
12642                 --
12643                 -- Determine the amount to transfer
12644                 --
12645                 SELECT amount
12646                 INTO xfer_amount
12647                 FROM acq.fund_spent_balance
12648                 WHERE fund = roll_fund.old_fund;
12649                 --
12650                 IF xfer_amount <> 0 THEN
12651                         IF roll_fund.rollover THEN
12652                                 --
12653                                 -- Transfer balance from old fund to new
12654                                 --
12655                                 --RAISE NOTICE 'Transferring % from fund % to %', xfer_amount, roll_fund.old_fund, new_fund;
12656                                 --
12657                                 PERFORM acq.transfer_fund(
12658                                         roll_fund.old_fund,
12659                                         xfer_amount,
12660                                         new_fund,
12661                                         xfer_amount,
12662                                         user_id,
12663                                         'Rollover'
12664                                 );
12665                         ELSE
12666                                 --
12667                                 -- Transfer balance from old fund to the void
12668                                 --
12669                                 -- RAISE NOTICE 'Transferring % from fund % to the void', xfer_amount, roll_fund.old_fund;
12670                                 --
12671                                 PERFORM acq.transfer_fund(
12672                                         roll_fund.old_fund,
12673                                         xfer_amount,
12674                                         NULL,
12675                                         NULL,
12676                                         user_id,
12677                                         'Rollover'
12678                                 );
12679                         END IF;
12680                 END IF;
12681                 --
12682                 IF roll_fund.rollover THEN
12683                         --
12684                         -- Move any lineitems from the old fund to the new one
12685                         -- where the associated debit is an encumbrance.
12686                         --
12687                         -- Any other tables tying expenditure details to funds should
12688                         -- receive similar treatment.  At this writing there are none.
12689                         --
12690                         UPDATE acq.lineitem_detail
12691                         SET fund = new_fund
12692                         WHERE
12693                         fund = roll_fund.old_fund -- this condition may be redundant
12694                         AND fund_debit in
12695                         (
12696                                 SELECT id
12697                                 FROM acq.fund_debit
12698                                 WHERE
12699                                 fund = roll_fund.old_fund
12700                                 AND encumbrance
12701                         );
12702                         --
12703                         -- Move encumbrance debits from the old fund to the new fund
12704                         --
12705                         UPDATE acq.fund_debit
12706                         SET fund = new_fund
12707                         wHERE
12708                                 fund = roll_fund.old_fund
12709                                 AND encumbrance;
12710                 END IF;
12711                 --
12712                 -- Mark old fund as inactive, now that we've closed it
12713                 --
12714                 UPDATE acq.fund
12715                 SET active = FALSE
12716                 WHERE id = roll_fund.old_fund;
12717         END LOOP;
12718 END;
12719 $$ LANGUAGE plpgsql;
12720
12721 CREATE OR REPLACE FUNCTION acq.rollover_funds_by_org_tree(
12722         old_year INTEGER,
12723         user_id INTEGER,
12724         org_unit_id INTEGER
12725 ) RETURNS VOID AS $$
12726 DECLARE
12727 --
12728 new_fund    INT;
12729 new_year    INT := old_year + 1;
12730 org_found   BOOL;
12731 xfer_amount NUMERIC;
12732 roll_fund   RECORD;
12733 deb         RECORD;
12734 detail      RECORD;
12735 --
12736 BEGIN
12737         --
12738         -- Sanity checks
12739         --
12740         IF old_year IS NULL THEN
12741                 RAISE EXCEPTION 'Input year argument is NULL';
12742     ELSIF old_year NOT BETWEEN 2008 and 2200 THEN
12743         RAISE EXCEPTION 'Input year is out of range';
12744         END IF;
12745         --
12746         IF user_id IS NULL THEN
12747                 RAISE EXCEPTION 'Input user id argument is NULL';
12748         END IF;
12749         --
12750         IF org_unit_id IS NULL THEN
12751                 RAISE EXCEPTION 'Org unit id argument is NULL';
12752         ELSE
12753                 --
12754                 -- Validate the org unit
12755                 --
12756                 SELECT TRUE
12757                 INTO org_found
12758                 FROM actor.org_unit
12759                 WHERE id = org_unit_id;
12760                 --
12761                 IF org_found IS NULL THEN
12762                         RAISE EXCEPTION 'Org unit id % is invalid', org_unit_id;
12763                 END IF;
12764         END IF;
12765         --
12766         -- Loop over the propagable funds to identify the details
12767         -- from the old fund plus the id of the new one, if it exists.
12768         --
12769         FOR roll_fund in
12770         SELECT
12771             oldf.id AS old_fund,
12772             oldf.org,
12773             oldf.name,
12774             oldf.currency_type,
12775             oldf.code,
12776                 oldf.rollover,
12777             newf.id AS new_fund_id
12778         FROM
12779         acq.fund AS oldf
12780         LEFT JOIN acq.fund AS newf
12781                 ON ( oldf.code = newf.code )
12782         WHERE
12783                     oldf.year = old_year
12784                 AND oldf.propagate
12785         AND newf.year = new_year
12786                 AND oldf.org in (
12787                         SELECT id FROM actor.org_unit_descendants( org_unit_id )
12788                 )
12789         LOOP
12790                 --RAISE NOTICE 'Processing fund %', roll_fund.old_fund;
12791                 --
12792                 IF roll_fund.new_fund_id IS NULL THEN
12793                         --
12794                         -- The old fund hasn't been propagated yet.  Propagate it now.
12795                         --
12796                         INSERT INTO acq.fund (
12797                                 org,
12798                                 name,
12799                                 year,
12800                                 currency_type,
12801                                 code,
12802                                 rollover,
12803                                 propagate,
12804                                 balance_warning_percent,
12805                                 balance_stop_percent
12806                         ) VALUES (
12807                                 roll_fund.org,
12808                                 roll_fund.name,
12809                                 new_year,
12810                                 roll_fund.currency_type,
12811                                 roll_fund.code,
12812                                 true,
12813                                 true,
12814                                 roll_fund.balance_warning_percent,
12815                                 roll_fund.balance_stop_percent
12816                         )
12817                         RETURNING id INTO new_fund;
12818                 ELSE
12819                         new_fund = roll_fund.new_fund_id;
12820                 END IF;
12821                 --
12822                 -- Determine the amount to transfer
12823                 --
12824                 SELECT amount
12825                 INTO xfer_amount
12826                 FROM acq.fund_spent_balance
12827                 WHERE fund = roll_fund.old_fund;
12828                 --
12829                 IF xfer_amount <> 0 THEN
12830                         IF roll_fund.rollover THEN
12831                                 --
12832                                 -- Transfer balance from old fund to new
12833                                 --
12834                                 --RAISE NOTICE 'Transferring % from fund % to %', xfer_amount, roll_fund.old_fund, new_fund;
12835                                 --
12836                                 PERFORM acq.transfer_fund(
12837                                         roll_fund.old_fund,
12838                                         xfer_amount,
12839                                         new_fund,
12840                                         xfer_amount,
12841                                         user_id,
12842                                         'Rollover'
12843                                 );
12844                         ELSE
12845                                 --
12846                                 -- Transfer balance from old fund to the void
12847                                 --
12848                                 -- RAISE NOTICE 'Transferring % from fund % to the void', xfer_amount, roll_fund.old_fund;
12849                                 --
12850                                 PERFORM acq.transfer_fund(
12851                                         roll_fund.old_fund,
12852                                         xfer_amount,
12853                                         NULL,
12854                                         NULL,
12855                                         user_id,
12856                                         'Rollover'
12857                                 );
12858                         END IF;
12859                 END IF;
12860                 --
12861                 IF roll_fund.rollover THEN
12862                         --
12863                         -- Move any lineitems from the old fund to the new one
12864                         -- where the associated debit is an encumbrance.
12865                         --
12866                         -- Any other tables tying expenditure details to funds should
12867                         -- receive similar treatment.  At this writing there are none.
12868                         --
12869                         UPDATE acq.lineitem_detail
12870                         SET fund = new_fund
12871                         WHERE
12872                         fund = roll_fund.old_fund -- this condition may be redundant
12873                         AND fund_debit in
12874                         (
12875                                 SELECT id
12876                                 FROM acq.fund_debit
12877                                 WHERE
12878                                 fund = roll_fund.old_fund
12879                                 AND encumbrance
12880                         );
12881                         --
12882                         -- Move encumbrance debits from the old fund to the new fund
12883                         --
12884                         UPDATE acq.fund_debit
12885                         SET fund = new_fund
12886                         wHERE
12887                                 fund = roll_fund.old_fund
12888                                 AND encumbrance;
12889                 END IF;
12890                 --
12891                 -- Mark old fund as inactive, now that we've closed it
12892                 --
12893                 UPDATE acq.fund
12894                 SET active = FALSE
12895                 WHERE id = roll_fund.old_fund;
12896         END LOOP;
12897 END;
12898 $$ LANGUAGE plpgsql;
12899
12900 CREATE OR REPLACE FUNCTION public.remove_commas( TEXT ) RETURNS TEXT AS $$
12901     SELECT regexp_replace($1, ',', '', 'g');
12902 $$ LANGUAGE SQL STRICT IMMUTABLE;
12903
12904 CREATE OR REPLACE FUNCTION public.remove_whitespace( TEXT ) RETURNS TEXT AS $$
12905     SELECT regexp_replace(normalize_space($1), E'\\s+', '', 'g');
12906 $$ LANGUAGE SQL STRICT IMMUTABLE;
12907
12908 CREATE TABLE acq.distribution_formula_application (
12909     id BIGSERIAL PRIMARY KEY,
12910     creator INT NOT NULL REFERENCES actor.usr(id) DEFERRABLE INITIALLY DEFERRED,
12911     create_time TIMESTAMP WITH TIME ZONE NOT NULL DEFAULT NOW(),
12912     formula INT NOT NULL
12913         REFERENCES acq.distribution_formula(id) DEFERRABLE INITIALLY DEFERRED,
12914     lineitem INT NOT NULL
12915         REFERENCES acq.lineitem( id )
12916                 ON DELETE CASCADE
12917                 DEFERRABLE INITIALLY DEFERRED
12918 );
12919
12920 CREATE INDEX acqdfa_df_idx
12921     ON acq.distribution_formula_application(formula);
12922 CREATE INDEX acqdfa_li_idx
12923     ON acq.distribution_formula_application(lineitem);
12924 CREATE INDEX acqdfa_creator_idx
12925     ON acq.distribution_formula_application(creator);
12926
12927 CREATE TABLE acq.user_request_type (
12928     id      SERIAL  PRIMARY KEY,
12929     label   TEXT    NOT NULL UNIQUE -- i18n-ize
12930 );
12931
12932 INSERT INTO acq.user_request_type (id,label) VALUES (1, oils_i18n_gettext('1', 'Books', 'aurt', 'label'));
12933 INSERT INTO acq.user_request_type (id,label) VALUES (2, oils_i18n_gettext('2', 'Journal/Magazine & Newspaper Articles', 'aurt', 'label'));
12934 INSERT INTO acq.user_request_type (id,label) VALUES (3, oils_i18n_gettext('3', 'Audiobooks', 'aurt', 'label'));
12935 INSERT INTO acq.user_request_type (id,label) VALUES (4, oils_i18n_gettext('4', 'Music', 'aurt', 'label'));
12936 INSERT INTO acq.user_request_type (id,label) VALUES (5, oils_i18n_gettext('5', 'DVDs', 'aurt', 'label'));
12937
12938 SELECT SETVAL('acq.user_request_type_id_seq'::TEXT, 6);
12939
12940 CREATE TABLE acq.cancel_reason (
12941         id            SERIAL            PRIMARY KEY,
12942         org_unit      INTEGER           NOT NULL REFERENCES actor.org_unit( id )
12943                                         DEFERRABLE INITIALLY DEFERRED,
12944         label         TEXT              NOT NULL,
12945         description   TEXT              NOT NULL,
12946         keep_debits   BOOL              NOT NULL DEFAULT FALSE,
12947         CONSTRAINT acq_cancel_reason_one_per_org_unit UNIQUE( org_unit, label )
12948 );
12949
12950 -- Reserve ids 1-999 for stock reasons
12951 -- Reserve ids 1000-1999 for EDI reasons
12952 -- 2000+ are available for staff to create
12953
12954 SELECT SETVAL('acq.cancel_reason_id_seq'::TEXT, 2000);
12955
12956 CREATE TABLE acq.user_request (
12957     id                  SERIAL  PRIMARY KEY,
12958     usr                 INT     NOT NULL REFERENCES actor.usr (id), -- requesting user
12959     hold                BOOL    NOT NULL DEFAULT TRUE,
12960
12961     pickup_lib          INT     NOT NULL REFERENCES actor.org_unit (id), -- pickup lib
12962     holdable_formats    TEXT,           -- nullable, for use in hold creation
12963     phone_notify        TEXT,
12964     email_notify        BOOL    NOT NULL DEFAULT TRUE,
12965     lineitem            INT     REFERENCES acq.lineitem (id) ON DELETE CASCADE,
12966     eg_bib              BIGINT  REFERENCES biblio.record_entry (id) ON DELETE CASCADE,
12967     request_date        TIMESTAMPTZ NOT NULL DEFAULT NOW(), -- when they requested it
12968     need_before         TIMESTAMPTZ,    -- don't create holds after this
12969     max_fee             TEXT,
12970
12971     request_type        INT     NOT NULL REFERENCES acq.user_request_type (id),
12972     isxn                TEXT,
12973     title               TEXT,
12974     volume              TEXT,
12975     author              TEXT,
12976     article_title       TEXT,
12977     article_pages       TEXT,
12978     publisher           TEXT,
12979     location            TEXT,
12980     pubdate             TEXT,
12981     mentioned           TEXT,
12982     other_info          TEXT,
12983         cancel_reason       INT              REFERENCES acq.cancel_reason( id )
12984                                              DEFERRABLE INITIALLY DEFERRED
12985 );
12986
12987 CREATE TABLE acq.lineitem_alert_text (
12988         id               SERIAL         PRIMARY KEY,
12989         code             TEXT           NOT NULL,
12990         description      TEXT,
12991         owning_lib       INT            NOT NULL
12992                                         REFERENCES actor.org_unit(id)
12993                                         DEFERRABLE INITIALLY DEFERRED,
12994         CONSTRAINT alert_one_code_per_org UNIQUE (code, owning_lib)
12995 );
12996
12997 ALTER TABLE acq.lineitem_note
12998         ADD COLUMN alert_text    INT     REFERENCES acq.lineitem_alert_text(id)
12999                                          DEFERRABLE INITIALLY DEFERRED;
13000
13001 -- add ON DELETE CASCADE clause
13002
13003 ALTER TABLE acq.lineitem_note
13004         DROP CONSTRAINT lineitem_note_lineitem_fkey;
13005
13006 ALTER TABLE acq.lineitem_note
13007         ADD FOREIGN KEY (lineitem) REFERENCES acq.lineitem( id )
13008                 ON DELETE CASCADE
13009                 DEFERRABLE INITIALLY DEFERRED;
13010
13011 ALTER TABLE acq.lineitem_note
13012         ADD COLUMN vendor_public BOOLEAN NOT NULL DEFAULT FALSE;
13013
13014 CREATE TABLE acq.invoice_method (
13015     code    TEXT    PRIMARY KEY,
13016     name    TEXT    NOT NULL -- i18n-ize
13017 );
13018 INSERT INTO acq.invoice_method (code,name) VALUES ('EDI',oils_i18n_gettext('EDI', 'EDI', 'acqim', 'name'));
13019 INSERT INTO acq.invoice_method (code,name) VALUES ('PPR',oils_i18n_gettext('PPR', 'Paper', 'acqit', 'name'));
13020
13021 CREATE TABLE acq.invoice_payment_method (
13022         code      TEXT     PRIMARY KEY,
13023         name      TEXT     NOT NULL
13024 );
13025
13026 CREATE TABLE acq.invoice (
13027     id             SERIAL      PRIMARY KEY,
13028     receiver       INT         NOT NULL REFERENCES actor.org_unit (id),
13029     provider       INT         NOT NULL REFERENCES acq.provider (id),
13030     shipper        INT         NOT NULL REFERENCES acq.provider (id),
13031     recv_date      TIMESTAMPTZ NOT NULL DEFAULT NOW(),
13032     recv_method    TEXT        NOT NULL REFERENCES acq.invoice_method (code) DEFAULT 'EDI',
13033     inv_type       TEXT,       -- A "type" field is desired, but no idea what goes here
13034     inv_ident      TEXT        NOT NULL, -- vendor-supplied invoice id/number
13035         payment_auth   TEXT,
13036         payment_method TEXT        REFERENCES acq.invoice_payment_method (code)
13037                                    DEFERRABLE INITIALLY DEFERRED,
13038         note           TEXT,
13039     complete       BOOL        NOT NULL DEFAULT FALSE,
13040     CONSTRAINT inv_ident_once_per_provider UNIQUE(provider, inv_ident)
13041 );
13042
13043 CREATE TABLE acq.invoice_entry (
13044     id              SERIAL      PRIMARY KEY,
13045     invoice         INT         NOT NULL REFERENCES acq.invoice (id) ON DELETE CASCADE,
13046     purchase_order  INT         REFERENCES acq.purchase_order (id) ON UPDATE CASCADE ON DELETE SET NULL,
13047     lineitem        INT         REFERENCES acq.lineitem (id) ON UPDATE CASCADE ON DELETE SET NULL,
13048     inv_item_count  INT         NOT NULL, -- How many acqlids did they say they sent
13049     phys_item_count INT, -- and how many did staff count
13050     note            TEXT,
13051     billed_per_item BOOL,
13052     cost_billed     NUMERIC(8,2),
13053     actual_cost     NUMERIC(8,2),
13054         amount_paid     NUMERIC (8,2)
13055 );
13056
13057 CREATE TABLE acq.invoice_item_type (
13058     code    TEXT    PRIMARY KEY,
13059     name    TEXT    NOT NULL, -- i18n-ize
13060         prorate BOOL    NOT NULL DEFAULT FALSE
13061 );
13062
13063 INSERT INTO acq.invoice_item_type (code,name) VALUES ('TAX',oils_i18n_gettext('TAX', 'Tax', 'aiit', 'name'));
13064 INSERT INTO acq.invoice_item_type (code,name) VALUES ('PRO',oils_i18n_gettext('PRO', 'Processing Fee', 'aiit', 'name'));
13065 INSERT INTO acq.invoice_item_type (code,name) VALUES ('SHP',oils_i18n_gettext('SHP', 'Shipping Charge', 'aiit', 'name'));
13066 INSERT INTO acq.invoice_item_type (code,name) VALUES ('HND',oils_i18n_gettext('HND', 'Handling Charge', 'aiit', 'name'));
13067 INSERT INTO acq.invoice_item_type (code,name) VALUES ('ITM',oils_i18n_gettext('ITM', 'Non-library Item', 'aiit', 'name'));
13068 INSERT INTO acq.invoice_item_type (code,name) VALUES ('SUB',oils_i18n_gettext('SUB', 'Serial Subscription', 'aiit', 'name'));
13069
13070 CREATE TABLE acq.po_item (
13071         id              SERIAL      PRIMARY KEY,
13072         purchase_order  INT         REFERENCES acq.purchase_order (id)
13073                                     ON UPDATE CASCADE ON DELETE SET NULL
13074                                     DEFERRABLE INITIALLY DEFERRED,
13075         fund_debit      INT         REFERENCES acq.fund_debit (id)
13076                                     DEFERRABLE INITIALLY DEFERRED,
13077         inv_item_type   TEXT        NOT NULL
13078                                     REFERENCES acq.invoice_item_type (code)
13079                                     DEFERRABLE INITIALLY DEFERRED,
13080         title           TEXT,
13081         author          TEXT,
13082         note            TEXT,
13083         estimated_cost  NUMERIC(8,2),
13084         fund            INT         REFERENCES acq.fund (id)
13085                                     DEFERRABLE INITIALLY DEFERRED,
13086         target          BIGINT
13087 );
13088
13089 CREATE TABLE acq.invoice_item ( -- for invoice-only debits: taxes/fees/non-bib items/etc
13090     id              SERIAL      PRIMARY KEY,
13091     invoice         INT         NOT NULL REFERENCES acq.invoice (id) ON UPDATE CASCADE ON DELETE CASCADE,
13092     purchase_order  INT         REFERENCES acq.purchase_order (id) ON UPDATE CASCADE ON DELETE SET NULL,
13093     fund_debit      INT         REFERENCES acq.fund_debit (id),
13094     inv_item_type   TEXT        NOT NULL REFERENCES acq.invoice_item_type (code),
13095     title           TEXT,
13096     author          TEXT,
13097     note            TEXT,
13098     cost_billed     NUMERIC(8,2),
13099     actual_cost     NUMERIC(8,2),
13100     fund            INT         REFERENCES acq.fund (id)
13101                                 DEFERRABLE INITIALLY DEFERRED,
13102     amount_paid     NUMERIC (8,2),
13103     po_item         INT         REFERENCES acq.po_item (id)
13104                                 DEFERRABLE INITIALLY DEFERRED,
13105     target          BIGINT
13106 );
13107
13108 CREATE TABLE acq.edi_message (
13109     id               SERIAL          PRIMARY KEY,
13110     account          INTEGER         REFERENCES acq.edi_account(id)
13111                                      DEFERRABLE INITIALLY DEFERRED,
13112     remote_file      TEXT,
13113     create_time      TIMESTAMPTZ     NOT NULL DEFAULT now(),
13114     translate_time   TIMESTAMPTZ,
13115     process_time     TIMESTAMPTZ,
13116     error_time       TIMESTAMPTZ,
13117     status           TEXT            NOT NULL DEFAULT 'new'
13118                                      CONSTRAINT status_value CHECK
13119                                      ( status IN (
13120                                         'new',          -- needs to be translated
13121                                         'translated',   -- needs to be processed
13122                                         'trans_error',  -- error in translation step
13123                                         'processed',    -- needs to have remote_file deleted
13124                                         'proc_error',   -- error in processing step
13125                                         'delete_error', -- error in deletion
13126                                         'retry',        -- need to retry
13127                                         'complete'      -- done
13128                                      )),
13129     edi              TEXT,
13130     jedi             TEXT,
13131     error            TEXT,
13132     purchase_order   INT             REFERENCES acq.purchase_order
13133                                      DEFERRABLE INITIALLY DEFERRED,
13134     message_type     TEXT            NOT NULL CONSTRAINT valid_message_type
13135                                      CHECK ( message_type IN (
13136                                         'ORDERS',
13137                                         'ORDRSP',
13138                                         'INVOIC',
13139                                         'OSTENQ',
13140                                         'OSTRPT'
13141                                      ))
13142 );
13143
13144 ALTER TABLE actor.org_address ADD COLUMN san TEXT;
13145
13146 ALTER TABLE acq.provider_address
13147         ADD COLUMN fax_phone TEXT;
13148
13149 ALTER TABLE acq.provider_contact_address
13150         ADD COLUMN fax_phone TEXT;
13151
13152 CREATE TABLE acq.provider_note (
13153     id      SERIAL              PRIMARY KEY,
13154     provider    INT             NOT NULL REFERENCES acq.provider (id) DEFERRABLE INITIALLY DEFERRED,
13155     creator     INT             NOT NULL REFERENCES actor.usr (id) DEFERRABLE INITIALLY DEFERRED,
13156     editor      INT             NOT NULL REFERENCES actor.usr (id) DEFERRABLE INITIALLY DEFERRED,
13157     create_time TIMESTAMP WITH TIME ZONE    NOT NULL DEFAULT NOW(),
13158     edit_time   TIMESTAMP WITH TIME ZONE    NOT NULL DEFAULT NOW(),
13159     value       TEXT            NOT NULL
13160 );
13161 CREATE INDEX acq_pro_note_pro_idx      ON acq.provider_note ( provider );
13162 CREATE INDEX acq_pro_note_creator_idx  ON acq.provider_note ( creator );
13163 CREATE INDEX acq_pro_note_editor_idx   ON acq.provider_note ( editor );
13164
13165 -- For each fund: the total allocation from all sources, in the
13166 -- currency of the fund (or 0 if there are no allocations)
13167
13168 CREATE VIEW acq.all_fund_allocation_total AS
13169 SELECT
13170     f.id AS fund,
13171     COALESCE( SUM( a.amount * acq.exchange_ratio(
13172         s.currency_type, f.currency_type))::numeric(100,2), 0 )
13173     AS amount
13174 FROM
13175     acq.fund f
13176         LEFT JOIN acq.fund_allocation a
13177             ON a.fund = f.id
13178         LEFT JOIN acq.funding_source s
13179             ON a.funding_source = s.id
13180 GROUP BY
13181     f.id;
13182
13183 -- For every fund: the total encumbrances (or 0 if none),
13184 -- in the currency of the fund.
13185
13186 CREATE VIEW acq.all_fund_encumbrance_total AS
13187 SELECT
13188         f.id AS fund,
13189         COALESCE( encumb.amount, 0 ) AS amount
13190 FROM
13191         acq.fund AS f
13192                 LEFT JOIN (
13193                         SELECT
13194                                 fund,
13195                                 sum( amount ) AS amount
13196                         FROM
13197                                 acq.fund_debit
13198                         WHERE
13199                                 encumbrance
13200                         GROUP BY fund
13201                 ) AS encumb
13202                         ON f.id = encumb.fund;
13203
13204 -- For every fund: the total spent (or 0 if none),
13205 -- in the currency of the fund.
13206
13207 CREATE VIEW acq.all_fund_spent_total AS
13208 SELECT
13209     f.id AS fund,
13210     COALESCE( spent.amount, 0 ) AS amount
13211 FROM
13212     acq.fund AS f
13213         LEFT JOIN (
13214             SELECT
13215                 fund,
13216                 sum( amount ) AS amount
13217             FROM
13218                 acq.fund_debit
13219             WHERE
13220                 NOT encumbrance
13221             GROUP BY fund
13222         ) AS spent
13223             ON f.id = spent.fund;
13224
13225 -- For each fund: the amount not yet spent, in the currency
13226 -- of the fund.  May include encumbrances.
13227
13228 CREATE VIEW acq.all_fund_spent_balance AS
13229 SELECT
13230         c.fund,
13231         c.amount - d.amount AS amount
13232 FROM acq.all_fund_allocation_total c
13233     LEFT JOIN acq.all_fund_spent_total d USING (fund);
13234
13235 -- For each fund: the amount neither spent nor encumbered,
13236 -- in the currency of the fund
13237
13238 CREATE VIEW acq.all_fund_combined_balance AS
13239 SELECT
13240      a.fund,
13241      a.amount - COALESCE( c.amount, 0 ) AS amount
13242 FROM
13243      acq.all_fund_allocation_total a
13244         LEFT OUTER JOIN (
13245             SELECT
13246                 fund,
13247                 SUM( amount ) AS amount
13248             FROM
13249                 acq.fund_debit
13250             GROUP BY
13251                 fund
13252         ) AS c USING ( fund );
13253
13254 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 $$
13255 DECLARE
13256         suffix TEXT;
13257         bucket_row RECORD;
13258         picklist_row RECORD;
13259         queue_row RECORD;
13260         folder_row RECORD;
13261 BEGIN
13262
13263     -- do some initial cleanup
13264     UPDATE actor.usr SET card = NULL WHERE id = src_usr;
13265     UPDATE actor.usr SET mailing_address = NULL WHERE id = src_usr;
13266     UPDATE actor.usr SET billing_address = NULL WHERE id = src_usr;
13267
13268     -- actor.*
13269     IF del_cards THEN
13270         DELETE FROM actor.card where usr = src_usr;
13271     ELSE
13272         IF deactivate_cards THEN
13273             UPDATE actor.card SET active = 'f' WHERE usr = src_usr;
13274         END IF;
13275         UPDATE actor.card SET usr = dest_usr WHERE usr = src_usr;
13276     END IF;
13277
13278
13279     IF del_addrs THEN
13280         DELETE FROM actor.usr_address WHERE usr = src_usr;
13281     ELSE
13282         UPDATE actor.usr_address SET usr = dest_usr WHERE usr = src_usr;
13283     END IF;
13284
13285     UPDATE actor.usr_note SET usr = dest_usr WHERE usr = src_usr;
13286     -- dupes are technically OK in actor.usr_standing_penalty, should manually delete them...
13287     UPDATE actor.usr_standing_penalty SET usr = dest_usr WHERE usr = src_usr;
13288     PERFORM actor.usr_merge_rows('actor.usr_org_unit_opt_in', 'usr', src_usr, dest_usr);
13289     PERFORM actor.usr_merge_rows('actor.usr_setting', 'usr', src_usr, dest_usr);
13290
13291     -- permission.*
13292     PERFORM actor.usr_merge_rows('permission.usr_perm_map', 'usr', src_usr, dest_usr);
13293     PERFORM actor.usr_merge_rows('permission.usr_object_perm_map', 'usr', src_usr, dest_usr);
13294     PERFORM actor.usr_merge_rows('permission.usr_grp_map', 'usr', src_usr, dest_usr);
13295     PERFORM actor.usr_merge_rows('permission.usr_work_ou_map', 'usr', src_usr, dest_usr);
13296
13297
13298     -- container.*
13299
13300         -- For each *_bucket table: transfer every bucket belonging to src_usr
13301         -- into the custody of dest_usr.
13302         --
13303         -- In order to avoid colliding with an existing bucket owned by
13304         -- the destination user, append the source user's id (in parenthesese)
13305         -- to the name.  If you still get a collision, add successive
13306         -- spaces to the name and keep trying until you succeed.
13307         --
13308         FOR bucket_row in
13309                 SELECT id, name
13310                 FROM   container.biblio_record_entry_bucket
13311                 WHERE  owner = src_usr
13312         LOOP
13313                 suffix := ' (' || src_usr || ')';
13314                 LOOP
13315                         BEGIN
13316                                 UPDATE  container.biblio_record_entry_bucket
13317                                 SET     owner = dest_usr, name = name || suffix
13318                                 WHERE   id = bucket_row.id;
13319                         EXCEPTION WHEN unique_violation THEN
13320                                 suffix := suffix || ' ';
13321                                 CONTINUE;
13322                         END;
13323                         EXIT;
13324                 END LOOP;
13325         END LOOP;
13326
13327         FOR bucket_row in
13328                 SELECT id, name
13329                 FROM   container.call_number_bucket
13330                 WHERE  owner = src_usr
13331         LOOP
13332                 suffix := ' (' || src_usr || ')';
13333                 LOOP
13334                         BEGIN
13335                                 UPDATE  container.call_number_bucket
13336                                 SET     owner = dest_usr, name = name || suffix
13337                                 WHERE   id = bucket_row.id;
13338                         EXCEPTION WHEN unique_violation THEN
13339                                 suffix := suffix || ' ';
13340                                 CONTINUE;
13341                         END;
13342                         EXIT;
13343                 END LOOP;
13344         END LOOP;
13345
13346         FOR bucket_row in
13347                 SELECT id, name
13348                 FROM   container.copy_bucket
13349                 WHERE  owner = src_usr
13350         LOOP
13351                 suffix := ' (' || src_usr || ')';
13352                 LOOP
13353                         BEGIN
13354                                 UPDATE  container.copy_bucket
13355                                 SET     owner = dest_usr, name = name || suffix
13356                                 WHERE   id = bucket_row.id;
13357                         EXCEPTION WHEN unique_violation THEN
13358                                 suffix := suffix || ' ';
13359                                 CONTINUE;
13360                         END;
13361                         EXIT;
13362                 END LOOP;
13363         END LOOP;
13364
13365         FOR bucket_row in
13366                 SELECT id, name
13367                 FROM   container.user_bucket
13368                 WHERE  owner = src_usr
13369         LOOP
13370                 suffix := ' (' || src_usr || ')';
13371                 LOOP
13372                         BEGIN
13373                                 UPDATE  container.user_bucket
13374                                 SET     owner = dest_usr, name = name || suffix
13375                                 WHERE   id = bucket_row.id;
13376                         EXCEPTION WHEN unique_violation THEN
13377                                 suffix := suffix || ' ';
13378                                 CONTINUE;
13379                         END;
13380                         EXIT;
13381                 END LOOP;
13382         END LOOP;
13383
13384         UPDATE container.user_bucket_item SET target_user = dest_usr WHERE target_user = src_usr;
13385
13386     -- vandelay.*
13387         -- transfer queues the same way we transfer buckets (see above)
13388         FOR queue_row in
13389                 SELECT id, name
13390                 FROM   vandelay.queue
13391                 WHERE  owner = src_usr
13392         LOOP
13393                 suffix := ' (' || src_usr || ')';
13394                 LOOP
13395                         BEGIN
13396                                 UPDATE  vandelay.queue
13397                                 SET     owner = dest_usr, name = name || suffix
13398                                 WHERE   id = queue_row.id;
13399                         EXCEPTION WHEN unique_violation THEN
13400                                 suffix := suffix || ' ';
13401                                 CONTINUE;
13402                         END;
13403                         EXIT;
13404                 END LOOP;
13405         END LOOP;
13406
13407     -- money.*
13408     PERFORM actor.usr_merge_rows('money.collections_tracker', 'usr', src_usr, dest_usr);
13409     PERFORM actor.usr_merge_rows('money.collections_tracker', 'collector', src_usr, dest_usr);
13410     UPDATE money.billable_xact SET usr = dest_usr WHERE usr = src_usr;
13411     UPDATE money.billing SET voider = dest_usr WHERE voider = src_usr;
13412     UPDATE money.bnm_payment SET accepting_usr = dest_usr WHERE accepting_usr = src_usr;
13413
13414     -- action.*
13415     UPDATE action.circulation SET usr = dest_usr WHERE usr = src_usr;
13416     UPDATE action.circulation SET circ_staff = dest_usr WHERE circ_staff = src_usr;
13417     UPDATE action.circulation SET checkin_staff = dest_usr WHERE checkin_staff = src_usr;
13418
13419     UPDATE action.hold_request SET usr = dest_usr WHERE usr = src_usr;
13420     UPDATE action.hold_request SET fulfillment_staff = dest_usr WHERE fulfillment_staff = src_usr;
13421     UPDATE action.hold_request SET requestor = dest_usr WHERE requestor = src_usr;
13422     UPDATE action.hold_notification SET notify_staff = dest_usr WHERE notify_staff = src_usr;
13423
13424     UPDATE action.in_house_use SET staff = dest_usr WHERE staff = src_usr;
13425     UPDATE action.non_cataloged_circulation SET staff = dest_usr WHERE staff = src_usr;
13426     UPDATE action.non_cataloged_circulation SET patron = dest_usr WHERE patron = src_usr;
13427     UPDATE action.non_cat_in_house_use SET staff = dest_usr WHERE staff = src_usr;
13428     UPDATE action.survey_response SET usr = dest_usr WHERE usr = src_usr;
13429
13430     -- acq.*
13431     UPDATE acq.fund_allocation SET allocator = dest_usr WHERE allocator = src_usr;
13432         UPDATE acq.fund_transfer SET transfer_user = dest_usr WHERE transfer_user = src_usr;
13433
13434         -- transfer picklists the same way we transfer buckets (see above)
13435         FOR picklist_row in
13436                 SELECT id, name
13437                 FROM   acq.picklist
13438                 WHERE  owner = src_usr
13439         LOOP
13440                 suffix := ' (' || src_usr || ')';
13441                 LOOP
13442                         BEGIN
13443                                 UPDATE  acq.picklist
13444                                 SET     owner = dest_usr, name = name || suffix
13445                                 WHERE   id = picklist_row.id;
13446                         EXCEPTION WHEN unique_violation THEN
13447                                 suffix := suffix || ' ';
13448                                 CONTINUE;
13449                         END;
13450                         EXIT;
13451                 END LOOP;
13452         END LOOP;
13453
13454     UPDATE acq.purchase_order SET owner = dest_usr WHERE owner = src_usr;
13455     UPDATE acq.po_note SET creator = dest_usr WHERE creator = src_usr;
13456     UPDATE acq.po_note SET editor = dest_usr WHERE editor = src_usr;
13457     UPDATE acq.provider_note SET creator = dest_usr WHERE creator = src_usr;
13458     UPDATE acq.provider_note SET editor = dest_usr WHERE editor = src_usr;
13459     UPDATE acq.lineitem_note SET creator = dest_usr WHERE creator = src_usr;
13460     UPDATE acq.lineitem_note SET editor = dest_usr WHERE editor = src_usr;
13461     UPDATE acq.lineitem_usr_attr_definition SET usr = dest_usr WHERE usr = src_usr;
13462
13463     -- asset.*
13464     UPDATE asset.copy SET creator = dest_usr WHERE creator = src_usr;
13465     UPDATE asset.copy SET editor = dest_usr WHERE editor = src_usr;
13466     UPDATE asset.copy_note SET creator = dest_usr WHERE creator = src_usr;
13467     UPDATE asset.call_number SET creator = dest_usr WHERE creator = src_usr;
13468     UPDATE asset.call_number SET editor = dest_usr WHERE editor = src_usr;
13469     UPDATE asset.call_number_note SET creator = dest_usr WHERE creator = src_usr;
13470
13471     -- serial.*
13472     UPDATE serial.record_entry SET creator = dest_usr WHERE creator = src_usr;
13473     UPDATE serial.record_entry SET editor = dest_usr WHERE editor = src_usr;
13474
13475     -- reporter.*
13476     -- It's not uncommon to define the reporter schema in a replica
13477     -- DB only, so don't assume these tables exist in the write DB.
13478     BEGIN
13479         UPDATE reporter.template SET owner = dest_usr WHERE owner = src_usr;
13480     EXCEPTION WHEN undefined_table THEN
13481         -- do nothing
13482     END;
13483     BEGIN
13484         UPDATE reporter.report SET owner = dest_usr WHERE owner = src_usr;
13485     EXCEPTION WHEN undefined_table THEN
13486         -- do nothing
13487     END;
13488     BEGIN
13489         UPDATE reporter.schedule SET runner = dest_usr WHERE runner = src_usr;
13490     EXCEPTION WHEN undefined_table THEN
13491         -- do nothing
13492     END;
13493     BEGIN
13494                 -- transfer folders the same way we transfer buckets (see above)
13495                 FOR folder_row in
13496                         SELECT id, name
13497                         FROM   reporter.template_folder
13498                         WHERE  owner = src_usr
13499                 LOOP
13500                         suffix := ' (' || src_usr || ')';
13501                         LOOP
13502                                 BEGIN
13503                                         UPDATE  reporter.template_folder
13504                                         SET     owner = dest_usr, name = name || suffix
13505                                         WHERE   id = folder_row.id;
13506                                 EXCEPTION WHEN unique_violation THEN
13507                                         suffix := suffix || ' ';
13508                                         CONTINUE;
13509                                 END;
13510                                 EXIT;
13511                         END LOOP;
13512                 END LOOP;
13513     EXCEPTION WHEN undefined_table THEN
13514         -- do nothing
13515     END;
13516     BEGIN
13517                 -- transfer folders the same way we transfer buckets (see above)
13518                 FOR folder_row in
13519                         SELECT id, name
13520                         FROM   reporter.report_folder
13521                         WHERE  owner = src_usr
13522                 LOOP
13523                         suffix := ' (' || src_usr || ')';
13524                         LOOP
13525                                 BEGIN
13526                                         UPDATE  reporter.report_folder
13527                                         SET     owner = dest_usr, name = name || suffix
13528                                         WHERE   id = folder_row.id;
13529                                 EXCEPTION WHEN unique_violation THEN
13530                                         suffix := suffix || ' ';
13531                                         CONTINUE;
13532                                 END;
13533                                 EXIT;
13534                         END LOOP;
13535                 END LOOP;
13536     EXCEPTION WHEN undefined_table THEN
13537         -- do nothing
13538     END;
13539     BEGIN
13540                 -- transfer folders the same way we transfer buckets (see above)
13541                 FOR folder_row in
13542                         SELECT id, name
13543                         FROM   reporter.output_folder
13544                         WHERE  owner = src_usr
13545                 LOOP
13546                         suffix := ' (' || src_usr || ')';
13547                         LOOP
13548                                 BEGIN
13549                                         UPDATE  reporter.output_folder
13550                                         SET     owner = dest_usr, name = name || suffix
13551                                         WHERE   id = folder_row.id;
13552                                 EXCEPTION WHEN unique_violation THEN
13553                                         suffix := suffix || ' ';
13554                                         CONTINUE;
13555                                 END;
13556                                 EXIT;
13557                         END LOOP;
13558                 END LOOP;
13559     EXCEPTION WHEN undefined_table THEN
13560         -- do nothing
13561     END;
13562
13563     -- Finally, delete the source user
13564     DELETE FROM actor.usr WHERE id = src_usr;
13565
13566 END;
13567 $$ LANGUAGE plpgsql;
13568
13569 -- The "add" trigger functions should protect against existing NULLed values, just in case
13570 CREATE OR REPLACE FUNCTION money.materialized_summary_billing_add () RETURNS TRIGGER AS $$
13571 BEGIN
13572     IF NOT NEW.voided THEN
13573         UPDATE  money.materialized_billable_xact_summary
13574           SET   total_owed = COALESCE(total_owed, 0.0::numeric) + NEW.amount,
13575             last_billing_ts = NEW.billing_ts,
13576             last_billing_note = NEW.note,
13577             last_billing_type = NEW.billing_type,
13578             balance_owed = balance_owed + NEW.amount
13579           WHERE id = NEW.xact;
13580     END IF;
13581
13582     RETURN NEW;
13583 END;
13584 $$ LANGUAGE PLPGSQL;
13585
13586 CREATE OR REPLACE FUNCTION money.materialized_summary_payment_add () RETURNS TRIGGER AS $$
13587 BEGIN
13588     IF NOT NEW.voided THEN
13589         UPDATE  money.materialized_billable_xact_summary
13590           SET   total_paid = COALESCE(total_paid, 0.0::numeric) + NEW.amount,
13591             last_payment_ts = NEW.payment_ts,
13592             last_payment_note = NEW.note,
13593             last_payment_type = TG_ARGV[0],
13594             balance_owed = balance_owed - NEW.amount
13595           WHERE id = NEW.xact;
13596     END IF;
13597
13598     RETURN NEW;
13599 END;
13600 $$ LANGUAGE PLPGSQL;
13601
13602 -- Refresh the mat view with the corrected underlying view
13603 TRUNCATE money.materialized_billable_xact_summary;
13604 INSERT INTO money.materialized_billable_xact_summary SELECT * FROM money.billable_xact_summary;
13605
13606 -- Now redefine the view as a window onto the materialized view
13607 CREATE OR REPLACE VIEW money.billable_xact_summary AS
13608     SELECT * FROM money.materialized_billable_xact_summary;
13609
13610 CREATE OR REPLACE FUNCTION permission.usr_has_perm_at_nd(
13611     user_id    IN INTEGER,
13612     perm_code  IN TEXT
13613 )
13614 RETURNS SETOF INTEGER AS $$
13615 --
13616 -- Return a set of all the org units for which a given user has a given
13617 -- permission, granted directly (not through inheritance from a parent
13618 -- org unit).
13619 --
13620 -- The permissions apply to a minimum depth of the org unit hierarchy,
13621 -- for the org unit(s) to which the user is assigned.  (They also apply
13622 -- to the subordinates of those org units, but we don't report the
13623 -- subordinates here.)
13624 --
13625 -- For purposes of this function, the permission.usr_work_ou_map table
13626 -- defines which users belong to which org units.  I.e. we ignore the
13627 -- home_ou column of actor.usr.
13628 --
13629 -- The result set may contain duplicates, which should be eliminated
13630 -- by a DISTINCT clause.
13631 --
13632 DECLARE
13633     b_super       BOOLEAN;
13634     n_perm        INTEGER;
13635     n_min_depth   INTEGER;
13636     n_work_ou     INTEGER;
13637     n_curr_ou     INTEGER;
13638     n_depth       INTEGER;
13639     n_curr_depth  INTEGER;
13640 BEGIN
13641     --
13642     -- Check for superuser
13643     --
13644     SELECT INTO b_super
13645         super_user
13646     FROM
13647         actor.usr
13648     WHERE
13649         id = user_id;
13650     --
13651     IF NOT FOUND THEN
13652         return;             -- No user?  No permissions.
13653     ELSIF b_super THEN
13654         --
13655         -- Super user has all permissions everywhere
13656         --
13657         FOR n_work_ou IN
13658             SELECT
13659                 id
13660             FROM
13661                 actor.org_unit
13662             WHERE
13663                 parent_ou IS NULL
13664         LOOP
13665             RETURN NEXT n_work_ou;
13666         END LOOP;
13667         RETURN;
13668     END IF;
13669     --
13670     -- Translate the permission name
13671     -- to a numeric permission id
13672     --
13673     SELECT INTO n_perm
13674         id
13675     FROM
13676         permission.perm_list
13677     WHERE
13678         code = perm_code;
13679     --
13680     IF NOT FOUND THEN
13681         RETURN;               -- No such permission
13682     END IF;
13683     --
13684     -- Find the highest-level org unit (i.e. the minimum depth)
13685     -- to which the permission is applied for this user
13686     --
13687     -- This query is modified from the one in permission.usr_perms().
13688     --
13689     SELECT INTO n_min_depth
13690         min( depth )
13691     FROM    (
13692         SELECT depth
13693           FROM permission.usr_perm_map upm
13694          WHERE upm.usr = user_id
13695            AND (upm.perm = n_perm OR upm.perm = -1)
13696                     UNION
13697         SELECT  gpm.depth
13698           FROM  permission.grp_perm_map gpm
13699           WHERE (gpm.perm = n_perm OR gpm.perm = -1)
13700             AND gpm.grp IN (
13701                SELECT   (permission.grp_ancestors(
13702                     (SELECT profile FROM actor.usr WHERE id = user_id)
13703                 )).id
13704             )
13705                     UNION
13706         SELECT  p.depth
13707           FROM  permission.grp_perm_map p
13708           WHERE (p.perm = n_perm OR p.perm = -1)
13709             AND p.grp IN (
13710                 SELECT (permission.grp_ancestors(m.grp)).id
13711                 FROM   permission.usr_grp_map m
13712                 WHERE  m.usr = user_id
13713             )
13714     ) AS x;
13715     --
13716     IF NOT FOUND THEN
13717         RETURN;                -- No such permission for this user
13718     END IF;
13719     --
13720     -- Identify the org units to which the user is assigned.  Note that
13721     -- we pay no attention to the home_ou column in actor.usr.
13722     --
13723     FOR n_work_ou IN
13724         SELECT
13725             work_ou
13726         FROM
13727             permission.usr_work_ou_map
13728         WHERE
13729             usr = user_id
13730     LOOP            -- For each org unit to which the user is assigned
13731         --
13732         -- Determine the level of the org unit by a lookup in actor.org_unit_type.
13733         -- We take it on faith that this depth agrees with the actual hierarchy
13734         -- defined in actor.org_unit.
13735         --
13736         SELECT INTO n_depth
13737             type.depth
13738         FROM
13739             actor.org_unit_type type
13740                 INNER JOIN actor.org_unit ou
13741                     ON ( ou.ou_type = type.id )
13742         WHERE
13743             ou.id = n_work_ou;
13744         --
13745         IF NOT FOUND THEN
13746             CONTINUE;        -- Maybe raise exception?
13747         END IF;
13748         --
13749         -- Compare the depth of the work org unit to the
13750         -- minimum depth, and branch accordingly
13751         --
13752         IF n_depth = n_min_depth THEN
13753             --
13754             -- The org unit is at the right depth, so return it.
13755             --
13756             RETURN NEXT n_work_ou;
13757         ELSIF n_depth > n_min_depth THEN
13758             --
13759             -- Traverse the org unit tree toward the root,
13760             -- until you reach the minimum depth determined above
13761             --
13762             n_curr_depth := n_depth;
13763             n_curr_ou := n_work_ou;
13764             WHILE n_curr_depth > n_min_depth LOOP
13765                 SELECT INTO n_curr_ou
13766                     parent_ou
13767                 FROM
13768                     actor.org_unit
13769                 WHERE
13770                     id = n_curr_ou;
13771                 --
13772                 IF FOUND THEN
13773                     n_curr_depth := n_curr_depth - 1;
13774                 ELSE
13775                     --
13776                     -- This can happen only if the hierarchy defined in
13777                     -- actor.org_unit is corrupted, or out of sync with
13778                     -- the depths defined in actor.org_unit_type.
13779                     -- Maybe we should raise an exception here, instead
13780                     -- of silently ignoring the problem.
13781                     --
13782                     n_curr_ou = NULL;
13783                     EXIT;
13784                 END IF;
13785             END LOOP;
13786             --
13787             IF n_curr_ou IS NOT NULL THEN
13788                 RETURN NEXT n_curr_ou;
13789             END IF;
13790         ELSE
13791             --
13792             -- The permission applies only at a depth greater than the work org unit.
13793             -- Use connectby() to find all dependent org units at the specified depth.
13794             --
13795             FOR n_curr_ou IN
13796                 SELECT ou::INTEGER
13797                 FROM connectby(
13798                         'actor.org_unit',         -- table name
13799                         'id',                     -- key column
13800                         'parent_ou',              -- recursive foreign key
13801                         n_work_ou::TEXT,          -- id of starting point
13802                         (n_min_depth - n_depth)   -- max depth to search, relative
13803                     )                             --   to starting point
13804                     AS t(
13805                         ou text,            -- dependent org unit
13806                         parent_ou text,     -- (ignore)
13807                         level int           -- depth relative to starting point
13808                     )
13809                 WHERE
13810                     level = n_min_depth - n_depth
13811             LOOP
13812                 RETURN NEXT n_curr_ou;
13813             END LOOP;
13814         END IF;
13815         --
13816     END LOOP;
13817     --
13818     RETURN;
13819     --
13820 END;
13821 $$ LANGUAGE 'plpgsql';
13822
13823 ALTER TABLE acq.purchase_order
13824         ADD COLUMN cancel_reason INT
13825                 REFERENCES acq.cancel_reason( id )
13826             DEFERRABLE INITIALLY DEFERRED,
13827         ADD COLUMN prepayment_required BOOLEAN NOT NULL DEFAULT FALSE;
13828
13829 -- Build the history table and lifecycle view
13830 -- for acq.purchase_order
13831
13832 SELECT acq.create_acq_auditor ( 'acq', 'purchase_order' );
13833
13834 CREATE INDEX acq_po_hist_id_idx            ON acq.acq_purchase_order_history( id );
13835
13836 ALTER TABLE acq.lineitem
13837         ADD COLUMN cancel_reason INT
13838                 REFERENCES acq.cancel_reason( id )
13839             DEFERRABLE INITIALLY DEFERRED,
13840         ADD COLUMN estimated_unit_price NUMERIC,
13841         ADD COLUMN claim_policy INT
13842                 REFERENCES acq.claim_policy
13843                 DEFERRABLE INITIALLY DEFERRED,
13844         ALTER COLUMN eg_bib_id SET DATA TYPE bigint;
13845
13846 -- Build the history table and lifecycle view
13847 -- for acq.lineitem
13848
13849 SELECT acq.create_acq_auditor ( 'acq', 'lineitem' );
13850 CREATE INDEX acq_lineitem_hist_id_idx            ON acq.acq_lineitem_history( id );
13851
13852 ALTER TABLE acq.lineitem_detail
13853         ADD COLUMN cancel_reason        INT REFERENCES acq.cancel_reason( id )
13854                                             DEFERRABLE INITIALLY DEFERRED;
13855
13856 ALTER TABLE acq.lineitem_detail
13857         DROP CONSTRAINT lineitem_detail_lineitem_fkey;
13858
13859 ALTER TABLE acq.lineitem_detail
13860         ADD FOREIGN KEY (lineitem) REFERENCES acq.lineitem( id )
13861                 ON DELETE CASCADE
13862                 DEFERRABLE INITIALLY DEFERRED;
13863
13864 ALTER TABLE acq.lineitem_detail DROP CONSTRAINT lineitem_detail_eg_copy_id_fkey;
13865
13866 INSERT INTO acq.cancel_reason ( id, org_unit, label, description ) VALUES (
13867         1, 1, 'invalid_isbn', oils_i18n_gettext( 1, 'ISBN is unrecognizable', 'acqcr', 'label' ));
13868
13869 INSERT INTO acq.cancel_reason ( id, org_unit, label, description ) VALUES (
13870         2, 1, 'postpone', oils_i18n_gettext( 2, 'Title has been postponed', 'acqcr', 'label' ));
13871
13872 CREATE OR REPLACE FUNCTION vandelay.add_field ( target_xml TEXT, source_xml TEXT, field TEXT ) RETURNS TEXT AS $_$
13873
13874     use MARC::Record;
13875     use MARC::File::XML (BinaryEncoding => 'UTF-8');
13876     use strict;
13877
13878     my $target_xml = shift;
13879     my $source_xml = shift;
13880     my $field_spec = shift;
13881
13882     my $target_r = MARC::Record->new_from_xml( $target_xml );
13883     my $source_r = MARC::Record->new_from_xml( $source_xml );
13884
13885     return $target_xml unless ($target_r && $source_r);
13886
13887     my @field_list = split(',', $field_spec);
13888
13889     my %fields;
13890     for my $f (@field_list) {
13891         $f =~ s/^\s*//; $f =~ s/\s*$//;
13892         if ($f =~ /^(.{3})(\w*)(?:\[([^]]*)\])?$/) {
13893             my $field = $1;
13894             $field =~ s/\s+//;
13895             my $sf = $2;
13896             $sf =~ s/\s+//;
13897             my $match = $3;
13898             $match =~ s/^\s*//; $match =~ s/\s*$//;
13899             $fields{$field} = { sf => [ split('', $sf) ] };
13900             if ($match) {
13901                 my ($msf,$mre) = split('~', $match);
13902                 if (length($msf) > 0 and length($mre) > 0) {
13903                     $msf =~ s/^\s*//; $msf =~ s/\s*$//;
13904                     $mre =~ s/^\s*//; $mre =~ s/\s*$//;
13905                     $fields{$field}{match} = { sf => $msf, re => qr/$mre/ };
13906                 }
13907             }
13908         }
13909     }
13910
13911     for my $f ( keys %fields) {
13912         if ( @{$fields{$f}{sf}} ) {
13913             for my $from_field ($source_r->field( $f )) {
13914                 for my $to_field ($target_r->field( $f )) {
13915                     if (exists($fields{$f}{match})) {
13916                         next unless (grep { $_ =~ $fields{$f}{match}{re} } $to_field->subfield($fields{$f}{match}{sf}));
13917                     }
13918                     my @new_sf = map { ($_ => $from_field->subfield($_)) } @{$fields{$f}{sf}};
13919                     $to_field->add_subfields( @new_sf );
13920                 }
13921             }
13922         } else {
13923             my @new_fields = map { $_->clone } $source_r->field( $f );
13924             $target_r->insert_fields_ordered( @new_fields );
13925         }
13926     }
13927
13928     $target_xml = $target_r->as_xml_record;
13929     $target_xml =~ s/^<\?.+?\?>$//mo;
13930     $target_xml =~ s/\n//sgo;
13931     $target_xml =~ s/>\s+</></sgo;
13932
13933     return $target_xml;
13934
13935 $_$ LANGUAGE PLPERLU;
13936
13937 CREATE OR REPLACE FUNCTION vandelay.strip_field ( xml TEXT, field TEXT ) RETURNS TEXT AS $_$
13938
13939     use MARC::Record;
13940     use MARC::File::XML (BinaryEncoding => 'UTF-8');
13941     use strict;
13942
13943     my $xml = shift;
13944     my $r = MARC::Record->new_from_xml( $xml );
13945
13946     return $xml unless ($r);
13947
13948     my $field_spec = shift;
13949     my @field_list = split(',', $field_spec);
13950
13951     my %fields;
13952     for my $f (@field_list) {
13953         $f =~ s/^\s*//; $f =~ s/\s*$//;
13954         if ($f =~ /^(.{3})(\w*)(?:\[([^]]*)\])?$/) {
13955             my $field = $1;
13956             $field =~ s/\s+//;
13957             my $sf = $2;
13958             $sf =~ s/\s+//;
13959             my $match = $3;
13960             $match =~ s/^\s*//; $match =~ s/\s*$//;
13961             $fields{$field} = { sf => [ split('', $sf) ] };
13962             if ($match) {
13963                 my ($msf,$mre) = split('~', $match);
13964                 if (length($msf) > 0 and length($mre) > 0) {
13965                     $msf =~ s/^\s*//; $msf =~ s/\s*$//;
13966                     $mre =~ s/^\s*//; $mre =~ s/\s*$//;
13967                     $fields{$field}{match} = { sf => $msf, re => qr/$mre/ };
13968                 }
13969             }
13970         }
13971     }
13972
13973     for my $f ( keys %fields) {
13974         for my $to_field ($r->field( $f )) {
13975             if (exists($fields{$f}{match})) {
13976                 next unless (grep { $_ =~ $fields{$f}{match}{re} } $to_field->subfield($fields{$f}{match}{sf}));
13977             }
13978
13979             if ( @{$fields{$f}{sf}} ) {
13980                 $to_field->delete_subfield(code => $fields{$f}{sf});
13981             } else {
13982                 $r->delete_field( $to_field );
13983             }
13984         }
13985     }
13986
13987     $xml = $r->as_xml_record;
13988     $xml =~ s/^<\?.+?\?>$//mo;
13989     $xml =~ s/\n//sgo;
13990     $xml =~ s/>\s+</></sgo;
13991
13992     return $xml;
13993
13994 $_$ LANGUAGE PLPERLU;
13995
13996 CREATE OR REPLACE FUNCTION vandelay.replace_field ( target_xml TEXT, source_xml TEXT, field TEXT ) RETURNS TEXT AS $_$
13997     SELECT vandelay.add_field( vandelay.strip_field( $1, $3), $2, $3 );
13998 $_$ LANGUAGE SQL;
13999
14000 CREATE OR REPLACE FUNCTION vandelay.preserve_field ( incumbent_xml TEXT, incoming_xml TEXT, field TEXT ) RETURNS TEXT AS $_$
14001     SELECT vandelay.add_field( vandelay.strip_field( $2, $3), $1, $3 );
14002 $_$ LANGUAGE SQL;
14003
14004 CREATE VIEW action.unfulfilled_hold_max_loop AS
14005         SELECT  hold,
14006                 max(count) AS max
14007         FROM    action.unfulfilled_hold_loops
14008         GROUP BY 1;
14009
14010 ALTER TABLE acq.lineitem_attr
14011         DROP CONSTRAINT lineitem_attr_lineitem_fkey;
14012
14013 ALTER TABLE acq.lineitem_attr
14014         ADD FOREIGN KEY (lineitem) REFERENCES acq.lineitem( id )
14015                 ON DELETE CASCADE
14016                 DEFERRABLE INITIALLY DEFERRED;
14017
14018 ALTER TABLE acq.po_note
14019         ADD COLUMN vendor_public BOOLEAN NOT NULL DEFAULT FALSE;
14020
14021 CREATE TABLE vandelay.merge_profile (
14022     id              BIGSERIAL   PRIMARY KEY,
14023     owner           INT         NOT NULL REFERENCES actor.org_unit (id) ON UPDATE CASCADE ON DELETE CASCADE DEFERRABLE INITIALLY DEFERRED,
14024     name            TEXT        NOT NULL,
14025     add_spec        TEXT,
14026     replace_spec    TEXT,
14027     strip_spec      TEXT,
14028     preserve_spec   TEXT,
14029     CONSTRAINT vand_merge_prof_owner_name_idx UNIQUE (owner,name),
14030     CONSTRAINT add_replace_strip_or_preserve CHECK ((preserve_spec IS NOT NULL OR replace_spec IS NOT NULL) OR (preserve_spec IS NULL AND replace_spec IS NULL))
14031 );
14032
14033 CREATE OR REPLACE FUNCTION vandelay.match_bib_record ( ) RETURNS TRIGGER AS $func$
14034 DECLARE
14035     attr        RECORD;
14036     attr_def    RECORD;
14037     eg_rec      RECORD;
14038     id_value    TEXT;
14039     exact_id    BIGINT;
14040 BEGIN
14041
14042     DELETE FROM vandelay.bib_match WHERE queued_record = NEW.id;
14043
14044     SELECT * INTO attr_def FROM vandelay.bib_attr_definition WHERE xpath = '//*[@tag="901"]/*[@code="c"]' ORDER BY id LIMIT 1;
14045
14046     IF attr_def IS NOT NULL AND attr_def.id IS NOT NULL THEN
14047         id_value := extract_marc_field('vandelay.queued_bib_record', NEW.id, attr_def.xpath, attr_def.remove);
14048
14049         IF id_value IS NOT NULL AND id_value <> '' AND id_value ~ $r$^\d+$$r$ THEN
14050             SELECT id INTO exact_id FROM biblio.record_entry WHERE id = id_value::BIGINT AND NOT deleted;
14051             SELECT * INTO attr FROM vandelay.queued_bib_record_attr WHERE record = NEW.id and field = attr_def.id LIMIT 1;
14052             IF exact_id IS NOT NULL THEN
14053                 INSERT INTO vandelay.bib_match (field_type, matched_attr, queued_record, eg_record) VALUES ('id', attr.id, NEW.id, exact_id);
14054             END IF;
14055         END IF;
14056     END IF;
14057
14058     IF exact_id IS NULL THEN
14059         FOR attr IN SELECT a.* FROM vandelay.queued_bib_record_attr a JOIN vandelay.bib_attr_definition d ON (d.id = a.field) WHERE record = NEW.id AND d.ident IS TRUE LOOP
14060
14061             -- All numbers? check for an id match
14062             IF (attr.attr_value ~ $r$^\d+$$r$) THEN
14063                 FOR eg_rec IN SELECT * FROM biblio.record_entry WHERE id = attr.attr_value::BIGINT AND deleted IS FALSE LOOP
14064                     INSERT INTO vandelay.bib_match (field_type, matched_attr, queued_record, eg_record) VALUES ('id', attr.id, NEW.id, eg_rec.id);
14065                 END LOOP;
14066             END IF;
14067
14068             -- Looks like an ISBN? check for an isbn match
14069             IF (attr.attr_value ~* $r$^[0-9x]+$$r$ AND character_length(attr.attr_value) IN (10,13)) THEN
14070                 FOR eg_rec IN EXECUTE $$SELECT * FROM metabib.full_rec fr WHERE fr.value LIKE LOWER('$$ || attr.attr_value || $$%') AND fr.tag = '020' AND fr.subfield = 'a'$$ LOOP
14071                     PERFORM id FROM biblio.record_entry WHERE id = eg_rec.record AND deleted IS FALSE;
14072                     IF FOUND THEN
14073                         INSERT INTO vandelay.bib_match (field_type, matched_attr, queued_record, eg_record) VALUES ('isbn', attr.id, NEW.id, eg_rec.record);
14074                     END IF;
14075                 END LOOP;
14076
14077                 -- subcheck for isbn-as-tcn
14078                 FOR eg_rec IN SELECT * FROM biblio.record_entry WHERE tcn_value = 'i' || attr.attr_value AND deleted IS FALSE LOOP
14079                     INSERT INTO vandelay.bib_match (field_type, matched_attr, queued_record, eg_record) VALUES ('tcn_value', attr.id, NEW.id, eg_rec.id);
14080                 END LOOP;
14081             END IF;
14082
14083             -- check for an OCLC tcn_value match
14084             IF (attr.attr_value ~ $r$^o\d+$$r$) THEN
14085                 FOR eg_rec IN SELECT * FROM biblio.record_entry WHERE tcn_value = regexp_replace(attr.attr_value,'^o','ocm') AND deleted IS FALSE LOOP
14086                     INSERT INTO vandelay.bib_match (field_type, matched_attr, queued_record, eg_record) VALUES ('tcn_value', attr.id, NEW.id, eg_rec.id);
14087                 END LOOP;
14088             END IF;
14089
14090             -- check for a direct tcn_value match
14091             FOR eg_rec IN SELECT * FROM biblio.record_entry WHERE tcn_value = attr.attr_value AND deleted IS FALSE LOOP
14092                 INSERT INTO vandelay.bib_match (field_type, matched_attr, queued_record, eg_record) VALUES ('tcn_value', attr.id, NEW.id, eg_rec.id);
14093             END LOOP;
14094
14095             -- check for a direct item barcode match
14096             FOR eg_rec IN
14097                     SELECT  DISTINCT b.*
14098                       FROM  biblio.record_entry b
14099                             JOIN asset.call_number cn ON (cn.record = b.id)
14100                             JOIN asset.copy cp ON (cp.call_number = cn.id)
14101                       WHERE cp.barcode = attr.attr_value AND cp.deleted IS FALSE
14102             LOOP
14103                 INSERT INTO vandelay.bib_match (field_type, matched_attr, queued_record, eg_record) VALUES ('id', attr.id, NEW.id, eg_rec.id);
14104             END LOOP;
14105
14106         END LOOP;
14107     END IF;
14108
14109     RETURN NULL;
14110 END;
14111 $func$ LANGUAGE PLPGSQL;
14112
14113 CREATE OR REPLACE FUNCTION vandelay.merge_record_xml ( target_xml TEXT, source_xml TEXT, add_rule TEXT, replace_preserve_rule TEXT, strip_rule TEXT ) RETURNS TEXT AS $_$
14114     SELECT vandelay.replace_field( vandelay.add_field( vandelay.strip_field( $1, $5) , $2, $3 ), $2, $4);
14115 $_$ LANGUAGE SQL;
14116
14117 CREATE TYPE vandelay.compile_profile AS (add_rule TEXT, replace_rule TEXT, preserve_rule TEXT, strip_rule TEXT);
14118 CREATE OR REPLACE FUNCTION vandelay.compile_profile ( incoming_xml TEXT ) RETURNS vandelay.compile_profile AS $_$
14119 DECLARE
14120     output              vandelay.compile_profile%ROWTYPE;
14121     profile             vandelay.merge_profile%ROWTYPE;
14122     profile_tmpl        TEXT;
14123     profile_tmpl_owner  TEXT;
14124     add_rule            TEXT := '';
14125     strip_rule          TEXT := '';
14126     replace_rule        TEXT := '';
14127     preserve_rule       TEXT := '';
14128
14129 BEGIN
14130
14131     profile_tmpl := (oils_xpath('//*[@tag="905"]/*[@code="t"]/text()',incoming_xml))[1];
14132     profile_tmpl_owner := (oils_xpath('//*[@tag="905"]/*[@code="o"]/text()',incoming_xml))[1];
14133
14134     IF profile_tmpl IS NOT NULL AND profile_tmpl <> '' AND profile_tmpl_owner IS NOT NULL AND profile_tmpl_owner <> '' THEN
14135         SELECT  p.* INTO profile
14136           FROM  vandelay.merge_profile p
14137                 JOIN actor.org_unit u ON (u.id = p.owner)
14138           WHERE p.name = profile_tmpl
14139                 AND u.shortname = profile_tmpl_owner;
14140
14141         IF profile.id IS NOT NULL THEN
14142             add_rule := COALESCE(profile.add_spec,'');
14143             strip_rule := COALESCE(profile.strip_spec,'');
14144             replace_rule := COALESCE(profile.replace_spec,'');
14145             preserve_rule := COALESCE(profile.preserve_spec,'');
14146         END IF;
14147     END IF;
14148
14149     add_rule := add_rule || ',' || COALESCE(ARRAY_TO_STRING(oils_xpath('//*[@tag="905"]/*[@code="a"]/text()',incoming_xml),','),'');
14150     strip_rule := strip_rule || ',' || COALESCE(ARRAY_TO_STRING(oils_xpath('//*[@tag="905"]/*[@code="d"]/text()',incoming_xml),','),'');
14151     replace_rule := replace_rule || ',' || COALESCE(ARRAY_TO_STRING(oils_xpath('//*[@tag="905"]/*[@code="r"]/text()',incoming_xml),','),'');
14152     preserve_rule := preserve_rule || ',' || COALESCE(ARRAY_TO_STRING(oils_xpath('//*[@tag="905"]/*[@code="p"]/text()',incoming_xml),','),'');
14153
14154     output.add_rule := BTRIM(add_rule,',');
14155     output.replace_rule := BTRIM(replace_rule,',');
14156     output.strip_rule := BTRIM(strip_rule,',');
14157     output.preserve_rule := BTRIM(preserve_rule,',');
14158
14159     RETURN output;
14160 END;
14161 $_$ LANGUAGE PLPGSQL;
14162
14163 -- Template-based marc munging functions
14164 CREATE OR REPLACE FUNCTION vandelay.template_overlay_bib_record ( v_marc TEXT, eg_id BIGINT, merge_profile_id INT ) RETURNS BOOL AS $$
14165 DECLARE
14166     merge_profile   vandelay.merge_profile%ROWTYPE;
14167     dyn_profile     vandelay.compile_profile%ROWTYPE;
14168     editor_string   TEXT;
14169     editor_id       INT;
14170     source_marc     TEXT;
14171     target_marc     TEXT;
14172     eg_marc         TEXT;
14173     replace_rule    TEXT;
14174     match_count     INT;
14175 BEGIN
14176
14177     SELECT  b.marc INTO eg_marc
14178       FROM  biblio.record_entry b
14179       WHERE b.id = eg_id
14180       LIMIT 1;
14181
14182     IF eg_marc IS NULL OR v_marc IS NULL THEN
14183         -- RAISE NOTICE 'no marc for template or bib record';
14184         RETURN FALSE;
14185     END IF;
14186
14187     dyn_profile := vandelay.compile_profile( v_marc );
14188
14189     IF merge_profile_id IS NOT NULL THEN
14190         SELECT * INTO merge_profile FROM vandelay.merge_profile WHERE id = merge_profile_id;
14191         IF FOUND THEN
14192             dyn_profile.add_rule := BTRIM( dyn_profile.add_rule || ',' || COALESCE(merge_profile.add_spec,''), ',');
14193             dyn_profile.strip_rule := BTRIM( dyn_profile.strip_rule || ',' || COALESCE(merge_profile.strip_spec,''), ',');
14194             dyn_profile.replace_rule := BTRIM( dyn_profile.replace_rule || ',' || COALESCE(merge_profile.replace_spec,''), ',');
14195             dyn_profile.preserve_rule := BTRIM( dyn_profile.preserve_rule || ',' || COALESCE(merge_profile.preserve_spec,''), ',');
14196         END IF;
14197     END IF;
14198
14199     IF dyn_profile.replace_rule <> '' AND dyn_profile.preserve_rule <> '' THEN
14200         -- RAISE NOTICE 'both replace [%] and preserve [%] specified', dyn_profile.replace_rule, dyn_profile.preserve_rule;
14201         RETURN FALSE;
14202     END IF;
14203
14204     IF dyn_profile.replace_rule <> '' THEN
14205         source_marc = v_marc;
14206         target_marc = eg_marc;
14207         replace_rule = dyn_profile.replace_rule;
14208     ELSE
14209         source_marc = eg_marc;
14210         target_marc = v_marc;
14211         replace_rule = dyn_profile.preserve_rule;
14212     END IF;
14213
14214     UPDATE  biblio.record_entry
14215       SET   marc = vandelay.merge_record_xml( target_marc, source_marc, dyn_profile.add_rule, replace_rule, dyn_profile.strip_rule )
14216       WHERE id = eg_id;
14217
14218     IF NOT FOUND THEN
14219         -- RAISE NOTICE 'update of biblio.record_entry failed';
14220         RETURN FALSE;
14221     END IF;
14222
14223     RETURN TRUE;
14224
14225 END;
14226 $$ LANGUAGE PLPGSQL;
14227
14228 CREATE OR REPLACE FUNCTION vandelay.template_overlay_bib_record ( v_marc TEXT, eg_id BIGINT) RETURNS BOOL AS $$
14229     SELECT vandelay.template_overlay_bib_record( $1, $2, NULL);
14230 $$ LANGUAGE SQL;
14231
14232 CREATE OR REPLACE FUNCTION vandelay.overlay_bib_record ( import_id BIGINT, eg_id BIGINT, merge_profile_id INT ) RETURNS BOOL AS $$
14233 DECLARE
14234     merge_profile   vandelay.merge_profile%ROWTYPE;
14235     dyn_profile     vandelay.compile_profile%ROWTYPE;
14236     editor_string   TEXT;
14237     editor_id       INT;
14238     source_marc     TEXT;
14239     target_marc     TEXT;
14240     eg_marc         TEXT;
14241     v_marc          TEXT;
14242     replace_rule    TEXT;
14243     match_count     INT;
14244 BEGIN
14245
14246     SELECT  q.marc INTO v_marc
14247       FROM  vandelay.queued_record q
14248             JOIN vandelay.bib_match m ON (m.queued_record = q.id AND q.id = import_id)
14249       LIMIT 1;
14250
14251     IF v_marc IS NULL THEN
14252         -- RAISE NOTICE 'no marc for vandelay or bib record';
14253         RETURN FALSE;
14254     END IF;
14255
14256     IF vandelay.template_overlay_bib_record( v_marc, eg_id, merge_profile_id) THEN
14257         UPDATE  vandelay.queued_bib_record
14258           SET   imported_as = eg_id,
14259                 import_time = NOW()
14260           WHERE id = import_id;
14261
14262         editor_string := (oils_xpath('//*[@tag="905"]/*[@code="u"]/text()',v_marc))[1];
14263
14264         IF editor_string IS NOT NULL AND editor_string <> '' THEN
14265             SELECT usr INTO editor_id FROM actor.card WHERE barcode = editor_string;
14266
14267             IF editor_id IS NULL THEN
14268                 SELECT id INTO editor_id FROM actor.usr WHERE usrname = editor_string;
14269             END IF;
14270
14271             IF editor_id IS NOT NULL THEN
14272                 UPDATE biblio.record_entry SET editor = editor_id WHERE id = eg_id;
14273             END IF;
14274         END IF;
14275
14276         RETURN TRUE;
14277     END IF;
14278
14279     -- RAISE NOTICE 'update of biblio.record_entry failed';
14280
14281     RETURN FALSE;
14282
14283 END;
14284 $$ LANGUAGE PLPGSQL;
14285
14286 CREATE OR REPLACE FUNCTION vandelay.auto_overlay_bib_record ( import_id BIGINT, merge_profile_id INT ) RETURNS BOOL AS $$
14287 DECLARE
14288     eg_id           BIGINT;
14289     match_count     INT;
14290     match_attr      vandelay.bib_attr_definition%ROWTYPE;
14291 BEGIN
14292
14293     PERFORM * FROM vandelay.queued_bib_record WHERE import_time IS NOT NULL AND id = import_id;
14294
14295     IF FOUND THEN
14296         -- RAISE NOTICE 'already imported, cannot auto-overlay'
14297         RETURN FALSE;
14298     END IF;
14299
14300     SELECT COUNT(*) INTO match_count FROM vandelay.bib_match WHERE queued_record = import_id;
14301
14302     IF match_count <> 1 THEN
14303         -- RAISE NOTICE 'not an exact match';
14304         RETURN FALSE;
14305     END IF;
14306
14307     SELECT  d.* INTO match_attr
14308       FROM  vandelay.bib_attr_definition d
14309             JOIN vandelay.queued_bib_record_attr a ON (a.field = d.id)
14310             JOIN vandelay.bib_match m ON (m.matched_attr = a.id)
14311       WHERE m.queued_record = import_id;
14312
14313     IF NOT (match_attr.xpath ~ '@tag="901"' AND match_attr.xpath ~ '@code="c"') THEN
14314         -- RAISE NOTICE 'not a 901c match: %', match_attr.xpath;
14315         RETURN FALSE;
14316     END IF;
14317
14318     SELECT  m.eg_record INTO eg_id
14319       FROM  vandelay.bib_match m
14320       WHERE m.queued_record = import_id
14321       LIMIT 1;
14322
14323     IF eg_id IS NULL THEN
14324         RETURN FALSE;
14325     END IF;
14326
14327     RETURN vandelay.overlay_bib_record( import_id, eg_id, merge_profile_id );
14328 END;
14329 $$ LANGUAGE PLPGSQL;
14330
14331 CREATE OR REPLACE FUNCTION vandelay.auto_overlay_bib_queue ( queue_id BIGINT, merge_profile_id INT ) RETURNS SETOF BIGINT AS $$
14332 DECLARE
14333     queued_record   vandelay.queued_bib_record%ROWTYPE;
14334 BEGIN
14335
14336     FOR queued_record IN SELECT * FROM vandelay.queued_bib_record WHERE queue = queue_id AND import_time IS NULL LOOP
14337
14338         IF vandelay.auto_overlay_bib_record( queued_record.id, merge_profile_id ) THEN
14339             RETURN NEXT queued_record.id;
14340         END IF;
14341
14342     END LOOP;
14343
14344     RETURN;
14345
14346 END;
14347 $$ LANGUAGE PLPGSQL;
14348
14349 CREATE OR REPLACE FUNCTION vandelay.auto_overlay_bib_queue ( queue_id BIGINT ) RETURNS SETOF BIGINT AS $$
14350     SELECT * FROM vandelay.auto_overlay_bib_queue( $1, NULL );
14351 $$ LANGUAGE SQL;
14352
14353 CREATE OR REPLACE FUNCTION vandelay.overlay_authority_record ( import_id BIGINT, eg_id BIGINT, merge_profile_id INT ) RETURNS BOOL AS $$
14354 DECLARE
14355     merge_profile   vandelay.merge_profile%ROWTYPE;
14356     dyn_profile     vandelay.compile_profile%ROWTYPE;
14357     source_marc     TEXT;
14358     target_marc     TEXT;
14359     eg_marc         TEXT;
14360     v_marc          TEXT;
14361     replace_rule    TEXT;
14362     match_count     INT;
14363 BEGIN
14364
14365     SELECT  b.marc INTO eg_marc
14366       FROM  authority.record_entry b
14367             JOIN vandelay.authority_match m ON (m.eg_record = b.id AND m.queued_record = import_id)
14368       LIMIT 1;
14369
14370     SELECT  q.marc INTO v_marc
14371       FROM  vandelay.queued_record q
14372             JOIN vandelay.authority_match m ON (m.queued_record = q.id AND q.id = import_id)
14373       LIMIT 1;
14374
14375     IF eg_marc IS NULL OR v_marc IS NULL THEN
14376         -- RAISE NOTICE 'no marc for vandelay or authority record';
14377         RETURN FALSE;
14378     END IF;
14379
14380     dyn_profile := vandelay.compile_profile( v_marc );
14381
14382     IF merge_profile_id IS NOT NULL THEN
14383         SELECT * INTO merge_profile FROM vandelay.merge_profile WHERE id = merge_profile_id;
14384         IF FOUND THEN
14385             dyn_profile.add_rule := BTRIM( dyn_profile.add_rule || ',' || COALESCE(merge_profile.add_spec,''), ',');
14386             dyn_profile.strip_rule := BTRIM( dyn_profile.strip_rule || ',' || COALESCE(merge_profile.strip_spec,''), ',');
14387             dyn_profile.replace_rule := BTRIM( dyn_profile.replace_rule || ',' || COALESCE(merge_profile.replace_spec,''), ',');
14388             dyn_profile.preserve_rule := BTRIM( dyn_profile.preserve_rule || ',' || COALESCE(merge_profile.preserve_spec,''), ',');
14389         END IF;
14390     END IF;
14391
14392     IF dyn_profile.replace_rule <> '' AND dyn_profile.preserve_rule <> '' THEN
14393         -- RAISE NOTICE 'both replace [%] and preserve [%] specified', dyn_profile.replace_rule, dyn_profile.preserve_rule;
14394         RETURN FALSE;
14395     END IF;
14396
14397     IF dyn_profile.replace_rule <> '' THEN
14398         source_marc = v_marc;
14399         target_marc = eg_marc;
14400         replace_rule = dyn_profile.replace_rule;
14401     ELSE
14402         source_marc = eg_marc;
14403         target_marc = v_marc;
14404         replace_rule = dyn_profile.preserve_rule;
14405     END IF;
14406
14407     UPDATE  authority.record_entry
14408       SET   marc = vandelay.merge_record_xml( target_marc, source_marc, dyn_profile.add_rule, replace_rule, dyn_profile.strip_rule )
14409       WHERE id = eg_id;
14410
14411     IF FOUND THEN
14412         UPDATE  vandelay.queued_authority_record
14413           SET   imported_as = eg_id,
14414                 import_time = NOW()
14415           WHERE id = import_id;
14416         RETURN TRUE;
14417     END IF;
14418
14419     -- RAISE NOTICE 'update of authority.record_entry failed';
14420
14421     RETURN FALSE;
14422
14423 END;
14424 $$ LANGUAGE PLPGSQL;
14425
14426 CREATE OR REPLACE FUNCTION vandelay.auto_overlay_authority_record ( import_id BIGINT, merge_profile_id INT ) RETURNS BOOL AS $$
14427 DECLARE
14428     eg_id           BIGINT;
14429     match_count     INT;
14430 BEGIN
14431     SELECT COUNT(*) INTO match_count FROM vandelay.authority_match WHERE queued_record = import_id;
14432
14433     IF match_count <> 1 THEN
14434         -- RAISE NOTICE 'not an exact match';
14435         RETURN FALSE;
14436     END IF;
14437
14438     SELECT  m.eg_record INTO eg_id
14439       FROM  vandelay.authority_match m
14440       WHERE m.queued_record = import_id
14441       LIMIT 1;
14442
14443     IF eg_id IS NULL THEN
14444         RETURN FALSE;
14445     END IF;
14446
14447     RETURN vandelay.overlay_authority_record( import_id, eg_id, merge_profile_id );
14448 END;
14449 $$ LANGUAGE PLPGSQL;
14450
14451 CREATE OR REPLACE FUNCTION vandelay.auto_overlay_authority_queue ( queue_id BIGINT, merge_profile_id INT ) RETURNS SETOF BIGINT AS $$
14452 DECLARE
14453     queued_record   vandelay.queued_authority_record%ROWTYPE;
14454 BEGIN
14455
14456     FOR queued_record IN SELECT * FROM vandelay.queued_authority_record WHERE queue = queue_id AND import_time IS NULL LOOP
14457
14458         IF vandelay.auto_overlay_authority_record( queued_record.id, merge_profile_id ) THEN
14459             RETURN NEXT queued_record.id;
14460         END IF;
14461
14462     END LOOP;
14463
14464     RETURN;
14465
14466 END;
14467 $$ LANGUAGE PLPGSQL;
14468
14469 CREATE OR REPLACE FUNCTION vandelay.auto_overlay_authority_queue ( queue_id BIGINT ) RETURNS SETOF BIGINT AS $$
14470     SELECT * FROM vandelay.auto_overlay_authority_queue( $1, NULL );
14471 $$ LANGUAGE SQL;
14472
14473 CREATE TYPE vandelay.tcn_data AS (tcn TEXT, tcn_source TEXT, used BOOL);
14474 CREATE OR REPLACE FUNCTION vandelay.find_bib_tcn_data ( xml TEXT ) RETURNS SETOF vandelay.tcn_data AS $_$
14475 DECLARE
14476     eg_tcn          TEXT;
14477     eg_tcn_source   TEXT;
14478     output          vandelay.tcn_data%ROWTYPE;
14479 BEGIN
14480
14481     -- 001/003
14482     eg_tcn := BTRIM((oils_xpath('//*[@tag="001"]/text()',xml))[1]);
14483     IF eg_tcn IS NOT NULL AND eg_tcn <> '' THEN
14484
14485         eg_tcn_source := BTRIM((oils_xpath('//*[@tag="003"]/text()',xml))[1]);
14486         IF eg_tcn_source IS NULL OR eg_tcn_source = '' THEN
14487             eg_tcn_source := 'System Local';
14488         END IF;
14489
14490         PERFORM id FROM biblio.record_entry WHERE tcn_value = eg_tcn  AND NOT deleted;
14491
14492         IF NOT FOUND THEN
14493             output.used := FALSE;
14494         ELSE
14495             output.used := TRUE;
14496         END IF;
14497
14498         output.tcn := eg_tcn;
14499         output.tcn_source := eg_tcn_source;
14500         RETURN NEXT output;
14501
14502     END IF;
14503
14504     -- 901 ab
14505     eg_tcn := BTRIM((oils_xpath('//*[@tag="901"]/*[@code="a"]/text()',xml))[1]);
14506     IF eg_tcn IS NOT NULL AND eg_tcn <> '' THEN
14507
14508         eg_tcn_source := BTRIM((oils_xpath('//*[@tag="901"]/*[@code="b"]/text()',xml))[1]);
14509         IF eg_tcn_source IS NULL OR eg_tcn_source = '' THEN
14510             eg_tcn_source := 'System Local';
14511         END IF;
14512
14513         PERFORM id FROM biblio.record_entry WHERE tcn_value = eg_tcn  AND NOT deleted;
14514
14515         IF NOT FOUND THEN
14516             output.used := FALSE;
14517         ELSE
14518             output.used := TRUE;
14519         END IF;
14520
14521         output.tcn := eg_tcn;
14522         output.tcn_source := eg_tcn_source;
14523         RETURN NEXT output;
14524
14525     END IF;
14526
14527     -- 039 ab
14528     eg_tcn := BTRIM((oils_xpath('//*[@tag="039"]/*[@code="a"]/text()',xml))[1]);
14529     IF eg_tcn IS NOT NULL AND eg_tcn <> '' THEN
14530
14531         eg_tcn_source := BTRIM((oils_xpath('//*[@tag="039"]/*[@code="b"]/text()',xml))[1]);
14532         IF eg_tcn_source IS NULL OR eg_tcn_source = '' THEN
14533             eg_tcn_source := 'System Local';
14534         END IF;
14535
14536         PERFORM id FROM biblio.record_entry WHERE tcn_value = eg_tcn  AND NOT deleted;
14537
14538         IF NOT FOUND THEN
14539             output.used := FALSE;
14540         ELSE
14541             output.used := TRUE;
14542         END IF;
14543
14544         output.tcn := eg_tcn;
14545         output.tcn_source := eg_tcn_source;
14546         RETURN NEXT output;
14547
14548     END IF;
14549
14550     -- 020 a
14551     eg_tcn := REGEXP_REPLACE((oils_xpath('//*[@tag="020"]/*[@code="a"]/text()',xml))[1], $re$^(\w+).*?$$re$, $re$\1$re$);
14552     IF eg_tcn IS NOT NULL AND eg_tcn <> '' THEN
14553
14554         eg_tcn_source := 'ISBN';
14555
14556         PERFORM id FROM biblio.record_entry WHERE tcn_value = eg_tcn  AND NOT deleted;
14557
14558         IF NOT FOUND THEN
14559             output.used := FALSE;
14560         ELSE
14561             output.used := TRUE;
14562         END IF;
14563
14564         output.tcn := eg_tcn;
14565         output.tcn_source := eg_tcn_source;
14566         RETURN NEXT output;
14567
14568     END IF;
14569
14570     -- 022 a
14571     eg_tcn := REGEXP_REPLACE((oils_xpath('//*[@tag="022"]/*[@code="a"]/text()',xml))[1], $re$^(\w+).*?$$re$, $re$\1$re$);
14572     IF eg_tcn IS NOT NULL AND eg_tcn <> '' THEN
14573
14574         eg_tcn_source := 'ISSN';
14575
14576         PERFORM id FROM biblio.record_entry WHERE tcn_value = eg_tcn  AND NOT deleted;
14577
14578         IF NOT FOUND THEN
14579             output.used := FALSE;
14580         ELSE
14581             output.used := TRUE;
14582         END IF;
14583
14584         output.tcn := eg_tcn;
14585         output.tcn_source := eg_tcn_source;
14586         RETURN NEXT output;
14587
14588     END IF;
14589
14590     -- 010 a
14591     eg_tcn := REGEXP_REPLACE((oils_xpath('//*[@tag="010"]/*[@code="a"]/text()',xml))[1], $re$^(\w+).*?$$re$, $re$\1$re$);
14592     IF eg_tcn IS NOT NULL AND eg_tcn <> '' THEN
14593
14594         eg_tcn_source := 'LCCN';
14595
14596         PERFORM id FROM biblio.record_entry WHERE tcn_value = eg_tcn  AND NOT deleted;
14597
14598         IF NOT FOUND THEN
14599             output.used := FALSE;
14600         ELSE
14601             output.used := TRUE;
14602         END IF;
14603
14604         output.tcn := eg_tcn;
14605         output.tcn_source := eg_tcn_source;
14606         RETURN NEXT output;
14607
14608     END IF;
14609
14610     -- 035 a
14611     eg_tcn := REGEXP_REPLACE((oils_xpath('//*[@tag="035"]/*[@code="a"]/text()',xml))[1], $re$^.*?(\w+)$$re$, $re$\1$re$);
14612     IF eg_tcn IS NOT NULL AND eg_tcn <> '' THEN
14613
14614         eg_tcn_source := 'System Legacy';
14615
14616         PERFORM id FROM biblio.record_entry WHERE tcn_value = eg_tcn  AND NOT deleted;
14617
14618         IF NOT FOUND THEN
14619             output.used := FALSE;
14620         ELSE
14621             output.used := TRUE;
14622         END IF;
14623
14624         output.tcn := eg_tcn;
14625         output.tcn_source := eg_tcn_source;
14626         RETURN NEXT output;
14627
14628     END IF;
14629
14630     RETURN;
14631 END;
14632 $_$ LANGUAGE PLPGSQL;
14633
14634 CREATE INDEX claim_lid_idx ON acq.claim( lineitem_detail );
14635
14636 CREATE OR REPLACE RULE protect_bib_rec_delete AS ON DELETE TO biblio.record_entry DO INSTEAD (UPDATE biblio.record_entry SET deleted = TRUE WHERE OLD.id = biblio.record_entry.id; DELETE FROM metabib.metarecord_source_map WHERE source = OLD.id);
14637
14638 UPDATE biblio.record_entry SET marc = '<record xmlns="http://www.loc.gov/MARC21/slim"/>' WHERE id = -1;
14639
14640 CREATE INDEX metabib_title_field_entry_value_idx ON metabib.title_field_entry (SUBSTRING(value,1,1024)) WHERE index_vector = ''::TSVECTOR;
14641 CREATE INDEX metabib_author_field_entry_value_idx ON metabib.author_field_entry (SUBSTRING(value,1,1024)) WHERE index_vector = ''::TSVECTOR;
14642 CREATE INDEX metabib_subject_field_entry_value_idx ON metabib.subject_field_entry (SUBSTRING(value,1,1024)) WHERE index_vector = ''::TSVECTOR;
14643 CREATE INDEX metabib_keyword_field_entry_value_idx ON metabib.keyword_field_entry (SUBSTRING(value,1,1024)) WHERE index_vector = ''::TSVECTOR;
14644 CREATE INDEX metabib_series_field_entry_value_idx ON metabib.series_field_entry (SUBSTRING(value,1,1024)) WHERE index_vector = ''::TSVECTOR;
14645
14646 CREATE INDEX metabib_author_field_entry_source_idx ON metabib.author_field_entry (source);
14647 CREATE INDEX metabib_keyword_field_entry_source_idx ON metabib.keyword_field_entry (source);
14648 CREATE INDEX metabib_title_field_entry_source_idx ON metabib.title_field_entry (source);
14649 CREATE INDEX metabib_series_field_entry_source_idx ON metabib.series_field_entry (source);
14650
14651 ALTER TABLE metabib.series_field_entry
14652         ADD CONSTRAINT metabib_series_field_entry_source_pkey FOREIGN KEY (source)
14653                 REFERENCES biblio.record_entry (id)
14654                 ON DELETE CASCADE
14655                 DEFERRABLE INITIALLY DEFERRED;
14656
14657 ALTER TABLE metabib.series_field_entry
14658         ADD CONSTRAINT metabib_series_field_entry_field_pkey FOREIGN KEY (field)
14659                 REFERENCES config.metabib_field (id)
14660                 ON DELETE CASCADE
14661                 DEFERRABLE INITIALLY DEFERRED;
14662
14663 CREATE TABLE acq.claim_policy_action (
14664         id              SERIAL       PRIMARY KEY,
14665         claim_policy    INT          NOT NULL REFERENCES acq.claim_policy
14666                                  ON DELETE CASCADE
14667                                      DEFERRABLE INITIALLY DEFERRED,
14668         action_interval INTERVAL     NOT NULL,
14669         action          INT          NOT NULL REFERENCES acq.claim_event_type
14670                                      DEFERRABLE INITIALLY DEFERRED,
14671         CONSTRAINT action_sequence UNIQUE (claim_policy, action_interval)
14672 );
14673
14674 CREATE OR REPLACE FUNCTION public.ingest_acq_marc ( ) RETURNS TRIGGER AS $function$
14675 DECLARE
14676     value       TEXT;
14677     atype       TEXT;
14678     prov        INT;
14679     pos         INT;
14680     adef        RECORD;
14681     xpath_string    TEXT;
14682 BEGIN
14683     FOR adef IN SELECT *,tableoid FROM acq.lineitem_attr_definition LOOP
14684
14685         SELECT relname::TEXT INTO atype FROM pg_class WHERE oid = adef.tableoid;
14686
14687         IF (atype NOT IN ('lineitem_usr_attr_definition','lineitem_local_attr_definition')) THEN
14688             IF (atype = 'lineitem_provider_attr_definition') THEN
14689                 SELECT provider INTO prov FROM acq.lineitem_provider_attr_definition WHERE id = adef.id;
14690                 CONTINUE WHEN NEW.provider IS NULL OR prov <> NEW.provider;
14691             END IF;
14692
14693             IF (atype = 'lineitem_provider_attr_definition') THEN
14694                 SELECT xpath INTO xpath_string FROM acq.lineitem_provider_attr_definition WHERE id = adef.id;
14695             ELSIF (atype = 'lineitem_marc_attr_definition') THEN
14696                 SELECT xpath INTO xpath_string FROM acq.lineitem_marc_attr_definition WHERE id = adef.id;
14697             ELSIF (atype = 'lineitem_generated_attr_definition') THEN
14698                 SELECT xpath INTO xpath_string FROM acq.lineitem_generated_attr_definition WHERE id = adef.id;
14699             END IF;
14700
14701             xpath_string := REGEXP_REPLACE(xpath_string,$re$//?text\(\)$$re$,'');
14702
14703             pos := 1;
14704
14705             LOOP
14706                 SELECT extract_acq_marc_field(id, xpath_string || '[' || pos || ']', adef.remove) INTO value FROM acq.lineitem WHERE id = NEW.id;
14707
14708                 IF (value IS NOT NULL AND value <> '') THEN
14709                     INSERT INTO acq.lineitem_attr (lineitem, definition, attr_type, attr_name, attr_value)
14710                         VALUES (NEW.id, adef.id, atype, adef.code, value);
14711                 ELSE
14712                     EXIT;
14713                 END IF;
14714
14715                 pos := pos + 1;
14716             END LOOP;
14717
14718         END IF;
14719
14720     END LOOP;
14721
14722     RETURN NULL;
14723 END;
14724 $function$ LANGUAGE PLPGSQL;
14725
14726 UPDATE config.metabib_field SET label = name;
14727 ALTER TABLE config.metabib_field ALTER COLUMN label SET NOT NULL;
14728
14729 ALTER TABLE config.metabib_field ADD CONSTRAINT metabib_field_field_class_fkey
14730          FOREIGN KEY (field_class) REFERENCES config.metabib_class (name);
14731
14732 ALTER TABLE config.metabib_field DROP CONSTRAINT metabib_field_field_class_check;
14733
14734 ALTER TABLE config.metabib_field ADD CONSTRAINT metabib_field_format_fkey FOREIGN KEY (format) REFERENCES config.xml_transform (name);
14735
14736 CREATE TABLE config.metabib_search_alias (
14737     alias       TEXT    PRIMARY KEY,
14738     field_class TEXT    NOT NULL REFERENCES config.metabib_class (name),
14739     field       INT     REFERENCES config.metabib_field (id)
14740 );
14741
14742 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('kw','keyword');
14743 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('eg.keyword','keyword');
14744 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('dc.publisher','keyword');
14745 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('dc.identifier','keyword');
14746 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('bib.subjecttitle','keyword');
14747 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('bib.genre','keyword');
14748 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('bib.edition','keyword');
14749 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('srw.serverchoice','keyword');
14750
14751 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('au','author');
14752 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('name','author');
14753 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('creator','author');
14754 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('eg.author','author');
14755 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('eg.name','author');
14756 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('dc.creator','author');
14757 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('dc.contributor','author');
14758 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('bib.name','author');
14759 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('bib.namepersonal','author',8);
14760 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('bib.namepersonalfamily','author',8);
14761 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('bib.namepersonalgiven','author',8);
14762 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('bib.namecorporate','author',7);
14763 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('bib.nameconference','author',9);
14764
14765 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('ti','title');
14766 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('eg.title','title');
14767 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('dc.title','title');
14768 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('bib.titleabbreviated','title',2);
14769 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('bib.titleuniform','title',5);
14770 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('bib.titletranslated','title',3);
14771 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('bib.titlealternative','title',4);
14772 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('bib.title','title',2);
14773
14774 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('su','subject');
14775 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('eg.subject','subject');
14776 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('dc.subject','subject');
14777 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('bib.subjectplace','subject',11);
14778 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('bib.subjectname','subject',12);
14779 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('bib.subjectoccupation','subject',16);
14780
14781 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('se','series');
14782 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('eg.series','series');
14783 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('bib.titleseries','series',1);
14784
14785 UPDATE config.metabib_field SET facet_field=TRUE WHERE id = 1;
14786 UPDATE config.metabib_field SET xpath=$$//mods32:mods/mods32:name[@type='corporate' and mods32:role/mods32:roleTerm[text()='creator']]$$, facet_field=TRUE, facet_xpath=$$*[local-name()='namePart']$$ WHERE id = 7;
14787 UPDATE config.metabib_field SET xpath=$$//mods32:mods/mods32:name[@type='personal' and mods32:role/mods32:roleTerm[text()='creator']]$$, facet_field=TRUE, facet_xpath=$$*[local-name()='namePart']$$ WHERE id = 8;
14788 UPDATE config.metabib_field SET xpath=$$//mods32:mods/mods32:name[@type='conference' and mods32:role/mods32:roleTerm[text()='creator']]$$, facet_field=TRUE, facet_xpath=$$*[local-name()='namePart']$$ WHERE id = 9;
14789 UPDATE config.metabib_field SET xpath=$$//mods32:mods/mods32:name[@type='personal' and not(mods32:role)]$$, facet_field=TRUE, facet_xpath=$$*[local-name()='namePart']$$ WHERE id = 10;
14790
14791 UPDATE config.metabib_field SET facet_field=TRUE WHERE id = 11;
14792 UPDATE config.metabib_field SET facet_field=TRUE , facet_xpath=$$*[local-name()='namePart']$$ WHERE id = 12;
14793 UPDATE config.metabib_field SET facet_field=TRUE WHERE id = 13;
14794 UPDATE config.metabib_field SET facet_field=TRUE WHERE id = 14;
14795
14796 CREATE INDEX metabib_rec_descriptor_item_type_idx ON metabib.rec_descriptor (item_type);
14797 CREATE INDEX metabib_rec_descriptor_item_form_idx ON metabib.rec_descriptor (item_form);
14798 CREATE INDEX metabib_rec_descriptor_bib_level_idx ON metabib.rec_descriptor (bib_level);
14799 CREATE INDEX metabib_rec_descriptor_control_type_idx ON metabib.rec_descriptor (control_type);
14800 CREATE INDEX metabib_rec_descriptor_char_encoding_idx ON metabib.rec_descriptor (char_encoding);
14801 CREATE INDEX metabib_rec_descriptor_enc_level_idx ON metabib.rec_descriptor (enc_level);
14802 CREATE INDEX metabib_rec_descriptor_audience_idx ON metabib.rec_descriptor (audience);
14803 CREATE INDEX metabib_rec_descriptor_lit_form_idx ON metabib.rec_descriptor (lit_form);
14804 CREATE INDEX metabib_rec_descriptor_cat_form_idx ON metabib.rec_descriptor (cat_form);
14805 CREATE INDEX metabib_rec_descriptor_pub_status_idx ON metabib.rec_descriptor (pub_status);
14806 CREATE INDEX metabib_rec_descriptor_item_lang_idx ON metabib.rec_descriptor (item_lang);
14807 CREATE INDEX metabib_rec_descriptor_vr_format_idx ON metabib.rec_descriptor (vr_format);
14808 CREATE INDEX metabib_rec_descriptor_date1_idx ON metabib.rec_descriptor (date1);
14809 CREATE INDEX metabib_rec_descriptor_dates_idx ON metabib.rec_descriptor (date1,date2);
14810
14811 CREATE TABLE asset.opac_visible_copies (
14812   id        BIGINT primary key, -- copy id
14813   record    BIGINT,
14814   circ_lib  INTEGER
14815 );
14816 COMMENT ON TABLE asset.opac_visible_copies IS $$
14817 Materialized view of copies that are visible in the OPAC, used by
14818 search.query_parser_fts() to speed up OPAC visibility checks on large
14819 databases.  Contents are maintained by a set of triggers.
14820 $$;
14821 CREATE INDEX opac_visible_copies_idx1 on asset.opac_visible_copies (record, circ_lib);
14822
14823 CREATE OR REPLACE FUNCTION search.query_parser_fts (
14824
14825     param_search_ou INT,
14826     param_depth     INT,
14827     param_query     TEXT,
14828     param_statuses  INT[],
14829     param_locations INT[],
14830     param_offset    INT,
14831     param_check     INT,
14832     param_limit     INT,
14833     metarecord      BOOL,
14834     staff           BOOL
14835
14836 ) RETURNS SETOF search.search_result AS $func$
14837 DECLARE
14838
14839     current_res         search.search_result%ROWTYPE;
14840     search_org_list     INT[];
14841
14842     check_limit         INT;
14843     core_limit          INT;
14844     core_offset         INT;
14845     tmp_int             INT;
14846
14847     core_result         RECORD;
14848     core_cursor         REFCURSOR;
14849     core_rel_query      TEXT;
14850
14851     total_count         INT := 0;
14852     check_count         INT := 0;
14853     deleted_count       INT := 0;
14854     visible_count       INT := 0;
14855     excluded_count      INT := 0;
14856
14857 BEGIN
14858
14859     check_limit := COALESCE( param_check, 1000 );
14860     core_limit  := COALESCE( param_limit, 25000 );
14861     core_offset := COALESCE( param_offset, 0 );
14862
14863     -- core_skip_chk := COALESCE( param_skip_chk, 1 );
14864
14865     IF param_search_ou > 0 THEN
14866         IF param_depth IS NOT NULL THEN
14867             SELECT array_accum(distinct id) INTO search_org_list FROM actor.org_unit_descendants( param_search_ou, param_depth );
14868         ELSE
14869             SELECT array_accum(distinct id) INTO search_org_list FROM actor.org_unit_descendants( param_search_ou );
14870         END IF;
14871     ELSIF param_search_ou < 0 THEN
14872         SELECT array_accum(distinct org_unit) INTO search_org_list FROM actor.org_lasso_map WHERE lasso = -param_search_ou;
14873     ELSIF param_search_ou = 0 THEN
14874         -- reserved for user lassos (ou_buckets/type='lasso') with ID passed in depth ... hack? sure.
14875     END IF;
14876
14877     OPEN core_cursor FOR EXECUTE param_query;
14878
14879     LOOP
14880
14881         FETCH core_cursor INTO core_result;
14882         EXIT WHEN NOT FOUND;
14883         EXIT WHEN total_count >= core_limit;
14884
14885         total_count := total_count + 1;
14886
14887         CONTINUE WHEN total_count NOT BETWEEN  core_offset + 1 AND check_limit + core_offset;
14888
14889         check_count := check_count + 1;
14890
14891         PERFORM 1 FROM biblio.record_entry b WHERE NOT b.deleted AND b.id IN ( SELECT * FROM search.explode_array( core_result.records ) );
14892         IF NOT FOUND THEN
14893             -- RAISE NOTICE ' % were all deleted ... ', core_result.records;
14894             deleted_count := deleted_count + 1;
14895             CONTINUE;
14896         END IF;
14897
14898         PERFORM 1
14899           FROM  biblio.record_entry b
14900                 JOIN config.bib_source s ON (b.source = s.id)
14901           WHERE s.transcendant
14902                 AND b.id IN ( SELECT * FROM search.explode_array( core_result.records ) );
14903
14904         IF FOUND THEN
14905             -- RAISE NOTICE ' % were all transcendant ... ', core_result.records;
14906             visible_count := visible_count + 1;
14907
14908             current_res.id = core_result.id;
14909             current_res.rel = core_result.rel;
14910
14911             tmp_int := 1;
14912             IF metarecord THEN
14913                 SELECT COUNT(DISTINCT s.source) INTO tmp_int FROM metabib.metarecord_source_map s WHERE s.metarecord = core_result.id;
14914             END IF;
14915
14916             IF tmp_int = 1 THEN
14917                 current_res.record = core_result.records[1];
14918             ELSE
14919                 current_res.record = NULL;
14920             END IF;
14921
14922             RETURN NEXT current_res;
14923
14924             CONTINUE;
14925         END IF;
14926
14927         PERFORM 1
14928           FROM  asset.call_number cn
14929                 JOIN asset.uri_call_number_map map ON (map.call_number = cn.id)
14930                 JOIN asset.uri uri ON (map.uri = uri.id)
14931           WHERE NOT cn.deleted
14932                 AND cn.label = '##URI##'
14933                 AND uri.active
14934                 AND ( param_locations IS NULL OR array_upper(param_locations, 1) IS NULL )
14935                 AND cn.record IN ( SELECT * FROM search.explode_array( core_result.records ) )
14936                 AND cn.owning_lib IN ( SELECT * FROM search.explode_array( search_org_list ) )
14937           LIMIT 1;
14938
14939         IF FOUND THEN
14940             -- RAISE NOTICE ' % have at least one URI ... ', core_result.records;
14941             visible_count := visible_count + 1;
14942
14943             current_res.id = core_result.id;
14944             current_res.rel = core_result.rel;
14945
14946             tmp_int := 1;
14947             IF metarecord THEN
14948                 SELECT COUNT(DISTINCT s.source) INTO tmp_int FROM metabib.metarecord_source_map s WHERE s.metarecord = core_result.id;
14949             END IF;
14950
14951             IF tmp_int = 1 THEN
14952                 current_res.record = core_result.records[1];
14953             ELSE
14954                 current_res.record = NULL;
14955             END IF;
14956
14957             RETURN NEXT current_res;
14958
14959             CONTINUE;
14960         END IF;
14961
14962         IF param_statuses IS NOT NULL AND array_upper(param_statuses, 1) > 0 THEN
14963
14964             PERFORM 1
14965               FROM  asset.call_number cn
14966                     JOIN asset.copy cp ON (cp.call_number = cn.id)
14967               WHERE NOT cn.deleted
14968                     AND NOT cp.deleted
14969                     AND cp.status IN ( SELECT * FROM search.explode_array( param_statuses ) )
14970                     AND cn.record IN ( SELECT * FROM search.explode_array( core_result.records ) )
14971                     AND cp.circ_lib IN ( SELECT * FROM search.explode_array( search_org_list ) )
14972               LIMIT 1;
14973
14974             IF NOT FOUND THEN
14975                 -- RAISE NOTICE ' % were all status-excluded ... ', core_result.records;
14976                 excluded_count := excluded_count + 1;
14977                 CONTINUE;
14978             END IF;
14979
14980         END IF;
14981
14982         IF param_locations IS NOT NULL AND array_upper(param_locations, 1) > 0 THEN
14983
14984             PERFORM 1
14985               FROM  asset.call_number cn
14986                     JOIN asset.copy cp ON (cp.call_number = cn.id)
14987               WHERE NOT cn.deleted
14988                     AND NOT cp.deleted
14989                     AND cp.location IN ( SELECT * FROM search.explode_array( param_locations ) )
14990                     AND cn.record IN ( SELECT * FROM search.explode_array( core_result.records ) )
14991                     AND cp.circ_lib IN ( SELECT * FROM search.explode_array( search_org_list ) )
14992               LIMIT 1;
14993
14994             IF NOT FOUND THEN
14995                 -- RAISE NOTICE ' % were all copy_location-excluded ... ', core_result.records;
14996                 excluded_count := excluded_count + 1;
14997                 CONTINUE;
14998             END IF;
14999
15000         END IF;
15001
15002         IF staff IS NULL OR NOT staff THEN
15003
15004             PERFORM 1
15005               FROM  asset.opac_visible_copies
15006               WHERE circ_lib IN ( SELECT * FROM search.explode_array( search_org_list ) )
15007                     AND record IN ( SELECT * FROM search.explode_array( core_result.records ) )
15008               LIMIT 1;
15009
15010             IF NOT FOUND THEN
15011                 -- RAISE NOTICE ' % were all visibility-excluded ... ', core_result.records;
15012                 excluded_count := excluded_count + 1;
15013                 CONTINUE;
15014             END IF;
15015
15016         ELSE
15017
15018             PERFORM 1
15019               FROM  asset.call_number cn
15020                     JOIN asset.copy cp ON (cp.call_number = cn.id)
15021                     JOIN actor.org_unit a ON (cp.circ_lib = a.id)
15022               WHERE NOT cn.deleted
15023                     AND NOT cp.deleted
15024                     AND cp.circ_lib IN ( SELECT * FROM search.explode_array( search_org_list ) )
15025                     AND cn.record IN ( SELECT * FROM search.explode_array( core_result.records ) )
15026               LIMIT 1;
15027
15028             IF NOT FOUND THEN
15029
15030                 PERFORM 1
15031                   FROM  asset.call_number cn
15032                   WHERE cn.record IN ( SELECT * FROM search.explode_array( core_result.records ) )
15033                   LIMIT 1;
15034
15035                 IF FOUND THEN
15036                     -- RAISE NOTICE ' % were all visibility-excluded ... ', core_result.records;
15037                     excluded_count := excluded_count + 1;
15038                     CONTINUE;
15039                 END IF;
15040
15041             END IF;
15042
15043         END IF;
15044
15045         visible_count := visible_count + 1;
15046
15047         current_res.id = core_result.id;
15048         current_res.rel = core_result.rel;
15049
15050         tmp_int := 1;
15051         IF metarecord THEN
15052             SELECT COUNT(DISTINCT s.source) INTO tmp_int FROM metabib.metarecord_source_map s WHERE s.metarecord = core_result.id;
15053         END IF;
15054
15055         IF tmp_int = 1 THEN
15056             current_res.record = core_result.records[1];
15057         ELSE
15058             current_res.record = NULL;
15059         END IF;
15060
15061         RETURN NEXT current_res;
15062
15063         IF visible_count % 1000 = 0 THEN
15064             -- RAISE NOTICE ' % visible so far ... ', visible_count;
15065         END IF;
15066
15067     END LOOP;
15068
15069     current_res.id = NULL;
15070     current_res.rel = NULL;
15071     current_res.record = NULL;
15072     current_res.total = total_count;
15073     current_res.checked = check_count;
15074     current_res.deleted = deleted_count;
15075     current_res.visible = visible_count;
15076     current_res.excluded = excluded_count;
15077
15078     CLOSE core_cursor;
15079
15080     RETURN NEXT current_res;
15081
15082 END;
15083 $func$ LANGUAGE PLPGSQL;
15084
15085 ALTER TABLE biblio.record_entry ADD COLUMN owner INT;
15086 ALTER TABLE biblio.record_entry
15087          ADD CONSTRAINT biblio_record_entry_owner_fkey FOREIGN KEY (owner)
15088          REFERENCES actor.org_unit (id)
15089          DEFERRABLE INITIALLY DEFERRED;
15090
15091 ALTER TABLE biblio.record_entry ADD COLUMN share_depth INT;
15092
15093 ALTER TABLE auditor.biblio_record_entry_history ADD COLUMN owner INT;
15094 ALTER TABLE auditor.biblio_record_entry_history ADD COLUMN share_depth INT;
15095
15096 DROP VIEW auditor.biblio_record_entry_lifecycle;
15097
15098 SELECT auditor.create_auditor_lifecycle( 'biblio', 'record_entry' );
15099
15100 CREATE OR REPLACE FUNCTION public.first_word ( TEXT ) RETURNS TEXT AS $$
15101         SELECT COALESCE(SUBSTRING( $1 FROM $_$^\S+$_$), '');
15102 $$ LANGUAGE SQL STRICT IMMUTABLE;
15103
15104 CREATE OR REPLACE FUNCTION public.normalize_space( TEXT ) RETURNS TEXT AS $$
15105     SELECT regexp_replace(regexp_replace(regexp_replace($1, E'\\n', ' ', 'g'), E'(?:^\\s+)|(\\s+$)', '', 'g'), E'\\s+', ' ', 'g');
15106 $$ LANGUAGE SQL STRICT IMMUTABLE;
15107
15108 CREATE OR REPLACE FUNCTION public.lowercase( TEXT ) RETURNS TEXT AS $$
15109     return lc(shift);
15110 $$ LANGUAGE PLPERLU STRICT IMMUTABLE;
15111
15112 CREATE OR REPLACE FUNCTION public.uppercase( TEXT ) RETURNS TEXT AS $$
15113     return uc(shift);
15114 $$ LANGUAGE PLPERLU STRICT IMMUTABLE;
15115
15116 CREATE OR REPLACE FUNCTION public.remove_diacritics( TEXT ) RETURNS TEXT AS $$
15117     use Unicode::Normalize;
15118
15119     my $x = NFD(shift);
15120     $x =~ s/\pM+//go;
15121     return $x;
15122
15123 $$ LANGUAGE PLPERLU STRICT IMMUTABLE;
15124
15125 CREATE OR REPLACE FUNCTION public.entityize( TEXT ) RETURNS TEXT AS $$
15126     use Unicode::Normalize;
15127
15128     my $x = NFC(shift);
15129     $x =~ s/([\x{0080}-\x{fffd}])/sprintf('&#x%X;',ord($1))/sgoe;
15130     return $x;
15131
15132 $$ LANGUAGE PLPERLU STRICT IMMUTABLE;
15133
15134 CREATE OR REPLACE FUNCTION actor.org_unit_ancestor_setting( setting_name TEXT, org_id INT ) RETURNS SETOF actor.org_unit_setting AS $$
15135 DECLARE
15136     setting RECORD;
15137     cur_org INT;
15138 BEGIN
15139     cur_org := org_id;
15140     LOOP
15141         SELECT INTO setting * FROM actor.org_unit_setting WHERE org_unit = cur_org AND name = setting_name;
15142         IF FOUND THEN
15143             RETURN NEXT setting;
15144         END IF;
15145         SELECT INTO cur_org parent_ou FROM actor.org_unit WHERE id = cur_org;
15146         EXIT WHEN cur_org IS NULL;
15147     END LOOP;
15148     RETURN;
15149 END;
15150 $$ LANGUAGE plpgsql STABLE;
15151
15152 CREATE OR REPLACE FUNCTION acq.extract_holding_attr_table (lineitem int, tag text) RETURNS SETOF acq.flat_lineitem_holding_subfield AS $$
15153 DECLARE
15154     counter INT;
15155     lida    acq.flat_lineitem_holding_subfield%ROWTYPE;
15156 BEGIN
15157
15158     SELECT  COUNT(*) INTO counter
15159       FROM  oils_xpath_table(
15160                 'id',
15161                 'marc',
15162                 'acq.lineitem',
15163                 '//*[@tag="' || tag || '"]',
15164                 'id=' || lineitem
15165             ) as t(i int,c text);
15166
15167     FOR i IN 1 .. counter LOOP
15168         FOR lida IN
15169             SELECT  *
15170               FROM  (   SELECT  id,i,t,v
15171                           FROM  oils_xpath_table(
15172                                     'id',
15173                                     'marc',
15174                                     'acq.lineitem',
15175                                     '//*[@tag="' || tag || '"][position()=' || i || ']/*/@code|' ||
15176                                         '//*[@tag="' || tag || '"][position()=' || i || ']/*[@code]',
15177                                     'id=' || lineitem
15178                                 ) as t(id int,t text,v text)
15179                     )x
15180         LOOP
15181             RETURN NEXT lida;
15182         END LOOP;
15183     END LOOP;
15184
15185     RETURN;
15186 END;
15187 $$ LANGUAGE PLPGSQL;
15188
15189 CREATE OR REPLACE FUNCTION oils_i18n_xlate ( keytable TEXT, keyclass TEXT, keycol TEXT, identcol TEXT, keyvalue TEXT, raw_locale TEXT ) RETURNS TEXT AS $func$
15190 DECLARE
15191     locale      TEXT := REGEXP_REPLACE( REGEXP_REPLACE( raw_locale, E'[;, ].+$', '' ), E'_', '-', 'g' );
15192     language    TEXT := REGEXP_REPLACE( locale, E'-.+$', '' );
15193     result      config.i18n_core%ROWTYPE;
15194     fallback    TEXT;
15195     keyfield    TEXT := keyclass || '.' || keycol;
15196 BEGIN
15197
15198     -- Try the full locale
15199     SELECT  * INTO result
15200       FROM  config.i18n_core
15201       WHERE fq_field = keyfield
15202             AND identity_value = keyvalue
15203             AND translation = locale;
15204
15205     -- Try just the language
15206     IF NOT FOUND THEN
15207         SELECT  * INTO result
15208           FROM  config.i18n_core
15209           WHERE fq_field = keyfield
15210                 AND identity_value = keyvalue
15211                 AND translation = language;
15212     END IF;
15213
15214     -- Fall back to the string we passed in in the first place
15215     IF NOT FOUND THEN
15216     EXECUTE
15217             'SELECT ' ||
15218                 keycol ||
15219             ' FROM ' || keytable ||
15220             ' WHERE ' || identcol || ' = ' || quote_literal(keyvalue)
15221                 INTO fallback;
15222         RETURN fallback;
15223     END IF;
15224
15225     RETURN result.string;
15226 END;
15227 $func$ LANGUAGE PLPGSQL STABLE;
15228
15229 SELECT auditor.create_auditor ( 'acq', 'invoice' );
15230
15231 SELECT auditor.create_auditor ( 'acq', 'invoice_item' );
15232
15233 SELECT auditor.create_auditor ( 'acq', 'invoice_entry' );
15234
15235 INSERT INTO acq.cancel_reason ( id, org_unit, label, description, keep_debits ) VALUES (
15236     3, 1, 'delivered_but_lost',
15237     oils_i18n_gettext( 2, 'Delivered but not received; presumed lost', 'acqcr', 'label' ), TRUE );
15238
15239 CREATE TABLE config.global_flag (
15240     label   TEXT    NOT NULL
15241 ) INHERITS (config.internal_flag);
15242 ALTER TABLE config.global_flag ADD PRIMARY KEY (name);
15243
15244 INSERT INTO config.global_flag (name, label) -- defaults to enabled=FALSE
15245     VALUES (
15246         'cat.bib.use_id_for_tcn',
15247         oils_i18n_gettext(
15248             'cat.bib.use_id_for_tcn',
15249             'Cat: Use Internal ID for TCN Value',
15250             'cgf',
15251             'label'
15252         )
15253     );
15254
15255 -- resolves performance issue noted by EG Indiana
15256
15257 CREATE INDEX scecm_owning_copy_idx ON asset.stat_cat_entry_copy_map(owning_copy);
15258
15259 INSERT INTO config.metabib_class ( name, label ) VALUES ( 'identifier', oils_i18n_gettext('identifier', 'Identifier', 'cmc', 'name') );
15260
15261 INSERT INTO config.metabib_field ( id, field_class, name, label, format, xpath, facet_field ) VALUES
15262     (17, 'identifier', 'accession', oils_i18n_gettext(17, 'Accession Number', 'cmf', 'label'), 'marcxml', $$//marcxml:datafield[tag="001"]/text()$$, TRUE );
15263 INSERT INTO config.metabib_field ( id, field_class, name, label, format, xpath, facet_field ) VALUES
15264     (18, 'identifier', 'isbn', oils_i18n_gettext(18, 'ISBN', 'cmf', 'label'), 'marcxml', $$//marcxml:datafield[tag="020"]/marcxml:subfield[code="a" or code="z"]/text()$$, TRUE );
15265 INSERT INTO config.metabib_field ( id, field_class, name, label, format, xpath, facet_field ) VALUES
15266     (19, 'identifier', 'issn', oils_i18n_gettext(19, 'ISSN', 'cmf', 'label'), 'marcxml', $$//marcxml:datafield[tag="022"]/marcxml:subfield[code="a" or code="z"]/text()$$, TRUE );
15267 INSERT INTO config.metabib_field ( id, field_class, name, label, format, xpath, facet_field ) VALUES
15268     (20, 'identifier', 'upc', oils_i18n_gettext(20, 'UPC', 'cmf', 'label'), 'marcxml', $$//marcxml:datafield[tag="024" and ind1="1"]/marcxml:subfield[code="a" or code="z"]/text()$$, TRUE );
15269 INSERT INTO config.metabib_field ( id, field_class, name, label, format, xpath, facet_field ) VALUES
15270     (21, 'identifier', 'ismn', oils_i18n_gettext(21, 'ISMN', 'cmf', 'label'), 'marcxml', $$//marcxml:datafield[tag="024" and ind1="2"]/marcxml:subfield[code="a" or code="z"]/text()$$, TRUE );
15271 INSERT INTO config.metabib_field ( id, field_class, name, label, format, xpath, facet_field ) VALUES
15272     (22, 'identifier', 'ean', oils_i18n_gettext(22, 'EAN', 'cmf', 'label'), 'marcxml', $$//marcxml:datafield[tag="024" and ind1="3"]/marcxml:subfield[code="a" or code="z"]/text()$$, TRUE );
15273 INSERT INTO config.metabib_field ( id, field_class, name, label, format, xpath, facet_field ) VALUES
15274     (23, 'identifier', 'isrc', oils_i18n_gettext(23, 'ISRC', 'cmf', 'label'), 'marcxml', $$//marcxml:datafield[tag="024" and ind1="0"]/marcxml:subfield[code="a" or code="z"]/text()$$, TRUE );
15275 INSERT INTO config.metabib_field ( id, field_class, name, label, format, xpath, facet_field ) VALUES
15276     (24, 'identifier', 'sici', oils_i18n_gettext(24, 'SICI', 'cmf', 'label'), 'marcxml', $$//marcxml:datafield[tag="024" and ind1="4"]/marcxml:subfield[code="a" or code="z"]/text()$$, TRUE );
15277 INSERT INTO config.metabib_field ( id, field_class, name, label, format, xpath, facet_field ) VALUES
15278     (25, 'identifier', 'bibcn', oils_i18n_gettext(25, 'Local Free-Text Call Number', 'cmf', 'label'), 'marcxml', $$//marcxml:datafield[tag="099"]//text()$$, TRUE );
15279
15280 SELECT SETVAL('config.metabib_field_id_seq'::TEXT, (SELECT MAX(id) FROM config.metabib_field), TRUE);
15281
15282
15283 DELETE FROM config.metabib_search_alias WHERE alias = 'dc.identifier';
15284
15285 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('id','identifier');
15286 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('dc.identifier','identifier');
15287 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('eg.isbn','identifier', 18);
15288 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('eg.issn','identifier', 19);
15289 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('eg.upc','identifier', 20);
15290 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('eg.callnumber','identifier', 25);
15291
15292 CREATE TABLE metabib.identifier_field_entry (
15293         id              BIGSERIAL       PRIMARY KEY,
15294         source          BIGINT          NOT NULL,
15295         field           INT             NOT NULL,
15296         value           TEXT            NOT NULL,
15297         index_vector    tsvector        NOT NULL
15298 );
15299 CREATE TRIGGER metabib_identifier_field_entry_fti_trigger
15300         BEFORE UPDATE OR INSERT ON metabib.identifier_field_entry
15301         FOR EACH ROW EXECUTE PROCEDURE oils_tsearch2('keyword');
15302
15303 CREATE INDEX metabib_identifier_field_entry_index_vector_idx ON metabib.identifier_field_entry USING GIST (index_vector);
15304 CREATE INDEX metabib_identifier_field_entry_value_idx ON metabib.identifier_field_entry
15305     (SUBSTRING(value,1,1024)) WHERE index_vector = ''::TSVECTOR;
15306 CREATE INDEX metabib_identifier_field_entry_source_idx ON metabib.identifier_field_entry (source);
15307
15308 ALTER TABLE metabib.identifier_field_entry ADD CONSTRAINT metabib_identifier_field_entry_source_pkey
15309     FOREIGN KEY (source) REFERENCES biblio.record_entry (id) ON DELETE CASCADE DEFERRABLE INITIALLY DEFERRED;
15310 ALTER TABLE metabib.identifier_field_entry ADD CONSTRAINT metabib_identifier_field_entry_field_pkey
15311     FOREIGN KEY (field) REFERENCES config.metabib_field (id) ON DELETE CASCADE DEFERRABLE INITIALLY DEFERRED;
15312
15313 CREATE OR REPLACE FUNCTION public.translate_isbn1013( TEXT ) RETURNS TEXT AS $func$
15314     use Business::ISBN;
15315     use strict;
15316     use warnings;
15317
15318     # For each ISBN found in a single string containing a set of ISBNs:
15319     #   * Normalize an incoming ISBN to have the correct checksum and no hyphens
15320     #   * Convert an incoming ISBN10 or ISBN13 to its counterpart and return
15321
15322     my $input = shift;
15323     my $output = '';
15324
15325     foreach my $word (split(/\s/, $input)) {
15326         my $isbn = Business::ISBN->new($word);
15327
15328         # First check the checksum; if it is not valid, fix it and add the original
15329         # bad-checksum ISBN to the output
15330         if ($isbn && $isbn->is_valid_checksum() == Business::ISBN::BAD_CHECKSUM) {
15331             $output .= $isbn->isbn() . " ";
15332             $isbn->fix_checksum();
15333         }
15334
15335         # If we now have a valid ISBN, convert it to its counterpart ISBN10/ISBN13
15336         # and add the normalized original ISBN to the output
15337         if ($isbn && $isbn->is_valid()) {
15338             my $isbn_xlated = ($isbn->type eq "ISBN13") ? $isbn->as_isbn10 : $isbn->as_isbn13;
15339             $output .= $isbn->isbn . " ";
15340
15341             # If we successfully converted the ISBN to its counterpart, add the
15342             # converted ISBN to the output as well
15343             $output .= ($isbn_xlated->isbn . " ") if ($isbn_xlated);
15344         }
15345     }
15346     return $output if $output;
15347
15348     # If there were no valid ISBNs, just return the raw input
15349     return $input;
15350 $func$ LANGUAGE PLPERLU;
15351
15352 COMMENT ON FUNCTION public.translate_isbn1013(TEXT) IS $$
15353 /*
15354  * Copyright (C) 2010 Merrimack Valley Library Consortium
15355  * Jason Stephenson <jstephenson@mvlc.org>
15356  * Copyright (C) 2010 Laurentian University
15357  * Dan Scott <dscott@laurentian.ca>
15358  *
15359  * The translate_isbn1013 function takes an input ISBN and returns the
15360  * following in a single space-delimited string if the input ISBN is valid:
15361  *   - The normalized input ISBN (hyphens stripped)
15362  *   - The normalized input ISBN with a fixed checksum if the checksum was bad
15363  *   - The ISBN converted to its ISBN10 or ISBN13 counterpart, if possible
15364  */
15365 $$;
15366
15367 UPDATE config.metabib_field SET facet_field = FALSE WHERE id BETWEEN 17 AND 25;
15368 UPDATE config.metabib_field SET xpath = REPLACE(xpath,'marcxml','marc') WHERE id BETWEEN 17 AND 25;
15369 UPDATE config.metabib_field SET xpath = REPLACE(xpath,'tag','@tag') WHERE id BETWEEN 17 AND 25;
15370 UPDATE config.metabib_field SET xpath = REPLACE(xpath,'code','@code') WHERE id BETWEEN 17 AND 25;
15371 UPDATE config.metabib_field SET xpath = REPLACE(xpath,'"',E'\'') WHERE id BETWEEN 17 AND 25;
15372 UPDATE config.metabib_field SET xpath = REPLACE(xpath,'/text()','') WHERE id BETWEEN 17 AND 24;
15373
15374 INSERT INTO config.index_normalizer (name, description, func, param_count) VALUES (
15375         'ISBN 10/13 conversion',
15376         'Translate ISBN10 to ISBN13, and vice versa, for indexing purposes.',
15377         'translate_isbn1013',
15378         0
15379 );
15380
15381 INSERT INTO config.index_normalizer (name, description, func, param_count) VALUES (
15382         'Replace',
15383         'Replace all occurences of first parameter in the string with the second parameter.',
15384         'replace',
15385         2
15386 );
15387
15388 INSERT INTO config.metabib_field_index_norm_map (field,norm,pos)
15389     SELECT  m.id, i.id, 1
15390       FROM  config.metabib_field m,
15391             config.index_normalizer i
15392       WHERE i.func IN ('first_word')
15393             AND m.id IN (18);
15394
15395 INSERT INTO config.metabib_field_index_norm_map (field,norm,pos)
15396     SELECT  m.id, i.id, 2
15397       FROM  config.metabib_field m,
15398             config.index_normalizer i
15399       WHERE i.func IN ('translate_isbn1013')
15400             AND m.id IN (18);
15401
15402 INSERT INTO config.metabib_field_index_norm_map (field,norm,params)
15403     SELECT  m.id, i.id, $$['-','']$$
15404       FROM  config.metabib_field m,
15405             config.index_normalizer i
15406       WHERE i.func IN ('replace')
15407             AND m.id IN (19);
15408
15409 INSERT INTO config.metabib_field_index_norm_map (field,norm,params)
15410     SELECT  m.id, i.id, $$[' ','']$$
15411       FROM  config.metabib_field m,
15412             config.index_normalizer i
15413       WHERE i.func IN ('replace')
15414             AND m.id IN (19);
15415
15416 DELETE FROM config.metabib_field_index_norm_map WHERE norm IN (1,2) and field > 16;
15417
15418 UPDATE  config.metabib_field_index_norm_map
15419   SET   params = REPLACE(params,E'\'','"')
15420   WHERE params IS NOT NULL AND params <> '';
15421
15422 DROP TRIGGER IF EXISTS metabib_identifier_field_entry_fti_trigger ON metabib.identifier_field_entry;
15423
15424 CREATE TEXT SEARCH CONFIGURATION identifier ( COPY = title );
15425
15426 ALTER TABLE config.circ_modifier
15427         ADD COLUMN avg_wait_time INTERVAL;
15428
15429 --CREATE TABLE actor.usr_password_reset (
15430 --  id SERIAL PRIMARY KEY,
15431 --  uuid TEXT NOT NULL,
15432 --  usr BIGINT NOT NULL REFERENCES actor.usr(id) DEFERRABLE INITIALLY DEFERRED,
15433 --  request_time TIMESTAMP NOT NULL DEFAULT NOW(),
15434 --  has_been_reset BOOL NOT NULL DEFAULT false
15435 --);
15436 --COMMENT ON TABLE actor.usr_password_reset IS $$
15437 --/*
15438 -- * Copyright (C) 2010 Laurentian University
15439 -- * Dan Scott <dscott@laurentian.ca>
15440 -- *
15441 -- * Self-serve password reset requests
15442 -- *
15443 -- * ****
15444 -- *
15445 -- * This program is free software; you can redistribute it and/or
15446 -- * modify it under the terms of the GNU General Public License
15447 -- * as published by the Free Software Foundation; either version 2
15448 -- * of the License, or (at your option) any later version.
15449 -- *
15450 -- * This program is distributed in the hope that it will be useful,
15451 -- * but WITHOUT ANY WARRANTY; without even the implied warranty of
15452 -- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15453 -- * GNU General Public License for more details.
15454 -- */
15455 --$$;
15456 --CREATE UNIQUE INDEX actor_usr_password_reset_uuid_idx ON actor.usr_password_reset (uuid);
15457 --CREATE INDEX actor_usr_password_reset_usr_idx ON actor.usr_password_reset (usr);
15458 --CREATE INDEX actor_usr_password_reset_request_time_idx ON actor.usr_password_reset (request_time);
15459 --CREATE INDEX actor_usr_password_reset_has_been_reset_idx ON actor.usr_password_reset (has_been_reset);
15460
15461 -- Use the identifier search class tsconfig
15462 DROP TRIGGER IF EXISTS metabib_identifier_field_entry_fti_trigger ON metabib.identifier_field_entry;
15463 CREATE TRIGGER metabib_identifier_field_entry_fti_trigger
15464     BEFORE INSERT OR UPDATE ON metabib.identifier_field_entry
15465     FOR EACH ROW
15466     EXECUTE PROCEDURE public.oils_tsearch2('identifier');
15467
15468 INSERT INTO config.global_flag (name,label,enabled)
15469     VALUES ('history.circ.retention_age',oils_i18n_gettext('history.circ.retention_age', 'Historical Circulation Retention Age', 'cgf', 'label'), TRUE);
15470 INSERT INTO config.global_flag (name,label,enabled)
15471     VALUES ('history.circ.retention_count',oils_i18n_gettext('history.circ.retention_count', 'Historical Circulations per Copy', 'cgf', 'label'), TRUE);
15472
15473 -- turn a JSON scalar into an SQL TEXT value
15474 CREATE OR REPLACE FUNCTION oils_json_to_text( TEXT ) RETURNS TEXT AS $f$
15475     use JSON::XS;
15476     my $json = shift();
15477     my $txt;
15478     eval { $txt = JSON::XS->new->allow_nonref->decode( $json ) };
15479     return undef if ($@);
15480     return $txt
15481 $f$ LANGUAGE PLPERLU;
15482
15483 -- Return the list of circ chain heads in xact_start order that the user has chosen to "retain"
15484 CREATE OR REPLACE FUNCTION action.usr_visible_circs (usr_id INT) RETURNS SETOF action.circulation AS $func$
15485 DECLARE
15486     c               action.circulation%ROWTYPE;
15487     view_age        INTERVAL;
15488     usr_view_age    actor.usr_setting%ROWTYPE;
15489     usr_view_start  actor.usr_setting%ROWTYPE;
15490 BEGIN
15491     SELECT * INTO usr_view_age FROM actor.usr_setting WHERE usr = usr_id AND name = 'history.circ.retention_age';
15492     SELECT * INTO usr_view_start FROM actor.usr_setting WHERE usr = usr_id AND name = 'history.circ.retention_start';
15493
15494     IF usr_view_age.value IS NOT NULL AND usr_view_start.value IS NOT NULL THEN
15495         -- User opted in and supplied a retention age
15496         IF oils_json_to_text(usr_view_age.value)::INTERVAL > AGE(NOW(), oils_json_to_text(usr_view_start.value)::TIMESTAMPTZ) THEN
15497             view_age := AGE(NOW(), oils_json_to_text(usr_view_start.value)::TIMESTAMPTZ);
15498         ELSE
15499             view_age := oils_json_to_text(usr_view_age.value)::INTERVAL;
15500         END IF;
15501     ELSIF usr_view_start.value IS NOT NULL THEN
15502         -- User opted in
15503         view_age := AGE(NOW(), oils_json_to_text(usr_view_start.value)::TIMESTAMPTZ);
15504     ELSE
15505         -- User did not opt in
15506         RETURN;
15507     END IF;
15508
15509     FOR c IN
15510         SELECT  *
15511           FROM  action.circulation
15512           WHERE usr = usr_id
15513                 AND parent_circ IS NULL
15514                 AND xact_start > NOW() - view_age
15515           ORDER BY xact_start
15516     LOOP
15517         RETURN NEXT c;
15518     END LOOP;
15519
15520     RETURN;
15521 END;
15522 $func$ LANGUAGE PLPGSQL;
15523
15524 CREATE OR REPLACE FUNCTION action.purge_circulations () RETURNS INT AS $func$
15525 DECLARE
15526     usr_keep_age    actor.usr_setting%ROWTYPE;
15527     usr_keep_start  actor.usr_setting%ROWTYPE;
15528     org_keep_age    INTERVAL;
15529     org_keep_count  INT;
15530
15531     keep_age        INTERVAL;
15532
15533     target_acp      RECORD;
15534     circ_chain_head action.circulation%ROWTYPE;
15535     circ_chain_tail action.circulation%ROWTYPE;
15536
15537     purge_position  INT;
15538     count_purged    INT;
15539 BEGIN
15540
15541     count_purged := 0;
15542
15543     SELECT value::INTERVAL INTO org_keep_age FROM config.global_flag WHERE name = 'history.circ.retention_age' AND enabled;
15544
15545     SELECT value::INT INTO org_keep_count FROM config.global_flag WHERE name = 'history.circ.retention_count' AND enabled;
15546     IF org_keep_count IS NULL THEN
15547         RETURN count_purged; -- Gimme a count to keep, or I keep them all, forever
15548     END IF;
15549
15550     -- First, find copies with more than keep_count non-renewal circs
15551     FOR target_acp IN
15552         SELECT  target_copy,
15553                 COUNT(*) AS total_real_circs
15554           FROM  action.circulation
15555           WHERE parent_circ IS NULL
15556                 AND xact_finish IS NOT NULL
15557           GROUP BY target_copy
15558           HAVING COUNT(*) > org_keep_count
15559     LOOP
15560         purge_position := 0;
15561         -- And, for those, select circs that are finished and older than keep_age
15562         FOR circ_chain_head IN
15563             SELECT  *
15564               FROM  action.circulation
15565               WHERE target_copy = target_acp.target_copy
15566                     AND parent_circ IS NULL
15567               ORDER BY xact_start
15568         LOOP
15569
15570             -- Stop once we've purged enough circs to hit org_keep_count
15571             EXIT WHEN target_acp.total_real_circs - purge_position <= org_keep_count;
15572
15573             SELECT * INTO circ_chain_tail FROM action.circ_chain(circ_chain_head.id) ORDER BY xact_start DESC LIMIT 1;
15574             EXIT WHEN circ_chain_tail.xact_finish IS NULL;
15575
15576             -- Now get the user settings, if any, to block purging if the user wants to keep more circs
15577             usr_keep_age.value := NULL;
15578             SELECT * INTO usr_keep_age FROM actor.usr_setting WHERE usr = circ_chain_head.usr AND name = 'history.circ.retention_age';
15579
15580             usr_keep_start.value := NULL;
15581             SELECT * INTO usr_keep_start FROM actor.usr_setting WHERE usr = circ_chain_head.usr AND name = 'history.circ.retention_start';
15582
15583             IF usr_keep_age.value IS NOT NULL AND usr_keep_start.value IS NOT NULL THEN
15584                 IF oils_json_to_text(usr_keep_age.value)::INTERVAL > AGE(NOW(), oils_json_to_text(usr_keep_start.value)::TIMESTAMPTZ) THEN
15585                     keep_age := AGE(NOW(), oils_json_to_text(usr_keep_start.value)::TIMESTAMPTZ);
15586                 ELSE
15587                     keep_age := oils_json_to_text(usr_keep_age.value)::INTERVAL;
15588                 END IF;
15589             ELSIF usr_keep_start.value IS NOT NULL THEN
15590                 keep_age := AGE(NOW(), oils_json_to_text(usr_keep_start.value)::TIMESTAMPTZ);
15591             ELSE
15592                 keep_age := COALESCE( org_keep_age::INTERVAL, '2000 years'::INTERVAL );
15593             END IF;
15594
15595             EXIT WHEN AGE(NOW(), circ_chain_tail.xact_finish) < keep_age;
15596
15597             -- We've passed the purging tests, purge the circ chain starting at the end
15598             DELETE FROM action.circulation WHERE id = circ_chain_tail.id;
15599             WHILE circ_chain_tail.parent_circ IS NOT NULL LOOP
15600                 SELECT * INTO circ_chain_tail FROM action.circulation WHERE id = circ_chain_tail.parent_circ;
15601                 DELETE FROM action.circulation WHERE id = circ_chain_tail.id;
15602             END LOOP;
15603
15604             count_purged := count_purged + 1;
15605             purge_position := purge_position + 1;
15606
15607         END LOOP;
15608     END LOOP;
15609 END;
15610 $func$ LANGUAGE PLPGSQL;
15611
15612 CREATE OR REPLACE FUNCTION action.usr_visible_holds (usr_id INT) RETURNS SETOF action.hold_request AS $func$
15613 DECLARE
15614     h               action.hold_request%ROWTYPE;
15615     view_age        INTERVAL;
15616     view_count      INT;
15617     usr_view_count  actor.usr_setting%ROWTYPE;
15618     usr_view_age    actor.usr_setting%ROWTYPE;
15619     usr_view_start  actor.usr_setting%ROWTYPE;
15620 BEGIN
15621     SELECT * INTO usr_view_count FROM actor.usr_setting WHERE usr = usr_id AND name = 'history.hold.retention_count';
15622     SELECT * INTO usr_view_age FROM actor.usr_setting WHERE usr = usr_id AND name = 'history.hold.retention_age';
15623     SELECT * INTO usr_view_start FROM actor.usr_setting WHERE usr = usr_id AND name = 'history.hold.retention_start';
15624
15625     FOR h IN
15626         SELECT  *
15627           FROM  action.hold_request
15628           WHERE usr = usr_id
15629                 AND fulfillment_time IS NULL
15630                 AND cancel_time IS NULL
15631           ORDER BY request_time DESC
15632     LOOP
15633         RETURN NEXT h;
15634     END LOOP;
15635
15636     IF usr_view_start.value IS NULL THEN
15637         RETURN;
15638     END IF;
15639
15640     IF usr_view_age.value IS NOT NULL THEN
15641         -- User opted in and supplied a retention age
15642         IF oils_json_to_string(usr_view_age.value)::INTERVAL > AGE(NOW(), oils_json_to_string(usr_view_start.value)::TIMESTAMPTZ) THEN
15643             view_age := AGE(NOW(), oils_json_to_string(usr_view_start.value)::TIMESTAMPTZ);
15644         ELSE
15645             view_age := oils_json_to_string(usr_view_age.value)::INTERVAL;
15646         END IF;
15647     ELSE
15648         -- User opted in
15649         view_age := AGE(NOW(), oils_json_to_string(usr_view_start.value)::TIMESTAMPTZ);
15650     END IF;
15651
15652     IF usr_view_count.value IS NOT NULL THEN
15653         view_count := oils_json_to_text(usr_view_count.value)::INT;
15654     ELSE
15655         view_count := 1000;
15656     END IF;
15657
15658     -- show some fulfilled/canceled holds
15659     FOR h IN
15660         SELECT  *
15661           FROM  action.hold_request
15662           WHERE usr = usr_id
15663                 AND ( fulfillment_time IS NOT NULL OR cancel_time IS NOT NULL )
15664                 AND request_time > NOW() - view_age
15665           ORDER BY request_time DESC
15666           LIMIT view_count
15667     LOOP
15668         RETURN NEXT h;
15669     END LOOP;
15670
15671     RETURN;
15672 END;
15673 $func$ LANGUAGE PLPGSQL;
15674
15675 DROP TABLE IF EXISTS serial.bib_summary CASCADE;
15676
15677 DROP TABLE IF EXISTS serial.index_summary CASCADE;
15678
15679 DROP TABLE IF EXISTS serial.sup_summary CASCADE;
15680
15681 DROP TABLE IF EXISTS serial.issuance CASCADE;
15682
15683 DROP TABLE IF EXISTS serial.binding_unit CASCADE;
15684
15685 DROP TABLE IF EXISTS serial.subscription CASCADE;
15686
15687 CREATE TABLE asset.copy_template (
15688         id             SERIAL   PRIMARY KEY,
15689         owning_lib     INT      NOT NULL
15690                                 REFERENCES actor.org_unit (id)
15691                                 DEFERRABLE INITIALLY DEFERRED,
15692         creator        BIGINT   NOT NULL
15693                                 REFERENCES actor.usr (id)
15694                                 DEFERRABLE INITIALLY DEFERRED,
15695         editor         BIGINT   NOT NULL
15696                                 REFERENCES actor.usr (id)
15697                                 DEFERRABLE INITIALLY DEFERRED,
15698         create_date    TIMESTAMP WITH TIME ZONE    DEFAULT NOW(),
15699         edit_date      TIMESTAMP WITH TIME ZONE    DEFAULT NOW(),
15700         name           TEXT     NOT NULL,
15701         -- columns above this point are attributes of the template itself
15702         -- columns after this point are attributes of the copy this template modifies/creates
15703         circ_lib       INT      REFERENCES actor.org_unit (id)
15704                                 DEFERRABLE INITIALLY DEFERRED,
15705         status         INT      REFERENCES config.copy_status (id)
15706                                 DEFERRABLE INITIALLY DEFERRED,
15707         location       INT      REFERENCES asset.copy_location (id)
15708                                 DEFERRABLE INITIALLY DEFERRED,
15709         loan_duration  INT      CONSTRAINT valid_loan_duration CHECK (
15710                                     loan_duration IS NULL OR loan_duration IN (1,2,3)),
15711         fine_level     INT      CONSTRAINT valid_fine_level CHECK (
15712                                     fine_level IS NULL OR loan_duration IN (1,2,3)),
15713         age_protect    INT,
15714         circulate      BOOL,
15715         deposit        BOOL,
15716         ref            BOOL,
15717         holdable       BOOL,
15718         deposit_amount NUMERIC(6,2),
15719         price          NUMERIC(8,2),
15720         circ_modifier  TEXT,
15721         circ_as_type   TEXT,
15722         alert_message  TEXT,
15723         opac_visible   BOOL,
15724         floating       BOOL,
15725         mint_condition BOOL
15726 );
15727
15728 CREATE TABLE serial.subscription (
15729         id                     SERIAL       PRIMARY KEY,
15730         owning_lib             INT          NOT NULL DEFAULT 1
15731                                             REFERENCES actor.org_unit (id)
15732                                             ON DELETE SET NULL
15733                                             DEFERRABLE INITIALLY DEFERRED,
15734         start_date             TIMESTAMP WITH TIME ZONE     NOT NULL,
15735         end_date               TIMESTAMP WITH TIME ZONE,    -- interpret NULL as current subscription
15736         record_entry           BIGINT       REFERENCES biblio.record_entry (id)
15737                                             ON DELETE SET NULL
15738                                             DEFERRABLE INITIALLY DEFERRED,
15739         expected_date_offset   INTERVAL
15740         -- acquisitions/business-side tables link to here
15741 );
15742 CREATE INDEX serial_subscription_record_idx ON serial.subscription (record_entry);
15743 CREATE INDEX serial_subscription_owner_idx ON serial.subscription (owning_lib);
15744
15745 --at least one distribution per org_unit holding issues
15746 CREATE TABLE serial.distribution (
15747         id                    SERIAL  PRIMARY KEY,
15748         record_entry          BIGINT  REFERENCES serial.record_entry (id)
15749                                       ON DELETE SET NULL
15750                                       DEFERRABLE INITIALLY DEFERRED,
15751         summary_method        TEXT    CONSTRAINT sdist_summary_method_check CHECK (
15752                                           summary_method IS NULL
15753                                           OR summary_method IN ( 'add_to_sre',
15754                                           'merge_with_sre', 'use_sre_only',
15755                                           'use_sdist_only')),
15756         subscription          INT     NOT NULL
15757                                       REFERENCES serial.subscription (id)
15758                                                                   ON DELETE CASCADE
15759                                                                   DEFERRABLE INITIALLY DEFERRED,
15760         holding_lib           INT     NOT NULL
15761                                       REFERENCES actor.org_unit (id)
15762                                                                   DEFERRABLE INITIALLY DEFERRED,
15763         label                 TEXT    NOT NULL,
15764         receive_call_number   BIGINT  REFERENCES asset.call_number (id)
15765                                       DEFERRABLE INITIALLY DEFERRED,
15766         receive_unit_template INT     REFERENCES asset.copy_template (id)
15767                                       DEFERRABLE INITIALLY DEFERRED,
15768         bind_call_number      BIGINT  REFERENCES asset.call_number (id)
15769                                       DEFERRABLE INITIALLY DEFERRED,
15770         bind_unit_template    INT     REFERENCES asset.copy_template (id)
15771                                       DEFERRABLE INITIALLY DEFERRED,
15772         unit_label_prefix     TEXT,
15773         unit_label_suffix     TEXT
15774 );
15775 CREATE INDEX serial_distribution_sub_idx ON serial.distribution (subscription);
15776 CREATE INDEX serial_distribution_holding_lib_idx ON serial.distribution (holding_lib);
15777
15778 CREATE UNIQUE INDEX one_dist_per_sre_idx ON serial.distribution (record_entry);
15779
15780 CREATE TABLE serial.stream (
15781         id              SERIAL  PRIMARY KEY,
15782         distribution    INT     NOT NULL
15783                                 REFERENCES serial.distribution (id)
15784                                 ON DELETE CASCADE
15785                                 DEFERRABLE INITIALLY DEFERRED,
15786         routing_label   TEXT
15787 );
15788 CREATE INDEX serial_stream_dist_idx ON serial.stream (distribution);
15789
15790 CREATE UNIQUE INDEX label_once_per_dist
15791         ON serial.stream (distribution, routing_label)
15792         WHERE routing_label IS NOT NULL;
15793
15794 CREATE TABLE serial.routing_list_user (
15795         id             SERIAL       PRIMARY KEY,
15796         stream         INT          NOT NULL
15797                                     REFERENCES serial.stream
15798                                     ON DELETE CASCADE
15799                                     DEFERRABLE INITIALLY DEFERRED,
15800         pos            INT          NOT NULL DEFAULT 1,
15801         reader         INT          REFERENCES actor.usr
15802                                     ON DELETE CASCADE
15803                                     DEFERRABLE INITIALLY DEFERRED,
15804         department     TEXT,
15805         note           TEXT,
15806         CONSTRAINT one_pos_per_routing_list UNIQUE ( stream, pos ),
15807         CONSTRAINT reader_or_dept CHECK
15808         (
15809             -- Recipient is a person or a department, but not both
15810                 (reader IS NOT NULL AND department IS NULL) OR
15811                 (reader IS NULL AND department IS NOT NULL)
15812         )
15813 );
15814 CREATE INDEX serial_routing_list_user_stream_idx ON serial.routing_list_user (stream);
15815 CREATE INDEX serial_routing_list_user_reader_idx ON serial.routing_list_user (reader);
15816
15817 CREATE TABLE serial.caption_and_pattern (
15818         id           SERIAL       PRIMARY KEY,
15819         subscription INT          NOT NULL REFERENCES serial.subscription (id)
15820                                   ON DELETE CASCADE
15821                                   DEFERRABLE INITIALLY DEFERRED,
15822         type         TEXT         NOT NULL
15823                                   CONSTRAINT cap_type CHECK ( type in
15824                                   ( 'basic', 'supplement', 'index' )),
15825         create_date  TIMESTAMPTZ  NOT NULL DEFAULT now(),
15826         start_date   TIMESTAMP WITH TIME ZONE NOT NULL DEFAULT NOW(),
15827         end_date     TIMESTAMP WITH TIME ZONE,
15828         active       BOOL         NOT NULL DEFAULT FALSE,
15829         pattern_code TEXT         NOT NULL,       -- must contain JSON
15830         enum_1       TEXT,
15831         enum_2       TEXT,
15832         enum_3       TEXT,
15833         enum_4       TEXT,
15834         enum_5       TEXT,
15835         enum_6       TEXT,
15836         chron_1      TEXT,
15837         chron_2      TEXT,
15838         chron_3      TEXT,
15839         chron_4      TEXT,
15840         chron_5      TEXT
15841 );
15842 CREATE INDEX serial_caption_and_pattern_sub_idx ON serial.caption_and_pattern (subscription);
15843
15844 CREATE TABLE serial.issuance (
15845         id              SERIAL    PRIMARY KEY,
15846         creator         INT       NOT NULL
15847                                   REFERENCES actor.usr (id)
15848                                                           DEFERRABLE INITIALLY DEFERRED,
15849         editor          INT       NOT NULL
15850                                   REFERENCES actor.usr (id)
15851                                   DEFERRABLE INITIALLY DEFERRED,
15852         create_date     TIMESTAMP WITH TIME ZONE        NOT NULL DEFAULT now(),
15853         edit_date       TIMESTAMP WITH TIME ZONE        NOT NULL DEFAULT now(),
15854         subscription    INT       NOT NULL
15855                                   REFERENCES serial.subscription (id)
15856                                   ON DELETE CASCADE
15857                                   DEFERRABLE INITIALLY DEFERRED,
15858         label           TEXT,
15859         date_published  TIMESTAMP WITH TIME ZONE,
15860         caption_and_pattern  INT  REFERENCES serial.caption_and_pattern (id)
15861                               DEFERRABLE INITIALLY DEFERRED,
15862         holding_code    TEXT,
15863         holding_type    TEXT      CONSTRAINT valid_holding_type CHECK
15864                                   (
15865                                       holding_type IS NULL
15866                                       OR holding_type IN ('basic','supplement','index')
15867                                   ),
15868         holding_link_id INT
15869         -- TODO: add columns for separate enumeration/chronology values
15870 );
15871 CREATE INDEX serial_issuance_sub_idx ON serial.issuance (subscription);
15872 CREATE INDEX serial_issuance_caption_and_pattern_idx ON serial.issuance (caption_and_pattern);
15873 CREATE INDEX serial_issuance_date_published_idx ON serial.issuance (date_published);
15874
15875 CREATE TABLE serial.unit (
15876         label           TEXT,
15877         label_sort_key  TEXT,
15878         contents        TEXT    NOT NULL
15879 ) INHERITS (asset.copy);
15880 CREATE UNIQUE INDEX unit_barcode_key ON serial.unit (barcode) WHERE deleted = FALSE OR deleted IS FALSE;
15881 CREATE INDEX unit_cn_idx ON serial.unit (call_number);
15882 CREATE INDEX unit_avail_cn_idx ON serial.unit (call_number);
15883 CREATE INDEX unit_creator_idx  ON serial.unit ( creator );
15884 CREATE INDEX unit_editor_idx   ON serial.unit ( editor );
15885
15886 ALTER TABLE serial.unit ADD PRIMARY KEY (id);
15887
15888 ALTER TABLE serial.unit ADD CONSTRAINT serial_unit_call_number_fkey FOREIGN KEY (call_number) REFERENCES asset.call_number (id) DEFERRABLE INITIALLY DEFERRED;
15889
15890 ALTER TABLE serial.unit ADD CONSTRAINT serial_unit_creator_fkey FOREIGN KEY (creator) REFERENCES actor.usr (id) ON DELETE SET NULL DEFERRABLE INITIALLY DEFERRED;
15891
15892 ALTER TABLE serial.unit ADD CONSTRAINT serial_unit_editor_fkey FOREIGN KEY (editor) REFERENCES actor.usr (id) ON DELETE SET NULL DEFERRABLE INITIALLY DEFERRED;
15893
15894 CREATE TABLE serial.item (
15895         id              SERIAL  PRIMARY KEY,
15896         creator         INT     NOT NULL
15897                                 REFERENCES actor.usr (id)
15898                                 DEFERRABLE INITIALLY DEFERRED,
15899         editor          INT     NOT NULL
15900                                 REFERENCES actor.usr (id)
15901                                 DEFERRABLE INITIALLY DEFERRED,
15902         create_date     TIMESTAMP WITH TIME ZONE        NOT NULL DEFAULT now(),
15903         edit_date       TIMESTAMP WITH TIME ZONE        NOT NULL DEFAULT now(),
15904         issuance        INT     NOT NULL
15905                                 REFERENCES serial.issuance (id)
15906                                 ON DELETE CASCADE
15907                                 DEFERRABLE INITIALLY DEFERRED,
15908         stream          INT     NOT NULL
15909                                 REFERENCES serial.stream (id)
15910                                 ON DELETE CASCADE
15911                                 DEFERRABLE INITIALLY DEFERRED,
15912         unit            INT     REFERENCES serial.unit (id)
15913                                 ON DELETE SET NULL
15914                                 DEFERRABLE INITIALLY DEFERRED,
15915         uri             INT     REFERENCES asset.uri (id)
15916                                 ON DELETE SET NULL
15917                                 DEFERRABLE INITIALLY DEFERRED,
15918         date_expected   TIMESTAMP WITH TIME ZONE,
15919         date_received   TIMESTAMP WITH TIME ZONE,
15920         status          TEXT    CONSTRAINT valid_status CHECK (
15921                                status IN ( 'Bindery', 'Bound', 'Claimed', 'Discarded',
15922                                'Expected', 'Not Held', 'Not Published', 'Received'))
15923                             DEFAULT 'Expected',
15924         shadowed        BOOL    NOT NULL DEFAULT FALSE
15925 );
15926 CREATE INDEX serial_item_stream_idx ON serial.item (stream);
15927 CREATE INDEX serial_item_issuance_idx ON serial.item (issuance);
15928 CREATE INDEX serial_item_unit_idx ON serial.item (unit);
15929 CREATE INDEX serial_item_uri_idx ON serial.item (uri);
15930 CREATE INDEX serial_item_date_received_idx ON serial.item (date_received);
15931 CREATE INDEX serial_item_status_idx ON serial.item (status);
15932
15933 CREATE TABLE serial.item_note (
15934         id          SERIAL  PRIMARY KEY,
15935         item        INT     NOT NULL
15936                             REFERENCES serial.item (id)
15937                             ON DELETE CASCADE
15938                             DEFERRABLE INITIALLY DEFERRED,
15939         creator     INT     NOT NULL
15940                             REFERENCES actor.usr (id)
15941                             DEFERRABLE INITIALLY DEFERRED,
15942         create_date TIMESTAMP WITH TIME ZONE    DEFAULT NOW(),
15943         pub         BOOL    NOT NULL    DEFAULT FALSE,
15944         title       TEXT    NOT NULL,
15945         value       TEXT    NOT NULL
15946 );
15947 CREATE INDEX serial_item_note_item_idx ON serial.item_note (item);
15948
15949 CREATE TABLE serial.basic_summary (
15950         id                  SERIAL  PRIMARY KEY,
15951         distribution        INT     NOT NULL
15952                                     REFERENCES serial.distribution (id)
15953                                     ON DELETE CASCADE
15954                                     DEFERRABLE INITIALLY DEFERRED,
15955         generated_coverage  TEXT    NOT NULL,
15956         textual_holdings    TEXT,
15957         show_generated      BOOL    NOT NULL DEFAULT TRUE
15958 );
15959 CREATE INDEX serial_basic_summary_dist_idx ON serial.basic_summary (distribution);
15960
15961 CREATE TABLE serial.supplement_summary (
15962         id                  SERIAL  PRIMARY KEY,
15963         distribution        INT     NOT NULL
15964                                     REFERENCES serial.distribution (id)
15965                                     ON DELETE CASCADE
15966                                     DEFERRABLE INITIALLY DEFERRED,
15967         generated_coverage  TEXT    NOT NULL,
15968         textual_holdings    TEXT,
15969         show_generated      BOOL    NOT NULL DEFAULT TRUE
15970 );
15971 CREATE INDEX serial_supplement_summary_dist_idx ON serial.supplement_summary (distribution);
15972
15973 CREATE TABLE serial.index_summary (
15974         id                  SERIAL  PRIMARY KEY,
15975         distribution        INT     NOT NULL
15976                                     REFERENCES serial.distribution (id)
15977                                     ON DELETE CASCADE
15978                                     DEFERRABLE INITIALLY DEFERRED,
15979         generated_coverage  TEXT    NOT NULL,
15980         textual_holdings    TEXT,
15981         show_generated      BOOL    NOT NULL DEFAULT TRUE
15982 );
15983 CREATE INDEX serial_index_summary_dist_idx ON serial.index_summary (distribution);
15984
15985 -- DELETE FROM action_trigger.environment WHERE event_def IN (29,30); DELETE FROM action_trigger.event where event_def IN (29,30); DELETE FROM action_trigger.event_definition WHERE id IN (29,30); DELETE FROM action_trigger.hook WHERE key IN ('money.format.payment_receipt.email','money.format.payment_receipt.print'); DELETE FROM config.upgrade_log WHERE version = '0289'; -- from testing, this sql will remove these events, etc.
15986
15987 DROP INDEX IF EXISTS authority.authority_record_unique_tcn;
15988 CREATE UNIQUE INDEX authority_record_unique_tcn ON authority.record_entry (arn_source,arn_value) WHERE deleted = FALSE OR deleted IS FALSE;
15989
15990 DROP INDEX IF EXISTS asset.asset_call_number_label_once_per_lib;
15991 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;
15992
15993 DROP INDEX IF EXISTS biblio.biblio_record_unique_tcn;
15994 CREATE UNIQUE INDEX biblio_record_unique_tcn ON biblio.record_entry (tcn_value) WHERE deleted = FALSE OR deleted IS FALSE;
15995
15996 CREATE OR REPLACE FUNCTION config.interval_to_seconds( interval_val INTERVAL )
15997 RETURNS INTEGER AS $$
15998 BEGIN
15999         RETURN EXTRACT( EPOCH FROM interval_val );
16000 END;
16001 $$ LANGUAGE plpgsql;
16002
16003 CREATE OR REPLACE FUNCTION config.interval_to_seconds( interval_string TEXT )
16004 RETURNS INTEGER AS $$
16005 BEGIN
16006         RETURN config.interval_to_seconds( interval_string::INTERVAL );
16007 END;
16008 $$ LANGUAGE plpgsql;
16009
16010 INSERT INTO container.biblio_record_entry_bucket_type( code, label ) VALUES (
16011     'temp',
16012     oils_i18n_gettext(
16013         'temp',
16014         'Temporary bucket which gets deleted after use.',
16015         'cbrebt',
16016         'label'
16017     )
16018 );
16019
16020 -- DELETE FROM action_trigger.environment WHERE event_def IN (31,32); DELETE FROM action_trigger.event where event_def IN (31,32); DELETE FROM action_trigger.event_definition WHERE id IN (31,32); DELETE FROM action_trigger.hook WHERE key IN ('biblio.format.record_entry.email','biblio.format.record_entry.print'); DELETE FROM action_trigger.cleanup WHERE module = 'DeleteTempBiblioBucket'; DELETE FROM container.biblio_record_entry_bucket_item WHERE bucket IN (SELECT id FROM container.biblio_record_entry_bucket WHERE btype = 'temp'); DELETE FROM container.biblio_record_entry_bucket WHERE btype = 'temp'; DELETE FROM container.biblio_record_entry_bucket_type WHERE code = 'temp'; DELETE FROM config.upgrade_log WHERE version = '0294'; -- from testing, this sql will remove these events, etc.
16021
16022 CREATE OR REPLACE FUNCTION biblio.check_marcxml_well_formed () RETURNS TRIGGER AS $func$
16023 BEGIN
16024
16025     IF xml_is_well_formed(NEW.marc) THEN
16026         RETURN NEW;
16027     ELSE
16028         RAISE EXCEPTION 'Attempted to % MARCXML that is not well formed', TG_OP;
16029     END IF;
16030
16031 END;
16032 $func$ LANGUAGE PLPGSQL;
16033
16034 CREATE TRIGGER a_marcxml_is_well_formed BEFORE INSERT OR UPDATE ON biblio.record_entry FOR EACH ROW EXECUTE PROCEDURE biblio.check_marcxml_well_formed();
16035
16036 CREATE TRIGGER a_marcxml_is_well_formed BEFORE INSERT OR UPDATE ON authority.record_entry FOR EACH ROW EXECUTE PROCEDURE biblio.check_marcxml_well_formed();
16037
16038 ALTER TABLE serial.record_entry
16039         ALTER COLUMN marc DROP NOT NULL;
16040
16041 insert INTO CONFIG.xml_transform(name, namespace_uri, prefix, xslt)
16042 VALUES ('marc21expand880', 'http://www.loc.gov/MARC21/slim', 'marc', $$<?xml version="1.0" encoding="UTF-8"?>
16043 <xsl:stylesheet
16044     xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
16045     xmlns:marc="http://www.loc.gov/MARC21/slim"
16046     version="1.0">
16047 <!--
16048 Copyright (C) 2010  Equinox Software, Inc.
16049 Galen Charlton <gmc@esilibrary.cOM.
16050
16051 This program is free software; you can redistribute it and/or
16052 modify it under the terms of the GNU General Public License
16053 as published by the Free Software Foundation; either version 2
16054 of the License, or (at your option) any later version.
16055
16056 This program is distributed in the hope that it will be useful,
16057 but WITHOUT ANY WARRANTY; without even the implied warranty of
16058 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16059 GNU General Public License for more details.
16060
16061 marc21_expand_880.xsl - stylesheet used during indexing to
16062                         map alternative graphical representations
16063                         of MARC fields stored in 880 fields
16064                         to the corresponding tag name and value.
16065
16066 For example, if a MARC record for a Chinese book has
16067
16068 245.00 $6 880-01 $a Ba shi san nian duan pian xiao shuo xuan
16069 880.00 $6 245-01/$1 $a八十三年短篇小說選
16070
16071 this stylesheet will transform it to the equivalent of
16072
16073 245.00 $6 880-01 $a Ba shi san nian duan pian xiao shuo xuan
16074 245.00 $6 245-01/$1 $a八十三年短篇小說選
16075
16076 -->
16077     <xsl:output encoding="UTF-8" indent="yes" method="xml"/>
16078
16079     <xsl:template match="@*|node()">
16080         <xsl:copy>
16081             <xsl:apply-templates select="@*|node()"/>
16082         </xsl:copy>
16083     </xsl:template>
16084
16085     <xsl:template match="//marc:datafield[@tag='880']">
16086         <xsl:if test="./marc:subfield[@code='6'] and string-length(./marc:subfield[@code='6']) &gt;= 6">
16087             <marc:datafield>
16088                 <xsl:attribute name="tag">
16089                     <xsl:value-of select="substring(./marc:subfield[@code='6'], 1, 3)" />
16090                 </xsl:attribute>
16091                 <xsl:attribute name="ind1">
16092                     <xsl:value-of select="@ind1" />
16093                 </xsl:attribute>
16094                 <xsl:attribute name="ind2">
16095                     <xsl:value-of select="@ind2" />
16096                 </xsl:attribute>
16097                 <xsl:apply-templates />
16098             </marc:datafield>
16099         </xsl:if>
16100     </xsl:template>
16101
16102 </xsl:stylesheet>$$);
16103
16104 -- Splitting the ingest trigger up into little bits
16105
16106 CREATE TEMPORARY TABLE eg_0301_check_if_has_contents (
16107     flag INTEGER PRIMARY KEY
16108 ) ON COMMIT DROP;
16109 INSERT INTO eg_0301_check_if_has_contents VALUES (1);
16110
16111 -- cause failure if either of the tables we want to drop have rows
16112 INSERT INTO eg_0301_check_if_has_contents SELECT 1 FROM asset.copy_transparency LIMIT 1;
16113 INSERT INTO eg_0301_check_if_has_contents SELECT 1 FROM asset.copy_transparency_map LIMIT 1;
16114
16115 DROP TABLE IF EXISTS asset.copy_transparency_map;
16116 DROP TABLE IF EXISTS asset.copy_transparency;
16117
16118 UPDATE config.metabib_field SET facet_xpath = '//' || facet_xpath WHERE facet_xpath IS NOT NULL;
16119
16120 -- We won't necessarily use all of these, but they are here for completeness.
16121 -- Source is the EDI spec 1229 codelist, eg: http://www.stylusstudio.com/edifact/D04B/1229.htm
16122 -- Values are the EDI code value + 1000
16123
16124 INSERT INTO acq.cancel_reason (keep_debits, id, org_unit, label, description) VALUES
16125 ('t',(  1+1000), 1, 'Added',     'The information is to be or has been added.'),
16126 ('f',(  2+1000), 1, 'Deleted',   'The information is to be or has been deleted.'),
16127 ('t',(  3+1000), 1, 'Changed',   'The information is to be or has been changed.'),
16128 ('t',(  4+1000), 1, 'No action',                  'This line item is not affected by the actual message.'),
16129 ('t',(  5+1000), 1, 'Accepted without amendment', 'This line item is entirely accepted by the seller.'),
16130 ('t',(  6+1000), 1, 'Accepted with amendment',    'This line item is accepted but amended by the seller.'),
16131 ('f',(  7+1000), 1, 'Not accepted',               'This line item is not accepted by the seller.'),
16132 ('t',(  8+1000), 1, 'Schedule only', 'Code specifying that the message is a schedule only.'),
16133 ('t',(  9+1000), 1, 'Amendments',    'Code specifying that amendments are requested/notified.'),
16134 ('f',( 10+1000), 1, 'Not found',   'This line item is not found in the referenced message.'),
16135 ('t',( 11+1000), 1, 'Not amended', 'This line is not amended by the buyer.'),
16136 ('t',( 12+1000), 1, 'Line item numbers changed', 'Code specifying that the line item numbers have changed.'),
16137 ('t',( 13+1000), 1, 'Buyer has deducted amount', 'Buyer has deducted amount from payment.'),
16138 ('t',( 14+1000), 1, 'Buyer claims against invoice', 'Buyer has a claim against an outstanding invoice.'),
16139 ('t',( 15+1000), 1, 'Charge back by seller', 'Factor has been requested to charge back the outstanding item.'),
16140 ('t',( 16+1000), 1, 'Seller will issue credit note', 'Seller agrees to issue a credit note.'),
16141 ('t',( 17+1000), 1, 'Terms changed for new terms', 'New settlement terms have been agreed.'),
16142 ('t',( 18+1000), 1, 'Abide outcome of negotiations', 'Factor agrees to abide by the outcome of negotiations between seller and buyer.'),
16143 ('t',( 19+1000), 1, 'Seller rejects dispute', 'Seller does not accept validity of dispute.'),
16144 ('t',( 20+1000), 1, 'Settlement', 'The reported situation is settled.'),
16145 ('t',( 21+1000), 1, 'No delivery', 'Code indicating that no delivery will be required.'),
16146 ('t',( 22+1000), 1, 'Call-off delivery', 'A request for delivery of a particular quantity of goods to be delivered on a particular date (or within a particular period).'),
16147 ('t',( 23+1000), 1, 'Proposed amendment', 'A code used to indicate an amendment suggested by the sender.'),
16148 ('t',( 24+1000), 1, 'Accepted with amendment, no confirmation required', 'Accepted with changes which require no confirmation.'),
16149 ('t',( 25+1000), 1, 'Equipment provisionally repaired', 'The equipment or component has been provisionally repaired.'),
16150 ('t',( 26+1000), 1, 'Included', 'Code indicating that the entity is included.'),
16151 ('t',( 27+1000), 1, 'Verified documents for coverage', 'Upon receipt and verification of documents we shall cover you when due as per your instructions.'),
16152 ('t',( 28+1000), 1, 'Verified documents for debit',    'Upon receipt and verification of documents we shall authorize you to debit our account with you when due.'),
16153 ('t',( 29+1000), 1, 'Authenticated advice for coverage',      'On receipt of your authenticated advice we shall cover you when due as per your instructions.'),
16154 ('t',( 30+1000), 1, 'Authenticated advice for authorization', 'On receipt of your authenticated advice we shall authorize you to debit our account with you when due.'),
16155 ('t',( 31+1000), 1, 'Authenticated advice for credit',        'On receipt of your authenticated advice we shall credit your account with us when due.'),
16156 ('t',( 32+1000), 1, 'Credit advice requested for direct debit',           'A credit advice is requested for the direct debit.'),
16157 ('t',( 33+1000), 1, 'Credit advice and acknowledgement for direct debit', 'A credit advice and acknowledgement are requested for the direct debit.'),
16158 ('t',( 34+1000), 1, 'Inquiry',     'Request for information.'),
16159 ('t',( 35+1000), 1, 'Checked',     'Checked.'),
16160 ('t',( 36+1000), 1, 'Not checked', 'Not checked.'),
16161 ('f',( 37+1000), 1, 'Cancelled',   'Discontinued.'),
16162 ('t',( 38+1000), 1, 'Replaced',    'Provide a replacement.'),
16163 ('t',( 39+1000), 1, 'New',         'Not existing before.'),
16164 ('t',( 40+1000), 1, 'Agreed',      'Consent.'),
16165 ('t',( 41+1000), 1, 'Proposed',    'Put forward for consideration.'),
16166 ('t',( 42+1000), 1, 'Already delivered', 'Delivery has taken place.'),
16167 ('t',( 43+1000), 1, 'Additional subordinate structures will follow', 'Additional subordinate structures will follow the current hierarchy level.'),
16168 ('t',( 44+1000), 1, 'Additional subordinate structures will not follow', 'No additional subordinate structures will follow the current hierarchy level.'),
16169 ('t',( 45+1000), 1, 'Result opposed',         'A notification that the result is opposed.'),
16170 ('t',( 46+1000), 1, 'Auction held',           'A notification that an auction was held.'),
16171 ('t',( 47+1000), 1, 'Legal action pursued',   'A notification that legal action has been pursued.'),
16172 ('t',( 48+1000), 1, 'Meeting held',           'A notification that a meeting was held.'),
16173 ('t',( 49+1000), 1, 'Result set aside',       'A notification that the result has been set aside.'),
16174 ('t',( 50+1000), 1, 'Result disputed',        'A notification that the result has been disputed.'),
16175 ('t',( 51+1000), 1, 'Countersued',            'A notification that a countersuit has been filed.'),
16176 ('t',( 52+1000), 1, 'Pending',                'A notification that an action is awaiting settlement.'),
16177 ('f',( 53+1000), 1, 'Court action dismissed', 'A notification that a court action will no longer be heard.'),
16178 ('t',( 54+1000), 1, 'Referred item, accepted', 'The item being referred to has been accepted.'),
16179 ('f',( 55+1000), 1, 'Referred item, rejected', 'The item being referred to has been rejected.'),
16180 ('t',( 56+1000), 1, 'Debit advice statement line',  'Notification that the statement line is a debit advice.'),
16181 ('t',( 57+1000), 1, 'Credit advice statement line', 'Notification that the statement line is a credit advice.'),
16182 ('t',( 58+1000), 1, 'Grouped credit advices',       'Notification that the credit advices are grouped.'),
16183 ('t',( 59+1000), 1, 'Grouped debit advices',        'Notification that the debit advices are grouped.'),
16184 ('t',( 60+1000), 1, 'Registered', 'The name is registered.'),
16185 ('f',( 61+1000), 1, 'Payment denied', 'The payment has been denied.'),
16186 ('t',( 62+1000), 1, 'Approved as amended', 'Approved with modifications.'),
16187 ('t',( 63+1000), 1, 'Approved as submitted', 'The request has been approved as submitted.'),
16188 ('f',( 64+1000), 1, 'Cancelled, no activity', 'Cancelled due to the lack of activity.'),
16189 ('t',( 65+1000), 1, 'Under investigation', 'Investigation is being done.'),
16190 ('t',( 66+1000), 1, 'Initial claim received', 'Notification that the initial claim was received.'),
16191 ('f',( 67+1000), 1, 'Not in process', 'Not in process.'),
16192 ('f',( 68+1000), 1, 'Rejected, duplicate', 'Rejected because it is a duplicate.'),
16193 ('f',( 69+1000), 1, 'Rejected, resubmit with corrections', 'Rejected but may be resubmitted when corrected.'),
16194 ('t',( 70+1000), 1, 'Pending, incomplete', 'Pending because of incomplete information.'),
16195 ('t',( 71+1000), 1, 'Under field office investigation', 'Investigation by the field is being done.'),
16196 ('t',( 72+1000), 1, 'Pending, awaiting additional material', 'Pending awaiting receipt of additional material.'),
16197 ('t',( 73+1000), 1, 'Pending, awaiting review', 'Pending while awaiting review.'),
16198 ('t',( 74+1000), 1, 'Reopened', 'Opened again.'),
16199 ('t',( 75+1000), 1, 'Processed by primary, forwarded to additional payer(s)',   'This request has been processed by the primary payer and sent to additional payer(s).'),
16200 ('t',( 76+1000), 1, 'Processed by secondary, forwarded to additional payer(s)', 'This request has been processed by the secondary payer and sent to additional payer(s).'),
16201 ('t',( 77+1000), 1, 'Processed by tertiary, forwarded to additional payer(s)',  'This request has been processed by the tertiary payer and sent to additional payer(s).'),
16202 ('t',( 78+1000), 1, 'Previous payment decision reversed', 'A previous payment decision has been reversed.'),
16203 ('t',( 79+1000), 1, 'Not our claim, forwarded to another payer(s)', 'A request does not belong to this payer but has been forwarded to another payer(s).'),
16204 ('t',( 80+1000), 1, 'Transferred to correct insurance carrier', 'The request has been transferred to the correct insurance carrier for processing.'),
16205 ('t',( 81+1000), 1, 'Not paid, predetermination pricing only', 'Payment has not been made and the enclosed response is predetermination pricing only.'),
16206 ('t',( 82+1000), 1, 'Documentation claim', 'The claim is for documentation purposes only, no payment required.'),
16207 ('t',( 83+1000), 1, 'Reviewed', 'Assessed.'),
16208 ('f',( 84+1000), 1, 'Repriced', 'This price was changed.'),
16209 ('t',( 85+1000), 1, 'Audited', 'An official examination has occurred.'),
16210 ('t',( 86+1000), 1, 'Conditionally paid', 'Payment has been conditionally made.'),
16211 ('t',( 87+1000), 1, 'On appeal', 'Reconsideration of the decision has been applied for.'),
16212 ('t',( 88+1000), 1, 'Closed', 'Shut.'),
16213 ('t',( 89+1000), 1, 'Reaudited', 'A subsequent official examination has occurred.'),
16214 ('t',( 90+1000), 1, 'Reissued', 'Issued again.'),
16215 ('t',( 91+1000), 1, 'Closed after reopening', 'Reopened and then closed.'),
16216 ('t',( 92+1000), 1, 'Redetermined', 'Determined again or differently.'),
16217 ('t',( 93+1000), 1, 'Processed as primary',   'Processed as the first.'),
16218 ('t',( 94+1000), 1, 'Processed as secondary', 'Processed as the second.'),
16219 ('t',( 95+1000), 1, 'Processed as tertiary',  'Processed as the third.'),
16220 ('t',( 96+1000), 1, 'Correction of error', 'A correction to information previously communicated which contained an error.'),
16221 ('t',( 97+1000), 1, 'Single credit item of a group', 'Notification that the credit item is a single credit item of a group of credit items.'),
16222 ('t',( 98+1000), 1, 'Single debit item of a group',  'Notification that the debit item is a single debit item of a group of debit items.'),
16223 ('t',( 99+1000), 1, 'Interim response', 'The response is an interim one.'),
16224 ('t',(100+1000), 1, 'Final response',   'The response is an final one.'),
16225 ('t',(101+1000), 1, 'Debit advice requested', 'A debit advice is requested for the transaction.'),
16226 ('t',(102+1000), 1, 'Transaction not impacted', 'Advice that the transaction is not impacted.'),
16227 ('t',(103+1000), 1, 'Patient to be notified',                    'The action to take is to notify the patient.'),
16228 ('t',(104+1000), 1, 'Healthcare provider to be notified',        'The action to take is to notify the healthcare provider.'),
16229 ('t',(105+1000), 1, 'Usual general practitioner to be notified', 'The action to take is to notify the usual general practitioner.'),
16230 ('t',(106+1000), 1, 'Advice without details', 'An advice without details is requested or notified.'),
16231 ('t',(107+1000), 1, 'Advice with details', 'An advice with details is requested or notified.'),
16232 ('t',(108+1000), 1, 'Amendment requested', 'An amendment is requested.'),
16233 ('t',(109+1000), 1, 'For information', 'Included for information only.'),
16234 ('f',(110+1000), 1, 'Withdraw', 'A code indicating discontinuance or retraction.'),
16235 ('t',(111+1000), 1, 'Delivery date change', 'The action / notiification is a change of the delivery date.'),
16236 ('f',(112+1000), 1, 'Quantity change',      'The action / notification is a change of quantity.'),
16237 ('t',(113+1000), 1, 'Resale and claim', 'The identified items have been sold by the distributor to the end customer, and compensation for the loss of inventory value is claimed.'),
16238 ('t',(114+1000), 1, 'Resale',           'The identified items have been sold by the distributor to the end customer.'),
16239 ('t',(115+1000), 1, 'Prior addition', 'This existing line item becomes available at an earlier date.');
16240
16241 INSERT INTO config.metabib_field ( id, field_class, name, label, format, xpath, facet_field, search_field ) VALUES
16242     (26, 'identifier', 'arcn', oils_i18n_gettext(26, 'Authority record control number', 'cmf', 'label'), 'marcxml', $$//marc:subfield[@code='0']$$, TRUE, FALSE );
16243
16244 SELECT SETVAL('config.metabib_field_id_seq'::TEXT, (SELECT MAX(id) FROM config.metabib_field), TRUE);
16245
16246 INSERT INTO config.index_normalizer (name, description, func, param_count) VALUES (
16247         'Remove Parenthesized Substring',
16248         'Remove any parenthesized substrings from the extracted text, such as the agency code preceding authority record control numbers in subfield 0.',
16249         'remove_paren_substring',
16250         0
16251 );
16252
16253 INSERT INTO config.index_normalizer (name, description, func, param_count) VALUES (
16254         'Trim Surrounding Space',
16255         'Trim leading and trailing spaces from extracted text.',
16256         'btrim',
16257         0
16258 );
16259
16260 INSERT INTO config.metabib_field_index_norm_map (field,norm,pos)
16261     SELECT  m.id,
16262             i.id,
16263             -2
16264       FROM  config.metabib_field m,
16265             config.index_normalizer i
16266       WHERE i.func IN ('remove_paren_substring')
16267             AND m.id IN (26);
16268
16269 INSERT INTO config.metabib_field_index_norm_map (field,norm,pos)
16270     SELECT  m.id,
16271             i.id,
16272             -1
16273       FROM  config.metabib_field m,
16274             config.index_normalizer i
16275       WHERE i.func IN ('btrim')
16276             AND m.id IN (26);
16277
16278 -- Function that takes, and returns, marcxml and compiles an embedded ruleset for you, and they applys it
16279 CREATE OR REPLACE FUNCTION vandelay.merge_record_xml ( target_marc TEXT, template_marc TEXT ) RETURNS TEXT AS $$
16280 DECLARE
16281     dyn_profile     vandelay.compile_profile%ROWTYPE;
16282     replace_rule    TEXT;
16283     tmp_marc        TEXT;
16284     trgt_marc        TEXT;
16285     tmpl_marc        TEXT;
16286     match_count     INT;
16287 BEGIN
16288
16289     IF target_marc IS NULL OR template_marc IS NULL THEN
16290         -- RAISE NOTICE 'no marc for target or template record';
16291         RETURN NULL;
16292     END IF;
16293
16294     dyn_profile := vandelay.compile_profile( template_marc );
16295
16296     IF dyn_profile.replace_rule <> '' AND dyn_profile.preserve_rule <> '' THEN
16297         -- RAISE NOTICE 'both replace [%] and preserve [%] specified', dyn_profile.replace_rule, dyn_profile.preserve_rule;
16298         RETURN NULL;
16299     END IF;
16300
16301     IF dyn_profile.replace_rule <> '' THEN
16302         trgt_marc = target_marc;
16303         tmpl_marc = template_marc;
16304         replace_rule = dyn_profile.replace_rule;
16305     ELSE
16306         tmp_marc = target_marc;
16307         trgt_marc = template_marc;
16308         tmpl_marc = tmp_marc;
16309         replace_rule = dyn_profile.preserve_rule;
16310     END IF;
16311
16312     RETURN vandelay.merge_record_xml( trgt_marc, tmpl_marc, dyn_profile.add_rule, replace_rule, dyn_profile.strip_rule );
16313
16314 END;
16315 $$ LANGUAGE PLPGSQL;
16316
16317 -- Function to generate an ephemeral overlay template from an authority record
16318 CREATE OR REPLACE FUNCTION authority.generate_overlay_template ( TEXT, BIGINT ) RETURNS TEXT AS $func$
16319
16320     use MARC::Record;
16321     use MARC::File::XML (BinaryEncoding => 'UTF-8');
16322
16323     my $xml = shift;
16324     my $r = MARC::Record->new_from_xml( $xml );
16325
16326     return undef unless ($r);
16327
16328     my $id = shift() || $r->subfield( '901' => 'c' );
16329     $id =~ s/^\s*(?:\([^)]+\))?\s*(.+)\s*?$/$1/;
16330     return undef unless ($id); # We need an ID!
16331
16332     my $tmpl = MARC::Record->new();
16333
16334     my @rule_fields;
16335     for my $field ( $r->field( '1..' ) ) { # Get main entry fields from the authority record
16336
16337         my $tag = $field->tag;
16338         my $i1 = $field->indicator(1);
16339         my $i2 = $field->indicator(2);
16340         my $sf = join '', map { $_->[0] } $field->subfields;
16341         my @data = map { @$_ } $field->subfields;
16342
16343         my @replace_them;
16344
16345         # Map the authority field to bib fields it can control.
16346         if ($tag >= 100 and $tag <= 111) {       # names
16347             @replace_them = map { $tag + $_ } (0, 300, 500, 600, 700);
16348         } elsif ($tag eq '130') {                # uniform title
16349             @replace_them = qw/130 240 440 730 830/;
16350         } elsif ($tag >= 150 and $tag <= 155) {  # subjects
16351             @replace_them = ($tag + 500);
16352         } elsif ($tag >= 180 and $tag <= 185) {  # floating subdivisions
16353             @replace_them = qw/100 400 600 700 800 110 410 610 710 810 111 411 611 711 811 130 240 440 730 830 650 651 655/;
16354         } else {
16355             next;
16356         }
16357
16358         # Dummy up the bib-side data
16359         $tmpl->append_fields(
16360             map {
16361                 MARC::Field->new( $_, $i1, $i2, @data )
16362             } @replace_them
16363         );
16364
16365         # Construct some 'replace' rules
16366         push @rule_fields, map { $_ . $sf . '[0~\)' .$id . '$]' } @replace_them;
16367     }
16368
16369     # Insert the replace rules into the template
16370     $tmpl->append_fields(
16371         MARC::Field->new( '905' => ' ' => ' ' => 'r' => join(',', @rule_fields ) )
16372     );
16373
16374     $xml = $tmpl->as_xml_record;
16375     $xml =~ s/^<\?.+?\?>$//mo;
16376     $xml =~ s/\n//sgo;
16377     $xml =~ s/>\s+</></sgo;
16378
16379     return $xml;
16380
16381 $func$ LANGUAGE PLPERLU;
16382
16383 CREATE OR REPLACE FUNCTION authority.generate_overlay_template ( BIGINT ) RETURNS TEXT AS $func$
16384     SELECT authority.generate_overlay_template( marc, id ) FROM authority.record_entry WHERE id = $1;
16385 $func$ LANGUAGE SQL;
16386
16387 CREATE OR REPLACE FUNCTION authority.generate_overlay_template ( TEXT ) RETURNS TEXT AS $func$
16388     SELECT authority.generate_overlay_template( $1, NULL );
16389 $func$ LANGUAGE SQL;
16390
16391 DELETE FROM config.metabib_field_index_norm_map WHERE field = 26;
16392 DELETE FROM config.metabib_field WHERE id = 26;
16393
16394 -- Making this a global_flag (UI accessible) instead of an internal_flag
16395 INSERT INTO config.global_flag (name, label) -- defaults to enabled=FALSE
16396     VALUES (
16397         'ingest.disable_authority_linking',
16398         oils_i18n_gettext(
16399             'ingest.disable_authority_linking',
16400             'Authority Automation: Disable bib-authority link tracking',
16401             'cgf',
16402             'label'
16403         )
16404     );
16405 UPDATE config.global_flag SET enabled = (SELECT enabled FROM ONLY config.internal_flag WHERE name = 'ingest.disable_authority_linking');
16406 DELETE FROM config.internal_flag WHERE name = 'ingest.disable_authority_linking';
16407
16408 INSERT INTO config.global_flag (name, label) -- defaults to enabled=FALSE
16409     VALUES (
16410         'ingest.disable_authority_auto_update',
16411         oils_i18n_gettext(
16412             'ingest.disable_authority_auto_update',
16413             'Authority Automation: Disable automatic authority updating (requires link tracking)',
16414             'cgf',
16415             'label'
16416         )
16417     );
16418
16419 -- Enable automated ingest of authority records; just insert the row into
16420 -- authority.record_entry and authority.full_rec will automatically be populated
16421
16422 CREATE OR REPLACE FUNCTION authority.propagate_changes (aid BIGINT, bid BIGINT) RETURNS BIGINT AS $func$
16423     UPDATE  biblio.record_entry
16424       SET   marc = vandelay.merge_record_xml( marc, authority.generate_overlay_template( $1 ) )
16425       WHERE id = $2;
16426     SELECT $1;
16427 $func$ LANGUAGE SQL;
16428
16429 CREATE OR REPLACE FUNCTION authority.propagate_changes (aid BIGINT) RETURNS SETOF BIGINT AS $func$
16430     SELECT authority.propagate_changes( authority, bib ) FROM authority.bib_linking WHERE authority = $1;
16431 $func$ LANGUAGE SQL;
16432
16433 CREATE OR REPLACE FUNCTION authority.flatten_marc ( TEXT ) RETURNS SETOF authority.full_rec AS $func$
16434
16435 use MARC::Record;
16436 use MARC::File::XML (BinaryEncoding => 'UTF-8');
16437
16438 my $xml = shift;
16439 my $r = MARC::Record->new_from_xml( $xml );
16440
16441 return_next( { tag => 'LDR', value => $r->leader } );
16442
16443 for my $f ( $r->fields ) {
16444     if ($f->is_control_field) {
16445         return_next({ tag => $f->tag, value => $f->data });
16446     } else {
16447         for my $s ($f->subfields) {
16448             return_next({
16449                 tag      => $f->tag,
16450                 ind1     => $f->indicator(1),
16451                 ind2     => $f->indicator(2),
16452                 subfield => $s->[0],
16453                 value    => $s->[1]
16454             });
16455
16456         }
16457     }
16458 }
16459
16460 return undef;
16461
16462 $func$ LANGUAGE PLPERLU;
16463
16464 CREATE OR REPLACE FUNCTION authority.flatten_marc ( rid BIGINT ) RETURNS SETOF authority.full_rec AS $func$
16465 DECLARE
16466     auth    authority.record_entry%ROWTYPE;
16467     output    authority.full_rec%ROWTYPE;
16468     field    RECORD;
16469 BEGIN
16470     SELECT INTO auth * FROM authority.record_entry WHERE id = rid;
16471
16472     FOR field IN SELECT * FROM authority.flatten_marc( auth.marc ) LOOP
16473         output.record := rid;
16474         output.ind1 := field.ind1;
16475         output.ind2 := field.ind2;
16476         output.tag := field.tag;
16477         output.subfield := field.subfield;
16478         IF field.subfield IS NOT NULL THEN
16479             output.value := naco_normalize(field.value, field.subfield);
16480         ELSE
16481             output.value := field.value;
16482         END IF;
16483
16484         CONTINUE WHEN output.value IS NULL;
16485
16486         RETURN NEXT output;
16487     END LOOP;
16488 END;
16489 $func$ LANGUAGE PLPGSQL;
16490
16491 -- authority.rec_descriptor appears to be unused currently
16492 CREATE OR REPLACE FUNCTION authority.reingest_authority_rec_descriptor( auth_id BIGINT ) RETURNS VOID AS $func$
16493 BEGIN
16494     DELETE FROM authority.rec_descriptor WHERE record = auth_id;
16495 --    INSERT INTO authority.rec_descriptor (record, record_status, char_encoding)
16496 --        SELECT  auth_id, ;
16497
16498     RETURN;
16499 END;
16500 $func$ LANGUAGE PLPGSQL;
16501
16502 CREATE OR REPLACE FUNCTION authority.reingest_authority_full_rec( auth_id BIGINT ) RETURNS VOID AS $func$
16503 BEGIN
16504     DELETE FROM authority.full_rec WHERE record = auth_id;
16505     INSERT INTO authority.full_rec (record, tag, ind1, ind2, subfield, value)
16506         SELECT record, tag, ind1, ind2, subfield, value FROM authority.flatten_marc( auth_id );
16507
16508     RETURN;
16509 END;
16510 $func$ LANGUAGE PLPGSQL;
16511
16512 -- AFTER UPDATE OR INSERT trigger for authority.record_entry
16513 CREATE OR REPLACE FUNCTION authority.indexing_ingest_or_delete () RETURNS TRIGGER AS $func$
16514 BEGIN
16515
16516     IF NEW.deleted IS TRUE THEN -- If this authority is deleted
16517         DELETE FROM authority.bib_linking WHERE authority = NEW.id; -- Avoid updating fields in bibs that are no longer visible
16518           -- Should remove matching $0 from controlled fields at the same time?
16519         RETURN NEW; -- and we're done
16520     END IF;
16521
16522     IF TG_OP = 'UPDATE' THEN -- re-ingest?
16523         PERFORM * FROM config.internal_flag WHERE name = 'ingest.reingest.force_on_same_marc' AND enabled;
16524
16525         IF NOT FOUND AND OLD.marc = NEW.marc THEN -- don't do anything if the MARC didn't change
16526             RETURN NEW;
16527         END IF;
16528     END IF;
16529
16530     -- Flatten and insert the afr data
16531     PERFORM * FROM config.internal_flag WHERE name = 'ingest.disable_authority_full_rec' AND enabled;
16532     IF NOT FOUND THEN
16533         PERFORM authority.reingest_authority_full_rec(NEW.id);
16534 -- authority.rec_descriptor is not currently used
16535 --        PERFORM * FROM config.internal_flag WHERE name = 'ingest.disable_authority_rec_descriptor' AND enabled;
16536 --        IF NOT FOUND THEN
16537 --            PERFORM authority.reingest_authority_rec_descriptor(NEW.id);
16538 --        END IF;
16539     END IF;
16540
16541     RETURN NEW;
16542 END;
16543 $func$ LANGUAGE PLPGSQL;
16544
16545 CREATE TRIGGER aaa_auth_ingest_or_delete AFTER INSERT OR UPDATE ON authority.record_entry FOR EACH ROW EXECUTE PROCEDURE authority.indexing_ingest_or_delete ();
16546
16547 -- Some records manage to get XML namespace declarations into each element,
16548 -- like <datafield xmlns:marc="http://www.loc.gov/MARC21/slim"
16549 -- This broke the old maintain_901(), so we'll make the regex more robust
16550
16551 CREATE OR REPLACE FUNCTION maintain_901 () RETURNS TRIGGER AS $func$
16552 BEGIN
16553     -- Remove any existing 901 fields before we insert the authoritative one
16554     NEW.marc := REGEXP_REPLACE(NEW.marc, E'<datafield\s*[^<>]*?\s*tag="901".+?</datafield>', '', 'g');
16555     IF TG_TABLE_SCHEMA = 'biblio' THEN
16556         NEW.marc := REGEXP_REPLACE(
16557             NEW.marc,
16558             E'(</(?:[^:]*?:)?record>)',
16559             E'<datafield tag="901" ind1=" " ind2=" ">' ||
16560                 '<subfield code="a">' || NEW.tcn_value || E'</subfield>' ||
16561                 '<subfield code="b">' || NEW.tcn_source || E'</subfield>' ||
16562                 '<subfield code="c">' || NEW.id || E'</subfield>' ||
16563                 '<subfield code="t">' || TG_TABLE_SCHEMA || E'</subfield>' ||
16564                 CASE WHEN NEW.owner IS NOT NULL THEN '<subfield code="o">' || NEW.owner || E'</subfield>' ELSE '' END ||
16565                 CASE WHEN NEW.share_depth IS NOT NULL THEN '<subfield code="d">' || NEW.share_depth || E'</subfield>' ELSE '' END ||
16566              E'</datafield>\\1'
16567         );
16568     ELSIF TG_TABLE_SCHEMA = 'authority' THEN
16569         NEW.marc := REGEXP_REPLACE(
16570             NEW.marc,
16571             E'(</(?:[^:]*?:)?record>)',
16572             E'<datafield tag="901" ind1=" " ind2=" ">' ||
16573                 '<subfield code="c">' || NEW.id || E'</subfield>' ||
16574                 '<subfield code="t">' || TG_TABLE_SCHEMA || E'</subfield>' ||
16575              E'</datafield>\\1'
16576         );
16577     ELSIF TG_TABLE_SCHEMA = 'serial' THEN
16578         NEW.marc := REGEXP_REPLACE(
16579             NEW.marc,
16580             E'(</(?:[^:]*?:)?record>)',
16581             E'<datafield tag="901" ind1=" " ind2=" ">' ||
16582                 '<subfield code="c">' || NEW.id || E'</subfield>' ||
16583                 '<subfield code="t">' || TG_TABLE_SCHEMA || E'</subfield>' ||
16584                 '<subfield code="o">' || NEW.owning_lib || E'</subfield>' ||
16585                 CASE WHEN NEW.record IS NOT NULL THEN '<subfield code="r">' || NEW.record || E'</subfield>' ELSE '' END ||
16586              E'</datafield>\\1'
16587         );
16588     ELSE
16589         NEW.marc := REGEXP_REPLACE(
16590             NEW.marc,
16591             E'(</(?:[^:]*?:)?record>)',
16592             E'<datafield tag="901" ind1=" " ind2=" ">' ||
16593                 '<subfield code="c">' || NEW.id || E'</subfield>' ||
16594                 '<subfield code="t">' || TG_TABLE_SCHEMA || E'</subfield>' ||
16595              E'</datafield>\\1'
16596         );
16597     END IF;
16598
16599     RETURN NEW;
16600 END;
16601 $func$ LANGUAGE PLPGSQL;
16602
16603 CREATE TRIGGER b_maintain_901 BEFORE INSERT OR UPDATE ON biblio.record_entry FOR EACH ROW EXECUTE PROCEDURE maintain_901();
16604 CREATE TRIGGER b_maintain_901 BEFORE INSERT OR UPDATE ON authority.record_entry FOR EACH ROW EXECUTE PROCEDURE maintain_901();
16605 CREATE TRIGGER b_maintain_901 BEFORE INSERT OR UPDATE ON serial.record_entry FOR EACH ROW EXECUTE PROCEDURE maintain_901();
16606
16607 -- In booking, elbow room defines:
16608 --  a) how far in the future you must make a reservation on a given item if
16609 --      that item will have to transit somewhere to fulfill the reservation.
16610 --  b) how soon a reservation must be starting for the reserved item to
16611 --      be op-captured by the checkin interface.
16612
16613 -- We don't want to clobber any default_elbow room at any level:
16614
16615 CREATE OR REPLACE FUNCTION pg_temp.default_elbow() RETURNS INTEGER AS $$
16616 DECLARE
16617     existing    actor.org_unit_setting%ROWTYPE;
16618 BEGIN
16619     SELECT INTO existing id FROM actor.org_unit_setting WHERE name = 'circ.booking_reservation.default_elbow_room';
16620     IF NOT FOUND THEN
16621         INSERT INTO actor.org_unit_setting (org_unit, name, value) VALUES (
16622             (SELECT id FROM actor.org_unit WHERE parent_ou IS NULL),
16623             'circ.booking_reservation.default_elbow_room',
16624             '"1 day"'
16625         );
16626         RETURN 1;
16627     END IF;
16628     RETURN 0;
16629 END;
16630 $$ LANGUAGE plpgsql;
16631
16632 SELECT pg_temp.default_elbow();
16633
16634 DROP FUNCTION IF EXISTS action.usr_visible_circ_copies( INTEGER );
16635
16636 -- returns the distinct set of target copy IDs from a user's visible circulation history
16637 CREATE OR REPLACE FUNCTION action.usr_visible_circ_copies( INTEGER ) RETURNS SETOF BIGINT AS $$
16638     SELECT DISTINCT(target_copy) FROM action.usr_visible_circs($1)
16639 $$ LANGUAGE SQL;
16640
16641 ALTER TABLE action.in_house_use DROP CONSTRAINT in_house_use_item_fkey;
16642 ALTER TABLE action.transit_copy DROP CONSTRAINT transit_copy_target_copy_fkey;
16643 ALTER TABLE action.hold_transit_copy DROP CONSTRAINT ahtc_tc_fkey;
16644 ALTER TABLE action.hold_copy_map DROP CONSTRAINT hold_copy_map_target_copy_fkey;
16645
16646 ALTER TABLE asset.stat_cat_entry_copy_map DROP CONSTRAINT a_sc_oc_fkey;
16647
16648 ALTER TABLE authority.record_entry ADD COLUMN owner INT;
16649 ALTER TABLE serial.record_entry ADD COLUMN owner INT;
16650
16651 INSERT INTO config.global_flag (name, label) -- defaults to enabled=FALSE
16652     VALUES (
16653         'cat.maintain_control_numbers',
16654         oils_i18n_gettext(
16655             'cat.maintain_control_numbers',
16656             'Cat: Maintain 001/003/035 according to the MARC21 specification',
16657             'cgf',
16658             'label'
16659         )
16660     );
16661
16662 INSERT INTO config.global_flag (name, label, enabled)
16663     VALUES (
16664         'circ.holds.empty_issuance_ok',
16665         oils_i18n_gettext(
16666             'circ.holds.empty_issuance_ok',
16667             'Holds: Allow holds on empty issuances',
16668             'cgf',
16669             'label'
16670         ),
16671         TRUE
16672     );
16673
16674 INSERT INTO config.global_flag (name, label, enabled)
16675     VALUES (
16676         'circ.holds.usr_not_requestor',
16677         oils_i18n_gettext(
16678             'circ.holds.usr_not_requestor',
16679             'Holds: When testing hold matrix matchpoints, use the profile group of the receiving user instead of that of the requestor (affects staff-placed holds)',
16680             'cgf',
16681             'label'
16682         ),
16683         TRUE
16684     );
16685
16686 CREATE OR REPLACE FUNCTION maintain_control_numbers() RETURNS TRIGGER AS $func$
16687 use strict;
16688 use MARC::Record;
16689 use MARC::File::XML (BinaryEncoding => 'UTF-8');
16690 use Encode;
16691 use Unicode::Normalize;
16692
16693 my $record = MARC::Record->new_from_xml($_TD->{new}{marc});
16694 my $schema = $_TD->{table_schema};
16695 my $rec_id = $_TD->{new}{id};
16696
16697 # Short-circuit if maintaining control numbers per MARC21 spec is not enabled
16698 my $enable = spi_exec_query("SELECT enabled FROM config.global_flag WHERE name = 'cat.maintain_control_numbers'");
16699 if (!($enable->{processed}) or $enable->{rows}[0]->{enabled} eq 'f') {
16700     return;
16701 }
16702
16703 # Get the control number identifier from an OU setting based on $_TD->{new}{owner}
16704 my $ou_cni = 'EVRGRN';
16705
16706 my $owner;
16707 if ($schema eq 'serial') {
16708     $owner = $_TD->{new}{owning_lib};
16709 } else {
16710     # are.owner and bre.owner can be null, so fall back to the consortial setting
16711     $owner = $_TD->{new}{owner} || 1;
16712 }
16713
16714 my $ous_rv = spi_exec_query("SELECT value FROM actor.org_unit_ancestor_setting('cat.marc_control_number_identifier', $owner)");
16715 if ($ous_rv->{processed}) {
16716     $ou_cni = $ous_rv->{rows}[0]->{value};
16717     $ou_cni =~ s/"//g; # Stupid VIM syntax highlighting"
16718 } else {
16719     # Fall back to the shortname of the OU if there was no OU setting
16720     $ous_rv = spi_exec_query("SELECT shortname FROM actor.org_unit WHERE id = $owner");
16721     if ($ous_rv->{processed}) {
16722         $ou_cni = $ous_rv->{rows}[0]->{shortname};
16723     }
16724 }
16725
16726 my ($create, $munge) = (0, 0);
16727 my ($orig_001, $orig_003) = ('', '');
16728
16729 # Incoming MARC records may have multiple 001s or 003s, despite the spec
16730 my @control_ids = $record->field('003');
16731 my @scns = $record->field('035');
16732
16733 foreach my $id_field ('001', '003') {
16734     my $spec_value;
16735     my @controls = $record->field($id_field);
16736
16737     if ($id_field eq '001') {
16738         $spec_value = $rec_id;
16739     } else {
16740         $spec_value = $ou_cni;
16741     }
16742
16743     # Create the 001/003 if none exist
16744     if (scalar(@controls) == 0) {
16745         $record->insert_fields_ordered(MARC::Field->new($id_field, $spec_value));
16746         $create = 1;
16747     } elsif (scalar(@controls) > 1) {
16748         # Do we already have the right 001/003 value in the existing set?
16749         unless (grep $_->data() eq $spec_value, @controls) {
16750             $munge = 1;
16751         }
16752
16753         # Delete the other fields, as with more than 1 001/003 we do not know which 003/001 to match
16754         foreach my $control (@controls) {
16755             unless ($control->data() eq $spec_value) {
16756                 $record->delete_field($control);
16757             }
16758         }
16759     } else {
16760         # Only one field; check to see if we need to munge it
16761         unless (grep $_->data() eq $spec_value, @controls) {
16762             $munge = 1;
16763         }
16764     }
16765 }
16766
16767 # Now, if we need to munge the 001, we will first push the existing 001/003 into the 035
16768 if ($munge) {
16769     my $scn = "(" . $record->field('003')->data() . ")" . $record->field('001')->data();
16770
16771     # Do not create duplicate 035 fields
16772     unless (grep $_->subfield('a') eq $scn, @scns) {
16773         $record->insert_fields_ordered(MARC::Field->new('035', '', '', 'a' => $scn));
16774     }
16775 }
16776
16777 # Set the 001/003 and update the MARC
16778 if ($create or $munge) {
16779     $record->field('001')->data($rec_id);
16780     $record->field('003')->data($ou_cni);
16781
16782     my $xml = $record->as_xml_record();
16783     $xml =~ s/\n//sgo;
16784     $xml =~ s/^<\?xml.+\?\s*>//go;
16785     $xml =~ s/>\s+</></go;
16786     $xml =~ s/\p{Cc}//go;
16787
16788     # Embed a version of OpenILS::Application::AppUtils->entityize()
16789     # to avoid having to set PERL5LIB for PostgreSQL as well
16790
16791     # If we are going to convert non-ASCII characters to XML entities,
16792     # we had better be dealing with a UTF8 string to begin with
16793     $xml = decode_utf8($xml);
16794
16795     $xml = NFC($xml);
16796
16797     # Convert raw ampersands to entities
16798     $xml =~ s/&(?!\S+;)/&amp;/gso;
16799
16800     # Convert Unicode characters to entities
16801     $xml =~ s/([\x{0080}-\x{fffd}])/sprintf('&#x%X;',ord($1))/sgoe;
16802
16803     $xml =~ s/[\x00-\x1f]//go;
16804     $_TD->{new}{marc} = $xml;
16805
16806     return "MODIFY";
16807 }
16808
16809 return;
16810 $func$ LANGUAGE PLPERLU;
16811
16812 CREATE TRIGGER c_maintain_control_numbers BEFORE INSERT OR UPDATE ON authority.record_entry FOR EACH ROW EXECUTE PROCEDURE maintain_control_numbers();
16813 CREATE TRIGGER c_maintain_control_numbers BEFORE INSERT OR UPDATE ON biblio.record_entry FOR EACH ROW EXECUTE PROCEDURE maintain_control_numbers();
16814 CREATE TRIGGER c_maintain_control_numbers BEFORE INSERT OR UPDATE ON serial.record_entry FOR EACH ROW EXECUTE PROCEDURE maintain_control_numbers();
16815
16816 INSERT INTO metabib.facet_entry (source, field, value)
16817     SELECT source, field, value FROM (
16818         SELECT * FROM metabib.author_field_entry
16819             UNION ALL
16820         SELECT * FROM metabib.keyword_field_entry
16821             UNION ALL
16822         SELECT * FROM metabib.identifier_field_entry
16823             UNION ALL
16824         SELECT * FROM metabib.title_field_entry
16825             UNION ALL
16826         SELECT * FROM metabib.subject_field_entry
16827             UNION ALL
16828         SELECT * FROM metabib.series_field_entry
16829         )x
16830     WHERE x.index_vector = '';
16831
16832 DELETE FROM metabib.author_field_entry WHERE index_vector = '';
16833 DELETE FROM metabib.keyword_field_entry WHERE index_vector = '';
16834 DELETE FROM metabib.identifier_field_entry WHERE index_vector = '';
16835 DELETE FROM metabib.title_field_entry WHERE index_vector = '';
16836 DELETE FROM metabib.subject_field_entry WHERE index_vector = '';
16837 DELETE FROM metabib.series_field_entry WHERE index_vector = '';
16838
16839 CREATE INDEX metabib_facet_entry_field_idx ON metabib.facet_entry (field);
16840 CREATE INDEX metabib_facet_entry_value_idx ON metabib.facet_entry (SUBSTRING(value,1,1024));
16841 CREATE INDEX metabib_facet_entry_source_idx ON metabib.facet_entry (source);
16842
16843 -- copy OPAC visibility materialized view
16844 CREATE OR REPLACE FUNCTION asset.refresh_opac_visible_copies_mat_view () RETURNS VOID AS $$
16845
16846     TRUNCATE TABLE asset.opac_visible_copies;
16847
16848     INSERT INTO asset.opac_visible_copies (id, circ_lib, record)
16849     SELECT  cp.id, cp.circ_lib, cn.record
16850     FROM  asset.copy cp
16851         JOIN asset.call_number cn ON (cn.id = cp.call_number)
16852         JOIN actor.org_unit a ON (cp.circ_lib = a.id)
16853         JOIN asset.copy_location cl ON (cp.location = cl.id)
16854         JOIN config.copy_status cs ON (cp.status = cs.id)
16855         JOIN biblio.record_entry b ON (cn.record = b.id)
16856     WHERE NOT cp.deleted
16857         AND NOT cn.deleted
16858         AND NOT b.deleted
16859         AND cs.opac_visible
16860         AND cl.opac_visible
16861         AND cp.opac_visible
16862         AND a.opac_visible;
16863
16864 $$ LANGUAGE SQL;
16865 COMMENT ON FUNCTION asset.refresh_opac_visible_copies_mat_view() IS $$
16866 Rebuild the copy OPAC visibility cache.  Useful during migrations.
16867 $$;
16868
16869 -- and actually populate the table
16870 SELECT asset.refresh_opac_visible_copies_mat_view();
16871
16872 CREATE OR REPLACE FUNCTION asset.cache_copy_visibility () RETURNS TRIGGER as $func$
16873 DECLARE
16874     add_query       TEXT;
16875     remove_query    TEXT;
16876     do_add          BOOLEAN := false;
16877     do_remove       BOOLEAN := false;
16878 BEGIN
16879     add_query := $$
16880             INSERT INTO asset.opac_visible_copies (id, circ_lib, record)
16881                 SELECT  cp.id, cp.circ_lib, cn.record
16882                   FROM  asset.copy cp
16883                         JOIN asset.call_number cn ON (cn.id = cp.call_number)
16884                         JOIN actor.org_unit a ON (cp.circ_lib = a.id)
16885                         JOIN asset.copy_location cl ON (cp.location = cl.id)
16886                         JOIN config.copy_status cs ON (cp.status = cs.id)
16887                         JOIN biblio.record_entry b ON (cn.record = b.id)
16888                   WHERE NOT cp.deleted
16889                         AND NOT cn.deleted
16890                         AND NOT b.deleted
16891                         AND cs.opac_visible
16892                         AND cl.opac_visible
16893                         AND cp.opac_visible
16894                         AND a.opac_visible
16895     $$;
16896
16897     remove_query := $$ DELETE FROM asset.opac_visible_copies WHERE id IN ( SELECT id FROM asset.copy WHERE $$;
16898
16899     IF TG_OP = 'INSERT' THEN
16900
16901         IF TG_TABLE_NAME IN ('copy', 'unit') THEN
16902             add_query := add_query || 'AND cp.id = ' || NEW.id || ';';
16903             EXECUTE add_query;
16904         END IF;
16905
16906         RETURN NEW;
16907
16908     END IF;
16909
16910     -- handle items first, since with circulation activity
16911     -- their statuses change frequently
16912     IF TG_TABLE_NAME IN ('copy', 'unit') THEN
16913
16914         IF OLD.location    <> NEW.location OR
16915            OLD.call_number <> NEW.call_number OR
16916            OLD.status      <> NEW.status OR
16917            OLD.circ_lib    <> NEW.circ_lib THEN
16918             -- any of these could change visibility, but
16919             -- we'll save some queries and not try to calculate
16920             -- the change directly
16921             do_remove := true;
16922             do_add := true;
16923         ELSE
16924
16925             IF OLD.deleted <> NEW.deleted THEN
16926                 IF NEW.deleted THEN
16927                     do_remove := true;
16928                 ELSE
16929                     do_add := true;
16930                 END IF;
16931             END IF;
16932
16933             IF OLD.opac_visible <> NEW.opac_visible THEN
16934                 IF OLD.opac_visible THEN
16935                     do_remove := true;
16936                 ELSIF NOT do_remove THEN -- handle edge case where deleted item
16937                                         -- is also marked opac_visible
16938                     do_add := true;
16939                 END IF;
16940             END IF;
16941
16942         END IF;
16943
16944         IF do_remove THEN
16945             DELETE FROM asset.opac_visible_copies WHERE id = NEW.id;
16946         END IF;
16947         IF do_add THEN
16948             add_query := add_query || 'AND cp.id = ' || NEW.id || ';';
16949             EXECUTE add_query;
16950         END IF;
16951
16952         RETURN NEW;
16953
16954     END IF;
16955
16956     IF TG_TABLE_NAME IN ('call_number', 'record_entry') THEN -- these have a 'deleted' column
16957
16958         IF OLD.deleted AND NEW.deleted THEN -- do nothing
16959
16960             RETURN NEW;
16961
16962         ELSIF NEW.deleted THEN -- remove rows
16963
16964             IF TG_TABLE_NAME = 'call_number' THEN
16965                 DELETE FROM asset.opac_visible_copies WHERE id IN (SELECT id FROM asset.copy WHERE call_number = NEW.id);
16966             ELSIF TG_TABLE_NAME = 'record_entry' THEN
16967                 DELETE FROM asset.opac_visible_copies WHERE record = NEW.id;
16968             END IF;
16969
16970             RETURN NEW;
16971
16972         ELSIF OLD.deleted THEN -- add rows
16973
16974             IF TG_TABLE_NAME IN ('copy','unit') THEN
16975                 add_query := add_query || 'AND cp.id = ' || NEW.id || ';';
16976             ELSIF TG_TABLE_NAME = 'call_number' THEN
16977                 add_query := add_query || 'AND cp.call_number = ' || NEW.id || ';';
16978             ELSIF TG_TABLE_NAME = 'record_entry' THEN
16979                 add_query := add_query || 'AND cn.record = ' || NEW.id || ';';
16980             END IF;
16981
16982             EXECUTE add_query;
16983             RETURN NEW;
16984
16985         END IF;
16986
16987     END IF;
16988
16989     IF TG_TABLE_NAME = 'call_number' THEN
16990
16991         IF OLD.record <> NEW.record THEN
16992             -- call number is linked to different bib
16993             remove_query := remove_query || 'call_number = ' || NEW.id || ');';
16994             EXECUTE remove_query;
16995             add_query := add_query || 'AND cp.call_number = ' || NEW.id || ';';
16996             EXECUTE add_query;
16997         END IF;
16998
16999         RETURN NEW;
17000
17001     END IF;
17002
17003     IF TG_TABLE_NAME IN ('record_entry') THEN
17004         RETURN NEW; -- don't have 'opac_visible'
17005     END IF;
17006
17007     -- actor.org_unit, asset.copy_location, asset.copy_status
17008     IF NEW.opac_visible = OLD.opac_visible THEN -- do nothing
17009
17010         RETURN NEW;
17011
17012     ELSIF NEW.opac_visible THEN -- add rows
17013
17014         IF TG_TABLE_NAME = 'org_unit' THEN
17015             add_query := add_query || 'AND cp.circ_lib = ' || NEW.id || ';';
17016         ELSIF TG_TABLE_NAME = 'copy_location' THEN
17017             add_query := add_query || 'AND cp.location = ' || NEW.id || ';';
17018         ELSIF TG_TABLE_NAME = 'copy_status' THEN
17019             add_query := add_query || 'AND cp.status = ' || NEW.id || ';';
17020         END IF;
17021
17022         EXECUTE add_query;
17023
17024     ELSE -- delete rows
17025
17026         IF TG_TABLE_NAME = 'org_unit' THEN
17027             remove_query := 'DELETE FROM asset.opac_visible_copies WHERE circ_lib = ' || NEW.id || ';';
17028         ELSIF TG_TABLE_NAME = 'copy_location' THEN
17029             remove_query := remove_query || 'location = ' || NEW.id || ');';
17030         ELSIF TG_TABLE_NAME = 'copy_status' THEN
17031             remove_query := remove_query || 'status = ' || NEW.id || ');';
17032         END IF;
17033
17034         EXECUTE remove_query;
17035
17036     END IF;
17037
17038     RETURN NEW;
17039 END;
17040 $func$ LANGUAGE PLPGSQL;
17041 COMMENT ON FUNCTION asset.cache_copy_visibility() IS $$
17042 Trigger function to update the copy OPAC visiblity cache.
17043 $$;
17044 CREATE TRIGGER a_opac_vis_mat_view_tgr AFTER INSERT OR UPDATE ON biblio.record_entry FOR EACH ROW EXECUTE PROCEDURE asset.cache_copy_visibility();
17045 CREATE TRIGGER a_opac_vis_mat_view_tgr AFTER INSERT OR UPDATE ON asset.copy FOR EACH ROW EXECUTE PROCEDURE asset.cache_copy_visibility();
17046 CREATE TRIGGER a_opac_vis_mat_view_tgr AFTER INSERT OR UPDATE ON asset.call_number FOR EACH ROW EXECUTE PROCEDURE asset.cache_copy_visibility();
17047 CREATE TRIGGER a_opac_vis_mat_view_tgr AFTER INSERT OR UPDATE ON asset.copy_location FOR EACH ROW EXECUTE PROCEDURE asset.cache_copy_visibility();
17048 CREATE TRIGGER a_opac_vis_mat_view_tgr AFTER INSERT OR UPDATE ON serial.unit FOR EACH ROW EXECUTE PROCEDURE asset.cache_copy_visibility();
17049 CREATE TRIGGER a_opac_vis_mat_view_tgr AFTER INSERT OR UPDATE ON config.copy_status FOR EACH ROW EXECUTE PROCEDURE asset.cache_copy_visibility();
17050 CREATE TRIGGER a_opac_vis_mat_view_tgr AFTER INSERT OR UPDATE ON actor.org_unit FOR EACH ROW EXECUTE PROCEDURE asset.cache_copy_visibility();
17051
17052 -- must create this rule explicitly; it is not inherited from asset.copy
17053 CREATE RULE protect_serial_unit_delete AS ON DELETE TO serial.unit DO INSTEAD UPDATE serial.unit SET deleted = TRUE WHERE OLD.id = serial.unit.id;
17054
17055 CREATE RULE protect_authority_rec_delete AS ON DELETE TO authority.record_entry DO INSTEAD (UPDATE authority.record_entry SET deleted = TRUE WHERE OLD.id = authority.record_entry.id);
17056
17057 CREATE OR REPLACE FUNCTION authority.merge_records ( target_record BIGINT, source_record BIGINT ) RETURNS INT AS $func$
17058 DECLARE
17059     moved_objects INT := 0;
17060     bib_id        INT := 0;
17061     bib_rec       biblio.record_entry%ROWTYPE;
17062     auth_link     authority.bib_linking%ROWTYPE;
17063 BEGIN
17064
17065     -- 1. Make source_record MARC a copy of the target_record to get auto-sync in linked bib records
17066     UPDATE authority.record_entry
17067       SET marc = (
17068         SELECT marc
17069           FROM authority.record_entry
17070           WHERE id = target_record
17071       )
17072       WHERE id = source_record;
17073
17074     -- 2. Update all bib records with the ID from target_record in their $0
17075     FOR bib_rec IN SELECT bre.* FROM biblio.record_entry bre
17076       INNER JOIN authority.bib_linking abl ON abl.bib = bre.id
17077       WHERE abl.authority = target_record LOOP
17078
17079         UPDATE biblio.record_entry
17080           SET marc = REGEXP_REPLACE(marc,
17081             E'(<subfield\\s+code="0"\\s*>[^<]*?\\))' || source_record || '<',
17082             E'\\1' || target_record || '<', 'g')
17083           WHERE id = bib_rec.id;
17084
17085           moved_objects := moved_objects + 1;
17086     END LOOP;
17087
17088     -- 3. "Delete" source_record
17089     DELETE FROM authority.record_entry
17090       WHERE id = source_record;
17091
17092     RETURN moved_objects;
17093 END;
17094 $func$ LANGUAGE plpgsql;
17095
17096 -- serial.record_entry already had an owner column spelled "owning_lib"
17097 -- Adjust the table and affected functions accordingly
17098
17099 ALTER TABLE serial.record_entry DROP COLUMN owner;
17100
17101 CREATE TABLE actor.usr_saved_search (
17102     id              SERIAL          PRIMARY KEY,
17103         owner           INT             NOT NULL REFERENCES actor.usr (id)
17104                                         ON DELETE CASCADE
17105                                         DEFERRABLE INITIALLY DEFERRED,
17106         name            TEXT            NOT NULL,
17107         create_date     TIMESTAMPTZ     NOT NULL DEFAULT now(),
17108         query_text      TEXT            NOT NULL,
17109         query_type      TEXT            NOT NULL
17110                                         CONSTRAINT valid_query_text CHECK (
17111                                         query_type IN ( 'URL' )) DEFAULT 'URL',
17112                                         -- we may add other types someday
17113         target          TEXT            NOT NULL
17114                                         CONSTRAINT valid_target CHECK (
17115                                         target IN ( 'record', 'metarecord', 'callnumber' )),
17116         CONSTRAINT name_once_per_user UNIQUE (owner, name)
17117 );
17118
17119 -- Apply Dan Wells' changes to the serial schema, from the
17120 -- seials-integration branch
17121
17122 CREATE TABLE serial.subscription_note (
17123         id           SERIAL PRIMARY KEY,
17124         subscription INT    NOT NULL
17125                             REFERENCES serial.subscription (id)
17126                             ON DELETE CASCADE
17127                             DEFERRABLE INITIALLY DEFERRED,
17128         creator      INT    NOT NULL
17129                             REFERENCES actor.usr (id)
17130                             DEFERRABLE INITIALLY DEFERRED,
17131         create_date  TIMESTAMP WITH TIME ZONE DEFAULT NOW(),
17132         pub          BOOL   NOT NULL DEFAULT FALSE,
17133         title        TEXT   NOT NULL,
17134         value        TEXT   NOT NULL
17135 );
17136 CREATE INDEX serial_subscription_note_sub_idx ON serial.subscription_note (subscription);
17137
17138 CREATE TABLE serial.distribution_note (
17139         id           SERIAL PRIMARY KEY,
17140         distribution INT    NOT NULL
17141                             REFERENCES serial.distribution (id)
17142                             ON DELETE CASCADE
17143                             DEFERRABLE INITIALLY DEFERRED,
17144         creator      INT    NOT NULL
17145                             REFERENCES actor.usr (id)
17146                             DEFERRABLE INITIALLY DEFERRED,
17147         create_date  TIMESTAMP WITH TIME ZONE DEFAULT NOW(),
17148         pub          BOOL   NOT NULL DEFAULT FALSE,
17149         title        TEXT   NOT NULL,
17150         value        TEXT   NOT NULL
17151 );
17152 CREATE INDEX serial_distribution_note_dist_idx ON serial.distribution_note (distribution);
17153
17154 ------- Begin surgery on serial.unit
17155
17156 ALTER TABLE serial.unit
17157         DROP COLUMN label;
17158
17159 ALTER TABLE serial.unit
17160         RENAME COLUMN label_sort_key TO sort_key;
17161
17162 ALTER TABLE serial.unit
17163         RENAME COLUMN contents TO detailed_contents;
17164
17165 ALTER TABLE serial.unit
17166         ADD COLUMN summary_contents TEXT;
17167
17168 UPDATE serial.unit
17169 SET summary_contents = detailed_contents;
17170
17171 ALTER TABLE serial.unit
17172         ALTER column summary_contents SET NOT NULL;
17173
17174 ------- End surgery on serial.unit
17175
17176 -- DELETE FROM config.upgrade_log WHERE version = 'temp'; DELETE FROM action_trigger.event WHERE event_def IN (33,34); DELETE FROM action_trigger.environment WHERE event_def IN (33,34); DELETE FROM action_trigger.event_definition WHERE id IN (33,34); DELETE FROM action_trigger.hook WHERE key IN ( 'circ.format.missing_pieces.slip.print', 'circ.format.missing_pieces.letter.print' );
17177
17178 -- Now rebuild the constraints dropped via cascade.
17179 -- ALTER TABLE acq.provider    ADD CONSTRAINT provider_edi_default_fkey FOREIGN KEY (edi_default) REFERENCES acq.edi_account (id) DEFERRABLE INITIALLY DEFERRED;
17180 DROP INDEX IF EXISTS money.money_mat_summary_id_idx;
17181 ALTER TABLE money.materialized_billable_xact_summary ADD PRIMARY KEY (id);
17182
17183 -- ALTER TABLE staging.billing_address_stage ADD PRIMARY KEY (row_id);
17184
17185 DELETE FROM config.metabib_field_index_norm_map
17186     WHERE norm IN (
17187         SELECT id
17188             FROM config.index_normalizer
17189             WHERE func IN ('first_word', 'naco_normalize', 'split_date_range')
17190     )
17191     AND field = 18
17192 ;
17193
17194 -- We won't necessarily use all of these, but they are here for completeness.
17195 -- Source is the EDI spec 6063 codelist, eg: http://www.stylusstudio.com/edifact/D04B/6063.htm
17196 -- Values are the EDI code value + 1200
17197
17198 INSERT INTO acq.cancel_reason (org_unit, keep_debits, id, label, description) VALUES
17199 (1, 't', 1201, 'Discrete quantity', 'Individually separated and distinct quantity.'),
17200 (1, 't', 1202, 'Charge', 'Quantity relevant for charge.'),
17201 (1, 't', 1203, 'Cumulative quantity', 'Quantity accumulated.'),
17202 (1, 't', 1204, 'Interest for overdrawn account', 'Interest for overdrawing the account.'),
17203 (1, 't', 1205, 'Active ingredient dose per unit', 'The dosage of active ingredient per unit.'),
17204 (1, 't', 1206, 'Auditor', 'The number of entities that audit accounts.'),
17205 (1, 't', 1207, 'Branch locations, leased', 'The number of branch locations being leased by an entity.'),
17206 (1, 't', 1208, 'Inventory quantity at supplier''s subject to inspection by', 'customer Quantity of goods which the customer requires the supplier to have in inventory and which may be inspected by the customer if desired.'),
17207 (1, 't', 1209, 'Branch locations, owned', 'The number of branch locations owned by an entity.'),
17208 (1, 't', 1210, 'Judgements registered', 'The number of judgements registered against an entity.'),
17209 (1, 't', 1211, 'Split quantity', 'Part of the whole quantity.'),
17210 (1, 't', 1212, 'Despatch quantity', 'Quantity despatched by the seller.'),
17211 (1, 't', 1213, 'Liens registered', 'The number of liens registered against an entity.'),
17212 (1, 't', 1214, 'Livestock', 'The number of animals kept for use or profit.'),
17213 (1, 't', 1215, 'Insufficient funds returned cheques', 'The number of cheques returned due to insufficient funds.'),
17214 (1, 't', 1216, 'Stolen cheques', 'The number of stolen cheques.'),
17215 (1, 't', 1217, 'Quantity on hand', 'The total quantity of a product on hand at a location. This includes as well units awaiting return to manufacturer, units unavailable due to inspection procedures and undamaged stock available for despatch, resale or use.'),
17216 (1, 't', 1218, 'Previous quantity', 'Quantity previously referenced.'),
17217 (1, 't', 1219, 'Paid-in security shares', 'The number of security shares issued and for which full payment has been made.'),
17218 (1, 't', 1220, 'Unusable quantity', 'Quantity not usable.'),
17219 (1, 't', 1221, 'Ordered quantity', '[6024] The quantity which has been ordered.'),
17220 (1, 't', 1222, 'Quantity at 100%', 'Equivalent quantity at 100% purity.'),
17221 (1, 't', 1223, 'Active ingredient', 'Quantity at 100% active agent content.'),
17222 (1, 't', 1224, 'Inventory quantity at supplier''s not subject to inspection', 'by customer Quantity of goods which the customer requires the supplier to have in inventory but which will not be checked by the customer.'),
17223 (1, 't', 1225, 'Retail sales', 'Quantity of retail point of sale activity.'),
17224 (1, 't', 1226, 'Promotion quantity', 'A quantity associated with a promotional event.'),
17225 (1, 't', 1227, 'On hold for shipment', 'Article received which cannot be shipped in its present form.'),
17226 (1, 't', 1228, 'Military sales quantity', 'Quantity of goods or services sold to a military organization.'),
17227 (1, 't', 1229, 'On premises sales',  'Sale of product in restaurants or bars.'),
17228 (1, 't', 1230, 'Off premises sales', 'Sale of product directly to a store.'),
17229 (1, 't', 1231, 'Estimated annual volume', 'Volume estimated for a year.'),
17230 (1, 't', 1232, 'Minimum delivery batch', 'Minimum quantity of goods delivered at one time.'),
17231 (1, 't', 1233, 'Maximum delivery batch', 'Maximum quantity of goods delivered at one time.'),
17232 (1, 't', 1234, 'Pipes', 'The number of tubes used to convey a substance.'),
17233 (1, 't', 1235, 'Price break from', 'The minimum quantity of a quantity range for a specified (unit) price.'),
17234 (1, 't', 1236, 'Price break to', 'Maximum quantity to which the price break applies.'),
17235 (1, 't', 1237, 'Poultry', 'The number of domestic fowl.'),
17236 (1, 't', 1238, 'Secured charges registered', 'The number of secured charges registered against an entity.'),
17237 (1, 't', 1239, 'Total properties owned', 'The total number of properties owned by an entity.'),
17238 (1, 't', 1240, 'Normal delivery', 'Quantity normally delivered by the seller.'),
17239 (1, 't', 1241, 'Sales quantity not included in the replenishment', 'calculation Sales which will not be included in the calculation of replenishment requirements.'),
17240 (1, 't', 1242, 'Maximum supply quantity, supplier endorsed', 'Maximum supply quantity endorsed by a supplier.'),
17241 (1, 't', 1243, 'Buyer', 'The number of buyers.'),
17242 (1, 't', 1244, 'Debenture bond', 'The number of fixed-interest bonds of an entity backed by general credit rather than specified assets.'),
17243 (1, 't', 1245, 'Debentures filed against directors', 'The number of notices of indebtedness filed against an entity''s directors.'),
17244 (1, 't', 1246, 'Pieces delivered', 'Number of pieces actually received at the final destination.'),
17245 (1, 't', 1247, 'Invoiced quantity', 'The quantity as per invoice.'),
17246 (1, 't', 1248, 'Received quantity', 'The quantity which has been received.'),
17247 (1, 't', 1249, 'Chargeable distance', '[6110] The distance between two points for which a specific tariff applies.'),
17248 (1, 't', 1250, 'Disposition undetermined quantity', 'Product quantity that has not yet had its disposition determined.'),
17249 (1, 't', 1251, 'Inventory category transfer', 'Inventory that has been moved from one inventory category to another.'),
17250 (1, 't', 1252, 'Quantity per pack', 'Quantity for each pack.'),
17251 (1, 't', 1253, 'Minimum order quantity', 'Minimum quantity of goods for an order.'),
17252 (1, 't', 1254, 'Maximum order quantity', 'Maximum quantity of goods for an order.'),
17253 (1, 't', 1255, 'Total sales', 'The summation of total quantity sales.'),
17254 (1, 't', 1256, 'Wholesaler to wholesaler sales', 'Sale of product to other wholesalers by a wholesaler.'),
17255 (1, 't', 1257, 'In transit quantity', 'A quantity that is en route.'),
17256 (1, 't', 1258, 'Quantity withdrawn', 'Quantity withdrawn from a location.'),
17257 (1, 't', 1259, 'Numbers of consumer units in the traded unit', 'Number of units for consumer sales in a unit for trading.'),
17258 (1, 't', 1260, 'Current inventory quantity available for shipment', 'Current inventory quantity available for shipment.'),
17259 (1, 't', 1261, 'Return quantity', 'Quantity of goods returned.'),
17260 (1, 't', 1262, 'Sorted quantity', 'The quantity that is sorted.'),
17261 (1, 'f', 1263, 'Sorted quantity rejected', 'The sorted quantity that is rejected.'),
17262 (1, 't', 1264, 'Scrap quantity', 'Remainder of the total quantity after split deliveries.'),
17263 (1, 'f', 1265, 'Destroyed quantity', 'Quantity of goods destroyed.'),
17264 (1, 't', 1266, 'Committed quantity', 'Quantity a party is committed to.'),
17265 (1, 't', 1267, 'Estimated reading quantity', 'The value that is estimated to be the reading of a measuring device (e.g. meter).'),
17266 (1, 't', 1268, 'End quantity', 'The quantity recorded at the end of an agreement or period.'),
17267 (1, 't', 1269, 'Start quantity', 'The quantity recorded at the start of an agreement or period.'),
17268 (1, 't', 1270, 'Cumulative quantity received', 'Cumulative quantity of all deliveries of this article received by the buyer.'),
17269 (1, 't', 1271, 'Cumulative quantity ordered', 'Cumulative quantity of all deliveries, outstanding and scheduled orders.'),
17270 (1, 't', 1272, 'Cumulative quantity received end of prior year', 'Cumulative quantity of all deliveries of the product received by the buyer till end of prior year.'),
17271 (1, 't', 1273, 'Outstanding quantity', 'Difference between quantity ordered and quantity received.'),
17272 (1, 't', 1274, 'Latest cumulative quantity', 'Cumulative quantity after complete delivery of all scheduled quantities of the product.'),
17273 (1, 't', 1275, 'Previous highest cumulative quantity', 'Cumulative quantity after complete delivery of all scheduled quantities of the product from a prior schedule period.'),
17274 (1, 't', 1276, 'Adjusted corrector reading', 'A corrector reading after it has been adjusted.'),
17275 (1, 't', 1277, 'Work days', 'Number of work days, e.g. per respective period.'),
17276 (1, 't', 1278, 'Cumulative quantity scheduled', 'Adding the quantity actually scheduled to previous cumulative quantity.'),
17277 (1, 't', 1279, 'Previous cumulative quantity', 'Cumulative quantity prior the actual order.'),
17278 (1, 't', 1280, 'Unadjusted corrector reading', 'A corrector reading before it has been adjusted.'),
17279 (1, 't', 1281, 'Extra unplanned delivery', 'Non scheduled additional quantity.'),
17280 (1, 't', 1282, 'Quantity requirement for sample inspection', 'Required quantity for sample inspection.'),
17281 (1, 't', 1283, 'Backorder quantity', 'The quantity of goods that is on back-order.'),
17282 (1, 't', 1284, 'Urgent delivery quantity', 'Quantity for urgent delivery.'),
17283 (1, 'f', 1285, 'Previous order quantity to be cancelled', 'Quantity ordered previously to be cancelled.'),
17284 (1, 't', 1286, 'Normal reading quantity', 'The value recorded or read from a measuring device (e.g. meter) in the normal conditions.'),
17285 (1, 't', 1287, 'Customer reading quantity', 'The value recorded or read from a measuring device (e.g. meter) by the customer.'),
17286 (1, 't', 1288, 'Information reading quantity', 'The value recorded or read from a measuring device (e.g. meter) for information purposes.'),
17287 (1, 't', 1289, 'Quality control held', 'Quantity of goods held pending completion of a quality control assessment.'),
17288 (1, 't', 1290, 'As is quantity', 'Quantity as it is in the existing circumstances.'),
17289 (1, 't', 1291, 'Open quantity', 'Quantity remaining after partial delivery.'),
17290 (1, 't', 1292, 'Final delivery quantity', 'Quantity of final delivery to a respective order.'),
17291 (1, 't', 1293, 'Subsequent delivery quantity', 'Quantity delivered to a respective order after it''s final delivery.'),
17292 (1, 't', 1294, 'Substitutional quantity', 'Quantity delivered replacing previous deliveries.'),
17293 (1, 't', 1295, 'Redelivery after post processing', 'Quantity redelivered after post processing.'),
17294 (1, 'f', 1296, 'Quality control failed', 'Quantity of goods which have failed quality control.'),
17295 (1, 't', 1297, 'Minimum inventory', 'Minimum stock quantity on which replenishment is based.'),
17296 (1, 't', 1298, 'Maximum inventory', 'Maximum stock quantity on which replenishment is based.'),
17297 (1, 't', 1299, 'Estimated quantity', 'Quantity estimated.'),
17298 (1, 't', 1300, 'Chargeable weight', 'The weight on which charges are based.'),
17299 (1, 't', 1301, 'Chargeable gross weight', 'The gross weight on which charges are based.'),
17300 (1, 't', 1302, 'Chargeable tare weight', 'The tare weight on which charges are based.'),
17301 (1, 't', 1303, 'Chargeable number of axles', 'The number of axles on which charges are based.'),
17302 (1, 't', 1304, 'Chargeable number of containers', 'The number of containers on which charges are based.'),
17303 (1, 't', 1305, 'Chargeable number of rail wagons', 'The number of rail wagons on which charges are based.'),
17304 (1, 't', 1306, 'Chargeable number of packages', 'The number of packages on which charges are based.'),
17305 (1, 't', 1307, 'Chargeable number of units', 'The number of units on which charges are based.'),
17306 (1, 't', 1308, 'Chargeable period', 'The period of time on which charges are based.'),
17307 (1, 't', 1309, 'Chargeable volume', 'The volume on which charges are based.'),
17308 (1, 't', 1310, 'Chargeable cubic measurements', 'The cubic measurements on which charges are based.'),
17309 (1, 't', 1311, 'Chargeable surface', 'The surface area on which charges are based.'),
17310 (1, 't', 1312, 'Chargeable length', 'The length on which charges are based.'),
17311 (1, 't', 1313, 'Quantity to be delivered', 'The quantity to be delivered.'),
17312 (1, 't', 1314, 'Number of passengers', 'Total number of passengers on the conveyance.'),
17313 (1, 't', 1315, 'Number of crew', 'Total number of crew members on the conveyance.'),
17314 (1, 't', 1316, 'Number of transport documents', 'Total number of air waybills, bills of lading, etc. being reported for a specific conveyance.'),
17315 (1, 't', 1317, 'Quantity landed', 'Quantity of goods actually arrived.'),
17316 (1, 't', 1318, 'Quantity manifested', 'Quantity of goods contracted for delivery by the carrier.'),
17317 (1, 't', 1319, 'Short shipped', 'Indication that part of the consignment was not shipped.'),
17318 (1, 't', 1320, 'Split shipment', 'Indication that the consignment has been split into two or more shipments.'),
17319 (1, 't', 1321, 'Over shipped', 'The quantity of goods shipped that exceeds the quantity contracted.'),
17320 (1, 't', 1322, 'Short-landed goods', 'If quantity of goods actually landed is less than the quantity which appears in the documentation. This quantity is the difference between these quantities.'),
17321 (1, 't', 1323, 'Surplus goods', 'If quantity of goods actually landed is more than the quantity which appears in the documentation. This quantity is the difference between these quantities.'),
17322 (1, 'f', 1324, 'Damaged goods', 'Quantity of goods which have deteriorated in transport such that they cannot be used for the purpose for which they were originally intended.'),
17323 (1, 'f', 1325, 'Pilferage goods', 'Quantity of goods stolen during transport.'),
17324 (1, 'f', 1326, 'Lost goods', 'Quantity of goods that disappeared in transport.'),
17325 (1, 't', 1327, 'Report difference', 'The quantity concerning the same transaction differs between two documents/messages and the source of this difference is a typing error.'),
17326 (1, 't', 1328, 'Quantity loaded', 'Quantity of goods loaded onto a means of transport.'),
17327 (1, 't', 1329, 'Units per unit price', 'Number of units per unit price.'),
17328 (1, 't', 1330, 'Allowance', 'Quantity relevant for allowance.'),
17329 (1, 't', 1331, 'Delivery quantity', 'Quantity required by buyer to be delivered.'),
17330 (1, 't', 1332, 'Cumulative quantity, preceding period, planned', 'Cumulative quantity originally planned for the preceding period.'),
17331 (1, 't', 1333, 'Cumulative quantity, preceding period, reached', 'Cumulative quantity reached in the preceding period.'),
17332 (1, 't', 1334, 'Cumulative quantity, actual planned',            'Cumulative quantity planned for now.'),
17333 (1, 't', 1335, 'Period quantity, planned', 'Quantity planned for this period.'),
17334 (1, 't', 1336, 'Period quantity, reached', 'Quantity reached during this period.'),
17335 (1, 't', 1337, 'Cumulative quantity, preceding period, estimated', 'Estimated cumulative quantity reached in the preceding period.'),
17336 (1, 't', 1338, 'Cumulative quantity, actual estimated',            'Estimated cumulative quantity reached now.'),
17337 (1, 't', 1339, 'Cumulative quantity, preceding period, measured', 'Surveyed cumulative quantity reached in the preceding period.'),
17338 (1, 't', 1340, 'Cumulative quantity, actual measured', 'Surveyed cumulative quantity reached now.'),
17339 (1, 't', 1341, 'Period quantity, measured',            'Surveyed quantity reached during this period.'),
17340 (1, 't', 1342, 'Total quantity, planned', 'Total quantity planned.'),
17341 (1, 't', 1343, 'Quantity, remaining', 'Quantity remaining.'),
17342 (1, 't', 1344, 'Tolerance', 'Plus or minus tolerance expressed as a monetary amount.'),
17343 (1, 't', 1345, 'Actual stock',          'The stock on hand, undamaged, and available for despatch, sale or use.'),
17344 (1, 't', 1346, 'Model or target stock', 'The stock quantity required or planned to have on hand, undamaged and available for use.'),
17345 (1, 't', 1347, 'Direct shipment quantity', 'Quantity to be shipped directly to a customer from a manufacturing site.'),
17346 (1, 't', 1348, 'Amortization total quantity',     'Indication of final quantity for amortization.'),
17347 (1, 't', 1349, 'Amortization order quantity',     'Indication of actual share of the order quantity for amortization.'),
17348 (1, 't', 1350, 'Amortization cumulated quantity', 'Indication of actual cumulated quantity of previous and actual amortization order quantity.'),
17349 (1, 't', 1351, 'Quantity advised',  'Quantity advised by supplier or shipper, in contrast to quantity actually received.'),
17350 (1, 't', 1352, 'Consignment stock', 'Quantity of goods with an external customer which is still the property of the supplier. Payment for these goods is only made to the supplier when the ownership has been transferred between the trading partners.'),
17351 (1, 't', 1353, 'Statistical sales quantity', 'Quantity of goods sold in a specified period.'),
17352 (1, 't', 1354, 'Sales quantity planned',     'Quantity of goods required to meet future demands. - Market intelligence quantity.'),
17353 (1, 't', 1355, 'Replenishment quantity',     'Quantity required to maintain the requisite on-hand stock of goods.'),
17354 (1, 't', 1356, 'Inventory movement quantity', 'To specify the quantity of an inventory movement.'),
17355 (1, 't', 1357, 'Opening stock balance quantity', 'To specify the quantity of an opening stock balance.'),
17356 (1, 't', 1358, 'Closing stock balance quantity', 'To specify the quantity of a closing stock balance.'),
17357 (1, 't', 1359, 'Number of stops', 'Number of times a means of transport stops before arriving at destination.'),
17358 (1, 't', 1360, 'Minimum production batch', 'The quantity specified is the minimum output from a single production run.'),
17359 (1, 't', 1361, 'Dimensional sample quantity', 'The quantity defined is a sample for the purpose of validating dimensions.'),
17360 (1, 't', 1362, 'Functional sample quantity', 'The quantity defined is a sample for the purpose of validating function and performance.'),
17361 (1, 't', 1363, 'Pre-production quantity', 'Quantity of the referenced item required prior to full production.'),
17362 (1, 't', 1364, 'Delivery batch', 'Quantity of the referenced item which constitutes a standard batch for deliver purposes.'),
17363 (1, 't', 1365, 'Delivery batch multiple', 'The multiples in which delivery batches can be supplied.'),
17364 (1, 't', 1366, 'All time buy',             'The total quantity of the referenced covering all future needs. Further orders of the referenced item are not expected.'),
17365 (1, 't', 1367, 'Total delivery quantity',  'The total quantity required by the buyer to be delivered.'),
17366 (1, 't', 1368, 'Single delivery quantity', 'The quantity required by the buyer to be delivered in a single shipment.'),
17367 (1, 't', 1369, 'Supplied quantity',  'Quantity of the referenced item actually shipped.'),
17368 (1, 't', 1370, 'Allocated quantity', 'Quantity of the referenced item allocated from available stock for delivery.'),
17369 (1, 't', 1371, 'Maximum stackability', 'The number of pallets/handling units which can be safely stacked one on top of another.'),
17370 (1, 't', 1372, 'Amortisation quantity', 'The quantity of the referenced item which has a cost for tooling amortisation included in the item price.'),
17371 (1, 't', 1373, 'Previously amortised quantity', 'The cumulative quantity of the referenced item which had a cost for tooling amortisation included in the item price.'),
17372 (1, 't', 1374, 'Total amortisation quantity', 'The total quantity of the referenced item which has a cost for tooling amortisation included in the item price.'),
17373 (1, 't', 1375, 'Number of moulds', 'The number of pressing moulds contained within a single piece of the referenced tooling.'),
17374 (1, 't', 1376, 'Concurrent item output of tooling', 'The number of related items which can be produced simultaneously with a single piece of the referenced tooling.'),
17375 (1, 't', 1377, 'Periodic capacity of tooling', 'Maximum production output of the referenced tool over a period of time.'),
17376 (1, 't', 1378, 'Lifetime capacity of tooling', 'Maximum production output of the referenced tool over its productive lifetime.'),
17377 (1, 't', 1379, 'Number of deliveries per despatch period', 'The number of deliveries normally expected to be despatched within each despatch period.'),
17378 (1, 't', 1380, 'Provided quantity', 'The quantity of a referenced component supplied by the buyer for manufacturing of an ordered item.'),
17379 (1, 't', 1381, 'Maximum production batch', 'The quantity specified is the maximum output from a single production run.'),
17380 (1, 'f', 1382, 'Cancelled quantity', 'Quantity of the referenced item which has previously been ordered and is now cancelled.'),
17381 (1, 't', 1383, 'No delivery requirement in this instruction', 'This delivery instruction does not contain any delivery requirements.'),
17382 (1, 't', 1384, 'Quantity of material in ordered time', 'Quantity of the referenced material within the ordered time.'),
17383 (1, 'f', 1385, 'Rejected quantity', 'The quantity of received goods rejected for quantity reasons.'),
17384 (1, 't', 1386, 'Cumulative quantity scheduled up to accumulation start date', 'The cumulative quantity scheduled up to the accumulation start date.'),
17385 (1, 't', 1387, 'Quantity scheduled', 'The quantity scheduled for delivery.'),
17386 (1, 't', 1388, 'Number of identical handling units', 'Number of identical handling units in terms of type and contents.'),
17387 (1, 't', 1389, 'Number of packages in handling unit', 'The number of packages contained in one handling unit.'),
17388 (1, 't', 1390, 'Despatch note quantity', 'The item quantity specified on the despatch note.'),
17389 (1, 't', 1391, 'Adjustment to inventory quantity', 'An adjustment to inventory quantity.'),
17390 (1, 't', 1392, 'Free goods quantity',    'Quantity of goods which are free of charge.'),
17391 (1, 't', 1393, 'Free quantity included', 'Quantity included to which no charge is applicable.'),
17392 (1, 't', 1394, 'Received and accepted',  'Quantity which has been received and accepted at a given location.'),
17393 (1, 'f', 1395, 'Received, not accepted, to be returned',  'Quantity which has been received but not accepted at a given location and which will consequently be returned to the relevant party.'),
17394 (1, 'f', 1396, 'Received, not accepted, to be destroyed', 'Quantity which has been received but not accepted at a given location and which will consequently be destroyed.'),
17395 (1, 't', 1397, 'Reordering level', 'Quantity at which an order may be triggered to replenish.'),
17396 (1, 't', 1399, 'Inventory withdrawal quantity', 'Quantity which has been withdrawn from inventory since the last inventory report.'),
17397 (1, 't', 1400, 'Free quantity not included', 'Free quantity not included in ordered quantity.'),
17398 (1, 't', 1401, 'Recommended overhaul and repair quantity', 'To indicate the recommended quantity of an article required to support overhaul and repair activities.'),
17399 (1, 't', 1402, 'Quantity per next higher assembly', 'To indicate the quantity required for the next higher assembly.'),
17400 (1, 't', 1403, 'Quantity per unit of issue', 'Provides the standard quantity of an article in which one unit can be issued.'),
17401 (1, 't', 1404, 'Cumulative scrap quantity',  'Provides the cumulative quantity of an item which has been identified as scrapped.'),
17402 (1, 't', 1405, 'Publication turn size', 'The quantity of magazines or newspapers grouped together with the spine facing alternate directions in a bundle.'),
17403 (1, 't', 1406, 'Recommended maintenance quantity', 'Recommended quantity of an article which is required to meet an agreed level of maintenance.'),
17404 (1, 't', 1407, 'Labour hours', 'Number of labour hours.'),
17405 (1, 't', 1408, 'Quantity requirement for maintenance and repair of', 'equipment Quantity of the material needed to maintain and repair equipment.'),
17406 (1, 't', 1409, 'Additional replenishment demand quantity', 'Incremental needs over and above normal replenishment calculations, but not intended to permanently change the model parameters.'),
17407 (1, 't', 1410, 'Returned by consumer quantity', 'Quantity returned by a consumer.'),
17408 (1, 't', 1411, 'Replenishment override quantity', 'Quantity to override the normal replenishment model calculations, but not intended to permanently change the model parameters.'),
17409 (1, 't', 1412, 'Quantity sold, net', 'Net quantity sold which includes returns of saleable inventory and other adjustments.'),
17410 (1, 't', 1413, 'Transferred out quantity',   'Quantity which was transferred out of this location.'),
17411 (1, 't', 1414, 'Transferred in quantity',    'Quantity which was transferred into this location.'),
17412 (1, 't', 1415, 'Unsaleable quantity',        'Quantity of inventory received which cannot be sold in its present condition.'),
17413 (1, 't', 1416, 'Consumer reserved quantity', 'Quantity reserved for consumer delivery or pickup and not yet withdrawn from inventory.'),
17414 (1, 't', 1417, 'Out of inventory quantity',  'Quantity of inventory which was requested but was not available.'),
17415 (1, 't', 1418, 'Quantity returned, defective or damaged', 'Quantity returned in a damaged or defective condition.'),
17416 (1, 't', 1419, 'Taxable quantity',           'Quantity subject to taxation.'),
17417 (1, 't', 1420, 'Meter reading', 'The numeric value of measure units counted by a meter.'),
17418 (1, 't', 1421, 'Maximum requestable quantity', 'The maximum quantity which may be requested.'),
17419 (1, 't', 1422, 'Minimum requestable quantity', 'The minimum quantity which may be requested.'),
17420 (1, 't', 1423, 'Daily average quantity', 'The quantity for a defined period divided by the number of days of the period.'),
17421 (1, 't', 1424, 'Budgeted hours',     'The number of budgeted hours.'),
17422 (1, 't', 1425, 'Actual hours',       'The number of actual hours.'),
17423 (1, 't', 1426, 'Earned value hours', 'The number of earned value hours.'),
17424 (1, 't', 1427, 'Estimated hours',    'The number of estimated hours.'),
17425 (1, 't', 1428, 'Level resource task quantity', 'Quantity of a resource that is level for the duration of the task.'),
17426 (1, 't', 1429, 'Available resource task quantity', 'Quantity of a resource available to complete a task.'),
17427 (1, 't', 1430, 'Work time units',   'Quantity of work units of time.'),
17428 (1, 't', 1431, 'Daily work shifts', 'Quantity of work shifts per day.'),
17429 (1, 't', 1432, 'Work time units per shift', 'Work units of time per work shift.'),
17430 (1, 't', 1433, 'Work calendar units',       'Work calendar units of time.'),
17431 (1, 't', 1434, 'Elapsed duration',   'Quantity representing the elapsed duration.'),
17432 (1, 't', 1435, 'Remaining duration', 'Quantity representing the remaining duration.'),
17433 (1, 't', 1436, 'Original duration',  'Quantity representing the original duration.'),
17434 (1, 't', 1437, 'Current duration',   'Quantity representing the current duration.'),
17435 (1, 't', 1438, 'Total float time',   'Quantity representing the total float time.'),
17436 (1, 't', 1439, 'Free float time',    'Quantity representing the free float time.'),
17437 (1, 't', 1440, 'Lag time',           'Quantity representing lag time.'),
17438 (1, 't', 1441, 'Lead time',          'Quantity representing lead time.'),
17439 (1, 't', 1442, 'Number of months', 'The number of months.'),
17440 (1, 't', 1443, 'Reserved quantity customer direct delivery sales', 'Quantity of products reserved for sales delivered direct to the customer.'),
17441 (1, 't', 1444, 'Reserved quantity retail sales', 'Quantity of products reserved for retail sales.'),
17442 (1, 't', 1445, 'Consolidated discount inventory', 'A quantity of inventory supplied at consolidated discount terms.'),
17443 (1, 't', 1446, 'Returns replacement quantity',    'A quantity of goods issued as a replacement for a returned quantity.'),
17444 (1, 't', 1447, 'Additional promotion sales forecast quantity', 'A forecast of additional quantity which will be sold during a period of promotional activity.'),
17445 (1, 't', 1448, 'Reserved quantity', 'Quantity reserved for specific purposes.'),
17446 (1, 't', 1449, 'Quantity displayed not available for sale', 'Quantity displayed within a retail outlet but not available for sale.'),
17447 (1, 't', 1450, 'Inventory discrepancy', 'The difference recorded between theoretical and physical inventory.'),
17448 (1, 't', 1451, 'Incremental order quantity', 'The incremental quantity by which ordering is carried out.'),
17449 (1, 't', 1452, 'Quantity requiring manipulation before despatch', 'A quantity of goods which needs manipulation before despatch.'),
17450 (1, 't', 1453, 'Quantity in quarantine',              'A quantity of goods which are held in a restricted area for quarantine purposes.'),
17451 (1, 't', 1454, 'Quantity withheld by owner of goods', 'A quantity of goods which has been withheld by the owner of the goods.'),
17452 (1, 't', 1455, 'Quantity not available for despatch', 'A quantity of goods not available for despatch.'),
17453 (1, 't', 1456, 'Quantity awaiting delivery', 'Quantity of goods which are awaiting delivery.'),
17454 (1, 't', 1457, 'Quantity in physical inventory',      'A quantity of goods held in physical inventory.'),
17455 (1, 't', 1458, 'Quantity held by logistic service provider', 'Quantity of goods under the control of a logistic service provider.'),
17456 (1, 't', 1459, 'Optimal quantity', 'The optimal quantity for a given purpose.'),
17457 (1, 't', 1460, 'Delivery quantity balance', 'The difference between the scheduled quantity and the quantity delivered to the consignee at a given date.'),
17458 (1, 't', 1461, 'Cumulative quantity shipped', 'Cumulative quantity of all shipments.'),
17459 (1, 't', 1462, 'Quantity suspended', 'The quantity of something which is suspended.'),
17460 (1, 't', 1463, 'Control quantity', 'The quantity designated for control purposes.'),
17461 (1, 't', 1464, 'Equipment quantity', 'A count of a quantity of equipment.'),
17462 (1, 't', 1465, 'Factor', 'Number by which the measured unit has to be multiplied to calculate the units used.'),
17463 (1, 't', 1466, 'Unsold quantity held by wholesaler', 'Unsold quantity held by the wholesaler.'),
17464 (1, 't', 1467, 'Quantity held by delivery vehicle', 'Quantity of goods held by the delivery vehicle.'),
17465 (1, 't', 1468, 'Quantity held by retail outlet', 'Quantity held by the retail outlet.'),
17466 (1, 'f', 1469, 'Rejected return quantity', 'A quantity for return which has been rejected.'),
17467 (1, 't', 1470, 'Accounts', 'The number of accounts.'),
17468 (1, 't', 1471, 'Accounts placed for collection', 'The number of accounts placed for collection.'),
17469 (1, 't', 1472, 'Activity codes', 'The number of activity codes.'),
17470 (1, 't', 1473, 'Agents', 'The number of agents.'),
17471 (1, 't', 1474, 'Airline attendants', 'The number of airline attendants.'),
17472 (1, 't', 1475, 'Authorised shares',  'The number of shares authorised for issue.'),
17473 (1, 't', 1476, 'Employee average',   'The average number of employees.'),
17474 (1, 't', 1477, 'Branch locations',   'The number of branch locations.'),
17475 (1, 't', 1478, 'Capital changes',    'The number of capital changes made.'),
17476 (1, 't', 1479, 'Clerks', 'The number of clerks.'),
17477 (1, 't', 1480, 'Companies in same activity', 'The number of companies doing business in the same activity category.'),
17478 (1, 't', 1481, 'Companies included in consolidated financial statement', 'The number of companies included in a consolidated financial statement.'),
17479 (1, 't', 1482, 'Cooperative shares', 'The number of cooperative shares.'),
17480 (1, 't', 1483, 'Creditors',   'The number of creditors.'),
17481 (1, 't', 1484, 'Departments', 'The number of departments.'),
17482 (1, 't', 1485, 'Design employees', 'The number of employees involved in the design process.'),
17483 (1, 't', 1486, 'Physicians', 'The number of medical doctors.'),
17484 (1, 't', 1487, 'Domestic affiliated companies', 'The number of affiliated companies located within the country.'),
17485 (1, 't', 1488, 'Drivers', 'The number of drivers.'),
17486 (1, 't', 1489, 'Employed at location',     'The number of employees at the specified location.'),
17487 (1, 't', 1490, 'Employed by this company', 'The number of employees at the specified company.'),
17488 (1, 't', 1491, 'Total employees',    'The total number of employees.'),
17489 (1, 't', 1492, 'Employees shared',   'The number of employees shared among entities.'),
17490 (1, 't', 1493, 'Engineers',          'The number of engineers.'),
17491 (1, 't', 1494, 'Estimated accounts', 'The estimated number of accounts.'),
17492 (1, 't', 1495, 'Estimated employees at location', 'The estimated number of employees at the specified location.'),
17493 (1, 't', 1496, 'Estimated total employees',       'The total estimated number of employees.'),
17494 (1, 't', 1497, 'Executives', 'The number of executives.'),
17495 (1, 't', 1498, 'Agricultural workers',   'The number of agricultural workers.'),
17496 (1, 't', 1499, 'Financial institutions', 'The number of financial institutions.'),
17497 (1, 't', 1500, 'Floors occupied', 'The number of floors occupied.'),
17498 (1, 't', 1501, 'Foreign related entities', 'The number of related entities located outside the country.'),
17499 (1, 't', 1502, 'Group employees',    'The number of employees within the group.'),
17500 (1, 't', 1503, 'Indirect employees', 'The number of employees not associated with direct production.'),
17501 (1, 't', 1504, 'Installers',    'The number of employees involved with the installation process.'),
17502 (1, 't', 1505, 'Invoices',      'The number of invoices.'),
17503 (1, 't', 1506, 'Issued shares', 'The number of shares actually issued.'),
17504 (1, 't', 1507, 'Labourers',     'The number of labourers.'),
17505 (1, 't', 1508, 'Manufactured units', 'The number of units manufactured.'),
17506 (1, 't', 1509, 'Maximum number of employees', 'The maximum number of people employed.'),
17507 (1, 't', 1510, 'Maximum number of employees at location', 'The maximum number of people employed at a location.'),
17508 (1, 't', 1511, 'Members in group', 'The number of members within a group.'),
17509 (1, 't', 1512, 'Minimum number of employees at location', 'The minimum number of people employed at a location.'),
17510 (1, 't', 1513, 'Minimum number of employees', 'The minimum number of people employed.'),
17511 (1, 't', 1514, 'Non-union employees', 'The number of employees not belonging to a labour union.'),
17512 (1, 't', 1515, 'Floors', 'The number of floors in a building.'),
17513 (1, 't', 1516, 'Nurses', 'The number of nurses.'),
17514 (1, 't', 1517, 'Office workers', 'The number of workers in an office.'),
17515 (1, 't', 1518, 'Other employees', 'The number of employees otherwise categorised.'),
17516 (1, 't', 1519, 'Part time employees', 'The number of employees working on a part time basis.'),
17517 (1, 't', 1520, 'Accounts payable average overdue days', 'The average number of days accounts payable are overdue.'),
17518 (1, 't', 1521, 'Pilots', 'The number of pilots.'),
17519 (1, 't', 1522, 'Plant workers', 'The number of workers within a plant.'),
17520 (1, 't', 1523, 'Previous number of accounts', 'The number of accounts which preceded the current count.'),
17521 (1, 't', 1524, 'Previous number of branch locations', 'The number of branch locations which preceded the current count.'),
17522 (1, 't', 1525, 'Principals included as employees', 'The number of principals which are included in the count of employees.'),
17523 (1, 't', 1526, 'Protested bills', 'The number of bills which are protested.'),
17524 (1, 't', 1527, 'Registered brands distributed', 'The number of registered brands which are being distributed.'),
17525 (1, 't', 1528, 'Registered brands manufactured', 'The number of registered brands which are being manufactured.'),
17526 (1, 't', 1529, 'Related business entities', 'The number of related business entities.'),
17527 (1, 't', 1530, 'Relatives employed', 'The number of relatives which are counted as employees.'),
17528 (1, 't', 1531, 'Rooms',        'The number of rooms.'),
17529 (1, 't', 1532, 'Salespersons', 'The number of salespersons.'),
17530 (1, 't', 1533, 'Seats',        'The number of seats.'),
17531 (1, 't', 1534, 'Shareholders', 'The number of shareholders.'),
17532 (1, 't', 1535, 'Shares of common stock', 'The number of shares of common stock.'),
17533 (1, 't', 1536, 'Shares of preferred stock', 'The number of shares of preferred stock.'),
17534 (1, 't', 1537, 'Silent partners', 'The number of silent partners.'),
17535 (1, 't', 1538, 'Subcontractors',  'The number of subcontractors.'),
17536 (1, 't', 1539, 'Subsidiaries',    'The number of subsidiaries.'),
17537 (1, 't', 1540, 'Law suits',       'The number of law suits.'),
17538 (1, 't', 1541, 'Suppliers',       'The number of suppliers.'),
17539 (1, 't', 1542, 'Teachers',        'The number of teachers.'),
17540 (1, 't', 1543, 'Technicians',     'The number of technicians.'),
17541 (1, 't', 1544, 'Trainees',        'The number of trainees.'),
17542 (1, 't', 1545, 'Union employees', 'The number of employees who are members of a labour union.'),
17543 (1, 't', 1546, 'Number of units', 'The quantity of units.'),
17544 (1, 't', 1547, 'Warehouse employees', 'The number of employees who work in a warehouse setting.'),
17545 (1, 't', 1548, 'Shareholders holding remainder of shares', 'Number of shareholders owning the remainder of shares.'),
17546 (1, 't', 1549, 'Payment orders filed', 'Number of payment orders filed.'),
17547 (1, 't', 1550, 'Uncovered cheques', 'Number of uncovered cheques.'),
17548 (1, 't', 1551, 'Auctions', 'Number of auctions.'),
17549 (1, 't', 1552, 'Units produced', 'The number of units produced.'),
17550 (1, 't', 1553, 'Added employees', 'Number of employees that were added to the workforce.'),
17551 (1, 't', 1554, 'Number of added locations', 'Number of locations that were added.'),
17552 (1, 't', 1555, 'Total number of foreign subsidiaries not included in', 'financial statement The total number of foreign subsidiaries not included in the financial statement.'),
17553 (1, 't', 1556, 'Number of closed locations', 'Number of locations that were closed.'),
17554 (1, 't', 1557, 'Counter clerks', 'The number of clerks that work behind a flat-topped fitment.'),
17555 (1, 't', 1558, 'Payment experiences in the last 3 months', 'The number of payment experiences received for an entity over the last 3 months.'),
17556 (1, 't', 1559, 'Payment experiences in the last 12 months', 'The number of payment experiences received for an entity over the last 12 months.'),
17557 (1, 't', 1560, 'Total number of subsidiaries not included in the financial', 'statement The total number of subsidiaries not included in the financial statement.'),
17558 (1, 't', 1561, 'Paid-in common shares', 'The number of paid-in common shares.'),
17559 (1, 't', 1562, 'Total number of domestic subsidiaries not included in', 'financial statement The total number of domestic subsidiaries not included in the financial statement.'),
17560 (1, 't', 1563, 'Total number of foreign subsidiaries included in financial statement', 'The total number of foreign subsidiaries included in the financial statement.'),
17561 (1, 't', 1564, 'Total number of domestic subsidiaries included in financial statement', 'The total number of domestic subsidiaries included in the financial statement.'),
17562 (1, 't', 1565, 'Total transactions', 'The total number of transactions.'),
17563 (1, 't', 1566, 'Paid-in preferred shares', 'The number of paid-in preferred shares.'),
17564 (1, 't', 1567, 'Employees', 'Code specifying the quantity of persons working for a company, whose services are used for pay.'),
17565 (1, 't', 1568, 'Active ingredient dose per unit, dispensed', 'The dosage of active ingredient per dispensed unit.'),
17566 (1, 't', 1569, 'Budget', 'Budget quantity.'),
17567 (1, 't', 1570, 'Budget, cumulative to date', 'Budget quantity, cumulative to date.'),
17568 (1, 't', 1571, 'Actual units', 'The number of actual units.'),
17569 (1, 't', 1572, 'Actual units, cumulative to date', 'The number of cumulative to date actual units.'),
17570 (1, 't', 1573, 'Earned value', 'Earned value quantity.'),
17571 (1, 't', 1574, 'Earned value, cumulative to date', 'Earned value quantity accumulated to date.'),
17572 (1, 't', 1575, 'At completion quantity, estimated', 'The estimated quantity when a project is complete.'),
17573 (1, 't', 1576, 'To complete quantity, estimated', 'The estimated quantity required to complete a project.'),
17574 (1, 't', 1577, 'Adjusted units', 'The number of adjusted units.'),
17575 (1, 't', 1578, 'Number of limited partnership shares', 'Number of shares held in a limited partnership.'),
17576 (1, 't', 1579, 'National business failure incidences', 'Number of firms in a country that discontinued with a loss to creditors.'),
17577 (1, 't', 1580, 'Industry business failure incidences', 'Number of firms in a specific industry that discontinued with a loss to creditors.'),
17578 (1, 't', 1581, 'Business class failure incidences', 'Number of firms in a specific class that discontinued with a loss to creditors.'),
17579 (1, 't', 1582, 'Mechanics', 'Number of mechanics.'),
17580 (1, 't', 1583, 'Messengers', 'Number of messengers.'),
17581 (1, 't', 1584, 'Primary managers', 'Number of primary managers.'),
17582 (1, 't', 1585, 'Secretaries', 'Number of secretaries.'),
17583 (1, 't', 1586, 'Detrimental legal filings', 'Number of detrimental legal filings.'),
17584 (1, 't', 1587, 'Branch office locations, estimated', 'Estimated number of branch office locations.'),
17585 (1, 't', 1588, 'Previous number of employees', 'The number of employees for a previous period.'),
17586 (1, 't', 1589, 'Asset seizers', 'Number of entities that seize assets of another entity.'),
17587 (1, 't', 1590, 'Out-turned quantity', 'The quantity discharged.'),
17588 (1, 't', 1591, 'Material on-board quantity, prior to loading', 'The material in vessel tanks, void spaces, and pipelines prior to loading.'),
17589 (1, 't', 1592, 'Supplier estimated previous meter reading', 'Previous meter reading estimated by the supplier.'),
17590 (1, 't', 1593, 'Supplier estimated latest meter reading',   'Latest meter reading estimated by the supplier.'),
17591 (1, 't', 1594, 'Customer estimated previous meter reading', 'Previous meter reading estimated by the customer.'),
17592 (1, 't', 1595, 'Customer estimated latest meter reading',   'Latest meter reading estimated by the customer.'),
17593 (1, 't', 1596, 'Supplier previous meter reading',           'Previous meter reading done by the supplier.'),
17594 (1, 't', 1597, 'Supplier latest meter reading',             'Latest meter reading recorded by the supplier.'),
17595 (1, 't', 1598, 'Maximum number of purchase orders allowed', 'Maximum number of purchase orders that are allowed.'),
17596 (1, 't', 1599, 'File size before compression', 'The size of a file before compression.'),
17597 (1, 't', 1600, 'File size after compression', 'The size of a file after compression.'),
17598 (1, 't', 1601, 'Securities shares', 'Number of shares of securities.'),
17599 (1, 't', 1602, 'Patients',         'Number of patients.'),
17600 (1, 't', 1603, 'Completed projects', 'Number of completed projects.'),
17601 (1, 't', 1604, 'Promoters',        'Number of entities who finance or organize an event or a production.'),
17602 (1, 't', 1605, 'Administrators',   'Number of administrators.'),
17603 (1, 't', 1606, 'Supervisors',      'Number of supervisors.'),
17604 (1, 't', 1607, 'Professionals',    'Number of professionals.'),
17605 (1, 't', 1608, 'Debt collectors',  'Number of debt collectors.'),
17606 (1, 't', 1609, 'Inspectors',       'Number of individuals who perform inspections.'),
17607 (1, 't', 1610, 'Operators',        'Number of operators.'),
17608 (1, 't', 1611, 'Trainers',         'Number of trainers.'),
17609 (1, 't', 1612, 'Active accounts',  'Number of accounts in a current or active status.'),
17610 (1, 't', 1613, 'Trademarks used',  'Number of trademarks used.'),
17611 (1, 't', 1614, 'Machines',         'Number of machines.'),
17612 (1, 't', 1615, 'Fuel pumps',       'Number of fuel pumps.'),
17613 (1, 't', 1616, 'Tables available', 'Number of tables available for use.'),
17614 (1, 't', 1617, 'Directors',        'Number of directors.'),
17615 (1, 't', 1618, 'Freelance debt collectors', 'Number of debt collectors who work on a freelance basis.'),
17616 (1, 't', 1619, 'Freelance salespersons',    'Number of salespersons who work on a freelance basis.'),
17617 (1, 't', 1620, 'Travelling employees',      'Number of travelling employees.'),
17618 (1, 't', 1621, 'Foremen', 'Number of workers with limited supervisory responsibilities.'),
17619 (1, 't', 1622, 'Production workers', 'Number of employees engaged in production.'),
17620 (1, 't', 1623, 'Employees not including owners', 'Number of employees excluding business owners.'),
17621 (1, 't', 1624, 'Beds', 'Number of beds.'),
17622 (1, 't', 1625, 'Resting quantity', 'A quantity of product that is at rest before it can be used.'),
17623 (1, 't', 1626, 'Production requirements', 'Quantity needed to meet production requirements.'),
17624 (1, 't', 1627, 'Corrected quantity', 'The quantity has been corrected.'),
17625 (1, 't', 1628, 'Operating divisions', 'Number of divisions operating.'),
17626 (1, 't', 1629, 'Quantitative incentive scheme base', 'Quantity constituting the base for the quantitative incentive scheme.'),
17627 (1, 't', 1630, 'Petitions filed', 'Number of petitions that have been filed.'),
17628 (1, 't', 1631, 'Bankruptcy petitions filed', 'Number of bankruptcy petitions that have been filed.'),
17629 (1, 't', 1632, 'Projects in process', 'Number of projects in process.'),
17630 (1, 't', 1633, 'Changes in capital structure', 'Number of modifications made to the capital structure of an entity.'),
17631 (1, 't', 1634, 'Detrimental legal filings against directors', 'The number of legal filings that are of a detrimental nature that have been filed against the directors.'),
17632 (1, 't', 1635, 'Number of failed businesses of directors', 'The number of failed businesses with which the directors have been associated.'),
17633 (1, 't', 1636, 'Professor', 'The number of professors.'),
17634 (1, 't', 1637, 'Seller',    'The number of sellers.'),
17635 (1, 't', 1638, 'Skilled worker', 'The number of skilled workers.'),
17636 (1, 't', 1639, 'Trademark represented', 'The number of trademarks represented.'),
17637 (1, 't', 1640, 'Number of quantitative incentive scheme units', 'Number of units allocated to a quantitative incentive scheme.'),
17638 (1, 't', 1641, 'Quantity in manufacturing process', 'Quantity currently in the manufacturing process.'),
17639 (1, 't', 1642, 'Number of units in the width of a layer', 'Number of units which make up the width of a layer.'),
17640 (1, 't', 1643, 'Number of units in the depth of a layer', 'Number of units which make up the depth of a layer.'),
17641 (1, 't', 1644, 'Return to warehouse', 'A quantity of products sent back to the warehouse.'),
17642 (1, 't', 1645, 'Return to the manufacturer', 'A quantity of products sent back from the manufacturer.'),
17643 (1, 't', 1646, 'Delta quantity', 'An increment or decrement to a quantity.'),
17644 (1, 't', 1647, 'Quantity moved between outlets', 'A quantity of products moved between outlets.'),
17645 (1, 't', 1648, 'Pre-paid invoice annual consumption, estimated', 'The estimated annual consumption used for a prepayment invoice.'),
17646 (1, 't', 1649, 'Total quoted quantity', 'The sum of quoted quantities.'),
17647 (1, 't', 1650, 'Requests pertaining to entity in last 12 months', 'Number of requests received in last 12 months pertaining to the entity.'),
17648 (1, 't', 1651, 'Total inquiry matches', 'Number of instances which correspond with the inquiry.'),
17649 (1, 't', 1652, 'En route to warehouse quantity',   'A quantity of products that is en route to a warehouse.'),
17650 (1, 't', 1653, 'En route from warehouse quantity', 'A quantity of products that is en route from a warehouse.'),
17651 (1, 't', 1654, 'Quantity ordered but not yet allocated from stock', 'A quantity of products which has been ordered but which has not yet been allocated from stock.'),
17652 (1, 't', 1655, 'Not yet ordered quantity', 'The quantity which has not yet been ordered.'),
17653 (1, 't', 1656, 'Net reserve power', 'The reserve power available for the net.'),
17654 (1, 't', 1657, 'Maximum number of units per shelf', 'Maximum number of units of a product that can be placed on a shelf.'),
17655 (1, 't', 1658, 'Stowaway', 'Number of stowaway(s) on a conveyance.'),
17656 (1, 't', 1659, 'Tug', 'The number of tugboat(s).'),
17657 (1, 't', 1660, 'Maximum quantity capability of the package', 'Maximum quantity of a product that can be contained in a package.'),
17658 (1, 't', 1661, 'Calculated', 'The calculated quantity.'),
17659 (1, 't', 1662, 'Monthly volume, estimated', 'Volume estimated for a month.'),
17660 (1, 't', 1663, 'Total number of persons', 'Quantity representing the total number of persons.'),
17661 (1, 't', 1664, 'Tariff Quantity', 'Quantity of the goods in the unit as required by Customs for duty/tax/fee assessment. These quantities may also be used for other fiscal or statistical purposes.'),
17662 (1, 't', 1665, 'Deducted tariff quantity',   'Quantity deducted from tariff quantity to reckon duty/tax/fee assessment bases.'),
17663 (1, 't', 1666, 'Advised but not arrived',    'Goods are advised by the consignor or supplier, but have not yet arrived at the destination.'),
17664 (1, 't', 1667, 'Received but not available', 'Goods have been received in the arrival area but are not yet available.'),
17665 (1, 't', 1668, 'Goods blocked for transshipment process', 'Goods are physically present, but can not be ordered because they are scheduled for a transshipment process.'),
17666 (1, 't', 1669, 'Goods blocked for cross docking process', 'Goods are physically present, but can not be ordered because they are scheduled for a cross docking process.'),
17667 (1, 't', 1670, 'Chargeable number of trailers', 'The number of trailers on which charges are based.'),
17668 (1, 't', 1671, 'Number of packages for a set', 'Number of packages used to pack the individual items in a grouping of merchandise that is sold together as a single trade item.'),
17669 (1, 't', 1672, 'Number of items in a set', 'The number of individual items in a grouping of merchandise that is sold together as a single trade item.'),
17670 (1, 't', 1673, 'Order sizing factor', 'A trade item specification other than gross, net weight, or volume for a trade item or a transaction, used for order sizing and pricing purposes.'),
17671 (1, 't', 1674, 'Number of different next lower level trade items', 'Value indicates the number of differrent next lower level trade items contained in a complex trade item.'),
17672 (1, 't', 1675, 'Agreed maximum buying quantity', 'The agreed maximum quantity of the trade item that may be purchased.'),
17673 (1, 't', 1676, 'Agreed minimum buying quantity', 'The agreed minimum quantity of the trade item that may be purchased.'),
17674 (1, 't', 1677, 'Free quantity of next lower level trade item', 'The numeric quantity of free items in a combination pack. The unit of measure used for the free quantity of the next lower level must be the same as the unit of measure of the Net Content of the Child Trade Item.'),
17675 (1, 't', 1678, 'Marine Diesel Oil bunkers on board, on arrival',     'Number of Marine Diesel Oil (MDO) bunkers on board when the vessel arrives in the port.'),
17676 (1, 't', 1679, 'Marine Diesel Oil bunkers, loaded',                  'Number of Marine Diesel Oil (MDO) bunkers taken on in the port.'),
17677 (1, 't', 1680, 'Intermediate Fuel Oil bunkers on board, on arrival', 'Number of Intermediate Fuel Oil (IFO) bunkers on board when the vessel arrives in the port.'),
17678 (1, 't', 1681, 'Intermediate Fuel Oil bunkers, loaded',              'Number of Intermediate Fuel Oil (IFO) bunkers taken on in the port.'),
17679 (1, 't', 1682, 'Bunker C bunkers on board, on arrival',              'Number of Bunker C, or Number 6 fuel oil bunkers on board when the vessel arrives in the port.'),
17680 (1, 't', 1683, 'Bunker C bunkers, loaded', 'Number of Bunker C, or Number 6 fuel oil bunkers, taken on in the port.'),
17681 (1, 't', 1684, 'Number of individual units within the smallest packaging', 'unit Total number of individual units contained within the smallest unit of packaging.'),
17682 (1, 't', 1685, 'Percentage of constituent element', 'The part of a product or material that is composed of the constituent element, as a percentage.'),
17683 (1, 't', 1686, 'Quantity to be decremented (LPCO)', 'Quantity to be decremented from the allowable quantity on a License, Permit, Certificate, or Other document (LPCO).'),
17684 (1, 't', 1687, 'Regulated commodity count', 'The number of regulated items.'),
17685 (1, 't', 1688, 'Number of passengers, embarking', 'The number of passengers going aboard a conveyance.'),
17686 (1, 't', 1689, 'Number of passengers, disembarking', 'The number of passengers disembarking the conveyance.'),
17687 (1, 't', 1690, 'Constituent element or component quantity', 'The specific quantity of the identified constituent element.')
17688 ;
17689 -- ZZZ, 'Mutually defined', 'As agreed by the trading partners.'),
17690
17691 CREATE TABLE acq.serial_claim (
17692     id     SERIAL           PRIMARY KEY,
17693     type   INT              NOT NULL REFERENCES acq.claim_type
17694                                      DEFERRABLE INITIALLY DEFERRED,
17695     item    BIGINT          NOT NULL REFERENCES serial.item
17696                                      DEFERRABLE INITIALLY DEFERRED
17697 );
17698
17699 CREATE INDEX serial_claim_lid_idx ON acq.serial_claim( item );
17700
17701 CREATE TABLE acq.serial_claim_event (
17702     id             BIGSERIAL        PRIMARY KEY,
17703     type           INT              NOT NULL REFERENCES acq.claim_event_type
17704                                              DEFERRABLE INITIALLY DEFERRED,
17705     claim          SERIAL           NOT NULL REFERENCES acq.serial_claim
17706                                              DEFERRABLE INITIALLY DEFERRED,
17707     event_date     TIMESTAMPTZ      NOT NULL DEFAULT now(),
17708     creator        INT              NOT NULL REFERENCES actor.usr
17709                                              DEFERRABLE INITIALLY DEFERRED,
17710     note           TEXT
17711 );
17712
17713 CREATE INDEX serial_claim_event_claim_date_idx ON acq.serial_claim_event( claim, event_date );
17714
17715 ALTER TABLE asset.stat_cat ADD COLUMN required BOOL NOT NULL DEFAULT FALSE;
17716
17717 -- now what about the auditor.*_lifecycle views??
17718
17719 INSERT INTO config.metabib_field ( id, field_class, name, label, format, xpath ) VALUES
17720     (26, 'identifier', 'tcn', oils_i18n_gettext(26, 'Title Control Number', 'cmf', 'label'), 'marcxml', $$//marc:datafield[@tag='901']/marc:subfield[@code='a']$$ );
17721 INSERT INTO config.metabib_field ( id, field_class, name, label, format, xpath ) VALUES
17722     (27, 'identifier', 'bibid', oils_i18n_gettext(27, 'Internal ID', 'cmf', 'label'), 'marcxml', $$//marc:datafield[@tag='901']/marc:subfield[@code='c']$$ );
17723 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('eg.tcn','identifier', 26);
17724 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('eg.bibid','identifier', 27);
17725
17726 CREATE TABLE asset.call_number_class (
17727     id             bigserial     PRIMARY KEY,
17728     name           TEXT          NOT NULL,
17729     normalizer     TEXT          NOT NULL DEFAULT 'asset.normalize_generic',
17730     field          TEXT          NOT NULL DEFAULT '050ab,055ab,060ab,070ab,080ab,082ab,086ab,088ab,090,092,096,098,099'
17731 );
17732
17733 COMMENT ON TABLE asset.call_number_class IS $$
17734 Defines the call number normalization database functions in the "normalizer"
17735 column and the tag/subfield combinations to use to lookup the call number in
17736 the "field" column for a given classification scheme. Tag/subfield combinations
17737 are delimited by commas.
17738 $$;
17739
17740 INSERT INTO asset.call_number_class (name, normalizer) VALUES
17741     ('Generic', 'asset.label_normalizer_generic'),
17742     ('Dewey (DDC)', 'asset.label_normalizer_dewey'),
17743     ('Library of Congress (LC)', 'asset.label_normalizer_lc')
17744 ;
17745
17746 -- Generic fields
17747 UPDATE asset.call_number_class
17748     SET field = '050ab,055ab,060ab,070ab,080ab,082ab,086ab,088ab,090,092,096,098,099'
17749     WHERE id = 1
17750 ;
17751
17752 -- Dewey fields
17753 UPDATE asset.call_number_class
17754     SET field = '080ab,082ab'
17755     WHERE id = 2
17756 ;
17757
17758 -- LC fields
17759 UPDATE asset.call_number_class
17760     SET field = '050ab,055ab'
17761     WHERE id = 3
17762 ;
17763
17764 ALTER TABLE asset.call_number
17765         ADD COLUMN label_class BIGINT DEFAULT 1 NOT NULL
17766                 REFERENCES asset.call_number_class(id)
17767                 DEFERRABLE INITIALLY DEFERRED;
17768
17769 ALTER TABLE asset.call_number
17770         ADD COLUMN label_sortkey TEXT;
17771
17772 CREATE INDEX asset_call_number_label_sortkey
17773         ON asset.call_number(cast(label_sortkey as bytea));
17774
17775 ALTER TABLE auditor.asset_call_number_history
17776         ADD COLUMN label_class BIGINT;
17777
17778 ALTER TABLE auditor.asset_call_number_history
17779         ADD COLUMN label_sortkey TEXT;
17780
17781 -- Pick up the new columns in dependent views
17782
17783 DROP VIEW auditor.asset_call_number_lifecycle;
17784
17785 SELECT auditor.create_auditor_lifecycle( 'asset', 'call_number' );
17786
17787 DROP VIEW auditor.asset_call_number_lifecycle;
17788
17789 SELECT auditor.create_auditor_lifecycle( 'asset', 'call_number' );
17790
17791 DROP VIEW IF EXISTS stats.fleshed_call_number;
17792
17793 CREATE VIEW stats.fleshed_call_number AS
17794         SELECT  cn.*,
17795             CAST(cn.create_date AS DATE) AS create_date_day,
17796         CAST(cn.edit_date AS DATE) AS edit_date_day,
17797         DATE_TRUNC('hour', cn.create_date) AS create_date_hour,
17798         DATE_TRUNC('hour', cn.edit_date) AS edit_date_hour,
17799             rd.item_lang,
17800                 rd.item_type,
17801                 rd.item_form
17802         FROM    asset.call_number cn
17803                 JOIN metabib.rec_descriptor rd ON (rd.record = cn.record);
17804
17805 CREATE OR REPLACE FUNCTION asset.label_normalizer() RETURNS TRIGGER AS $func$
17806 DECLARE
17807     sortkey        TEXT := '';
17808 BEGIN
17809     sortkey := NEW.label_sortkey;
17810
17811     EXECUTE 'SELECT ' || acnc.normalizer || '(' ||
17812        quote_literal( NEW.label ) || ')'
17813        FROM asset.call_number_class acnc
17814        WHERE acnc.id = NEW.label_class
17815        INTO sortkey;
17816
17817     NEW.label_sortkey = sortkey;
17818
17819     RETURN NEW;
17820 END;
17821 $func$ LANGUAGE PLPGSQL;
17822
17823 CREATE OR REPLACE FUNCTION asset.label_normalizer_generic(TEXT) RETURNS TEXT AS $func$
17824     # Created after looking at the Koha C4::ClassSortRoutine::Generic module,
17825     # thus could probably be considered a derived work, although nothing was
17826     # directly copied - but to err on the safe side of providing attribution:
17827     # Copyright (C) 2007 LibLime
17828     # Licensed under the GPL v2 or later
17829
17830     use strict;
17831     use warnings;
17832
17833     # Converts the callnumber to uppercase
17834     # Strips spaces from start and end of the call number
17835     # Converts anything other than letters, digits, and periods into underscores
17836     # Collapses multiple underscores into a single underscore
17837     my $callnum = uc(shift);
17838     $callnum =~ s/^\s//g;
17839     $callnum =~ s/\s$//g;
17840     $callnum =~ s/[^A-Z0-9_.]/_/g;
17841     $callnum =~ s/_{2,}/_/g;
17842
17843     return $callnum;
17844 $func$ LANGUAGE PLPERLU;
17845
17846 CREATE OR REPLACE FUNCTION asset.label_normalizer_dewey(TEXT) RETURNS TEXT AS $func$
17847     # Derived from the Koha C4::ClassSortRoutine::Dewey module
17848     # Copyright (C) 2007 LibLime
17849     # Licensed under the GPL v2 or later
17850
17851     use strict;
17852     use warnings;
17853
17854     my $init = uc(shift);
17855     $init =~ s/^\s+//;
17856     $init =~ s/\s+$//;
17857     $init =~ s!/!!g;
17858     $init =~ s/^([\p{IsAlpha}]+)/$1 /;
17859     my @tokens = split /\.|\s+/, $init;
17860     my $digit_group_count = 0;
17861     for (my $i = 0; $i <= $#tokens; $i++) {
17862         if ($tokens[$i] =~ /^\d+$/) {
17863             $digit_group_count++;
17864             if (2 == $digit_group_count) {
17865                 $tokens[$i] = sprintf("%-15.15s", $tokens[$i]);
17866                 $tokens[$i] =~ tr/ /0/;
17867             }
17868         }
17869     }
17870     my $key = join("_", @tokens);
17871     $key =~ s/[^\p{IsAlnum}_]//g;
17872
17873     return $key;
17874
17875 $func$ LANGUAGE PLPERLU;
17876
17877 CREATE OR REPLACE FUNCTION asset.label_normalizer_lc(TEXT) RETURNS TEXT AS $func$
17878     use strict;
17879     use warnings;
17880
17881     # Library::CallNumber::LC is currently hosted at http://code.google.com/p/library-callnumber-lc/
17882     # The author hopes to upload it to CPAN some day, which would make our lives easier
17883     use Library::CallNumber::LC;
17884
17885     my $callnum = Library::CallNumber::LC->new(shift);
17886     return $callnum->normalize();
17887
17888 $func$ LANGUAGE PLPERLU;
17889
17890 CREATE OR REPLACE FUNCTION asset.opac_ou_record_copy_count (org INT, record BIGINT) RETURNS TABLE (depth INT, org_unit INT, visible BIGINT, available BIGINT, unshadow BIGINT, transcendant INT) AS $f$
17891 DECLARE
17892     ans RECORD;
17893     trans INT;
17894 BEGIN
17895     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 = record;
17896
17897     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
17898         RETURN QUERY
17899         SELECT  ans.depth,
17900                 ans.id,
17901                 COUNT( av.id ),
17902                 SUM( CASE WHEN cp.status IN (0,7,12) THEN 1 ELSE 0 END ),
17903                 COUNT( av.id ),
17904                 trans
17905           FROM
17906                 actor.org_unit_descendants(ans.id) d
17907                 JOIN asset.opac_visible_copies av ON (av.record = record AND av.circ_lib = d.id)
17908                 JOIN asset.copy cp ON (cp.id = av.id)
17909           GROUP BY 1,2,6;
17910
17911         IF NOT FOUND THEN
17912             RETURN QUERY SELECT ans.depth, ans.id, 0::BIGINT, 0::BIGINT, 0::BIGINT, trans;
17913         END IF;
17914
17915     END LOOP;
17916
17917     RETURN;
17918 END;
17919 $f$ LANGUAGE PLPGSQL;
17920
17921 CREATE OR REPLACE FUNCTION asset.opac_lasso_record_copy_count (i_lasso INT, record BIGINT) RETURNS TABLE (depth INT, org_unit INT, visible BIGINT, available BIGINT, unshadow BIGINT, transcendant INT) AS $f$
17922 DECLARE
17923     ans RECORD;
17924     trans INT;
17925 BEGIN
17926     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 = record;
17927
17928     FOR ans IN SELECT u.org_unit AS id FROM actor.org_lasso_map AS u WHERE lasso = i_lasso LOOP
17929         RETURN QUERY
17930         SELECT  -1,
17931                 ans.id,
17932                 COUNT( av.id ),
17933                 SUM( CASE WHEN cp.status IN (0,7,12) THEN 1 ELSE 0 END ),
17934                 COUNT( av.id ),
17935                 trans
17936           FROM
17937                 actor.org_unit_descendants(ans.id) d
17938                 JOIN asset.opac_visible_copies av ON (av.record = record AND av.circ_lib = d.id)
17939                 JOIN asset.copy cp ON (cp.id = av.id)
17940           GROUP BY 1,2,6;
17941
17942         IF NOT FOUND THEN
17943             RETURN QUERY SELECT ans.depth, ans.id, 0::BIGINT, 0::BIGINT, 0::BIGINT, trans;
17944         END IF;
17945
17946     END LOOP;
17947
17948     RETURN;
17949 END;
17950 $f$ LANGUAGE PLPGSQL;
17951
17952 CREATE OR REPLACE FUNCTION asset.staff_ou_record_copy_count (org INT, record BIGINT) RETURNS TABLE (depth INT, org_unit INT, visible BIGINT, available BIGINT, unshadow BIGINT, transcendant INT) AS $f$
17953 DECLARE
17954     ans RECORD;
17955     trans INT;
17956 BEGIN
17957     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 = record;
17958
17959     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
17960         RETURN QUERY
17961         SELECT  ans.depth,
17962                 ans.id,
17963                 COUNT( cp.id ),
17964                 SUM( CASE WHEN cp.status IN (0,7,12) THEN 1 ELSE 0 END ),
17965                 COUNT( cp.id ),
17966                 trans
17967           FROM
17968                 actor.org_unit_descendants(ans.id) d
17969                 JOIN asset.copy cp ON (cp.circ_lib = d.id)
17970                 JOIN asset.call_number cn ON (cn.record = record AND cn.id = cp.call_number)
17971           GROUP BY 1,2,6;
17972
17973         IF NOT FOUND THEN
17974             RETURN QUERY SELECT ans.depth, ans.id, 0::BIGINT, 0::BIGINT, 0::BIGINT, trans;
17975         END IF;
17976
17977     END LOOP;
17978
17979     RETURN;
17980 END;
17981 $f$ LANGUAGE PLPGSQL;
17982
17983 CREATE OR REPLACE FUNCTION asset.staff_lasso_record_copy_count (i_lasso INT, record BIGINT) RETURNS TABLE (depth INT, org_unit INT, visible BIGINT, available BIGINT, unshadow BIGINT, transcendant INT) AS $f$
17984 DECLARE
17985     ans RECORD;
17986     trans INT;
17987 BEGIN
17988     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 = record;
17989
17990     FOR ans IN SELECT u.org_unit AS id FROM actor.org_lasso_map AS u WHERE lasso = i_lasso LOOP
17991         RETURN QUERY
17992         SELECT  -1,
17993                 ans.id,
17994                 COUNT( cp.id ),
17995                 SUM( CASE WHEN cp.status IN (0,7,12) THEN 1 ELSE 0 END ),
17996                 COUNT( cp.id ),
17997                 trans
17998           FROM
17999                 actor.org_unit_descendants(ans.id) d
18000                 JOIN asset.copy cp ON (cp.circ_lib = d.id)
18001                 JOIN asset.call_number cn ON (cn.record = record AND cn.id = cp.call_number)
18002           GROUP BY 1,2,6;
18003
18004         IF NOT FOUND THEN
18005             RETURN QUERY SELECT ans.depth, ans.id, 0::BIGINT, 0::BIGINT, 0::BIGINT, trans;
18006         END IF;
18007
18008     END LOOP;
18009
18010     RETURN;
18011 END;
18012 $f$ LANGUAGE PLPGSQL;
18013
18014 CREATE OR REPLACE FUNCTION asset.record_copy_count ( place INT, record BIGINT, staff BOOL) RETURNS TABLE (depth INT, org_unit INT, visible BIGINT, available BIGINT, unshadow BIGINT, transcendant INT) AS $f$
18015 BEGIN
18016     IF staff IS TRUE THEN
18017         IF place > 0 THEN
18018             RETURN QUERY SELECT * FROM asset.staff_ou_record_copy_count( place, record );
18019         ELSE
18020             RETURN QUERY SELECT * FROM asset.staff_lasso_record_copy_count( -place, record );
18021         END IF;
18022     ELSE
18023         IF place > 0 THEN
18024             RETURN QUERY SELECT * FROM asset.opac_ou_record_copy_count( place, record );
18025         ELSE
18026             RETURN QUERY SELECT * FROM asset.opac_lasso_record_copy_count( -place, record );
18027         END IF;
18028     END IF;
18029
18030     RETURN;
18031 END;
18032 $f$ LANGUAGE PLPGSQL;
18033
18034 CREATE OR REPLACE FUNCTION asset.opac_ou_metarecord_copy_count (org INT, record BIGINT) RETURNS TABLE (depth INT, org_unit INT, visible BIGINT, available BIGINT, unshadow BIGINT, transcendant INT) AS $f$
18035 DECLARE
18036     ans RECORD;
18037     trans INT;
18038 BEGIN
18039     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 = record;
18040
18041     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
18042         RETURN QUERY
18043         SELECT  ans.depth,
18044                 ans.id,
18045                 COUNT( av.id ),
18046                 SUM( CASE WHEN cp.status IN (0,7,12) THEN 1 ELSE 0 END ),
18047                 COUNT( av.id ),
18048                 trans
18049           FROM
18050                 actor.org_unit_descendants(ans.id) d
18051                 JOIN asset.opac_visible_copies av ON (av.record = record AND av.circ_lib = d.id)
18052                 JOIN asset.copy cp ON (cp.id = av.id)
18053                 JOIN metabib.metarecord_source_map m ON (m.source = av.record)
18054           GROUP BY 1,2,6;
18055
18056         IF NOT FOUND THEN
18057             RETURN QUERY SELECT ans.depth, ans.id, 0::BIGINT, 0::BIGINT, 0::BIGINT, trans;
18058         END IF;
18059
18060     END LOOP;
18061
18062     RETURN;
18063 END;
18064 $f$ LANGUAGE PLPGSQL;
18065
18066 CREATE OR REPLACE FUNCTION asset.opac_lasso_metarecord_copy_count (i_lasso INT, record BIGINT) RETURNS TABLE (depth INT, org_unit INT, visible BIGINT, available BIGINT, unshadow BIGINT, transcendant INT) AS $f$
18067 DECLARE
18068     ans RECORD;
18069     trans INT;
18070 BEGIN
18071     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 = record;
18072
18073     FOR ans IN SELECT u.org_unit AS id FROM actor.org_lasso_map AS u WHERE lasso = i_lasso LOOP
18074         RETURN QUERY
18075         SELECT  -1,
18076                 ans.id,
18077                 COUNT( av.id ),
18078                 SUM( CASE WHEN cp.status IN (0,7,12) THEN 1 ELSE 0 END ),
18079                 COUNT( av.id ),
18080                 trans
18081           FROM
18082                 actor.org_unit_descendants(ans.id) d
18083                 JOIN asset.opac_visible_copies av ON (av.record = record AND av.circ_lib = d.id)
18084                 JOIN asset.copy cp ON (cp.id = av.id)
18085                 JOIN metabib.metarecord_source_map m ON (m.source = av.record)
18086           GROUP BY 1,2,6;
18087
18088         IF NOT FOUND THEN
18089             RETURN QUERY SELECT ans.depth, ans.id, 0::BIGINT, 0::BIGINT, 0::BIGINT, trans;
18090         END IF;
18091
18092     END LOOP;
18093
18094     RETURN;
18095 END;
18096 $f$ LANGUAGE PLPGSQL;
18097
18098 CREATE OR REPLACE FUNCTION asset.staff_ou_metarecord_copy_count (org INT, record BIGINT) RETURNS TABLE (depth INT, org_unit INT, visible BIGINT, available BIGINT, unshadow BIGINT, transcendant INT) AS $f$
18099 DECLARE
18100     ans RECORD;
18101     trans INT;
18102 BEGIN
18103     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 = record;
18104
18105     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
18106         RETURN QUERY
18107         SELECT  ans.depth,
18108                 ans.id,
18109                 COUNT( cp.id ),
18110                 SUM( CASE WHEN cp.status IN (0,7,12) THEN 1 ELSE 0 END ),
18111                 COUNT( cp.id ),
18112                 trans
18113           FROM
18114                 actor.org_unit_descendants(ans.id) d
18115                 JOIN asset.copy cp ON (cp.circ_lib = d.id)
18116                 JOIN asset.call_number cn ON (cn.record = record AND cn.id = cp.call_number)
18117                 JOIN metabib.metarecord_source_map m ON (m.source = cn.record)
18118           GROUP BY 1,2,6;
18119
18120         IF NOT FOUND THEN
18121             RETURN QUERY SELECT ans.depth, ans.id, 0::BIGINT, 0::BIGINT, 0::BIGINT, trans;
18122         END IF;
18123
18124     END LOOP;
18125
18126     RETURN;
18127 END;
18128 $f$ LANGUAGE PLPGSQL;
18129
18130 CREATE OR REPLACE FUNCTION asset.staff_lasso_metarecord_copy_count (i_lasso INT, record BIGINT) RETURNS TABLE (depth INT, org_unit INT, visible BIGINT, available BIGINT, unshadow BIGINT, transcendant INT) AS $f$
18131 DECLARE
18132     ans RECORD;
18133     trans INT;
18134 BEGIN
18135     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 = record;
18136
18137     FOR ans IN SELECT u.org_unit AS id FROM actor.org_lasso_map AS u WHERE lasso = i_lasso LOOP
18138         RETURN QUERY
18139         SELECT  -1,
18140                 ans.id,
18141                 COUNT( cp.id ),
18142                 SUM( CASE WHEN cp.status IN (0,7,12) THEN 1 ELSE 0 END ),
18143                 COUNT( cp.id ),
18144                 trans
18145           FROM
18146                 actor.org_unit_descendants(ans.id) d
18147                 JOIN asset.copy cp ON (cp.circ_lib = d.id)
18148                 JOIN asset.call_number cn ON (cn.record = record AND cn.id = cp.call_number)
18149                 JOIN metabib.metarecord_source_map m ON (m.source = cn.record)
18150           GROUP BY 1,2,6;
18151
18152         IF NOT FOUND THEN
18153             RETURN QUERY SELECT ans.depth, ans.id, 0::BIGINT, 0::BIGINT, 0::BIGINT, trans;
18154         END IF;
18155
18156     END LOOP;
18157
18158     RETURN;
18159 END;
18160 $f$ LANGUAGE PLPGSQL;
18161
18162 CREATE OR REPLACE FUNCTION asset.metarecord_copy_count ( place INT, record BIGINT, staff BOOL) RETURNS TABLE (depth INT, org_unit INT, visible BIGINT, available BIGINT, unshadow BIGINT, transcendant INT) AS $f$
18163 BEGIN
18164     IF staff IS TRUE THEN
18165         IF place > 0 THEN
18166             RETURN QUERY SELECT * FROM asset.staff_ou_metarecord_copy_count( place, record );
18167         ELSE
18168             RETURN QUERY SELECT * FROM asset.staff_lasso_metarecord_copy_count( -place, record );
18169         END IF;
18170     ELSE
18171         IF place > 0 THEN
18172             RETURN QUERY SELECT * FROM asset.opac_ou_metarecord_copy_count( place, record );
18173         ELSE
18174             RETURN QUERY SELECT * FROM asset.opac_lasso_metarecord_copy_count( -place, record );
18175         END IF;
18176     END IF;
18177
18178     RETURN;
18179 END;
18180 $f$ LANGUAGE PLPGSQL;
18181
18182 -- No transaction is required
18183
18184 -- Triggers on the vandelay.queued_*_record tables delete entries from
18185 -- the associated vandelay.queued_*_record_attr tables based on the record's
18186 -- ID; create an index on that column to avoid sequential scans for each
18187 -- queued record that is deleted
18188 CREATE INDEX queued_bib_record_attr_record_idx ON vandelay.queued_bib_record_attr (record);
18189 CREATE INDEX queued_authority_record_attr_record_idx ON vandelay.queued_authority_record_attr (record);
18190
18191 -- Avoid sequential scans for queue retrieval operations by providing an
18192 -- index on the queue column
18193 CREATE INDEX queued_bib_record_queue_idx ON vandelay.queued_bib_record (queue);
18194 CREATE INDEX queued_authority_record_queue_idx ON vandelay.queued_authority_record (queue);
18195
18196 -- Start picking up call number label prefixes and suffixes
18197 -- from asset.copy_location
18198 ALTER TABLE asset.copy_location ADD COLUMN label_prefix TEXT;
18199 ALTER TABLE asset.copy_location ADD COLUMN label_suffix TEXT;
18200
18201 DROP VIEW auditor.asset_copy_lifecycle;
18202
18203 SELECT auditor.create_auditor_lifecycle( 'asset', 'copy' );
18204
18205 ALTER TABLE reporter.report RENAME COLUMN recurance TO recurrence;
18206
18207 -- Let's not break existing reports
18208 UPDATE reporter.template SET data = REGEXP_REPLACE(data, E'^(.*)recuring(.*)$', E'\\1recurring\\2') WHERE data LIKE '%recuring%';
18209 UPDATE reporter.template SET data = REGEXP_REPLACE(data, E'^(.*)recurance(.*)$', E'\\1recurrence\\2') WHERE data LIKE '%recurance%';
18210
18211 -- Need to recreate this view with DISTINCT calls to ARRAY_ACCUM, thus avoiding duplicated ISBN and ISSN values
18212 CREATE OR REPLACE VIEW reporter.old_super_simple_record AS
18213 SELECT  r.id,
18214     r.fingerprint,
18215     r.quality,
18216     r.tcn_source,
18217     r.tcn_value,
18218     FIRST(title.value) AS title,
18219     FIRST(author.value) AS author,
18220     ARRAY_TO_STRING(ARRAY_ACCUM( DISTINCT publisher.value), ', ') AS publisher,
18221     ARRAY_TO_STRING(ARRAY_ACCUM( DISTINCT SUBSTRING(pubdate.value FROM $$\d+$$) ), ', ') AS pubdate,
18222     ARRAY_ACCUM( DISTINCT SUBSTRING(isbn.value FROM $$^\S+$$) ) AS isbn,
18223     ARRAY_ACCUM( DISTINCT SUBSTRING(issn.value FROM $$^\S+$$) ) AS issn
18224   FROM  biblio.record_entry r
18225     LEFT JOIN metabib.full_rec title ON (r.id = title.record AND title.tag = '245' AND title.subfield = 'a')
18226     LEFT JOIN metabib.full_rec author ON (r.id = author.record AND author.tag IN ('100','110','111') AND author.subfield = 'a')
18227     LEFT JOIN metabib.full_rec publisher ON (r.id = publisher.record AND publisher.tag = '260' AND publisher.subfield = 'b')
18228     LEFT JOIN metabib.full_rec pubdate ON (r.id = pubdate.record AND pubdate.tag = '260' AND pubdate.subfield = 'c')
18229     LEFT JOIN metabib.full_rec isbn ON (r.id = isbn.record AND isbn.tag IN ('024', '020') AND isbn.subfield IN ('a','z'))
18230     LEFT JOIN metabib.full_rec issn ON (r.id = issn.record AND issn.tag = '022' AND issn.subfield = 'a')
18231   GROUP BY 1,2,3,4,5;
18232
18233 -- Correct the ISSN array definition for reporter.simple_record
18234
18235 CREATE OR REPLACE VIEW reporter.simple_record AS
18236 SELECT  r.id,
18237         s.metarecord,
18238         r.fingerprint,
18239         r.quality,
18240         r.tcn_source,
18241         r.tcn_value,
18242         title.value AS title,
18243         uniform_title.value AS uniform_title,
18244         author.value AS author,
18245         publisher.value AS publisher,
18246         SUBSTRING(pubdate.value FROM $$\d+$$) AS pubdate,
18247         series_title.value AS series_title,
18248         series_statement.value AS series_statement,
18249         summary.value AS summary,
18250         ARRAY_ACCUM( SUBSTRING(isbn.value FROM $$^\S+$$) ) AS isbn,
18251         ARRAY_ACCUM( REGEXP_REPLACE(issn.value, E'^\\S*(\\d{4})[-\\s](\\d{3,4}x?)', E'\\1 \\2') ) AS issn,
18252         ARRAY((SELECT DISTINCT value FROM metabib.full_rec WHERE tag = '650' AND subfield = 'a' AND record = r.id)) AS topic_subject,
18253         ARRAY((SELECT DISTINCT value FROM metabib.full_rec WHERE tag = '651' AND subfield = 'a' AND record = r.id)) AS geographic_subject,
18254         ARRAY((SELECT DISTINCT value FROM metabib.full_rec WHERE tag = '655' AND subfield = 'a' AND record = r.id)) AS genre,
18255         ARRAY((SELECT DISTINCT value FROM metabib.full_rec WHERE tag = '600' AND subfield = 'a' AND record = r.id)) AS name_subject,
18256         ARRAY((SELECT DISTINCT value FROM metabib.full_rec WHERE tag = '610' AND subfield = 'a' AND record = r.id)) AS corporate_subject,
18257         ARRAY((SELECT value FROM metabib.full_rec WHERE tag = '856' AND subfield IN ('3','y','u') AND record = r.id ORDER BY CASE WHEN subfield IN ('3','y') THEN 0 ELSE 1 END)) AS external_uri
18258   FROM  biblio.record_entry r
18259         JOIN metabib.metarecord_source_map s ON (s.source = r.id)
18260         LEFT JOIN metabib.full_rec uniform_title ON (r.id = uniform_title.record AND uniform_title.tag = '240' AND uniform_title.subfield = 'a')
18261         LEFT JOIN metabib.full_rec title ON (r.id = title.record AND title.tag = '245' AND title.subfield = 'a')
18262         LEFT JOIN metabib.full_rec author ON (r.id = author.record AND author.tag = '100' AND author.subfield = 'a')
18263         LEFT JOIN metabib.full_rec publisher ON (r.id = publisher.record AND publisher.tag = '260' AND publisher.subfield = 'b')
18264         LEFT JOIN metabib.full_rec pubdate ON (r.id = pubdate.record AND pubdate.tag = '260' AND pubdate.subfield = 'c')
18265         LEFT JOIN metabib.full_rec isbn ON (r.id = isbn.record AND isbn.tag IN ('024', '020') AND isbn.subfield IN ('a','z'))
18266         LEFT JOIN metabib.full_rec issn ON (r.id = issn.record AND issn.tag = '022' AND issn.subfield = 'a')
18267         LEFT JOIN metabib.full_rec series_title ON (r.id = series_title.record AND series_title.tag IN ('830','440') AND series_title.subfield = 'a')
18268         LEFT JOIN metabib.full_rec series_statement ON (r.id = series_statement.record AND series_statement.tag = '490' AND series_statement.subfield = 'a')
18269         LEFT JOIN metabib.full_rec summary ON (r.id = summary.record AND summary.tag = '520' AND summary.subfield = 'a')
18270   GROUP BY 1,2,3,4,5,6,7,8,9,10,11,12,13,14;
18271
18272 CREATE OR REPLACE FUNCTION reporter.disable_materialized_simple_record_trigger () RETURNS VOID AS $$
18273     DROP TRIGGER IF EXISTS zzz_update_materialized_simple_record_tgr ON metabib.real_full_rec;
18274 $$ LANGUAGE SQL;
18275
18276 CREATE OR REPLACE FUNCTION reporter.simple_rec_trigger () RETURNS TRIGGER AS $func$
18277 BEGIN
18278     IF TG_OP = 'DELETE' THEN
18279         PERFORM reporter.simple_rec_delete(NEW.id);
18280     ELSE
18281         PERFORM reporter.simple_rec_update(NEW.id);
18282     END IF;
18283
18284     RETURN NEW;
18285 END;
18286 $func$ LANGUAGE PLPGSQL;
18287
18288 CREATE TRIGGER bbb_simple_rec_trigger AFTER INSERT OR UPDATE ON biblio.record_entry FOR EACH ROW EXECUTE PROCEDURE reporter.simple_rec_trigger ();
18289
18290 ALTER TABLE extend_reporter.legacy_circ_count DROP CONSTRAINT legacy_circ_count_id_fkey;
18291
18292 CREATE INDEX asset_copy_note_owning_copy_idx ON asset.copy_note ( owning_copy );
18293
18294 UPDATE config.org_unit_setting_type
18295     SET view_perm = (SELECT id FROM permission.perm_list
18296         WHERE code = 'VIEW_CREDIT_CARD_PROCESSING' LIMIT 1)
18297     WHERE name LIKE 'credit.processor%' AND view_perm IS NULL;
18298
18299 UPDATE config.org_unit_setting_type
18300     SET update_perm = (SELECT id FROM permission.perm_list
18301         WHERE code = 'ADMIN_CREDIT_CARD_PROCESSING' LIMIT 1)
18302     WHERE name LIKE 'credit.processor%' AND update_perm IS NULL;
18303
18304 INSERT INTO config.org_unit_setting_type (name, label, description, datatype)
18305     VALUES (
18306         'opac.fully_compressed_serial_holdings',
18307         'OPAC: Use fully compressed serial holdings',
18308         'Show fully compressed serial holdings for all libraries at and below
18309         the current context unit',
18310         'bool'
18311     );
18312
18313 CREATE OR REPLACE FUNCTION authority.normalize_heading( TEXT ) RETURNS TEXT AS $func$
18314     use strict;
18315     use warnings;
18316
18317     use utf8;
18318     use MARC::Record;
18319     use MARC::File::XML (BinaryEncoding => 'UTF8');
18320     use UUID::Tiny ':std';
18321
18322     my $xml = shift() or return undef;
18323
18324     my $r;
18325
18326     # Prevent errors in XML parsing from blowing out ungracefully
18327     eval {
18328         $r = MARC::Record->new_from_xml( $xml );
18329         1;
18330     } or do {
18331        return 'BAD_MARCXML_' . create_uuid_as_string(UUID_MD5, $xml);
18332     };
18333
18334     if (!$r) {
18335        return 'BAD_MARCXML_' . create_uuid_as_string(UUID_MD5, $xml);
18336     }
18337
18338     # From http://www.loc.gov/standards/sourcelist/subject.html
18339     my $thes_code_map = {
18340         a => 'lcsh',
18341         b => 'lcshac',
18342         c => 'mesh',
18343         d => 'nal',
18344         k => 'cash',
18345         n => 'notapplicable',
18346         r => 'aat',
18347         s => 'sears',
18348         v => 'rvm',
18349     };
18350
18351     # Default to "No attempt to code" if the leader is horribly broken
18352     my $fixed_field = $r->field('008');
18353     my $thes_char = '|';
18354     if ($fixed_field) {
18355         $thes_char = substr($fixed_field->data(), 11, 1) || '|';
18356     }
18357
18358     my $thes_code = 'UNDEFINED';
18359
18360     if ($thes_char eq 'z') {
18361         # Grab the 040 $f per http://www.loc.gov/marc/authority/ad040.html
18362         $thes_code = $r->subfield('040', 'f') || 'UNDEFINED';
18363     } elsif ($thes_code_map->{$thes_char}) {
18364         $thes_code = $thes_code_map->{$thes_char};
18365     }
18366
18367     my $auth_txt = '';
18368     my $head = $r->field('1..');
18369     if ($head) {
18370         # Concatenate all of these subfields together, prefixed by their code
18371         # to prevent collisions along the lines of "Fiction, North Carolina"
18372         foreach my $sf ($head->subfields()) {
18373             $auth_txt .= '‡' . $sf->[0] . ' ' . $sf->[1];
18374         }
18375     }
18376
18377     # Perhaps better to parameterize the spi and pass as a parameter
18378     $auth_txt =~ s/'//go;
18379
18380     if ($auth_txt) {
18381         my $result = spi_exec_query("SELECT public.naco_normalize('$auth_txt') AS norm_text");
18382         my $norm_txt = $result->{rows}[0]->{norm_text};
18383         return $head->tag() . "_" . $thes_code . " " . $norm_txt;
18384     }
18385
18386     return 'NOHEADING_' . $thes_code . ' ' . create_uuid_as_string(UUID_MD5, $xml);
18387 $func$ LANGUAGE 'plperlu' IMMUTABLE;
18388
18389 COMMENT ON FUNCTION authority.normalize_heading( TEXT ) IS $$
18390 /**
18391 * Extract the authority heading, thesaurus, and NACO-normalized values
18392 * from an authority record. The primary purpose is to build a unique
18393 * index to defend against duplicated authority records from the same
18394 * thesaurus.
18395 */
18396 $$;
18397
18398 DROP INDEX authority.authority_record_unique_tcn;
18399 ALTER TABLE authority.record_entry DROP COLUMN arn_value;
18400 ALTER TABLE authority.record_entry DROP COLUMN arn_source;
18401
18402 ALTER TABLE acq.provider_contact
18403         ALTER COLUMN name SET NOT NULL;
18404
18405 ALTER TABLE actor.stat_cat
18406         ADD COLUMN usr_summary BOOL NOT NULL DEFAULT FALSE;
18407
18408 -- Recreate some foreign keys that were somehow dropped, probably
18409 -- by some kind of cascade from an inherited table:
18410
18411 ALTER TABLE action.reservation_transit_copy
18412         ADD CONSTRAINT artc_tc_fkey FOREIGN KEY (target_copy)
18413                 REFERENCES booking.resource(id)
18414                 ON DELETE CASCADE
18415                 DEFERRABLE INITIALLY DEFERRED,
18416         ADD CONSTRAINT reservation_transit_copy_reservation_fkey FOREIGN KEY (reservation)
18417                 REFERENCES booking.reservation(id)
18418                 ON DELETE SET NULL
18419                 DEFERRABLE INITIALLY DEFERRED;
18420
18421 CREATE INDEX user_bucket_item_target_user_idx
18422         ON container.user_bucket_item ( target_user );
18423
18424 CREATE INDEX m_c_t_collector_idx
18425         ON money.collections_tracker ( collector );
18426
18427 CREATE INDEX aud_actor_usr_address_hist_id_idx
18428         ON auditor.actor_usr_address_history ( id );
18429
18430 CREATE INDEX aud_actor_usr_hist_id_idx
18431         ON auditor.actor_usr_history ( id );
18432
18433 CREATE INDEX aud_asset_cn_hist_creator_idx
18434         ON auditor.asset_call_number_history ( creator );
18435
18436 CREATE INDEX aud_asset_cn_hist_editor_idx
18437         ON auditor.asset_call_number_history ( editor );
18438
18439 CREATE INDEX aud_asset_cp_hist_creator_idx
18440         ON auditor.asset_copy_history ( creator );
18441
18442 CREATE INDEX aud_asset_cp_hist_editor_idx
18443         ON auditor.asset_copy_history ( editor );
18444
18445 CREATE INDEX aud_bib_rec_entry_hist_creator_idx
18446         ON auditor.biblio_record_entry_history ( creator );
18447
18448 CREATE INDEX aud_bib_rec_entry_hist_editor_idx
18449         ON auditor.biblio_record_entry_history ( editor );
18450
18451 CREATE TABLE action.hold_request_note (
18452
18453     id     BIGSERIAL PRIMARY KEY,
18454     hold   BIGINT    NOT NULL REFERENCES action.hold_request (id)
18455                               ON DELETE CASCADE
18456                               DEFERRABLE INITIALLY DEFERRED,
18457     title  TEXT      NOT NULL,
18458     body   TEXT      NOT NULL,
18459     slip   BOOL      NOT NULL DEFAULT FALSE,
18460     pub    BOOL      NOT NULL DEFAULT FALSE,
18461     staff  BOOL      NOT NULL DEFAULT FALSE  -- created by staff
18462
18463 );
18464 CREATE INDEX ahrn_hold_idx ON action.hold_request_note (hold);
18465
18466 -- Tweak a constraint to add a CASCADE
18467
18468 ALTER TABLE action.hold_notification DROP CONSTRAINT hold_notification_hold_fkey;
18469
18470 ALTER TABLE action.hold_notification
18471         ADD CONSTRAINT hold_notification_hold_fkey
18472                 FOREIGN KEY (hold) REFERENCES action.hold_request (id)
18473                 ON DELETE CASCADE
18474                 DEFERRABLE INITIALLY DEFERRED;
18475
18476 CREATE TRIGGER asset_label_sortkey_trigger
18477     BEFORE UPDATE OR INSERT ON asset.call_number
18478     FOR EACH ROW EXECUTE PROCEDURE asset.label_normalizer();
18479
18480 CREATE OR REPLACE FUNCTION container.clear_all_expired_circ_history_items( )
18481 RETURNS VOID AS $$
18482 --
18483 -- Delete expired circulation bucket items for all users that have
18484 -- a setting for patron.max_reading_list_interval.
18485 --
18486 DECLARE
18487     today        TIMESTAMP WITH TIME ZONE;
18488     threshold    TIMESTAMP WITH TIME ZONE;
18489         usr_setting  RECORD;
18490 BEGIN
18491         SELECT date_trunc( 'day', now() ) INTO today;
18492         --
18493         FOR usr_setting in
18494                 SELECT
18495                         usr,
18496                         value
18497                 FROM
18498                         actor.usr_setting
18499                 WHERE
18500                         name = 'patron.max_reading_list_interval'
18501         LOOP
18502                 --
18503                 -- Make sure the setting is a valid interval
18504                 --
18505                 BEGIN
18506                         threshold := today - CAST( translate( usr_setting.value, '"', '' ) AS INTERVAL );
18507                 EXCEPTION
18508                         WHEN OTHERS THEN
18509                                 RAISE NOTICE 'Invalid setting patron.max_reading_list_interval for user %: ''%''',
18510                                         usr_setting.usr, usr_setting.value;
18511                                 CONTINUE;
18512                 END;
18513                 --
18514                 --RAISE NOTICE 'User % threshold %', usr_setting.usr, threshold;
18515                 --
18516         DELETE FROM container.copy_bucket_item
18517         WHERE
18518                 bucket IN
18519                 (
18520                     SELECT
18521                         id
18522                     FROM
18523                         container.copy_bucket
18524                     WHERE
18525                         owner = usr_setting.usr
18526                         AND btype = 'circ_history'
18527                 )
18528                 AND create_time < threshold;
18529         END LOOP;
18530         --
18531 END;
18532 $$ LANGUAGE plpgsql;
18533
18534 COMMENT ON FUNCTION container.clear_all_expired_circ_history_items( ) IS $$
18535 /*
18536  * Delete expired circulation bucket items for all users that have
18537  * a setting for patron.max_reading_list_interval.
18538 */
18539 $$;
18540
18541 CREATE OR REPLACE FUNCTION container.clear_expired_circ_history_items(
18542          ac_usr IN INTEGER
18543 ) RETURNS VOID AS $$
18544 --
18545 -- Delete old circulation bucket items for a specified user.
18546 -- "Old" means older than the interval specified by a
18547 -- user-level setting, if it is so specified.
18548 --
18549 DECLARE
18550     threshold TIMESTAMP WITH TIME ZONE;
18551 BEGIN
18552         -- Sanity check
18553         IF ac_usr IS NULL THEN
18554                 RETURN;
18555         END IF;
18556         -- Determine the threshold date that defines "old".  Subtract the
18557         -- interval from the system date, then truncate to midnight.
18558         SELECT
18559                 date_trunc(
18560                         'day',
18561                         now() - CAST( translate( value, '"', '' ) AS INTERVAL )
18562                 )
18563         INTO
18564                 threshold
18565         FROM
18566                 actor.usr_setting
18567         WHERE
18568                 usr = ac_usr
18569                 AND name = 'patron.max_reading_list_interval';
18570         --
18571         IF threshold is null THEN
18572                 -- No interval defined; don't delete anything
18573                 -- RAISE NOTICE 'No interval defined for user %', ac_usr;
18574                 return;
18575         END IF;
18576         --
18577         -- RAISE NOTICE 'Date threshold: %', threshold;
18578         --
18579         -- Threshold found; do the delete
18580         delete from container.copy_bucket_item
18581         where
18582                 bucket in
18583                 (
18584                         select
18585                                 id
18586                         from
18587                                 container.copy_bucket
18588                         where
18589                                 owner = ac_usr
18590                                 and btype = 'circ_history'
18591                 )
18592                 and create_time < threshold;
18593         --
18594         RETURN;
18595 END;
18596 $$ LANGUAGE plpgsql;
18597
18598 COMMENT ON FUNCTION container.clear_expired_circ_history_items( INTEGER ) IS $$
18599 /*
18600  * Delete old circulation bucket items for a specified user.
18601  * "Old" means older than the interval specified by a
18602  * user-level setting, if it is so specified.
18603 */
18604 $$;
18605
18606 CREATE OR REPLACE VIEW reporter.hold_request_record AS
18607 SELECT  id,
18608     target,
18609     hold_type,
18610     CASE
18611         WHEN hold_type = 'T'
18612             THEN target
18613         WHEN hold_type = 'I'
18614             THEN (SELECT ssub.record_entry FROM serial.subscription ssub JOIN serial.issuance si ON (si.subscription = ssub.id) WHERE si.id = ahr.target)
18615         WHEN hold_type = 'V'
18616             THEN (SELECT cn.record FROM asset.call_number cn WHERE cn.id = ahr.target)
18617         WHEN hold_type IN ('C','R','F')
18618             THEN (SELECT cn.record FROM asset.call_number cn JOIN asset.copy cp ON (cn.id = cp.call_number) WHERE cp.id = ahr.target)
18619         WHEN hold_type = 'M'
18620             THEN (SELECT mr.master_record FROM metabib.metarecord mr WHERE mr.id = ahr.target)
18621     END AS bib_record
18622   FROM  action.hold_request ahr;
18623
18624 UPDATE  metabib.rec_descriptor
18625   SET   date1=LPAD(NULLIF(REGEXP_REPLACE(NULLIF(date1, ''), E'\\D', '0', 'g')::INT,0)::TEXT,4,'0'),
18626         date2=LPAD(NULLIF(REGEXP_REPLACE(NULLIF(date2, ''), E'\\D', '9', 'g')::INT,9999)::TEXT,4,'0');
18627
18628 -- Change some ints to bigints:
18629
18630 ALTER TABLE container.biblio_record_entry_bucket_item
18631         ALTER COLUMN target_biblio_record_entry SET DATA TYPE bigint;
18632
18633 ALTER TABLE vandelay.queued_bib_record
18634         ALTER COLUMN imported_as SET DATA TYPE bigint;
18635
18636 ALTER TABLE action.hold_copy_map
18637         ALTER COLUMN id SET DATA TYPE bigint;
18638
18639 -- Make due times get pushed to 23:59:59 on insert OR update
18640 DROP TRIGGER IF EXISTS push_due_date_tgr ON action.circulation;
18641 CREATE TRIGGER push_due_date_tgr BEFORE INSERT OR UPDATE ON action.circulation FOR EACH ROW EXECUTE PROCEDURE action.push_circ_due_time();
18642
18643 COMMIT;
18644
18645 -- Some operations go outside of the transaction, because they may
18646 -- legitimately fail.
18647
18648 \qecho ALTERs of auditor.action_hold_request_history will fail if the table
18649 \qecho doesn't exist; ignore those errors if they occur.
18650
18651 ALTER TABLE auditor.action_hold_request_history ADD COLUMN cut_in_line BOOL;
18652
18653 ALTER TABLE auditor.action_hold_request_history
18654 ADD COLUMN mint_condition boolean NOT NULL DEFAULT TRUE;
18655
18656 ALTER TABLE auditor.action_hold_request_history
18657 ADD COLUMN shelf_expire_time TIMESTAMPTZ;
18658
18659 \qecho Outside of the transaction: adding indexes that may or may not exist.
18660 \qecho If any of these CREATE INDEX statements fails because the index already
18661 \qecho exists, ignore the failure.
18662
18663 CREATE INDEX acq_picklist_owner_idx   ON acq.picklist ( owner );
18664 CREATE INDEX acq_picklist_creator_idx ON acq.picklist ( creator );
18665 CREATE INDEX acq_picklist_editor_idx  ON acq.picklist ( editor );
18666 CREATE INDEX acq_po_note_creator_idx  ON acq.po_note ( creator );
18667 CREATE INDEX acq_po_note_editor_idx   ON acq.po_note ( editor );
18668 CREATE INDEX fund_alloc_allocator_idx ON acq.fund_allocation ( allocator );
18669 CREATE INDEX li_creator_idx   ON acq.lineitem ( creator );
18670 CREATE INDEX li_editor_idx    ON acq.lineitem ( editor );
18671 CREATE INDEX li_selector_idx  ON acq.lineitem ( selector );
18672 CREATE INDEX li_note_creator_idx  ON acq.lineitem_note ( creator );
18673 CREATE INDEX li_note_editor_idx   ON acq.lineitem_note ( editor );
18674 CREATE INDEX li_usr_attr_def_usr_idx  ON acq.lineitem_usr_attr_definition ( usr );
18675 CREATE INDEX po_editor_idx   ON acq.purchase_order ( editor );
18676 CREATE INDEX po_creator_idx  ON acq.purchase_order ( creator );
18677 CREATE INDEX acq_po_org_name_order_date_idx ON acq.purchase_order( ordering_agency, name, order_date );
18678 CREATE INDEX action_in_house_use_staff_idx  ON action.in_house_use ( staff );
18679 CREATE INDEX action_non_cat_circ_patron_idx ON action.non_cataloged_circulation ( patron );
18680 CREATE INDEX action_non_cat_circ_staff_idx  ON action.non_cataloged_circulation ( staff );
18681 CREATE INDEX action_survey_response_usr_idx ON action.survey_response ( usr );
18682 CREATE INDEX ahn_notify_staff_idx           ON action.hold_notification ( notify_staff );
18683 CREATE INDEX circ_all_usr_idx               ON action.circulation ( usr );
18684 CREATE INDEX circ_circ_staff_idx            ON action.circulation ( circ_staff );
18685 CREATE INDEX circ_checkin_staff_idx         ON action.circulation ( checkin_staff );
18686 CREATE INDEX hold_request_fulfillment_staff_idx ON action.hold_request ( fulfillment_staff );
18687 CREATE INDEX hold_request_requestor_idx     ON action.hold_request ( requestor );
18688 CREATE INDEX non_cat_in_house_use_staff_idx ON action.non_cat_in_house_use ( staff );
18689 CREATE INDEX actor_usr_note_creator_idx     ON actor.usr_note ( creator );
18690 CREATE INDEX actor_usr_standing_penalty_staff_idx ON actor.usr_standing_penalty ( staff );
18691 CREATE INDEX usr_org_unit_opt_in_staff_idx  ON actor.usr_org_unit_opt_in ( staff );
18692 CREATE INDEX asset_call_number_note_creator_idx ON asset.call_number_note ( creator );
18693 CREATE INDEX asset_copy_note_creator_idx    ON asset.copy_note ( creator );
18694 CREATE INDEX cp_creator_idx                 ON asset.copy ( creator );
18695 CREATE INDEX cp_editor_idx                  ON asset.copy ( editor );
18696
18697 CREATE INDEX actor_card_barcode_lower_idx ON actor.card (lower(barcode));
18698
18699 DROP INDEX IF EXISTS authority.unique_by_heading_and_thesaurus;
18700
18701 \qecho If the following CREATE INDEX fails, It will be necessary to do some
18702 \qecho data cleanup as described in the comments.
18703
18704 CREATE UNIQUE INDEX unique_by_heading_and_thesaurus
18705     ON authority.record_entry (authority.normalize_heading(marc))
18706         WHERE deleted IS FALSE or deleted = FALSE;
18707
18708 -- If the unique index fails, uncomment the following to create
18709 -- a regular index that will help find the duplicates in a hurry:
18710 --CREATE INDEX by_heading_and_thesaurus
18711 --    ON authority.record_entry (authority.normalize_heading(marc))
18712 --    WHERE deleted IS FALSE or deleted = FALSE
18713 --;
18714
18715 -- Then find the duplicates like so to get an idea of how much
18716 -- pain you're looking at to clean things up:
18717 --SELECT id, authority.normalize_heading(marc)
18718 --    FROM authority.record_entry
18719 --    WHERE authority.normalize_heading(marc) IN (
18720 --        SELECT authority.normalize_heading(marc)
18721 --        FROM authority.record_entry
18722 --        GROUP BY authority.normalize_heading(marc)
18723 --        HAVING COUNT(*) > 1
18724 --    )
18725 --;
18726
18727 -- Once you have removed the duplicates and the CREATE UNIQUE INDEX
18728 -- statement succeeds, drop the temporary index to avoid unnecessary
18729 -- duplication:
18730 -- DROP INDEX authority.by_heading_and_thesaurus;
18731
18732 \qecho Upgrade script completed.