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 ('0428');
  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 $$[%- USE date -%]
3263 [%# start JEDI document -%]
3264 [%- BLOCK big_block -%]
3265 {
3266    "recipient":"[% target.provider.san %]",
3267    "sender":"[% target.ordering_agency.mailing_address.san %]",
3268    "body": [{
3269      "ORDERS":[ "order", {
3270         "po_number":[% target.id %],
3271         "date":"[% date.format(date.now, '%Y%m%d') %]",
3272         "buyer":[{
3273             [%- IF target.provider.edi_default.vendcode -%]
3274                 "id":"[% target.ordering_agency.mailing_address.san _ ' ' _ target.provider.edi_default.vendcode %]",
3275                 "id-qualifier": 91
3276             [%- ELSE -%]
3277                 "id":"[% target.ordering_agency.mailing_address.san %]"
3278             [%- END  -%]
3279         }],
3280         "vendor":[
3281             [%- # target.provider.name (target.provider.id) -%]
3282             "[% target.provider.san %]",
3283             {"id-qualifier": 92, "id":"[% target.provider.id %]"}
3284         ],
3285         "currency":"[% target.provider.currency_type %]",
3286         "items":[
3287         [% FOR li IN target.lineitems %]
3288         {
3289             "identifiers":[   [%-# li.isbns = helpers.get_li_isbns(li.attributes) %]
3290             [% FOR isbn IN helpers.get_li_isbns(li.attributes) -%]
3291                 [% IF isbn.length == 13 -%]
3292                 {"id-qualifier":"EN","id":"[% isbn %]"},
3293                 [% ELSE -%]
3294                 {"id-qualifier":"IB","id":"[% isbn %]"},
3295                 [%- END %]
3296             [% END %]
3297                 {"id-qualifier":"SA","id":"[% li.id %]"}
3298             ],
3299             "price":[% li.estimated_unit_price || '0.00' %],
3300             "desc":[
3301                 {"BTI":"[% helpers.get_li_attr('title',     '', li.attributes) %]"},
3302                 {"BPU":"[% helpers.get_li_attr('publisher', '', li.attributes) %]"},
3303                 {"BPD":"[% helpers.get_li_attr('pubdate',   '', li.attributes) %]"},
3304                 {"BPH":"[% helpers.get_li_attr('pagination','', li.attributes) %]"}
3305             ],
3306             "quantity":[% li.lineitem_details.size %]
3307         }[% UNLESS loop.last %],[% END %]
3308         [%-# TODO: lineitem details (later) -%]
3309         [% END %]
3310         ],
3311         "line_items":[% target.lineitems.size %]
3312      }]  [% # close ORDERS array %]
3313    }]    [% # close  body  array %]
3314 }
3315 [% END %]
3316 [% tempo = PROCESS big_block; helpers.escape_json(tempo) %]
3317 $$
3318 );
3319
3320 INSERT INTO action_trigger.environment (event_def, path) VALUES
3321   (23, 'lineitems.attributes'),
3322   (23, 'lineitems.lineitem_details'),
3323   (23, 'lineitems.lineitem_notes'),
3324   (23, 'ordering_agency.mailing_address'),
3325   (23, 'provider');
3326
3327 UPDATE action_trigger.event_definition SET template =
3328 $$
3329 [%- USE date -%]
3330 [%-
3331     # find a lineitem attribute by name and optional type
3332     BLOCK get_li_attr;
3333         FOR attr IN li.attributes;
3334             IF attr.attr_name == attr_name;
3335                 IF !attr_type OR attr_type == attr.attr_type;
3336                     attr.attr_value;
3337                     LAST;
3338                 END;
3339             END;
3340         END;
3341     END
3342 -%]
3343
3344 <h2>Purchase Order [% target.id %]</h2>
3345 <br/>
3346 date <b>[% date.format(date.now, '%Y%m%d') %]</b>
3347 <br/>
3348
3349 <style>
3350     table td { padding:5px; border:1px solid #aaa;}
3351     table { width:95%; border-collapse:collapse; }
3352     #vendor-notes { padding:5px; border:1px solid #aaa; }
3353 </style>
3354 <table id='vendor-table'>
3355   <tr>
3356     <td valign='top'>Vendor</td>
3357     <td>
3358       <div>[% target.provider.name %]</div>
3359       <div>[% target.provider.addresses.0.street1 %]</div>
3360       <div>[% target.provider.addresses.0.street2 %]</div>
3361       <div>[% target.provider.addresses.0.city %]</div>
3362       <div>[% target.provider.addresses.0.state %]</div>
3363       <div>[% target.provider.addresses.0.country %]</div>
3364       <div>[% target.provider.addresses.0.post_code %]</div>
3365     </td>
3366     <td valign='top'>Ship to / Bill to</td>
3367     <td>
3368       <div>[% target.ordering_agency.name %]</div>
3369       <div>[% target.ordering_agency.billing_address.street1 %]</div>
3370       <div>[% target.ordering_agency.billing_address.street2 %]</div>
3371       <div>[% target.ordering_agency.billing_address.city %]</div>
3372       <div>[% target.ordering_agency.billing_address.state %]</div>
3373       <div>[% target.ordering_agency.billing_address.country %]</div>
3374       <div>[% target.ordering_agency.billing_address.post_code %]</div>
3375     </td>
3376   </tr>
3377 </table>
3378
3379 <br/><br/>
3380 <fieldset id='vendor-notes'>
3381     <legend>Notes to the Vendor</legend>
3382     <ul>
3383     [% FOR note IN target.notes %]
3384         [% IF note.vendor_public == 't' %]
3385             <li>[% note.value %]</li>
3386         [% END %]
3387     [% END %]
3388     </ul>
3389 </fieldset>
3390 <br/><br/>
3391
3392 <table>
3393   <thead>
3394     <tr>
3395       <th>PO#</th>
3396       <th>ISBN or Item #</th>
3397       <th>Title</th>
3398       <th>Quantity</th>
3399       <th>Unit Price</th>
3400       <th>Line Total</th>
3401       <th>Notes</th>
3402     </tr>
3403   </thead>
3404   <tbody>
3405
3406   [% subtotal = 0 %]
3407   [% FOR li IN target.lineitems %]
3408
3409   <tr>
3410     [% count = li.lineitem_details.size %]
3411     [% price = li.estimated_unit_price %]
3412     [% litotal = (price * count) %]
3413     [% subtotal = subtotal + litotal %]
3414     [% isbn = PROCESS get_li_attr attr_name = 'isbn' %]
3415     [% ident = PROCESS get_li_attr attr_name = 'identifier' %]
3416
3417     <td>[% target.id %]</td>
3418     <td>[% isbn || ident %]</td>
3419     <td>[% PROCESS get_li_attr attr_name = 'title' %]</td>
3420     <td>[% count %]</td>
3421     <td>[% price %]</td>
3422     <td>[% litotal %]</td>
3423     <td>
3424         <ul>
3425         [% FOR note IN li.lineitem_notes %]
3426             [% IF note.vendor_public == 't' %]
3427                 <li>[% note.value %]</li>
3428             [% END %]
3429         [% END %]
3430         </ul>
3431     </td>
3432   </tr>
3433   [% END %]
3434   <tr>
3435     <td/><td/><td/><td/>
3436     <td>Subtotal</td>
3437     <td>[% subtotal %]</td>
3438   </tr>
3439   </tbody>
3440 </table>
3441
3442 <br/>
3443
3444 Total Line Item Count: [% target.lineitems.size %]
3445 $$
3446 WHERE id = 4;
3447
3448 INSERT INTO action_trigger.environment (event_def, path) VALUES
3449     (4, 'lineitems.lineitem_notes'),
3450     (4, 'notes');
3451
3452 INSERT INTO action_trigger.environment (event_def, path) VALUES
3453     ( 14, 'lineitem_notes.alert_text' ),
3454     ( 14, 'distribution_formulas.formula' ),
3455     ( 14, 'lineitem_details.fund' ),
3456     ( 14, 'lineitem_details.eg_copy_id' ),
3457     ( 14, 'lineitem_details.eg_copy_id.call_number' )
3458 ;
3459
3460 INSERT INTO action_trigger.hook (key,core_type,description,passive) VALUES (
3461         'aur.created',
3462         'aur',
3463         oils_i18n_gettext(
3464             'aur.created',
3465             'A patron has made an acquisitions request.',
3466             'ath',
3467             'description'
3468         ),
3469         TRUE
3470     ), (
3471         'aur.rejected',
3472         'aur',
3473         oils_i18n_gettext(
3474             'aur.rejected',
3475             'A patron acquisition request has been rejected.',
3476             'ath',
3477             'description'
3478         ),
3479         TRUE
3480     )
3481 ;
3482
3483 INSERT INTO action_trigger.event_definition (
3484         id,
3485         active,
3486         owner,
3487         name,
3488         hook,
3489         validator,
3490         reactor,
3491         template
3492     ) VALUES (
3493         18,
3494         FALSE,
3495         1,
3496         'Email Notice: Acquisition Request created.',
3497         'aur.created',
3498         'NOOP_True',
3499         'SendEmail',
3500 $$
3501 [%- USE date -%]
3502 [%- SET user = target.usr -%]
3503 [%- SET title = target.title -%]
3504 [%- SET author = target.author -%]
3505 [%- SET isxn = target.isxn -%]
3506 [%- SET publisher = target.publisher -%]
3507 [%- SET pubdate = target.pubdate -%]
3508
3509 To: [%- params.recipient_email || user.email %]
3510 From: [%- params.sender_email || default_sender %]
3511 Subject: Acquisition Request Notification
3512
3513 Dear [% user.family_name %], [% user.first_given_name %]
3514 Our records indicate that you have made the following acquisition request:
3515
3516 Title: [% title %]
3517 [% IF author %]Author: [% author %][% END %]
3518 [% IF edition %]Edition: [% edition %][% END %]
3519 [% IF isbn %]ISXN: [% isxn %][% END %]
3520 [% IF publisher %]Publisher: [% publisher %][% END %]
3521 [% IF pubdate %]Publication Date: [% pubdate %][% END %]
3522 $$
3523     ), (
3524         19,
3525         FALSE,
3526         1,
3527         'Email Notice: Acquisition Request Rejected.',
3528         'aur.rejected',
3529         'NOOP_True',
3530         'SendEmail',
3531 $$
3532 [%- USE date -%]
3533 [%- SET user = target.usr -%]
3534 [%- SET title = target.title -%]
3535 [%- SET author = target.author -%]
3536 [%- SET isxn = target.isxn -%]
3537 [%- SET publisher = target.publisher -%]
3538 [%- SET pubdate = target.pubdate -%]
3539 [%- SET cancel_reason = target.cancel_reason.description -%]
3540
3541 To: [%- params.recipient_email || user.email %]
3542 From: [%- params.sender_email || default_sender %]
3543 Subject: Acquisition Request Notification
3544
3545 Dear [% user.family_name %], [% user.first_given_name %]
3546 Our records indicate the following acquisition request has been rejected for this reason: [% cancel_reason %]
3547
3548 Title: [% title %]
3549 [% IF author %]Author: [% author %][% END %]
3550 [% IF edition %]Edition: [% edition %][% END %]
3551 [% IF isbn %]ISBN: [% isbn %][% END %]
3552 [% IF publisher %]Publisher: [% publisher %][% END %]
3553 [% IF pubdate %]Publication Date: [% pubdate %][% END %]
3554 $$
3555     );
3556
3557 INSERT INTO action_trigger.environment (
3558         event_def,
3559         path
3560     ) VALUES
3561         ( 18, 'usr' ),
3562         ( 19, 'usr' ),
3563         ( 19, 'cancel_reason' )
3564     ;
3565
3566 INSERT INTO action_trigger.event_definition (id, active, owner, name, hook, validator, reactor, delay, template)
3567     VALUES (20, 'f', 1, 'Password reset request notification', 'password.reset_request', 'NOOP_True', 'SendEmail', '00:00:01',
3568 $$
3569 [%- USE date -%]
3570 [%- user = target.usr -%]
3571 To: [%- params.recipient_email || user.email %]
3572 From: [%- params.sender_email || user.home_ou.email || default_sender %]
3573 Subject: [% user.home_ou.name %]: library account password reset request
3574
3575 You have received this message because you, or somebody else, requested a reset
3576 of your library system password. If you did not request a reset of your library
3577 system password, just ignore this message and your current password will
3578 continue to work.
3579
3580 If you did request a reset of your library system password, please perform
3581 the following steps to continue the process of resetting your password:
3582
3583 1. Open the following link in a web browser: https://[% params.hostname %]/opac/password/[% params.locale || 'en-US' %]/[% target.uuid %]
3584 The browser displays a password reset form.
3585
3586 2. Enter your new password in the password reset form in the browser. You must
3587 enter the password twice to ensure that you do not make a mistake. If the
3588 passwords match, you will then be able to log in to your library system account
3589 with the new password.
3590
3591 $$);
3592
3593 INSERT INTO action_trigger.hook (key, core_type, description, passive)
3594     VALUES (
3595         'format.acqcle.html',
3596         'acqcle',
3597         'Formats claim events into a voucher',
3598         TRUE
3599     );
3600
3601 INSERT INTO action_trigger.event_definition (
3602         id, active, owner, name, hook, group_field,
3603         validator, reactor, granularity, template
3604     ) VALUES (
3605         21,
3606         TRUE,
3607         1,
3608         'Claim Voucher',
3609         'format.acqcle.html',
3610         'claim',
3611         'NOOP_True',
3612         'ProcessTemplate',
3613         'print-on-demand',
3614 $$
3615 [%- USE date -%]
3616 [%- SET claim = target.0.claim -%]
3617 <!-- This will need refined/prettified. -->
3618 <div class="acq-claim-voucher">
3619     <h2>Claim: [% claim.id %] ([% claim.type.code %])</h2>
3620     <h3>Against: [%- helpers.get_li_attr("title", "", claim.lineitem_detail.lineitem.attributes) -%]</h3>
3621     <ul>
3622         [% FOR event IN target %]
3623         <li>
3624             Event type: [% event.type.code %]
3625             [% IF event.type.library_initiated %](Library initiated)[% END %]
3626             <br />
3627             Event date: [% event.event_date %]<br />
3628             Order date: [% event.claim.lineitem_detail.lineitem.purchase_order.order_date %]<br />
3629             Expected receive date: [% event.claim.lineitem_detail.lineitem.expected_recv_time %]<br />
3630             Initiated by: [% event.creator.family_name %], [% event.creator.first_given_name %] [% event.creator.second_given_name %]<br />
3631             Barcode: [% event.claim.lineitem_detail.barcode %]; Fund:
3632             [% event.claim.lineitem_detail.fund.code %]
3633             ([% event.claim.lineitem_detail.fund.year %])
3634         </li>
3635         [% END %]
3636     </ul>
3637 </div>
3638 $$
3639 );
3640
3641 INSERT INTO action_trigger.environment (event_def, path) VALUES
3642     (21, 'claim'),
3643     (21, 'claim.type'),
3644     (21, 'claim.lineitem_detail'),
3645     (21, 'claim.lineitem_detail.fund'),
3646     (21, 'claim.lineitem_detail.lineitem.attributes'),
3647     (21, 'claim.lineitem_detail.lineitem.purchase_order'),
3648     (21, 'creator'),
3649     (21, 'type')
3650 ;
3651
3652 INSERT INTO action_trigger.hook (key, core_type, description, passive)
3653     VALUES (
3654         'format.acqinv.html',
3655         'acqinv',
3656         'Formats invoices into a voucher',
3657         TRUE
3658     );
3659
3660 INSERT INTO action_trigger.event_definition (
3661         id, active, owner, name, hook,
3662         validator, reactor, granularity, template
3663     ) VALUES (
3664         22,
3665         TRUE,
3666         1,
3667         'Invoice',
3668         'format.acqinv.html',
3669         'NOOP_True',
3670         'ProcessTemplate',
3671         'print-on-demand',
3672 $$
3673 [% FILTER collapse %]
3674 [%- SET invoice = target -%]
3675 <!-- This lacks totals, info about funds (for invoice entries,
3676     funds are per-LID!), and general refinement -->
3677 <div class="acq-invoice-voucher">
3678     <h1>Invoice</h1>
3679     <div>
3680         <strong>No.</strong> [% invoice.inv_ident %]
3681         [% IF invoice.inv_type %]
3682             / <strong>Type:</strong>[% invoice.inv_type %]
3683         [% END %]
3684     </div>
3685     <div>
3686         <dl>
3687             [% BLOCK ent_with_address %]
3688             <dt>[% ent_label %]: [% ent.name %] ([% ent.code %])</dt>
3689             <dd>
3690                 [% IF ent.addresses.0 %]
3691                     [% SET addr = ent.addresses.0 %]
3692                     [% addr.street1 %]<br />
3693                     [% IF addr.street2 %][% addr.street2 %]<br />[% END %]
3694                     [% addr.city %],
3695                     [% IF addr.county %] [% addr.county %], [% END %]
3696                     [% IF addr.state %] [% addr.state %] [% END %]
3697                     [% IF addr.post_code %][% addr.post_code %][% END %]<br />
3698                     [% IF addr.country %] [% addr.country %] [% END %]
3699                 [% END %]
3700                 <p>
3701                     [% IF ent.phone %] Phone: [% ent.phone %]<br />[% END %]
3702                     [% IF ent.fax_phone %] Fax: [% ent.fax_phone %]<br />[% END %]
3703                     [% IF ent.url %] URL: [% ent.url %]<br />[% END %]
3704                     [% IF ent.email %] E-mail: [% ent.email %] [% END %]
3705                 </p>
3706             </dd>
3707             [% END %]
3708             [% INCLUDE ent_with_address
3709                 ent = invoice.provider
3710                 ent_label = "Provider" %]
3711             [% INCLUDE ent_with_address
3712                 ent = invoice.shipper
3713                 ent_label = "Shipper" %]
3714             <dt>Receiver</dt>
3715             <dd>
3716                 [% invoice.receiver.name %] ([% invoice.receiver.shortname %])
3717             </dd>
3718             <dt>Received</dt>
3719             <dd>
3720                 [% helpers.format_date(invoice.recv_date) %] by
3721                 [% invoice.recv_method %]
3722             </dd>
3723             [% IF invoice.note %]
3724                 <dt>Note</dt>
3725                 <dd>
3726                     [% invoice.note %]
3727                 </dd>
3728             [% END %]
3729         </dl>
3730     </div>
3731     <ul>
3732         [% FOR entry IN invoice.entries %]
3733             <li>
3734                 [% IF entry.lineitem %]
3735                     Title: [% helpers.get_li_attr(
3736                         "title", "", entry.lineitem.attributes
3737                     ) %]<br />
3738                     Author: [% helpers.get_li_attr(
3739                         "author", "", entry.lineitem.attributes
3740                     ) %]
3741                 [% END %]
3742                 [% IF entry.purchase_order %]
3743                     (PO: [% entry.purchase_order.name %])
3744                 [% END %]<br />
3745                 Invoice item count: [% entry.inv_item_count %]
3746                 [% IF entry.phys_item_count %]
3747                     / Physical item count: [% entry.phys_item_count %]
3748                 [% END %]
3749                 <br />
3750                 [% IF entry.cost_billed %]
3751                     Cost billed: [% entry.cost_billed %]
3752                     [% IF entry.billed_per_item %](per item)[% END %]
3753                     <br />
3754                 [% END %]
3755                 [% IF entry.actual_cost %]
3756                     Actual cost: [% entry.actual_cost %]<br />
3757                 [% END %]
3758                 [% IF entry.amount_paid %]
3759                     Amount paid: [% entry.amount_paid %]<br />
3760                 [% END %]
3761                 [% IF entry.note %]Note: [% entry.note %][% END %]
3762             </li>
3763         [% END %]
3764         [% FOR item IN invoice.items %]
3765             <li>
3766                 [% IF item.inv_item_type %]
3767                     Item Type: [% item.inv_item_type %]<br />
3768                 [% END %]
3769                 [% IF item.title %]Title/Description:
3770                     [% item.title %]<br />
3771                 [% END %]
3772                 [% IF item.author %]Author: [% item.author %]<br />[% END %]
3773                 [% IF item.purchase_order %]PO: [% item.purchase_order %]<br />[% END %]
3774                 [% IF item.note %]Note: [% item.note %]<br />[% END %]
3775                 [% IF item.cost_billed %]
3776                     Cost billed: [% item.cost_billed %]<br />
3777                 [% END %]
3778                 [% IF item.actual_cost %]
3779                     Actual cost: [% item.actual_cost %]<br />
3780                 [% END %]
3781                 [% IF item.amount_paid %]
3782                     Amount paid: [% item.amount_paid %]<br />
3783                 [% END %]
3784             </li>
3785         [% END %]
3786     </ul>
3787 </div>
3788 [% END %]
3789 $$
3790 );
3791
3792 INSERT INTO action_trigger.environment (event_def, path) VALUES
3793     (22, 'provider'),
3794     (22, 'provider.addresses'),
3795     (22, 'shipper'),
3796     (22, 'shipper.addresses'),
3797     (22, 'receiver'),
3798     (22, 'entries'),
3799     (22, 'entries.purchase_order'),
3800     (22, 'entries.lineitem'),
3801     (22, 'entries.lineitem.attributes'),
3802     (22, 'items')
3803 ;
3804
3805 INSERT INTO action_trigger.environment (event_def, path) VALUES
3806   (23, 'provider.edi_default');
3807
3808 INSERT INTO action_trigger.validator (module, description)
3809     VALUES (
3810         'Acq::PurchaseOrderEDIRequired',
3811         oils_i18n_gettext(
3812             'Acq::PurchaseOrderEDIRequired',
3813             'Purchase order is delivered via EDI',
3814             'atval',
3815             'description'
3816         )
3817     );
3818
3819 INSERT INTO action_trigger.reactor (module, description)
3820     VALUES (
3821         'GeneratePurchaseOrderJEDI',
3822         oils_i18n_gettext(
3823             'GeneratePurchaseOrderJEDI',
3824             'Creates purchase order JEDI (JSON EDI) for subsequent EDI processing',
3825             'atreact',
3826             'description'
3827         )
3828     );
3829
3830 UPDATE action_trigger.hook
3831     SET
3832         key = 'acqpo.activated',
3833         passive = FALSE,
3834         description = oils_i18n_gettext(
3835             'acqpo.activated',
3836             'Purchase order was activated',
3837             'ath',
3838             'description'
3839         )
3840     WHERE key = 'format.po.jedi';
3841
3842 -- We just changed a key in action_trigger.hook.  Now redirect any
3843 -- child rows to point to the new key.  (There probably aren't any;
3844 -- this is just a precaution against possible local modifications.)
3845
3846 UPDATE action_trigger.event_definition
3847 SET hook = 'acqpo.activated'
3848 WHERE hook = 'format.po.jedi';
3849
3850 INSERT INTO action_trigger.reactor (module, description) VALUES (
3851     'AstCall', 'Possibly place a phone call with Asterisk'
3852 );
3853
3854 INSERT INTO
3855     action_trigger.event_definition (
3856         id, active, owner, name, hook, validator, reactor,
3857         cleanup_success, cleanup_failure, delay, delay_field, group_field,
3858         max_delay, granularity, usr_field, opt_in_setting, template
3859     ) VALUES (
3860         24,
3861         FALSE,
3862         1,
3863         'Telephone Overdue Notice',
3864         'checkout.due', 'NOOP_True', 'AstCall',
3865         DEFAULT, DEFAULT, '5 seconds', 'due_date', 'usr',
3866         DEFAULT, DEFAULT, DEFAULT, DEFAULT,
3867         $$
3868 [% phone = target.0.usr.day_phone | replace('[\s\-\(\)]', '') -%]
3869 [% IF phone.match('^[2-9]') %][% country = 1 %][% ELSE %][% country = '' %][% END -%]
3870 Channel: [% channel_prefix %]/[% country %][% phone %]
3871 Context: overdue-test
3872 MaxRetries: 1
3873 RetryTime: 60
3874 WaitTime: 30
3875 Extension: 10
3876 Archive: 1
3877 Set: eg_user_id=[% target.0.usr.id %]
3878 Set: items=[% target.size %]
3879 Set: titlestring=[% titles = [] %][% FOR circ IN target %][% titles.push(circ.target_copy.call_number.record.simple_record.title) %][% END %][% titles.join(". ") %]
3880 $$
3881     );
3882
3883 INSERT INTO
3884     action_trigger.environment (id, event_def, path)
3885     VALUES
3886         (DEFAULT, 24, 'target_copy.call_number.record.simple_record'),
3887         (DEFAULT, 24, 'usr')
3888     ;
3889
3890 INSERT INTO action_trigger.hook (key,core_type,description,passive) VALUES (
3891         'circ.format.history.email',
3892         'circ',
3893         oils_i18n_gettext(
3894             'circ.format.history.email',
3895             'An email has been requested for a circ history.',
3896             'ath',
3897             'description'
3898         ),
3899         FALSE
3900     )
3901     ,(
3902         'circ.format.history.print',
3903         'circ',
3904         oils_i18n_gettext(
3905             'circ.format.history.print',
3906             'A circ history needs to be formatted for printing.',
3907             'ath',
3908             'description'
3909         ),
3910         FALSE
3911     )
3912     ,(
3913         'ahr.format.history.email',
3914         'ahr',
3915         oils_i18n_gettext(
3916             'ahr.format.history.email',
3917             'An email has been requested for a hold request history.',
3918             'ath',
3919             'description'
3920         ),
3921         FALSE
3922     )
3923     ,(
3924         'ahr.format.history.print',
3925         'ahr',
3926         oils_i18n_gettext(
3927             'ahr.format.history.print',
3928             'A hold request history needs to be formatted for printing.',
3929             'ath',
3930             'description'
3931         ),
3932         FALSE
3933     )
3934
3935 ;
3936
3937 INSERT INTO action_trigger.event_definition (
3938         id,
3939         active,
3940         owner,
3941         name,
3942         hook,
3943         validator,
3944         reactor,
3945         group_field,
3946         granularity,
3947         template
3948     ) VALUES (
3949         25,
3950         TRUE,
3951         1,
3952         'circ.history.email',
3953         'circ.format.history.email',
3954         'NOOP_True',
3955         'SendEmail',
3956         'usr',
3957         NULL,
3958 $$
3959 [%- USE date -%]
3960 [%- SET user = target.0.usr -%]
3961 To: [%- params.recipient_email || user.email %]
3962 From: [%- params.sender_email || default_sender %]
3963 Subject: Circulation History
3964
3965     [% FOR circ IN target %]
3966             [% helpers.get_copy_bib_basics(circ.target_copy.id).title %]
3967             Barcode: [% circ.target_copy.barcode %]
3968             Checked Out: [% date.format(helpers.format_date(circ.xact_start), '%Y-%m-%d') %]
3969             Due Date: [% date.format(helpers.format_date(circ.due_date), '%Y-%m-%d') %]
3970             Returned: [% date.format(helpers.format_date(circ.checkin_time), '%Y-%m-%d') %]
3971     [% END %]
3972 $$
3973     )
3974     ,(
3975         26,
3976         TRUE,
3977         1,
3978         'circ.history.print',
3979         'circ.format.history.print',
3980         'NOOP_True',
3981         'ProcessTemplate',
3982         'usr',
3983         'print-on-demand',
3984 $$
3985 [%- USE date -%]
3986 <div>
3987     <style> li { padding: 8px; margin 5px; }</style>
3988     <div>[% date.format %]</div>
3989     <br/>
3990
3991     [% user.family_name %], [% user.first_given_name %]
3992     <ol>
3993     [% FOR circ IN target %]
3994         <li>
3995             <div>[% helpers.get_copy_bib_basics(circ.target_copy.id).title %]</div>
3996             <div>Barcode: [% circ.target_copy.barcode %]</div>
3997             <div>Checked Out: [% date.format(helpers.format_date(circ.xact_start), '%Y-%m-%d') %]</div>
3998             <div>Due Date: [% date.format(helpers.format_date(circ.due_date), '%Y-%m-%d') %]</div>
3999             <div>Returned: [% date.format(helpers.format_date(circ.checkin_time), '%Y-%m-%d') %]</div>
4000         </li>
4001     [% END %]
4002     </ol>
4003 </div>
4004 $$
4005     )
4006     ,(
4007         27,
4008         TRUE,
4009         1,
4010         'ahr.history.email',
4011         'ahr.format.history.email',
4012         'NOOP_True',
4013         'SendEmail',
4014         'usr',
4015         NULL,
4016 $$
4017 [%- USE date -%]
4018 [%- SET user = target.0.usr -%]
4019 To: [%- params.recipient_email || user.email %]
4020 From: [%- params.sender_email || default_sender %]
4021 Subject: Hold Request History
4022
4023     [% FOR hold IN target %]
4024             [% helpers.get_copy_bib_basics(hold.current_copy.id).title %]
4025             Requested: [% date.format(helpers.format_date(hold.request_time), '%Y-%m-%d') %]
4026             [% IF hold.fulfillment_time %]Fulfilled: [% date.format(helpers.format_date(hold.fulfillment_time), '%Y-%m-%d') %][% END %]
4027     [% END %]
4028 $$
4029     )
4030     ,(
4031         28,
4032         TRUE,
4033         1,
4034         'ahr.history.print',
4035         'ahr.format.history.print',
4036         'NOOP_True',
4037         'ProcessTemplate',
4038         'usr',
4039         'print-on-demand',
4040 $$
4041 [%- USE date -%]
4042 <div>
4043     <style> li { padding: 8px; margin 5px; }</style>
4044     <div>[% date.format %]</div>
4045     <br/>
4046
4047     [% user.family_name %], [% user.first_given_name %]
4048     <ol>
4049     [% FOR hold IN target %]
4050         <li>
4051             <div>[% helpers.get_copy_bib_basics(hold.current_copy.id).title %]</div>
4052             <div>Requested: [% date.format(helpers.format_date(hold.request_time), '%Y-%m-%d') %]</div>
4053             [% IF hold.fulfillment_time %]<div>Fulfilled: [% date.format(helpers.format_date(hold.fulfillment_time), '%Y-%m-%d') %]</div>[% END %]
4054         </li>
4055     [% END %]
4056     </ol>
4057 </div>
4058 $$
4059     )
4060
4061 ;
4062
4063 INSERT INTO action_trigger.environment (
4064         event_def,
4065         path
4066     ) VALUES
4067          ( 25, 'target_copy')
4068         ,( 25, 'usr' )
4069         ,( 26, 'target_copy' )
4070         ,( 26, 'usr' )
4071         ,( 27, 'current_copy' )
4072         ,( 27, 'usr' )
4073         ,( 28, 'current_copy' )
4074         ,( 28, 'usr' )
4075 ;
4076
4077 INSERT INTO action_trigger.hook (key,core_type,description,passive) VALUES (
4078         'money.format.payment_receipt.email',
4079         'mp',
4080         oils_i18n_gettext(
4081             'money.format.payment_receipt.email',
4082             'An email has been requested for a payment receipt.',
4083             'ath',
4084             'description'
4085         ),
4086         FALSE
4087     )
4088     ,(
4089         'money.format.payment_receipt.print',
4090         'mp',
4091         oils_i18n_gettext(
4092             'money.format.payment_receipt.print',
4093             'A payment receipt needs to be formatted for printing.',
4094             'ath',
4095             'description'
4096         ),
4097         FALSE
4098     )
4099 ;
4100
4101 INSERT INTO action_trigger.event_definition (
4102         id,
4103         active,
4104         owner,
4105         name,
4106         hook,
4107         validator,
4108         reactor,
4109         group_field,
4110         granularity,
4111         template
4112     ) VALUES (
4113         29,
4114         TRUE,
4115         1,
4116         'money.payment_receipt.email',
4117         'money.format.payment_receipt.email',
4118         'NOOP_True',
4119         'SendEmail',
4120         'xact.usr',
4121         NULL,
4122 $$
4123 [%- USE date -%]
4124 [%- SET user = target.0.xact.usr -%]
4125 To: [%- params.recipient_email || user.email %]
4126 From: [%- params.sender_email || default_sender %]
4127 Subject: Payment Receipt
4128
4129 [% date.format -%]
4130 [%- SET xact_mp_hash = {} -%]
4131 [%- FOR mp IN target %][%# Template is hooked around payments, but let us make the receipt focused on transactions -%]
4132     [%- SET xact_id = mp.xact.id -%]
4133     [%- IF ! xact_mp_hash.defined( xact_id ) -%][%- xact_mp_hash.$xact_id = { 'xact' => mp.xact, 'payments' => [] } -%][%- END -%]
4134     [%- xact_mp_hash.$xact_id.payments.push(mp) -%]
4135 [%- END -%]
4136 [%- FOR xact_id IN xact_mp_hash.keys.sort -%]
4137     [%- SET xact = xact_mp_hash.$xact_id.xact %]
4138 Transaction ID: [% xact_id %]
4139     [% IF xact.circulation %][% helpers.get_copy_bib_basics(xact.circulation.target_copy).title %]
4140     [% ELSE %]Miscellaneous
4141     [% END %]
4142     Line item billings:
4143         [%- SET mb_type_hash = {} -%]
4144         [%- FOR mb IN xact.billings %][%# Group billings by their btype -%]
4145             [%- IF mb.voided == 'f' -%]
4146                 [%- SET mb_type = mb.btype.id -%]
4147                 [%- IF ! mb_type_hash.defined( mb_type ) -%][%- mb_type_hash.$mb_type = { 'sum' => 0.00, 'billings' => [] } -%][%- END -%]
4148                 [%- IF ! mb_type_hash.$mb_type.defined( 'first_ts' ) -%][%- mb_type_hash.$mb_type.first_ts = mb.billing_ts -%][%- END -%]
4149                 [%- mb_type_hash.$mb_type.last_ts = mb.billing_ts -%]
4150                 [%- mb_type_hash.$mb_type.sum = mb_type_hash.$mb_type.sum + mb.amount -%]
4151                 [%- mb_type_hash.$mb_type.billings.push( mb ) -%]
4152             [%- END -%]
4153         [%- END -%]
4154         [%- FOR mb_type IN mb_type_hash.keys.sort -%]
4155             [%- IF mb_type == 1 %][%-# Consolidated view of overdue billings -%]
4156                 $[% mb_type_hash.$mb_type.sum %] for [% mb_type_hash.$mb_type.billings.0.btype.name %]
4157                     on [% mb_type_hash.$mb_type.first_ts %] through [% mb_type_hash.$mb_type.last_ts %]
4158             [%- ELSE -%][%# all other billings show individually %]
4159                 [% FOR mb IN mb_type_hash.$mb_type.billings %]
4160                     $[% mb.amount %] for [% mb.btype.name %] on [% mb.billing_ts %] [% mb.note %]
4161                 [% END %]
4162             [% END %]
4163         [% END %]
4164     Line item payments:
4165         [% FOR mp IN xact_mp_hash.$xact_id.payments %]
4166             Payment ID: [% mp.id %]
4167                 Paid [% mp.amount %] via [% SWITCH mp.payment_type -%]
4168                     [% CASE "cash_payment" %]cash
4169                     [% CASE "check_payment" %]check
4170                     [% CASE "credit_card_payment" %]credit card (
4171                         [%- SET cc_chunks = mp.credit_card_payment.cc_number.replace(' ','').chunk(4); -%]
4172                         [%- cc_chunks.slice(0, -1+cc_chunks.max).join.replace('\S','X') -%]
4173                         [% cc_chunks.last -%]
4174                         exp [% mp.credit_card_payment.expire_month %]/[% mp.credit_card_payment.expire_year -%]
4175                     )
4176                     [% CASE "credit_payment" %]credit
4177                     [% CASE "forgive_payment" %]forgiveness
4178                     [% CASE "goods_payment" %]goods
4179                     [% CASE "work_payment" %]work
4180                 [%- END %] on [% mp.payment_ts %] [% mp.note %]
4181         [% END %]
4182 [% END %]
4183 $$
4184     )
4185     ,(
4186         30,
4187         TRUE,
4188         1,
4189         'money.payment_receipt.print',
4190         'money.format.payment_receipt.print',
4191         'NOOP_True',
4192         'ProcessTemplate',
4193         'xact.usr',
4194         'print-on-demand',
4195 $$
4196 [%- USE date -%][%- SET user = target.0.xact.usr -%]
4197 <div style="li { padding: 8px; margin 5px; }">
4198     <div>[% date.format %]</div><br/>
4199     <ol>
4200     [% SET xact_mp_hash = {} %]
4201     [% FOR mp IN target %][%# Template is hooked around payments, but let us make the receipt focused on transactions %]
4202         [% SET xact_id = mp.xact.id %]
4203         [% IF ! xact_mp_hash.defined( xact_id ) %][% xact_mp_hash.$xact_id = { 'xact' => mp.xact, 'payments' => [] } %][% END %]
4204         [% xact_mp_hash.$xact_id.payments.push(mp) %]
4205     [% END %]
4206     [% FOR xact_id IN xact_mp_hash.keys.sort %]
4207         [% SET xact = xact_mp_hash.$xact_id.xact %]
4208         <li>Transaction ID: [% xact_id %]
4209             [% IF xact.circulation %][% helpers.get_copy_bib_basics(xact.circulation.target_copy).title %]
4210             [% ELSE %]Miscellaneous
4211             [% END %]
4212             Line item billings:<ol>
4213                 [% SET mb_type_hash = {} %]
4214                 [% FOR mb IN xact.billings %][%# Group billings by their btype %]
4215                     [% IF mb.voided == 'f' %]
4216                         [% SET mb_type = mb.btype.id %]
4217                         [% IF ! mb_type_hash.defined( mb_type ) %][% mb_type_hash.$mb_type = { 'sum' => 0.00, 'billings' => [] } %][% END %]
4218                         [% IF ! mb_type_hash.$mb_type.defined( 'first_ts' ) %][% mb_type_hash.$mb_type.first_ts = mb.billing_ts %][% END %]
4219                         [% mb_type_hash.$mb_type.last_ts = mb.billing_ts %]
4220                         [% mb_type_hash.$mb_type.sum = mb_type_hash.$mb_type.sum + mb.amount %]
4221                         [% mb_type_hash.$mb_type.billings.push( mb ) %]
4222                     [% END %]
4223                 [% END %]
4224                 [% FOR mb_type IN mb_type_hash.keys.sort %]
4225                     <li>[% IF mb_type == 1 %][%# Consolidated view of overdue billings %]
4226                         $[% mb_type_hash.$mb_type.sum %] for [% mb_type_hash.$mb_type.billings.0.btype.name %]
4227                             on [% mb_type_hash.$mb_type.first_ts %] through [% mb_type_hash.$mb_type.last_ts %]
4228                     [% ELSE %][%# all other billings show individually %]
4229                         [% FOR mb IN mb_type_hash.$mb_type.billings %]
4230                             $[% mb.amount %] for [% mb.btype.name %] on [% mb.billing_ts %] [% mb.note %]
4231                         [% END %]
4232                     [% END %]</li>
4233                 [% END %]
4234             </ol>
4235             Line item payments:<ol>
4236                 [% FOR mp IN xact_mp_hash.$xact_id.payments %]
4237                     <li>Payment ID: [% mp.id %]
4238                         Paid [% mp.amount %] via [% SWITCH mp.payment_type -%]
4239                             [% CASE "cash_payment" %]cash
4240                             [% CASE "check_payment" %]check
4241                             [% CASE "credit_card_payment" %]credit card (
4242                                 [%- SET cc_chunks = mp.credit_card_payment.cc_number.replace(' ','').chunk(4); -%]
4243                                 [%- cc_chunks.slice(0, -1+cc_chunks.max).join.replace('\S','X') -%]
4244                                 [% cc_chunks.last -%]
4245                                 exp [% mp.credit_card_payment.expire_month %]/[% mp.credit_card_payment.expire_year -%]
4246                             )
4247                             [% CASE "credit_payment" %]credit
4248                             [% CASE "forgive_payment" %]forgiveness
4249                             [% CASE "goods_payment" %]goods
4250                             [% CASE "work_payment" %]work
4251                         [%- END %] on [% mp.payment_ts %] [% mp.note %]
4252                     </li>
4253                 [% END %]
4254             </ol>
4255         </li>
4256     [% END %]
4257     </ol>
4258 </div>
4259 $$
4260     )
4261 ;
4262
4263 INSERT INTO action_trigger.environment (
4264         event_def,
4265         path
4266     ) VALUES -- for fleshing mp objects
4267          ( 29, 'xact')
4268         ,( 29, 'xact.usr')
4269         ,( 29, 'xact.grocery' )
4270         ,( 29, 'xact.circulation' )
4271         ,( 29, 'xact.summary' )
4272         ,( 30, 'xact')
4273         ,( 30, 'xact.usr')
4274         ,( 30, 'xact.grocery' )
4275         ,( 30, 'xact.circulation' )
4276         ,( 30, 'xact.summary' )
4277 ;
4278
4279 INSERT INTO action_trigger.cleanup ( module, description ) VALUES (
4280     'DeleteTempBiblioBucket',
4281     oils_i18n_gettext(
4282         'DeleteTempBiblioBucket',
4283         'Deletes a cbreb object used as a target if it has a btype of "temp"',
4284         'atclean',
4285         'description'
4286     )
4287 );
4288
4289 INSERT INTO action_trigger.hook (key,core_type,description,passive) VALUES (
4290         'biblio.format.record_entry.email',
4291         'cbreb',
4292         oils_i18n_gettext(
4293             'biblio.format.record_entry.email',
4294             'An email has been requested for one or more biblio record entries.',
4295             'ath',
4296             'description'
4297         ),
4298         FALSE
4299     )
4300     ,(
4301         'biblio.format.record_entry.print',
4302         'cbreb',
4303         oils_i18n_gettext(
4304             'biblio.format.record_entry.print',
4305             'One or more biblio record entries need to be formatted for printing.',
4306             'ath',
4307             'description'
4308         ),
4309         FALSE
4310     )
4311 ;
4312
4313 INSERT INTO action_trigger.event_definition (
4314         id,
4315         active,
4316         owner,
4317         name,
4318         hook,
4319         validator,
4320         reactor,
4321         cleanup_success,
4322         cleanup_failure,
4323         group_field,
4324         granularity,
4325         template
4326     ) VALUES (
4327         31,
4328         TRUE,
4329         1,
4330         'biblio.record_entry.email',
4331         'biblio.format.record_entry.email',
4332         'NOOP_True',
4333         'SendEmail',
4334         'DeleteTempBiblioBucket',
4335         'DeleteTempBiblioBucket',
4336         'owner',
4337         NULL,
4338 $$
4339 [%- USE date -%]
4340 [%- SET user = target.0.owner -%]
4341 To: [%- params.recipient_email || user.email %]
4342 From: [%- params.sender_email || default_sender %]
4343 Subject: Bibliographic Records
4344
4345     [% FOR cbreb IN target %]
4346     [% FOR cbrebi IN cbreb.items %]
4347         Bib ID# [% cbrebi.target_biblio_record_entry.id %] ISBN: [% crebi.target_biblio_record_entry.simple_record.isbn %]
4348         Title: [% cbrebi.target_biblio_record_entry.simple_record.title %]
4349         Author: [% cbrebi.target_biblio_record_entry.simple_record.author %]
4350         Publication Year: [% cbrebi.target_biblio_record_entry.simple_record.pubdate %]
4351
4352     [% END %]
4353     [% END %]
4354 $$
4355     )
4356     ,(
4357         32,
4358         TRUE,
4359         1,
4360         'biblio.record_entry.print',
4361         'biblio.format.record_entry.print',
4362         'NOOP_True',
4363         'ProcessTemplate',
4364         'DeleteTempBiblioBucket',
4365         'DeleteTempBiblioBucket',
4366         'owner',
4367         'print-on-demand',
4368 $$
4369 [%- USE date -%]
4370 <div>
4371     <style> li { padding: 8px; margin 5px; }</style>
4372     <ol>
4373     [% FOR cbreb IN target %]
4374     [% FOR cbrebi IN cbreb.items %]
4375         <li>Bib ID# [% cbrebi.target_biblio_record_entry.id %] ISBN: [% crebi.target_biblio_record_entry.simple_record.isbn %]<br />
4376             Title: [% cbrebi.target_biblio_record_entry.simple_record.title %]<br />
4377             Author: [% cbrebi.target_biblio_record_entry.simple_record.author %]<br />
4378             Publication Year: [% cbrebi.target_biblio_record_entry.simple_record.pubdate %]
4379         </li>
4380     [% END %]
4381     [% END %]
4382     </ol>
4383 </div>
4384 $$
4385     )
4386 ;
4387
4388 INSERT INTO action_trigger.environment (
4389         event_def,
4390         path
4391     ) VALUES -- for fleshing cbreb objects
4392          ( 31, 'owner' )
4393         ,( 31, 'items' )
4394         ,( 31, 'items.target_biblio_record_entry' )
4395         ,( 31, 'items.target_biblio_record_entry.simple_record' )
4396         ,( 31, 'items.target_biblio_record_entry.call_numbers' )
4397         ,( 31, 'items.target_biblio_record_entry.fixed_fields' )
4398         ,( 31, 'items.target_biblio_record_entry.notes' )
4399         ,( 31, 'items.target_biblio_record_entry.full_record_entries' )
4400         ,( 32, 'owner' )
4401         ,( 32, 'items' )
4402         ,( 32, 'items.target_biblio_record_entry' )
4403         ,( 32, 'items.target_biblio_record_entry.simple_record' )
4404         ,( 32, 'items.target_biblio_record_entry.call_numbers' )
4405         ,( 32, 'items.target_biblio_record_entry.fixed_fields' )
4406         ,( 32, 'items.target_biblio_record_entry.notes' )
4407         ,( 32, 'items.target_biblio_record_entry.full_record_entries' )
4408 ;
4409
4410 INSERT INTO action_trigger.environment (
4411         event_def,
4412         path
4413     ) VALUES -- for fleshing mp objects
4414          ( 29, 'credit_card_payment')
4415         ,( 29, 'xact.billings')
4416         ,( 29, 'xact.billings.btype')
4417         ,( 30, 'credit_card_payment')
4418         ,( 30, 'xact.billings')
4419         ,( 30, 'xact.billings.btype')
4420 ;
4421
4422 INSERT INTO action_trigger.hook (key,core_type,description,passive) VALUES
4423     (   'circ.format.missing_pieces.slip.print',
4424         'circ',
4425         oils_i18n_gettext(
4426             'circ.format.missing_pieces.slip.print',
4427             'A missing pieces slip needs to be formatted for printing.',
4428             'ath',
4429             'description'
4430         ),
4431         FALSE
4432     )
4433     ,(  'circ.format.missing_pieces.letter.print',
4434         'circ',
4435         oils_i18n_gettext(
4436             'circ.format.missing_pieces.letter.print',
4437             'A missing pieces patron letter needs to be formatted for printing.',
4438             'ath',
4439             'description'
4440         ),
4441         FALSE
4442     )
4443 ;
4444
4445 INSERT INTO action_trigger.event_definition (
4446         id,
4447         active,
4448         owner,
4449         name,
4450         hook,
4451         validator,
4452         reactor,
4453         group_field,
4454         granularity,
4455         template
4456     ) VALUES (
4457         33,
4458         TRUE,
4459         1,
4460         'circ.missing_pieces.slip.print',
4461         'circ.format.missing_pieces.slip.print',
4462         'NOOP_True',
4463         'ProcessTemplate',
4464         'usr',
4465         'print-on-demand',
4466 $$
4467 [%- USE date -%]
4468 [%- SET user = target.0.usr -%]
4469 <div style="li { padding: 8px; margin 5px; }">
4470     <div>[% date.format %]</div><br/>
4471     Missing pieces for:
4472     <ol>
4473     [% FOR circ IN target %]
4474         <li>Barcode: [% circ.target_copy.barcode %] Transaction ID: [% circ.id %] Due: [% circ.due_date.format %]<br />
4475             [% helpers.get_copy_bib_basics(circ.target_copy.id).title %]
4476         </li>
4477     [% END %]
4478     </ol>
4479 </div>
4480 $$
4481     )
4482     ,(
4483         34,
4484         TRUE,
4485         1,
4486         'circ.missing_pieces.letter.print',
4487         'circ.format.missing_pieces.letter.print',
4488         'NOOP_True',
4489         'ProcessTemplate',
4490         'usr',
4491         'print-on-demand',
4492 $$
4493 [%- USE date -%]
4494 [%- SET user = target.0.usr -%]
4495 [% date.format %]
4496 Dear [% user.prefix %] [% user.first_given_name %] [% user.family_name %],
4497
4498 We are missing pieces for the following returned items:
4499 [% FOR circ IN target %]
4500 Barcode: [% circ.target_copy.barcode %] Transaction ID: [% circ.id %] Due: [% circ.due_date.format %]
4501 [% helpers.get_copy_bib_basics(circ.target_copy.id).title %]
4502 [% END %]
4503
4504 Please return these pieces as soon as possible.
4505
4506 Thanks!
4507
4508 Library Staff
4509 $$
4510     )
4511 ;
4512
4513 INSERT INTO action_trigger.environment (
4514         event_def,
4515         path
4516     ) VALUES -- for fleshing circ objects
4517          ( 33, 'usr')
4518         ,( 33, 'target_copy')
4519         ,( 33, 'target_copy.circ_lib')
4520         ,( 33, 'target_copy.circ_lib.mailing_address')
4521         ,( 33, 'target_copy.circ_lib.billing_address')
4522         ,( 33, 'target_copy.call_number')
4523         ,( 33, 'target_copy.call_number.owning_lib')
4524         ,( 33, 'target_copy.call_number.owning_lib.mailing_address')
4525         ,( 33, 'target_copy.call_number.owning_lib.billing_address')
4526         ,( 33, 'circ_lib')
4527         ,( 33, 'circ_lib.mailing_address')
4528         ,( 33, 'circ_lib.billing_address')
4529         ,( 34, 'usr')
4530         ,( 34, 'target_copy')
4531         ,( 34, 'target_copy.circ_lib')
4532         ,( 34, 'target_copy.circ_lib.mailing_address')
4533         ,( 34, 'target_copy.circ_lib.billing_address')
4534         ,( 34, 'target_copy.call_number')
4535         ,( 34, 'target_copy.call_number.owning_lib')
4536         ,( 34, 'target_copy.call_number.owning_lib.mailing_address')
4537         ,( 34, 'target_copy.call_number.owning_lib.billing_address')
4538         ,( 34, 'circ_lib')
4539         ,( 34, 'circ_lib.mailing_address')
4540         ,( 34, 'circ_lib.billing_address')
4541 ;
4542
4543 INSERT INTO action_trigger.hook (key,core_type,description,passive)
4544     VALUES (
4545         'ahr.format.pull_list',
4546         'ahr',
4547         oils_i18n_gettext(
4548             'ahr.format.pull_list',
4549             'Format holds pull list for printing',
4550             'ath',
4551             'description'
4552         ),
4553         FALSE
4554     );
4555
4556 INSERT INTO action_trigger.event_definition (
4557         id,
4558         active,
4559         owner,
4560         name,
4561         hook,
4562         validator,
4563         reactor,
4564         group_field,
4565         granularity,
4566         template
4567     ) VALUES (
4568         35,
4569         TRUE,
4570         1,
4571         'Holds Pull List',
4572         'ahr.format.pull_list',
4573         'NOOP_True',
4574         'ProcessTemplate',
4575         'pickup_lib',
4576         'print-on-demand',
4577 $$
4578 [%- USE date -%]
4579 <style>
4580     table { border-collapse: collapse; }
4581     td { padding: 5px; border-bottom: 1px solid #888; }
4582     th { font-weight: bold; }
4583 </style>
4584 [%
4585     # Sort the holds into copy-location buckets
4586     # In the main print loop, sort each bucket by callnumber before printing
4587     SET holds_list = [];
4588     SET loc_data = [];
4589     SET current_location = target.0.current_copy.location.id;
4590     FOR hold IN target;
4591         IF current_location != hold.current_copy.location.id;
4592             SET current_location = hold.current_copy.location.id;
4593             holds_list.push(loc_data);
4594             SET loc_data = [];
4595         END;
4596         SET hold_data = {
4597             'hold' => hold,
4598             'callnumber' => hold.current_copy.call_number.label
4599         };
4600         loc_data.push(hold_data);
4601     END;
4602     holds_list.push(loc_data)
4603 %]
4604 <table>
4605     <thead>
4606         <tr>
4607             <th>Title</th>
4608             <th>Author</th>
4609             <th>Shelving Location</th>
4610             <th>Call Number</th>
4611             <th>Barcode</th>
4612             <th>Patron</th>
4613         </tr>
4614     </thead>
4615     <tbody>
4616     [% FOR loc_data IN holds_list  %]
4617         [% FOR hold_data IN loc_data.sort('callnumber') %]
4618             [%
4619                 SET hold = hold_data.hold;
4620                 SET copy_data = helpers.get_copy_bib_basics(hold.current_copy.id);
4621             %]
4622             <tr>
4623                 <td>[% copy_data.title | truncate %]</td>
4624                 <td>[% copy_data.author | truncate %]</td>
4625                 <td>[% hold.current_copy.location.name %]</td>
4626                 <td>[% hold.current_copy.call_number.label %]</td>
4627                 <td>[% hold.current_copy.barcode %]</td>
4628                 <td>[% hold.usr.card.barcode %]</td>
4629             </tr>
4630         [% END %]
4631     [% END %]
4632     <tbody>
4633 </table>
4634 $$
4635 );
4636
4637 INSERT INTO action_trigger.environment (
4638         event_def,
4639         path
4640     ) VALUES
4641         (35, 'current_copy.location'),
4642         (35, 'current_copy.call_number'),
4643         (35, 'usr.card'),
4644         (35, 'pickup_lib')
4645 ;
4646
4647 INSERT INTO action_trigger.validator (module, description) VALUES (
4648     'HoldIsCancelled',
4649     oils_i18n_gettext(
4650         'HoldIsCancelled',
4651         'Check whether a hold request is cancelled.',
4652         'atval',
4653         'description'
4654     )
4655 );
4656
4657 -- Create the query schema, and the tables and views therein
4658
4659 DROP SCHEMA IF EXISTS sql CASCADE;
4660 DROP SCHEMA IF EXISTS query CASCADE;
4661
4662 CREATE SCHEMA query;
4663
4664 CREATE TABLE query.datatype (
4665         id              SERIAL            PRIMARY KEY,
4666         datatype_name   TEXT              NOT NULL UNIQUE,
4667         is_numeric      BOOL              NOT NULL DEFAULT FALSE,
4668         is_composite    BOOL              NOT NULL DEFAULT FALSE,
4669         CONSTRAINT qdt_comp_not_num CHECK
4670         ( is_numeric IS FALSE OR is_composite IS FALSE )
4671 );
4672
4673 -- Define the most common datatypes in query.datatype.  Note that none of
4674 -- these stock datatypes specifies a width or precision.
4675
4676 -- Also: set the sequence for query.datatype to 1000, leaving plenty of
4677 -- room for more stock datatypes if we ever want to add them.
4678
4679 SELECT setval( 'query.datatype_id_seq', 1000 );
4680
4681 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4682   VALUES (1, 'SMALLINT', true);
4683
4684 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4685   VALUES (2, 'INTEGER', true);
4686
4687 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4688   VALUES (3, 'BIGINT', true);
4689
4690 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4691   VALUES (4, 'DECIMAL', true);
4692
4693 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4694   VALUES (5, 'NUMERIC', true);
4695
4696 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4697   VALUES (6, 'REAL', true);
4698
4699 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4700   VALUES (7, 'DOUBLE PRECISION', true);
4701
4702 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4703   VALUES (8, 'SERIAL', true);
4704
4705 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4706   VALUES (9, 'BIGSERIAL', true);
4707
4708 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4709   VALUES (10, 'MONEY', false);
4710
4711 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4712   VALUES (11, 'VARCHAR', false);
4713
4714 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4715   VALUES (12, 'CHAR', false);
4716
4717 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4718   VALUES (13, 'TEXT', false);
4719
4720 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4721   VALUES (14, '"char"', false);
4722
4723 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4724   VALUES (15, 'NAME', false);
4725
4726 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4727   VALUES (16, 'BYTEA', false);
4728
4729 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4730   VALUES (17, 'TIMESTAMP WITHOUT TIME ZONE', false);
4731
4732 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4733   VALUES (18, 'TIMESTAMP WITH TIME ZONE', false);
4734
4735 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4736   VALUES (19, 'DATE', false);
4737
4738 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4739   VALUES (20, 'TIME WITHOUT TIME ZONE', false);
4740
4741 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4742   VALUES (21, 'TIME WITH TIME ZONE', false);
4743
4744 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4745   VALUES (22, 'INTERVAL', false);
4746
4747 INSERT INTO query.datatype (id, datatype_name, is_numeric )
4748   VALUES (23, 'BOOLEAN', false);
4749
4750 CREATE TABLE query.subfield (
4751         id              SERIAL            PRIMARY KEY,
4752         composite_type  INT               NOT NULL
4753                                           REFERENCES query.datatype(id)
4754                                           ON DELETE CASCADE
4755                                           DEFERRABLE INITIALLY DEFERRED,
4756         seq_no          INT               NOT NULL
4757                                           CONSTRAINT qsf_pos_seq_no
4758                                           CHECK( seq_no > 0 ),
4759         subfield_type   INT               NOT NULL
4760                                           REFERENCES query.datatype(id)
4761                                           DEFERRABLE INITIALLY DEFERRED,
4762         CONSTRAINT qsf_datatype_seq_no UNIQUE (composite_type, seq_no)
4763 );
4764
4765 CREATE TABLE query.function_sig (
4766         id              SERIAL            PRIMARY KEY,
4767         function_name   TEXT              NOT NULL,
4768         return_type     INT               REFERENCES query.datatype(id)
4769                                           DEFERRABLE INITIALLY DEFERRED,
4770         is_aggregate    BOOL              NOT NULL DEFAULT FALSE,
4771         CONSTRAINT qfd_rtn_or_aggr CHECK
4772         ( return_type IS NULL OR is_aggregate = FALSE )
4773 );
4774
4775 CREATE INDEX query_function_sig_name_idx
4776         ON query.function_sig (function_name);
4777
4778 CREATE TABLE query.function_param_def (
4779         id              SERIAL            PRIMARY KEY,
4780         function_id     INT               NOT NULL
4781                                           REFERENCES query.function_sig( id )
4782                                           ON DELETE CASCADE
4783                                           DEFERRABLE INITIALLY DEFERRED,
4784         seq_no          INT               NOT NULL
4785                                           CONSTRAINT qfpd_pos_seq_no CHECK
4786                                           ( seq_no > 0 ),
4787         datatype        INT               NOT NULL
4788                                           REFERENCES query.datatype( id )
4789                                           DEFERRABLE INITIALLY DEFERRED,
4790         CONSTRAINT qfpd_function_param_seq UNIQUE (function_id, seq_no)
4791 );
4792
4793 CREATE TABLE  query.stored_query (
4794         id            SERIAL         PRIMARY KEY,
4795         type          TEXT           NOT NULL CONSTRAINT query_type CHECK
4796                                      ( type IN ( 'SELECT', 'UNION', 'INTERSECT', 'EXCEPT' ) ),
4797         use_all       BOOLEAN        NOT NULL DEFAULT FALSE,
4798         use_distinct  BOOLEAN        NOT NULL DEFAULT FALSE,
4799         from_clause   INT            , --REFERENCES query.from_clause
4800                                      --DEFERRABLE INITIALLY DEFERRED,
4801         where_clause  INT            , --REFERENCES query.expression
4802                                      --DEFERRABLE INITIALLY DEFERRED,
4803         having_clause INT            , --REFERENCES query.expression
4804                                      --DEFERRABLE INITIALLY DEFERRED
4805         limit_count   INT            , --REFERENCES query.expression( id )
4806                                      --DEFERRABLE INITIALLY DEFERRED,
4807         offset_count  INT            --REFERENCES query.expression( id )
4808                                      --DEFERRABLE INITIALLY DEFERRED
4809 );
4810
4811 -- (Foreign keys to be defined later after other tables are created)
4812
4813 CREATE TABLE query.query_sequence (
4814         id              SERIAL            PRIMARY KEY,
4815         parent_query    INT               NOT NULL
4816                                           REFERENCES query.stored_query
4817                                                                           ON DELETE CASCADE
4818                                                                           DEFERRABLE INITIALLY DEFERRED,
4819         seq_no          INT               NOT NULL,
4820         child_query     INT               NOT NULL
4821                                           REFERENCES query.stored_query
4822                                                                           ON DELETE CASCADE
4823                                                                           DEFERRABLE INITIALLY DEFERRED,
4824         CONSTRAINT query_query_seq UNIQUE( parent_query, seq_no )
4825 );
4826
4827 CREATE TABLE query.bind_variable (
4828         name          TEXT             PRIMARY KEY,
4829         type          TEXT             NOT NULL
4830                                            CONSTRAINT bind_variable_type CHECK
4831                                            ( type in ( 'string', 'number', 'string_list', 'number_list' )),
4832         description   TEXT             NOT NULL,
4833         default_value TEXT,            -- to be encoded in JSON
4834         label         TEXT             NOT NULL
4835 );
4836
4837 CREATE TABLE query.expression (
4838         id            SERIAL        PRIMARY KEY,
4839         type          TEXT          NOT NULL CONSTRAINT expression_type CHECK
4840                                     ( type IN (
4841                                     'xbet',    -- between
4842                                     'xbind',   -- bind variable
4843                                     'xbool',   -- boolean
4844                                     'xcase',   -- case
4845                                     'xcast',   -- cast
4846                                     'xcol',    -- column
4847                                     'xex',     -- exists
4848                                     'xfunc',   -- function
4849                                     'xin',     -- in
4850                                     'xisnull', -- is null
4851                                     'xnull',   -- null
4852                                     'xnum',    -- number
4853                                     'xop',     -- operator
4854                                     'xser',    -- series
4855                                     'xstr',    -- string
4856                                     'xsubq'    -- subquery
4857                                                                 ) ),
4858         parenthesize  BOOL          NOT NULL DEFAULT FALSE,
4859         parent_expr   INT           REFERENCES query.expression
4860                                     ON DELETE CASCADE
4861                                     DEFERRABLE INITIALLY DEFERRED,
4862         seq_no        INT           NOT NULL DEFAULT 1,
4863         literal       TEXT,
4864         table_alias   TEXT,
4865         column_name   TEXT,
4866         left_operand  INT           REFERENCES query.expression
4867                                     DEFERRABLE INITIALLY DEFERRED,
4868         operator      TEXT,
4869         right_operand INT           REFERENCES query.expression
4870                                     DEFERRABLE INITIALLY DEFERRED,
4871         function_id   INT           REFERENCES query.function_sig
4872                                     DEFERRABLE INITIALLY DEFERRED,
4873         subquery      INT           REFERENCES query.stored_query
4874                                     DEFERRABLE INITIALLY DEFERRED,
4875         cast_type     INT           REFERENCES query.datatype
4876                                     DEFERRABLE INITIALLY DEFERRED,
4877         negate        BOOL          NOT NULL DEFAULT FALSE,
4878         bind_variable TEXT          REFERENCES query.bind_variable
4879                                         DEFERRABLE INITIALLY DEFERRED
4880 );
4881
4882 CREATE UNIQUE INDEX query_expr_parent_seq
4883         ON query.expression( parent_expr, seq_no )
4884         WHERE parent_expr IS NOT NULL;
4885
4886 -- Due to some circular references, the following foreign key definitions
4887 -- had to be deferred until query.expression existed:
4888
4889 ALTER TABLE query.stored_query
4890         ADD FOREIGN KEY ( where_clause )
4891         REFERENCES query.expression( id )
4892         DEFERRABLE INITIALLY DEFERRED;
4893
4894 ALTER TABLE query.stored_query
4895         ADD FOREIGN KEY ( having_clause )
4896         REFERENCES query.expression( id )
4897         DEFERRABLE INITIALLY DEFERRED;
4898
4899 ALTER TABLE query.stored_query
4900     ADD FOREIGN KEY ( limit_count )
4901     REFERENCES query.expression( id )
4902     DEFERRABLE INITIALLY DEFERRED;
4903
4904 ALTER TABLE query.stored_query
4905     ADD FOREIGN KEY ( offset_count )
4906     REFERENCES query.expression( id )
4907     DEFERRABLE INITIALLY DEFERRED;
4908
4909 CREATE TABLE query.case_branch (
4910         id            SERIAL        PRIMARY KEY,
4911         parent_expr   INT           NOT NULL REFERENCES query.expression
4912                                     ON DELETE CASCADE
4913                                     DEFERRABLE INITIALLY DEFERRED,
4914         seq_no        INT           NOT NULL,
4915         condition     INT           REFERENCES query.expression
4916                                     DEFERRABLE INITIALLY DEFERRED,
4917         result        INT           NOT NULL REFERENCES query.expression
4918                                     DEFERRABLE INITIALLY DEFERRED,
4919         CONSTRAINT case_branch_parent_seq UNIQUE (parent_expr, seq_no)
4920 );
4921
4922 CREATE TABLE query.from_relation (
4923         id               SERIAL        PRIMARY KEY,
4924         type             TEXT          NOT NULL CONSTRAINT relation_type CHECK (
4925                                            type IN ( 'RELATION', 'SUBQUERY', 'FUNCTION' ) ),
4926         table_name       TEXT,
4927         class_name       TEXT,
4928         subquery         INT           REFERENCES query.stored_query,
4929         function_call    INT           REFERENCES query.expression,
4930         table_alias      TEXT,
4931         parent_relation  INT           REFERENCES query.from_relation
4932                                        ON DELETE CASCADE
4933                                        DEFERRABLE INITIALLY DEFERRED,
4934         seq_no           INT           NOT NULL DEFAULT 1,
4935         join_type        TEXT          CONSTRAINT good_join_type CHECK (
4936                                            join_type IS NULL OR join_type IN
4937                                            ( 'INNER', 'LEFT', 'RIGHT', 'FULL' )
4938                                        ),
4939         on_clause        INT           REFERENCES query.expression
4940                                        DEFERRABLE INITIALLY DEFERRED,
4941         CONSTRAINT join_or_core CHECK (
4942         ( parent_relation IS NULL AND join_type IS NULL
4943           AND on_clause IS NULL )
4944         OR
4945         ( parent_relation IS NOT NULL AND join_type IS NOT NULL
4946           AND on_clause IS NOT NULL )
4947         )
4948 );
4949
4950 CREATE UNIQUE INDEX from_parent_seq
4951         ON query.from_relation( parent_relation, seq_no )
4952         WHERE parent_relation IS NOT NULL;
4953
4954 -- The following foreign key had to be deferred until
4955 -- query.from_relation existed
4956
4957 ALTER TABLE query.stored_query
4958         ADD FOREIGN KEY (from_clause)
4959         REFERENCES query.from_relation
4960         DEFERRABLE INITIALLY DEFERRED;
4961
4962 CREATE TABLE query.record_column (
4963         id            SERIAL            PRIMARY KEY,
4964         from_relation INT               NOT NULL REFERENCES query.from_relation
4965                                         ON DELETE CASCADE
4966                                         DEFERRABLE INITIALLY DEFERRED,
4967         seq_no        INT               NOT NULL,
4968         column_name   TEXT              NOT NULL,
4969         column_type   INT               NOT NULL REFERENCES query.datatype
4970                                         ON DELETE CASCADE
4971                                                                         DEFERRABLE INITIALLY DEFERRED,
4972         CONSTRAINT column_sequence UNIQUE (from_relation, seq_no)
4973 );
4974
4975 CREATE TABLE query.select_item (
4976         id               SERIAL         PRIMARY KEY,
4977         stored_query     INT            NOT NULL REFERENCES query.stored_query
4978                                         ON DELETE CASCADE
4979                                         DEFERRABLE INITIALLY DEFERRED,
4980         seq_no           INT            NOT NULL,
4981         expression       INT            NOT NULL REFERENCES query.expression
4982                                         DEFERRABLE INITIALLY DEFERRED,
4983         column_alias     TEXT,
4984         grouped_by       BOOL           NOT NULL DEFAULT FALSE,
4985         CONSTRAINT select_sequence UNIQUE( stored_query, seq_no )
4986 );
4987
4988 CREATE TABLE query.order_by_item (
4989         id               SERIAL         PRIMARY KEY,
4990         stored_query     INT            NOT NULL REFERENCES query.stored_query
4991                                         ON DELETE CASCADE
4992                                         DEFERRABLE INITIALLY DEFERRED,
4993         seq_no           INT            NOT NULL,
4994         expression       INT            NOT NULL REFERENCES query.expression
4995                                         ON DELETE CASCADE
4996                                         DEFERRABLE INITIALLY DEFERRED,
4997         CONSTRAINT order_by_sequence UNIQUE( stored_query, seq_no )
4998 );
4999
5000 ------------------------------------------------------------
5001 -- Create updatable views for different kinds of expressions
5002 ------------------------------------------------------------
5003
5004 -- Create updatable view for BETWEEN expressions
5005
5006 CREATE OR REPLACE VIEW query.expr_xbet AS
5007     SELECT
5008                 id,
5009                 parenthesize,
5010                 parent_expr,
5011                 seq_no,
5012                 left_operand,
5013                 negate
5014     FROM
5015         query.expression
5016     WHERE
5017         type = 'xbet';
5018
5019 CREATE OR REPLACE RULE query_expr_xbet_insert_rule AS
5020     ON INSERT TO query.expr_xbet
5021     DO INSTEAD
5022     INSERT INTO query.expression (
5023                 id,
5024                 type,
5025                 parenthesize,
5026                 parent_expr,
5027                 seq_no,
5028                 left_operand,
5029                 negate
5030     ) VALUES (
5031         COALESCE(NEW.id, NEXTVAL('query.expression_id_seq'::REGCLASS)),
5032         'xbet',
5033         COALESCE(NEW.parenthesize, FALSE),
5034         NEW.parent_expr,
5035         COALESCE(NEW.seq_no, 1),
5036                 NEW.left_operand,
5037                 COALESCE(NEW.negate, false)
5038     );
5039
5040 CREATE OR REPLACE RULE query_expr_xbet_update_rule AS
5041     ON UPDATE TO query.expr_xbet
5042     DO INSTEAD
5043     UPDATE query.expression SET
5044         id = NEW.id,
5045         parenthesize = NEW.parenthesize,
5046         parent_expr = NEW.parent_expr,
5047         seq_no = NEW.seq_no,
5048                 left_operand = NEW.left_operand,
5049                 negate = NEW.negate
5050     WHERE
5051         id = OLD.id;
5052
5053 CREATE OR REPLACE RULE query_expr_xbet_delete_rule AS
5054     ON DELETE TO query.expr_xbet
5055     DO INSTEAD
5056     DELETE FROM query.expression WHERE id = OLD.id;
5057
5058 -- Create updatable view for bind variable expressions
5059
5060 CREATE OR REPLACE VIEW query.expr_xbind AS
5061     SELECT
5062                 id,
5063                 parenthesize,
5064                 parent_expr,
5065                 seq_no,
5066                 bind_variable
5067     FROM
5068         query.expression
5069     WHERE
5070         type = 'xbind';
5071
5072 CREATE OR REPLACE RULE query_expr_xbind_insert_rule AS
5073     ON INSERT TO query.expr_xbind
5074     DO INSTEAD
5075     INSERT INTO query.expression (
5076                 id,
5077                 type,
5078                 parenthesize,
5079                 parent_expr,
5080                 seq_no,
5081                 bind_variable
5082     ) VALUES (
5083         COALESCE(NEW.id, NEXTVAL('query.expression_id_seq'::REGCLASS)),
5084         'xbind',
5085         COALESCE(NEW.parenthesize, FALSE),
5086         NEW.parent_expr,
5087         COALESCE(NEW.seq_no, 1),
5088                 NEW.bind_variable
5089     );
5090
5091 CREATE OR REPLACE RULE query_expr_xbind_update_rule AS
5092     ON UPDATE TO query.expr_xbind
5093     DO INSTEAD
5094     UPDATE query.expression SET
5095         id = NEW.id,
5096         parenthesize = NEW.parenthesize,
5097         parent_expr = NEW.parent_expr,
5098         seq_no = NEW.seq_no,
5099                 bind_variable = NEW.bind_variable
5100     WHERE
5101         id = OLD.id;
5102
5103 CREATE OR REPLACE RULE query_expr_xbind_delete_rule AS
5104     ON DELETE TO query.expr_xbind
5105     DO INSTEAD
5106     DELETE FROM query.expression WHERE id = OLD.id;
5107
5108 -- Create updatable view for boolean expressions
5109
5110 CREATE OR REPLACE VIEW query.expr_xbool AS
5111     SELECT
5112                 id,
5113                 parenthesize,
5114                 parent_expr,
5115                 seq_no,
5116                 literal,
5117                 negate
5118     FROM
5119         query.expression
5120     WHERE
5121         type = 'xbool';
5122
5123 CREATE OR REPLACE RULE query_expr_xbool_insert_rule AS
5124     ON INSERT TO query.expr_xbool
5125     DO INSTEAD
5126     INSERT INTO query.expression (
5127                 id,
5128                 type,
5129                 parenthesize,
5130                 parent_expr,
5131                 seq_no,
5132                 literal,
5133                 negate
5134     ) VALUES (
5135         COALESCE(NEW.id, NEXTVAL('query.expression_id_seq'::REGCLASS)),
5136         'xbool',
5137         COALESCE(NEW.parenthesize, FALSE),
5138         NEW.parent_expr,
5139         COALESCE(NEW.seq_no, 1),
5140         NEW.literal,
5141                 COALESCE(NEW.negate, false)
5142     );
5143
5144 CREATE OR REPLACE RULE query_expr_xbool_update_rule AS
5145     ON UPDATE TO query.expr_xbool
5146     DO INSTEAD
5147     UPDATE query.expression SET
5148         id = NEW.id,
5149         parenthesize = NEW.parenthesize,
5150         parent_expr = NEW.parent_expr,
5151         seq_no = NEW.seq_no,
5152         literal = NEW.literal,
5153                 negate = NEW.negate
5154     WHERE
5155         id = OLD.id;
5156
5157 CREATE OR REPLACE RULE query_expr_xbool_delete_rule AS
5158     ON DELETE TO query.expr_xbool
5159     DO INSTEAD
5160     DELETE FROM query.expression WHERE id = OLD.id;
5161
5162 -- Create updatable view for CASE expressions
5163
5164 CREATE OR REPLACE VIEW query.expr_xcase AS
5165     SELECT
5166                 id,
5167                 parenthesize,
5168                 parent_expr,
5169                 seq_no,
5170                 left_operand,
5171                 negate
5172     FROM
5173         query.expression
5174     WHERE
5175         type = 'xcase';
5176
5177 CREATE OR REPLACE RULE query_expr_xcase_insert_rule AS
5178     ON INSERT TO query.expr_xcase
5179     DO INSTEAD
5180     INSERT INTO query.expression (
5181                 id,
5182                 type,
5183                 parenthesize,
5184                 parent_expr,
5185                 seq_no,
5186                 left_operand,
5187                 negate
5188     ) VALUES (
5189         COALESCE(NEW.id, NEXTVAL('query.expression_id_seq'::REGCLASS)),
5190         'xcase',
5191         COALESCE(NEW.parenthesize, FALSE),
5192         NEW.parent_expr,
5193         COALESCE(NEW.seq_no, 1),
5194                 NEW.left_operand,
5195                 COALESCE(NEW.negate, false)
5196     );
5197
5198 CREATE OR REPLACE RULE query_expr_xcase_update_rule AS
5199     ON UPDATE TO query.expr_xcase
5200     DO INSTEAD
5201     UPDATE query.expression SET
5202         id = NEW.id,
5203         parenthesize = NEW.parenthesize,
5204         parent_expr = NEW.parent_expr,
5205         seq_no = NEW.seq_no,
5206                 left_operand = NEW.left_operand,
5207                 negate = NEW.negate
5208     WHERE
5209         id = OLD.id;
5210
5211 CREATE OR REPLACE RULE query_expr_xcase_delete_rule AS
5212     ON DELETE TO query.expr_xcase
5213     DO INSTEAD
5214     DELETE FROM query.expression WHERE id = OLD.id;
5215
5216 -- Create updatable view for cast expressions
5217
5218 CREATE OR REPLACE VIEW query.expr_xcast AS
5219     SELECT
5220                 id,
5221                 parenthesize,
5222                 parent_expr,
5223                 seq_no,
5224                 left_operand,
5225                 cast_type,
5226                 negate
5227     FROM
5228         query.expression
5229     WHERE
5230         type = 'xcast';
5231
5232 CREATE OR REPLACE RULE query_expr_xcast_insert_rule AS
5233     ON INSERT TO query.expr_xcast
5234     DO INSTEAD
5235     INSERT INTO query.expression (
5236         id,
5237         type,
5238         parenthesize,
5239         parent_expr,
5240         seq_no,
5241         left_operand,
5242         cast_type,
5243         negate
5244     ) VALUES (
5245         COALESCE(NEW.id, NEXTVAL('query.expression_id_seq'::REGCLASS)),
5246         'xcast',
5247         COALESCE(NEW.parenthesize, FALSE),
5248         NEW.parent_expr,
5249         COALESCE(NEW.seq_no, 1),
5250         NEW.left_operand,
5251         NEW.cast_type,
5252         COALESCE(NEW.negate, false)
5253     );
5254
5255 CREATE OR REPLACE RULE query_expr_xcast_update_rule AS
5256     ON UPDATE TO query.expr_xcast
5257     DO INSTEAD
5258     UPDATE query.expression SET
5259         id = NEW.id,
5260         parenthesize = NEW.parenthesize,
5261         parent_expr = NEW.parent_expr,
5262         seq_no = NEW.seq_no,
5263                 left_operand = NEW.left_operand,
5264                 cast_type = NEW.cast_type,
5265                 negate = NEW.negate
5266     WHERE
5267         id = OLD.id;
5268
5269 CREATE OR REPLACE RULE query_expr_xcast_delete_rule AS
5270     ON DELETE TO query.expr_xcast
5271     DO INSTEAD
5272     DELETE FROM query.expression WHERE id = OLD.id;
5273
5274 -- Create updatable view for column expressions
5275
5276 CREATE OR REPLACE VIEW query.expr_xcol AS
5277     SELECT
5278                 id,
5279                 parenthesize,
5280                 parent_expr,
5281                 seq_no,
5282                 table_alias,
5283                 column_name,
5284                 negate
5285     FROM
5286         query.expression
5287     WHERE
5288         type = 'xcol';
5289
5290 CREATE OR REPLACE RULE query_expr_xcol_insert_rule AS
5291     ON INSERT TO query.expr_xcol
5292     DO INSTEAD
5293     INSERT INTO query.expression (
5294                 id,
5295                 type,
5296                 parenthesize,
5297                 parent_expr,
5298                 seq_no,
5299                 table_alias,
5300                 column_name,
5301                 negate
5302     ) VALUES (
5303         COALESCE(NEW.id, NEXTVAL('query.expression_id_seq'::REGCLASS)),
5304         'xcol',
5305         COALESCE(NEW.parenthesize, FALSE),
5306         NEW.parent_expr,
5307         COALESCE(NEW.seq_no, 1),
5308                 NEW.table_alias,
5309                 NEW.column_name,
5310                 COALESCE(NEW.negate, false)
5311     );
5312
5313 CREATE OR REPLACE RULE query_expr_xcol_update_rule AS
5314     ON UPDATE TO query.expr_xcol
5315     DO INSTEAD
5316     UPDATE query.expression SET
5317         id = NEW.id,
5318         parenthesize = NEW.parenthesize,
5319         parent_expr = NEW.parent_expr,
5320         seq_no = NEW.seq_no,
5321                 table_alias = NEW.table_alias,
5322                 column_name = NEW.column_name,
5323                 negate = NEW.negate
5324     WHERE
5325         id = OLD.id;
5326
5327 CREATE OR REPLACE RULE query_expr_xcol_delete_rule AS
5328     ON DELETE TO query.expr_xcol
5329     DO INSTEAD
5330     DELETE FROM query.expression WHERE id = OLD.id;
5331
5332 -- Create updatable view for EXISTS expressions
5333
5334 CREATE OR REPLACE VIEW query.expr_xex AS
5335     SELECT
5336                 id,
5337                 parenthesize,
5338                 parent_expr,
5339                 seq_no,
5340                 subquery,
5341                 negate
5342     FROM
5343         query.expression
5344     WHERE
5345         type = 'xex';
5346
5347 CREATE OR REPLACE RULE query_expr_xex_insert_rule AS
5348     ON INSERT TO query.expr_xex
5349     DO INSTEAD
5350     INSERT INTO query.expression (
5351                 id,
5352                 type,
5353                 parenthesize,
5354                 parent_expr,
5355                 seq_no,
5356                 subquery,
5357                 negate
5358     ) VALUES (
5359         COALESCE(NEW.id, NEXTVAL('query.expression_id_seq'::REGCLASS)),
5360         'xex',
5361         COALESCE(NEW.parenthesize, FALSE),
5362         NEW.parent_expr,
5363         COALESCE(NEW.seq_no, 1),
5364                 NEW.subquery,
5365                 COALESCE(NEW.negate, false)
5366     );
5367
5368 CREATE OR REPLACE RULE query_expr_xex_update_rule AS
5369     ON UPDATE TO query.expr_xex
5370     DO INSTEAD
5371     UPDATE query.expression SET
5372         id = NEW.id,
5373         parenthesize = NEW.parenthesize,
5374         parent_expr = NEW.parent_expr,
5375         seq_no = NEW.seq_no,
5376                 subquery = NEW.subquery,
5377                 negate = NEW.negate
5378     WHERE
5379         id = OLD.id;
5380
5381 CREATE OR REPLACE RULE query_expr_xex_delete_rule AS
5382     ON DELETE TO query.expr_xex
5383     DO INSTEAD
5384     DELETE FROM query.expression WHERE id = OLD.id;
5385
5386 -- Create updatable view for function call expressions
5387
5388 CREATE OR REPLACE VIEW query.expr_xfunc AS
5389     SELECT
5390         id,
5391         parenthesize,
5392         parent_expr,
5393         seq_no,
5394         column_name,
5395         function_id,
5396         negate
5397     FROM
5398         query.expression
5399     WHERE
5400         type = 'xfunc';
5401
5402 CREATE OR REPLACE RULE query_expr_xfunc_insert_rule AS
5403     ON INSERT TO query.expr_xfunc
5404     DO INSTEAD
5405     INSERT INTO query.expression (
5406         id,
5407         type,
5408         parenthesize,
5409         parent_expr,
5410         seq_no,
5411         column_name,
5412         function_id,
5413         negate
5414     ) VALUES (
5415         COALESCE(NEW.id, NEXTVAL('query.expression_id_seq'::REGCLASS)),
5416         'xfunc',
5417         COALESCE(NEW.parenthesize, FALSE),
5418         NEW.parent_expr,
5419         COALESCE(NEW.seq_no, 1),
5420         NEW.column_name,
5421         NEW.function_id,
5422         COALESCE(NEW.negate, false)
5423     );
5424
5425 CREATE OR REPLACE RULE query_expr_xfunc_update_rule AS
5426     ON UPDATE TO query.expr_xfunc
5427     DO INSTEAD
5428     UPDATE query.expression SET
5429         id = NEW.id,
5430         parenthesize = NEW.parenthesize,
5431         parent_expr = NEW.parent_expr,
5432         seq_no = NEW.seq_no,
5433         column_name = NEW.column_name,
5434         function_id = NEW.function_id,
5435         negate = NEW.negate
5436     WHERE
5437         id = OLD.id;
5438
5439 CREATE OR REPLACE RULE query_expr_xfunc_delete_rule AS
5440     ON DELETE TO query.expr_xfunc
5441     DO INSTEAD
5442     DELETE FROM query.expression WHERE id = OLD.id;
5443
5444 -- Create updatable view for IN expressions
5445
5446 CREATE OR REPLACE VIEW query.expr_xin AS
5447     SELECT
5448                 id,
5449                 parenthesize,
5450                 parent_expr,
5451                 seq_no,
5452                 left_operand,
5453                 subquery,
5454                 negate
5455     FROM
5456         query.expression
5457     WHERE
5458         type = 'xin';
5459
5460 CREATE OR REPLACE RULE query_expr_xin_insert_rule AS
5461     ON INSERT TO query.expr_xin
5462     DO INSTEAD
5463     INSERT INTO query.expression (
5464                 id,
5465                 type,
5466                 parenthesize,
5467                 parent_expr,
5468                 seq_no,
5469                 left_operand,
5470                 subquery,
5471                 negate
5472     ) VALUES (
5473         COALESCE(NEW.id, NEXTVAL('query.expression_id_seq'::REGCLASS)),
5474         'xin',
5475         COALESCE(NEW.parenthesize, FALSE),
5476         NEW.parent_expr,
5477         COALESCE(NEW.seq_no, 1),
5478                 NEW.left_operand,
5479                 NEW.subquery,
5480                 COALESCE(NEW.negate, false)
5481     );
5482
5483 CREATE OR REPLACE RULE query_expr_xin_update_rule AS
5484     ON UPDATE TO query.expr_xin
5485     DO INSTEAD
5486     UPDATE query.expression SET
5487         id = NEW.id,
5488         parenthesize = NEW.parenthesize,
5489         parent_expr = NEW.parent_expr,
5490         seq_no = NEW.seq_no,
5491                 left_operand = NEW.left_operand,
5492                 subquery = NEW.subquery,
5493                 negate = NEW.negate
5494     WHERE
5495         id = OLD.id;
5496
5497 CREATE OR REPLACE RULE query_expr_xin_delete_rule AS
5498     ON DELETE TO query.expr_xin
5499     DO INSTEAD
5500     DELETE FROM query.expression WHERE id = OLD.id;
5501
5502 -- Create updatable view for IS NULL expressions
5503
5504 CREATE OR REPLACE VIEW query.expr_xisnull AS
5505     SELECT
5506                 id,
5507                 parenthesize,
5508                 parent_expr,
5509                 seq_no,
5510                 left_operand,
5511                 negate
5512     FROM
5513         query.expression
5514     WHERE
5515         type = 'xisnull';
5516
5517 CREATE OR REPLACE RULE query_expr_xisnull_insert_rule AS
5518     ON INSERT TO query.expr_xisnull
5519     DO INSTEAD
5520     INSERT INTO query.expression (
5521                 id,
5522                 type,
5523                 parenthesize,
5524                 parent_expr,
5525                 seq_no,
5526                 left_operand,
5527                 negate
5528     ) VALUES (
5529         COALESCE(NEW.id, NEXTVAL('query.expression_id_seq'::REGCLASS)),
5530         'xisnull',
5531         COALESCE(NEW.parenthesize, FALSE),
5532         NEW.parent_expr,
5533         COALESCE(NEW.seq_no, 1),
5534                 NEW.left_operand,
5535                 COALESCE(NEW.negate, false)
5536     );
5537
5538 CREATE OR REPLACE RULE query_expr_xisnull_update_rule AS
5539     ON UPDATE TO query.expr_xisnull
5540     DO INSTEAD
5541     UPDATE query.expression SET
5542         id = NEW.id,
5543         parenthesize = NEW.parenthesize,
5544         parent_expr = NEW.parent_expr,
5545         seq_no = NEW.seq_no,
5546                 left_operand = NEW.left_operand,
5547                 negate = NEW.negate
5548     WHERE
5549         id = OLD.id;
5550
5551 CREATE OR REPLACE RULE query_expr_xisnull_delete_rule AS
5552     ON DELETE TO query.expr_xisnull
5553     DO INSTEAD
5554     DELETE FROM query.expression WHERE id = OLD.id;
5555
5556 -- Create updatable view for NULL expressions
5557
5558 CREATE OR REPLACE VIEW query.expr_xnull AS
5559     SELECT
5560                 id,
5561                 parenthesize,
5562                 parent_expr,
5563                 seq_no,
5564                 negate
5565     FROM
5566         query.expression
5567     WHERE
5568         type = 'xnull';
5569
5570 CREATE OR REPLACE RULE query_expr_xnull_insert_rule AS
5571     ON INSERT TO query.expr_xnull
5572     DO INSTEAD
5573     INSERT INTO query.expression (
5574                 id,
5575                 type,
5576                 parenthesize,
5577                 parent_expr,
5578                 seq_no,
5579                 negate
5580     ) VALUES (
5581         COALESCE(NEW.id, NEXTVAL('query.expression_id_seq'::REGCLASS)),
5582         'xnull',
5583         COALESCE(NEW.parenthesize, FALSE),
5584         NEW.parent_expr,
5585         COALESCE(NEW.seq_no, 1),
5586                 COALESCE(NEW.negate, false)
5587     );
5588
5589 CREATE OR REPLACE RULE query_expr_xnull_update_rule AS
5590     ON UPDATE TO query.expr_xnull
5591     DO INSTEAD
5592     UPDATE query.expression SET
5593         id = NEW.id,
5594         parenthesize = NEW.parenthesize,
5595         parent_expr = NEW.parent_expr,
5596         seq_no = NEW.seq_no,
5597                 negate = NEW.negate
5598     WHERE
5599         id = OLD.id;
5600
5601 CREATE OR REPLACE RULE query_expr_xnull_delete_rule AS
5602     ON DELETE TO query.expr_xnull
5603     DO INSTEAD
5604     DELETE FROM query.expression WHERE id = OLD.id;
5605
5606 -- Create updatable view for numeric literal expressions
5607
5608 CREATE OR REPLACE VIEW query.expr_xnum AS
5609     SELECT
5610                 id,
5611                 parenthesize,
5612                 parent_expr,
5613                 seq_no,
5614                 literal
5615     FROM
5616         query.expression
5617     WHERE
5618         type = 'xnum';
5619
5620 CREATE OR REPLACE RULE query_expr_xnum_insert_rule AS
5621     ON INSERT TO query.expr_xnum
5622     DO INSTEAD
5623     INSERT INTO query.expression (
5624                 id,
5625                 type,
5626                 parenthesize,
5627                 parent_expr,
5628                 seq_no,
5629                 literal
5630     ) VALUES (
5631         COALESCE(NEW.id, NEXTVAL('query.expression_id_seq'::REGCLASS)),
5632         'xnum',
5633         COALESCE(NEW.parenthesize, FALSE),
5634         NEW.parent_expr,
5635         COALESCE(NEW.seq_no, 1),
5636         NEW.literal
5637     );
5638
5639 CREATE OR REPLACE RULE query_expr_xnum_update_rule AS
5640     ON UPDATE TO query.expr_xnum
5641     DO INSTEAD
5642     UPDATE query.expression SET
5643         id = NEW.id,
5644         parenthesize = NEW.parenthesize,
5645         parent_expr = NEW.parent_expr,
5646         seq_no = NEW.seq_no,
5647         literal = NEW.literal
5648     WHERE
5649         id = OLD.id;
5650
5651 CREATE OR REPLACE RULE query_expr_xnum_delete_rule AS
5652     ON DELETE TO query.expr_xnum
5653     DO INSTEAD
5654     DELETE FROM query.expression WHERE id = OLD.id;
5655
5656 -- Create updatable view for operator expressions
5657
5658 CREATE OR REPLACE VIEW query.expr_xop AS
5659     SELECT
5660                 id,
5661                 parenthesize,
5662                 parent_expr,
5663                 seq_no,
5664                 left_operand,
5665                 operator,
5666                 right_operand,
5667                 negate
5668     FROM
5669         query.expression
5670     WHERE
5671         type = 'xop';
5672
5673 CREATE OR REPLACE RULE query_expr_xop_insert_rule AS
5674     ON INSERT TO query.expr_xop
5675     DO INSTEAD
5676     INSERT INTO query.expression (
5677                 id,
5678                 type,
5679                 parenthesize,
5680                 parent_expr,
5681                 seq_no,
5682                 left_operand,
5683                 operator,
5684                 right_operand,
5685                 negate
5686     ) VALUES (
5687         COALESCE(NEW.id, NEXTVAL('query.expression_id_seq'::REGCLASS)),
5688         'xop',
5689         COALESCE(NEW.parenthesize, FALSE),
5690         NEW.parent_expr,
5691         COALESCE(NEW.seq_no, 1),
5692                 NEW.left_operand,
5693                 NEW.operator,
5694                 NEW.right_operand,
5695                 COALESCE(NEW.negate, false)
5696     );
5697
5698 CREATE OR REPLACE RULE query_expr_xop_update_rule AS
5699     ON UPDATE TO query.expr_xop
5700     DO INSTEAD
5701     UPDATE query.expression SET
5702         id = NEW.id,
5703         parenthesize = NEW.parenthesize,
5704         parent_expr = NEW.parent_expr,
5705         seq_no = NEW.seq_no,
5706                 left_operand = NEW.left_operand,
5707                 operator = NEW.operator,
5708                 right_operand = NEW.right_operand,
5709                 negate = NEW.negate
5710     WHERE
5711         id = OLD.id;
5712
5713 CREATE OR REPLACE RULE query_expr_xop_delete_rule AS
5714     ON DELETE TO query.expr_xop
5715     DO INSTEAD
5716     DELETE FROM query.expression WHERE id = OLD.id;
5717
5718 -- Create updatable view for series expressions
5719 -- i.e. series of expressions separated by operators
5720
5721 CREATE OR REPLACE VIEW query.expr_xser AS
5722     SELECT
5723                 id,
5724                 parenthesize,
5725                 parent_expr,
5726                 seq_no,
5727                 operator,
5728                 negate
5729     FROM
5730         query.expression
5731     WHERE
5732         type = 'xser';
5733
5734 CREATE OR REPLACE RULE query_expr_xser_insert_rule AS
5735     ON INSERT TO query.expr_xser
5736     DO INSTEAD
5737     INSERT INTO query.expression (
5738                 id,
5739                 type,
5740                 parenthesize,
5741                 parent_expr,
5742                 seq_no,
5743                 operator,
5744                 negate
5745     ) VALUES (
5746         COALESCE(NEW.id, NEXTVAL('query.expression_id_seq'::REGCLASS)),
5747         'xser',
5748         COALESCE(NEW.parenthesize, FALSE),
5749         NEW.parent_expr,
5750         COALESCE(NEW.seq_no, 1),
5751                 NEW.operator,
5752                 COALESCE(NEW.negate, false)
5753     );
5754
5755 CREATE OR REPLACE RULE query_expr_xser_update_rule AS
5756     ON UPDATE TO query.expr_xser
5757     DO INSTEAD
5758     UPDATE query.expression SET
5759         id = NEW.id,
5760         parenthesize = NEW.parenthesize,
5761         parent_expr = NEW.parent_expr,
5762         seq_no = NEW.seq_no,
5763                 operator = NEW.operator,
5764                 negate = NEW.negate
5765     WHERE
5766         id = OLD.id;
5767
5768 CREATE OR REPLACE RULE query_expr_xser_delete_rule AS
5769     ON DELETE TO query.expr_xser
5770     DO INSTEAD
5771     DELETE FROM query.expression WHERE id = OLD.id;
5772
5773 -- Create updatable view for string literal expressions
5774
5775 CREATE OR REPLACE VIEW query.expr_xstr AS
5776     SELECT
5777         id,
5778         parenthesize,
5779         parent_expr,
5780         seq_no,
5781         literal
5782     FROM
5783         query.expression
5784     WHERE
5785         type = 'xstr';
5786
5787 CREATE OR REPLACE RULE query_expr_string_insert_rule AS
5788     ON INSERT TO query.expr_xstr
5789     DO INSTEAD
5790     INSERT INTO query.expression (
5791         id,
5792         type,
5793         parenthesize,
5794         parent_expr,
5795         seq_no,
5796         literal
5797     ) VALUES (
5798         COALESCE(NEW.id, NEXTVAL('query.expression_id_seq'::REGCLASS)),
5799         'xstr',
5800         COALESCE(NEW.parenthesize, FALSE),
5801         NEW.parent_expr,
5802         COALESCE(NEW.seq_no, 1),
5803         NEW.literal
5804     );
5805
5806 CREATE OR REPLACE RULE query_expr_string_update_rule AS
5807     ON UPDATE TO query.expr_xstr
5808     DO INSTEAD
5809     UPDATE query.expression SET
5810         id = NEW.id,
5811         parenthesize = NEW.parenthesize,
5812         parent_expr = NEW.parent_expr,
5813         seq_no = NEW.seq_no,
5814         literal = NEW.literal
5815     WHERE
5816         id = OLD.id;
5817
5818 CREATE OR REPLACE RULE query_expr_string_delete_rule AS
5819     ON DELETE TO query.expr_xstr
5820     DO INSTEAD
5821     DELETE FROM query.expression WHERE id = OLD.id;
5822
5823 -- Create updatable view for subquery expressions
5824
5825 CREATE OR REPLACE VIEW query.expr_xsubq AS
5826     SELECT
5827                 id,
5828                 parenthesize,
5829                 parent_expr,
5830                 seq_no,
5831                 subquery,
5832                 negate
5833     FROM
5834         query.expression
5835     WHERE
5836         type = 'xsubq';
5837
5838 CREATE OR REPLACE RULE query_expr_xsubq_insert_rule AS
5839     ON INSERT TO query.expr_xsubq
5840     DO INSTEAD
5841     INSERT INTO query.expression (
5842                 id,
5843                 type,
5844                 parenthesize,
5845                 parent_expr,
5846                 seq_no,
5847                 subquery,
5848                 negate
5849     ) VALUES (
5850         COALESCE(NEW.id, NEXTVAL('query.expression_id_seq'::REGCLASS)),
5851         'xsubq',
5852         COALESCE(NEW.parenthesize, FALSE),
5853         NEW.parent_expr,
5854         COALESCE(NEW.seq_no, 1),
5855                 NEW.subquery,
5856                 COALESCE(NEW.negate, false)
5857     );
5858
5859 CREATE OR REPLACE RULE query_expr_xsubq_update_rule AS
5860     ON UPDATE TO query.expr_xsubq
5861     DO INSTEAD
5862     UPDATE query.expression SET
5863         id = NEW.id,
5864         parenthesize = NEW.parenthesize,
5865         parent_expr = NEW.parent_expr,
5866         seq_no = NEW.seq_no,
5867                 subquery = NEW.subquery,
5868                 negate = NEW.negate
5869     WHERE
5870         id = OLD.id;
5871
5872 CREATE OR REPLACE RULE query_expr_xsubq_delete_rule AS
5873     ON DELETE TO query.expr_xsubq
5874     DO INSTEAD
5875     DELETE FROM query.expression WHERE id = OLD.id;
5876
5877 CREATE TABLE action.fieldset (
5878     id              SERIAL          PRIMARY KEY,
5879     owner           INT             NOT NULL REFERENCES actor.usr (id)
5880                                     DEFERRABLE INITIALLY DEFERRED,
5881     owning_lib      INT             NOT NULL REFERENCES actor.org_unit (id)
5882                                     DEFERRABLE INITIALLY DEFERRED,
5883     status          TEXT            NOT NULL
5884                                     CONSTRAINT valid_status CHECK ( status in
5885                                     ( 'PENDING', 'APPLIED', 'ERROR' )),
5886     creation_time   TIMESTAMPTZ     NOT NULL DEFAULT NOW(),
5887     scheduled_time  TIMESTAMPTZ,
5888     applied_time    TIMESTAMPTZ,
5889     classname       TEXT            NOT NULL, -- an IDL class name
5890     name            TEXT            NOT NULL,
5891     stored_query    INT             REFERENCES query.stored_query (id)
5892                                     DEFERRABLE INITIALLY DEFERRED,
5893     pkey_value      TEXT,
5894     CONSTRAINT lib_name_unique UNIQUE (owning_lib, name),
5895     CONSTRAINT fieldset_one_or_the_other CHECK (
5896         (stored_query IS NOT NULL AND pkey_value IS NULL) OR
5897         (pkey_value IS NOT NULL AND stored_query IS NULL)
5898     )
5899     -- the CHECK constraint means we can update the fields for a single
5900     -- row without all the extra overhead involved in a query
5901 );
5902
5903 CREATE INDEX action_fieldset_sched_time_idx ON action.fieldset( scheduled_time );
5904 CREATE INDEX action_owner_idx               ON action.fieldset( owner );
5905
5906 CREATE TABLE action.fieldset_col_val (
5907     id              SERIAL  PRIMARY KEY,
5908     fieldset        INT     NOT NULL REFERENCES action.fieldset
5909                                          ON DELETE CASCADE
5910                                          DEFERRABLE INITIALLY DEFERRED,
5911     col             TEXT    NOT NULL,  -- "field" from the idl ... the column on the table
5912     val             TEXT,              -- value for the column ... NULL means, well, NULL
5913     CONSTRAINT fieldset_col_once_per_set UNIQUE (fieldset, col)
5914 );
5915
5916 CREATE OR REPLACE FUNCTION action.apply_fieldset(
5917         fieldset_id IN INT,        -- id from action.fieldset
5918         table_name  IN TEXT,       -- table to be updated
5919         pkey_name   IN TEXT,       -- name of primary key column in that table
5920         query       IN TEXT        -- query constructed by qstore (for query-based
5921                                    --    fieldsets only; otherwise null
5922 )
5923 RETURNS TEXT AS $$
5924 DECLARE
5925         statement TEXT;
5926         fs_status TEXT;
5927         fs_pkey_value TEXT;
5928         fs_query TEXT;
5929         sep CHAR;
5930         status_code TEXT;
5931         msg TEXT;
5932         update_count INT;
5933         cv RECORD;
5934 BEGIN
5935         -- Sanity checks
5936         IF fieldset_id IS NULL THEN
5937                 RETURN 'Fieldset ID parameter is NULL';
5938         END IF;
5939         IF table_name IS NULL THEN
5940                 RETURN 'Table name parameter is NULL';
5941         END IF;
5942         IF pkey_name IS NULL THEN
5943                 RETURN 'Primary key name parameter is NULL';
5944         END IF;
5945         --
5946         statement := 'UPDATE ' || table_name || ' SET';
5947         --
5948         SELECT
5949                 status,
5950                 quote_literal( pkey_value )
5951         INTO
5952                 fs_status,
5953                 fs_pkey_value
5954         FROM
5955                 action.fieldset
5956         WHERE
5957                 id = fieldset_id;
5958         --
5959         IF fs_status IS NULL THEN
5960                 RETURN 'No fieldset found for id = ' || fieldset_id;
5961         ELSIF fs_status = 'APPLIED' THEN
5962                 RETURN 'Fieldset ' || fieldset_id || ' has already been applied';
5963         END IF;
5964         --
5965         sep := '';
5966         FOR cv IN
5967                 SELECT  col,
5968                                 val
5969                 FROM    action.fieldset_col_val
5970                 WHERE   fieldset = fieldset_id
5971         LOOP
5972                 statement := statement || sep || ' ' || cv.col
5973                                          || ' = ' || coalesce( quote_literal( cv.val ), 'NULL' );
5974                 sep := ',';
5975         END LOOP;
5976         --
5977         IF sep = '' THEN
5978                 RETURN 'Fieldset ' || fieldset_id || ' has no column values defined';
5979         END IF;
5980         --
5981         -- Add the WHERE clause.  This differs according to whether it's a
5982         -- single-row fieldset or a query-based fieldset.
5983         --
5984         IF query IS NULL        AND fs_pkey_value IS NULL THEN
5985                 RETURN 'Incomplete fieldset: neither a primary key nor a query available';
5986         ELSIF query IS NOT NULL AND fs_pkey_value IS NULL THEN
5987             fs_query := rtrim( query, ';' );
5988             statement := statement || ' WHERE ' || pkey_name || ' IN ( '
5989                          || fs_query || ' );';
5990         ELSIF query IS NULL     AND fs_pkey_value IS NOT NULL THEN
5991                 statement := statement || ' WHERE ' || pkey_name || ' = '
5992                                      || fs_pkey_value || ';';
5993         ELSE  -- both are not null
5994                 RETURN 'Ambiguous fieldset: both a primary key and a query provided';
5995         END IF;
5996         --
5997         -- Execute the update
5998         --
5999         BEGIN
6000                 EXECUTE statement;
6001                 GET DIAGNOSTICS update_count = ROW_COUNT;
6002                 --
6003                 IF UPDATE_COUNT > 0 THEN
6004                         status_code := 'APPLIED';
6005                         msg := NULL;
6006                 ELSE
6007                         status_code := 'ERROR';
6008                         msg := 'No eligible rows found for fieldset ' || fieldset_id;
6009         END IF;
6010         EXCEPTION WHEN OTHERS THEN
6011                 status_code := 'ERROR';
6012                 msg := 'Unable to apply fieldset ' || fieldset_id
6013                            || ': ' || sqlerrm;
6014         END;
6015         --
6016         -- Update fieldset status
6017         --
6018         UPDATE action.fieldset
6019         SET status       = status_code,
6020             applied_time = now()
6021         WHERE id = fieldset_id;
6022         --
6023         RETURN msg;
6024 END;
6025 $$ LANGUAGE plpgsql;
6026
6027 COMMENT ON FUNCTION action.apply_fieldset( INT, TEXT, TEXT, TEXT ) IS $$
6028 /**
6029  * Applies a specified fieldset, using a supplied table name and primary
6030  * key name.  The query parameter should be non-null only for
6031  * query-based fieldsets.
6032  *
6033  * Returns NULL if successful, or an error message if not.
6034  */
6035 $$;
6036
6037 CREATE INDEX uhr_hold_idx ON action.unfulfilled_hold_list (hold);
6038
6039 CREATE OR REPLACE VIEW action.unfulfilled_hold_loops AS
6040     SELECT  u.hold,
6041             c.circ_lib,
6042             count(*)
6043       FROM  action.unfulfilled_hold_list u
6044             JOIN asset.copy c ON (c.id = u.current_copy)
6045       GROUP BY 1,2;
6046
6047 CREATE OR REPLACE VIEW action.unfulfilled_hold_min_loop AS
6048     SELECT  hold,
6049             min(count)
6050       FROM  action.unfulfilled_hold_loops
6051       GROUP BY 1;
6052
6053 CREATE OR REPLACE VIEW action.unfulfilled_hold_innermost_loop AS
6054     SELECT  DISTINCT l.*
6055       FROM  action.unfulfilled_hold_loops l
6056             JOIN action.unfulfilled_hold_min_loop m USING (hold)
6057       WHERE l.count = m.min;
6058
6059 ALTER TABLE asset.copy
6060 ADD COLUMN dummy_isbn TEXT;
6061
6062 ALTER TABLE auditor.asset_copy_history
6063 ADD COLUMN dummy_isbn TEXT;
6064
6065 -- Add new column status_changed_date to asset.copy, with trigger to maintain it
6066 -- Add corresponding new column to auditor.asset_copy_history
6067
6068 ALTER TABLE asset.copy
6069         ADD COLUMN status_changed_time TIMESTAMPTZ;
6070
6071 ALTER TABLE auditor.asset_copy_history
6072         ADD COLUMN status_changed_time TIMESTAMPTZ;
6073
6074 CREATE OR REPLACE FUNCTION asset.acp_status_changed()
6075 RETURNS TRIGGER AS $$
6076 BEGIN
6077     IF NEW.status <> OLD.status THEN
6078         NEW.status_changed_time := now();
6079     END IF;
6080     RETURN NEW;
6081 END;
6082 $$ LANGUAGE plpgsql;
6083
6084 CREATE TRIGGER acp_status_changed_trig
6085         BEFORE UPDATE ON asset.copy
6086         FOR EACH ROW EXECUTE PROCEDURE asset.acp_status_changed();
6087
6088 ALTER TABLE asset.copy
6089 ADD COLUMN mint_condition boolean NOT NULL DEFAULT TRUE;
6090
6091 ALTER TABLE auditor.asset_copy_history
6092 ADD COLUMN mint_condition boolean NOT NULL DEFAULT TRUE;
6093
6094 ALTER TABLE asset.copy ADD COLUMN floating BOOL NOT NULL DEFAULT FALSE;
6095 ALTER TABLE auditor.asset_copy_history ADD COLUMN floating BOOL;
6096
6097 DROP INDEX IF EXISTS asset.copy_barcode_key;
6098 CREATE UNIQUE INDEX copy_barcode_key ON asset.copy (barcode) WHERE deleted = FALSE OR deleted IS FALSE;
6099
6100 -- Note: later we create a trigger a_opac_vis_mat_view_tgr
6101 -- AFTER INSERT OR UPDATE ON asset.copy
6102
6103 ALTER TABLE asset.copy ADD COLUMN cost NUMERIC(8,2);
6104 ALTER TABLE auditor.asset_copy_history ADD COLUMN cost NUMERIC(8,2);
6105
6106 -- Moke mostly parallel changes to action.circulation
6107 -- and action.aged_circulation
6108
6109 ALTER TABLE action.circulation
6110 ADD COLUMN workstation INT
6111     REFERENCES actor.workstation
6112         ON DELETE SET NULL
6113         DEFERRABLE INITIALLY DEFERRED;
6114
6115 ALTER TABLE action.aged_circulation
6116 ADD COLUMN workstation INT;
6117
6118 ALTER TABLE action.circulation
6119 ADD COLUMN parent_circ BIGINT
6120         REFERENCES action.circulation(id)
6121         DEFERRABLE INITIALLY DEFERRED;
6122
6123 CREATE UNIQUE INDEX circ_parent_idx
6124 ON action.circulation( parent_circ )
6125 WHERE parent_circ IS NOT NULL;
6126
6127 ALTER TABLE action.aged_circulation
6128 ADD COLUMN parent_circ BIGINT;
6129
6130 ALTER TABLE action.circulation
6131 ADD COLUMN checkin_workstation INT
6132         REFERENCES actor.workstation(id)
6133         ON DELETE SET NULL
6134         DEFERRABLE INITIALLY DEFERRED;
6135
6136 ALTER TABLE action.aged_circulation
6137 ADD COLUMN checkin_workstation INT;
6138
6139 ALTER TABLE action.circulation
6140 ADD COLUMN checkin_scan_time TIMESTAMPTZ;
6141
6142 ALTER TABLE action.aged_circulation
6143 ADD COLUMN checkin_scan_time TIMESTAMPTZ;
6144
6145 CREATE INDEX action_circulation_target_copy_idx
6146 ON action.circulation (target_copy);
6147
6148 CREATE INDEX action_aged_circulation_target_copy_idx
6149 ON action.aged_circulation (target_copy);
6150
6151 ALTER TABLE action.circulation
6152 DROP CONSTRAINT circulation_stop_fines_check;
6153
6154 ALTER TABLE action.circulation
6155         ADD CONSTRAINT circulation_stop_fines_check
6156         CHECK (stop_fines IN (
6157         'CHECKIN','CLAIMSRETURNED','LOST','MAXFINES','RENEW','LONGOVERDUE','CLAIMSNEVERCHECKEDOUT'));
6158
6159 -- Correct some long-standing misspellings involving variations of "recur"
6160
6161 ALTER TABLE action.circulation RENAME COLUMN recuring_fine TO recurring_fine;
6162 ALTER TABLE action.circulation RENAME COLUMN recuring_fine_rule TO recurring_fine_rule;
6163
6164 ALTER TABLE action.aged_circulation RENAME COLUMN recuring_fine TO recurring_fine;
6165 ALTER TABLE action.aged_circulation RENAME COLUMN recuring_fine_rule TO recurring_fine_rule;
6166
6167 ALTER TABLE config.rule_recuring_fine RENAME TO rule_recurring_fine;
6168 ALTER TABLE config.rule_recuring_fine_id_seq RENAME TO rule_recurring_fine_id_seq;
6169
6170 ALTER TABLE config.rule_recurring_fine RENAME COLUMN recurance_interval TO recurrence_interval;
6171
6172 -- Might as well keep the comment in sync as well
6173 COMMENT ON TABLE config.rule_recurring_fine IS $$
6174 /*
6175  * Copyright (C) 2005  Georgia Public Library Service
6176  * Mike Rylander <mrylander@gmail.com>
6177  *
6178  * Circulation Recurring Fine rules
6179  *
6180  * Each circulation is given a recurring fine amount based on one of
6181  * these rules.  The recurrence_interval should not be any shorter
6182  * than the interval between runs of the fine_processor.pl script
6183  * (which is run from CRON), or you could miss fines.
6184  *
6185  *
6186  * ****
6187  *
6188  * This program is free software; you can redistribute it and/or
6189  * modify it under the terms of the GNU General Public License
6190  * as published by the Free Software Foundation; either version 2
6191  * of the License, or (at your option) any later version.
6192  *
6193  * This program is distributed in the hope that it will be useful,
6194  * but WITHOUT ANY WARRANTY; without even the implied warranty of
6195  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
6196  * GNU General Public License for more details.
6197  */
6198 $$;
6199
6200 -- Extend the name change to some related views:
6201
6202 DROP VIEW IF EXISTS reporter.overdue_circs;
6203
6204 CREATE OR REPLACE VIEW reporter.overdue_circs AS
6205 SELECT  *
6206   FROM  action.circulation
6207     WHERE checkin_time is null
6208                 AND (stop_fines NOT IN ('LOST','CLAIMSRETURNED') OR stop_fines IS NULL)
6209                                 AND due_date < now();
6210
6211 DROP VIEW IF EXISTS stats.fleshed_circulation;
6212
6213 DROP VIEW IF EXISTS stats.fleshed_copy;
6214
6215 CREATE VIEW stats.fleshed_copy AS
6216         SELECT  cp.*,
6217         CAST(cp.create_date AS DATE) AS create_date_day,
6218         CAST(cp.edit_date AS DATE) AS edit_date_day,
6219         DATE_TRUNC('hour', cp.create_date) AS create_date_hour,
6220         DATE_TRUNC('hour', cp.edit_date) AS edit_date_hour,
6221                 cn.label AS call_number_label,
6222                 cn.owning_lib,
6223                 rd.item_lang,
6224                 rd.item_type,
6225                 rd.item_form
6226         FROM    asset.copy cp
6227                 JOIN asset.call_number cn ON (cp.call_number = cn.id)
6228                 JOIN metabib.rec_descriptor rd ON (rd.record = cn.record);
6229
6230 CREATE VIEW stats.fleshed_circulation AS
6231         SELECT  c.*,
6232                 CAST(c.xact_start AS DATE) AS start_date_day,
6233                 CAST(c.xact_finish AS DATE) AS finish_date_day,
6234                 DATE_TRUNC('hour', c.xact_start) AS start_date_hour,
6235                 DATE_TRUNC('hour', c.xact_finish) AS finish_date_hour,
6236                 cp.call_number_label,
6237                 cp.owning_lib,
6238                 cp.item_lang,
6239                 cp.item_type,
6240                 cp.item_form
6241         FROM    action.circulation c
6242                 JOIN stats.fleshed_copy cp ON (cp.id = c.target_copy);
6243
6244 -- Drop a view temporarily in order to alter action.all_circulation, upon
6245 -- which it is dependent.  We will recreate the view later.
6246
6247 DROP VIEW IF EXISTS extend_reporter.full_circ_count;
6248
6249 -- You would think that CREATE OR REPLACE would be enough, but in testing
6250 -- PostgreSQL complained about renaming the columns in the view. So we
6251 -- drop the view first.
6252 DROP VIEW IF EXISTS action.all_circulation;
6253
6254 CREATE OR REPLACE VIEW action.all_circulation AS
6255     SELECT  id,usr_post_code, usr_home_ou, usr_profile, usr_birth_year, copy_call_number, copy_location,
6256         copy_owning_lib, copy_circ_lib, copy_bib_record, xact_start, xact_finish, target_copy,
6257         circ_lib, circ_staff, checkin_staff, checkin_lib, renewal_remaining, due_date,
6258         stop_fines_time, checkin_time, create_time, duration, fine_interval, recurring_fine,
6259         max_fine, phone_renewal, desk_renewal, opac_renewal, duration_rule, recurring_fine_rule,
6260         max_fine_rule, stop_fines, workstation, checkin_workstation, checkin_scan_time, parent_circ
6261       FROM  action.aged_circulation
6262             UNION ALL
6263     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,
6264         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,
6265         cn.record AS copy_bib_record, circ.xact_start, circ.xact_finish, circ.target_copy, circ.circ_lib, circ.circ_staff, circ.checkin_staff,
6266         circ.checkin_lib, circ.renewal_remaining, circ.due_date, circ.stop_fines_time, circ.checkin_time, circ.create_time, circ.duration,
6267         circ.fine_interval, circ.recurring_fine, circ.max_fine, circ.phone_renewal, circ.desk_renewal, circ.opac_renewal, circ.duration_rule,
6268         circ.recurring_fine_rule, circ.max_fine_rule, circ.stop_fines, circ.workstation, circ.checkin_workstation, circ.checkin_scan_time,
6269         circ.parent_circ
6270       FROM  action.circulation circ
6271         JOIN asset.copy cp ON (circ.target_copy = cp.id)
6272         JOIN asset.call_number cn ON (cp.call_number = cn.id)
6273         JOIN actor.usr p ON (circ.usr = p.id)
6274         LEFT JOIN actor.usr_address a ON (p.mailing_address = a.id)
6275         LEFT JOIN actor.usr_address b ON (p.billing_address = a.id);
6276
6277 -- Recreate the temporarily dropped view, having altered the action.all_circulation view:
6278
6279 CREATE OR REPLACE VIEW extend_reporter.full_circ_count AS
6280  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
6281    FROM asset."copy" cp
6282    LEFT JOIN extend_reporter.legacy_circ_count c USING (id)
6283    LEFT JOIN "action".circulation circ ON circ.target_copy = cp.id
6284    LEFT JOIN "action".aged_circulation acirc ON acirc.target_copy = cp.id
6285   GROUP BY cp.id;
6286
6287 CREATE UNIQUE INDEX only_one_concurrent_checkout_per_copy ON action.circulation(target_copy) WHERE checkin_time IS NULL;
6288
6289 ALTER TABLE action.circulation DROP CONSTRAINT action_circulation_target_copy_fkey;
6290
6291 -- Rebuild dependent views
6292
6293 DROP VIEW IF EXISTS action.billable_circulations;
6294
6295 CREATE OR REPLACE VIEW action.billable_circulations AS
6296     SELECT  *
6297       FROM  action.circulation
6298       WHERE xact_finish IS NULL;
6299
6300 DROP VIEW IF EXISTS action.open_circulation;
6301
6302 CREATE OR REPLACE VIEW action.open_circulation AS
6303     SELECT  *
6304       FROM  action.circulation
6305       WHERE checkin_time IS NULL
6306       ORDER BY due_date;
6307
6308 CREATE OR REPLACE FUNCTION action.age_circ_on_delete () RETURNS TRIGGER AS $$
6309 DECLARE
6310 found char := 'N';
6311 BEGIN
6312
6313     -- If there are any renewals for this circulation, don't archive or delete
6314     -- it yet.   We'll do so later, when we archive and delete the renewals.
6315
6316     SELECT 'Y' INTO found
6317     FROM action.circulation
6318     WHERE parent_circ = OLD.id
6319     LIMIT 1;
6320
6321     IF found = 'Y' THEN
6322         RETURN NULL;  -- don't delete
6323         END IF;
6324
6325     -- Archive a copy of the old row to action.aged_circulation
6326
6327     INSERT INTO action.aged_circulation
6328         (id,usr_post_code, usr_home_ou, usr_profile, usr_birth_year, copy_call_number, copy_location,
6329         copy_owning_lib, copy_circ_lib, copy_bib_record, xact_start, xact_finish, target_copy,
6330         circ_lib, circ_staff, checkin_staff, checkin_lib, renewal_remaining, due_date,
6331         stop_fines_time, checkin_time, create_time, duration, fine_interval, recurring_fine,
6332         max_fine, phone_renewal, desk_renewal, opac_renewal, duration_rule, recurring_fine_rule,
6333         max_fine_rule, stop_fines, workstation, checkin_workstation, checkin_scan_time, parent_circ)
6334       SELECT
6335         id,usr_post_code, usr_home_ou, usr_profile, usr_birth_year, copy_call_number, copy_location,
6336         copy_owning_lib, copy_circ_lib, copy_bib_record, xact_start, xact_finish, target_copy,
6337         circ_lib, circ_staff, checkin_staff, checkin_lib, renewal_remaining, due_date,
6338         stop_fines_time, checkin_time, create_time, duration, fine_interval, recurring_fine,
6339         max_fine, phone_renewal, desk_renewal, opac_renewal, duration_rule, recurring_fine_rule,
6340         max_fine_rule, stop_fines, workstation, checkin_workstation, checkin_scan_time, parent_circ
6341         FROM action.all_circulation WHERE id = OLD.id;
6342
6343     RETURN OLD;
6344 END;
6345 $$ LANGUAGE 'plpgsql';
6346
6347 UPDATE config.z3950_attr SET truncation = 1 WHERE source = 'biblios' AND name = 'title';
6348
6349 UPDATE config.z3950_attr SET truncation = 1 WHERE source = 'biblios' AND truncation = 0;
6350
6351 -- Adding circ.holds.target_skip_me OU setting logic to the pre-matchpoint tests
6352
6353 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$
6354 DECLARE
6355     current_requestor_group    permission.grp_tree%ROWTYPE;
6356     requestor_object    actor.usr%ROWTYPE;
6357     user_object        actor.usr%ROWTYPE;
6358     item_object        asset.copy%ROWTYPE;
6359     item_cn_object        asset.call_number%ROWTYPE;
6360     rec_descriptor        metabib.rec_descriptor%ROWTYPE;
6361     current_mp_weight    FLOAT;
6362     matchpoint_weight    FLOAT;
6363     tmp_weight        FLOAT;
6364     current_mp        config.hold_matrix_matchpoint%ROWTYPE;
6365     matchpoint        config.hold_matrix_matchpoint%ROWTYPE;
6366 BEGIN
6367     SELECT INTO user_object * FROM actor.usr WHERE id = match_user;
6368     SELECT INTO requestor_object * FROM actor.usr WHERE id = match_requestor;
6369     SELECT INTO item_object * FROM asset.copy WHERE id = match_item;
6370     SELECT INTO item_cn_object * FROM asset.call_number WHERE id = item_object.call_number;
6371     SELECT INTO rec_descriptor r.* FROM metabib.rec_descriptor r WHERE r.record = item_cn_object.record;
6372
6373     PERFORM * FROM config.internal_flag WHERE name = 'circ.holds.usr_not_requestor' AND enabled;
6374
6375     IF NOT FOUND THEN
6376         SELECT INTO current_requestor_group * FROM permission.grp_tree WHERE id = requestor_object.profile;
6377     ELSE
6378         SELECT INTO current_requestor_group * FROM permission.grp_tree WHERE id = user_object.profile;
6379     END IF;
6380
6381     LOOP
6382         -- for each potential matchpoint for this ou and group ...
6383         FOR current_mp IN
6384             SELECT    m.*
6385               FROM    config.hold_matrix_matchpoint m
6386               WHERE    m.requestor_grp = current_requestor_group.id AND m.active
6387               ORDER BY    CASE WHEN m.circ_modifier    IS NOT NULL THEN 16 ELSE 0 END +
6388                     CASE WHEN m.juvenile_flag    IS NOT NULL THEN 16 ELSE 0 END +
6389                     CASE WHEN m.marc_type        IS NOT NULL THEN 8 ELSE 0 END +
6390                     CASE WHEN m.marc_form        IS NOT NULL THEN 4 ELSE 0 END +
6391                     CASE WHEN m.marc_vr_format    IS NOT NULL THEN 2 ELSE 0 END +
6392                     CASE WHEN m.ref_flag        IS NOT NULL THEN 1 ELSE 0 END DESC LOOP
6393
6394             current_mp_weight := 5.0;
6395
6396             IF current_mp.circ_modifier IS NOT NULL THEN
6397                 CONTINUE WHEN current_mp.circ_modifier <> item_object.circ_modifier OR item_object.circ_modifier IS NULL;
6398             END IF;
6399
6400             IF current_mp.marc_type IS NOT NULL THEN
6401                 IF item_object.circ_as_type IS NOT NULL THEN
6402                     CONTINUE WHEN current_mp.marc_type <> item_object.circ_as_type;
6403                 ELSE
6404                     CONTINUE WHEN current_mp.marc_type <> rec_descriptor.item_type;
6405                 END IF;
6406             END IF;
6407
6408             IF current_mp.marc_form IS NOT NULL THEN
6409                 CONTINUE WHEN current_mp.marc_form <> rec_descriptor.item_form;
6410             END IF;
6411
6412             IF current_mp.marc_vr_format IS NOT NULL THEN
6413                 CONTINUE WHEN current_mp.marc_vr_format <> rec_descriptor.vr_format;
6414             END IF;
6415
6416             IF current_mp.juvenile_flag IS NOT NULL THEN
6417                 CONTINUE WHEN current_mp.juvenile_flag <> user_object.juvenile;
6418             END IF;
6419
6420             IF current_mp.ref_flag IS NOT NULL THEN
6421                 CONTINUE WHEN current_mp.ref_flag <> item_object.ref;
6422             END IF;
6423
6424
6425             -- caclulate the rule match weight
6426             IF current_mp.item_owning_ou IS NOT NULL THEN
6427                 SELECT INTO tmp_weight 1.0 / (actor.org_unit_proximity(current_mp.item_owning_ou, item_cn_object.owning_lib)::FLOAT + 1.0)::FLOAT;
6428                 current_mp_weight := current_mp_weight - tmp_weight;
6429             END IF;
6430
6431             IF current_mp.item_circ_ou IS NOT NULL THEN
6432                 SELECT INTO tmp_weight 1.0 / (actor.org_unit_proximity(current_mp.item_circ_ou, item_object.circ_lib)::FLOAT + 1.0)::FLOAT;
6433                 current_mp_weight := current_mp_weight - tmp_weight;
6434             END IF;
6435
6436             IF current_mp.pickup_ou IS NOT NULL THEN
6437                 SELECT INTO tmp_weight 1.0 / (actor.org_unit_proximity(current_mp.pickup_ou, pickup_ou)::FLOAT + 1.0)::FLOAT;
6438                 current_mp_weight := current_mp_weight - tmp_weight;
6439             END IF;
6440
6441             IF current_mp.request_ou IS NOT NULL THEN
6442                 SELECT INTO tmp_weight 1.0 / (actor.org_unit_proximity(current_mp.request_ou, request_ou)::FLOAT + 1.0)::FLOAT;
6443                 current_mp_weight := current_mp_weight - tmp_weight;
6444             END IF;
6445
6446             IF current_mp.user_home_ou IS NOT NULL THEN
6447                 SELECT INTO tmp_weight 1.0 / (actor.org_unit_proximity(current_mp.user_home_ou, user_object.home_ou)::FLOAT + 1.0)::FLOAT;
6448                 current_mp_weight := current_mp_weight - tmp_weight;
6449             END IF;
6450
6451             -- set the matchpoint if we found the best one
6452             IF matchpoint_weight IS NULL OR matchpoint_weight > current_mp_weight THEN
6453                 matchpoint = current_mp;
6454                 matchpoint_weight = current_mp_weight;
6455             END IF;
6456
6457         END LOOP;
6458
6459         EXIT WHEN current_requestor_group.parent IS NULL OR matchpoint.id IS NOT NULL;
6460
6461         SELECT INTO current_requestor_group * FROM permission.grp_tree WHERE id = current_requestor_group.parent;
6462     END LOOP;
6463
6464     RETURN matchpoint.id;
6465 END;
6466 $func$ LANGUAGE plpgsql;
6467
6468 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$
6469 DECLARE
6470     matchpoint_id        INT;
6471     user_object        actor.usr%ROWTYPE;
6472     age_protect_object    config.rule_age_hold_protect%ROWTYPE;
6473     standing_penalty    config.standing_penalty%ROWTYPE;
6474     transit_range_ou_type    actor.org_unit_type%ROWTYPE;
6475     transit_source        actor.org_unit%ROWTYPE;
6476     item_object        asset.copy%ROWTYPE;
6477     ou_skip              actor.org_unit_setting%ROWTYPE;
6478     result            action.matrix_test_result;
6479     hold_test        config.hold_matrix_matchpoint%ROWTYPE;
6480     hold_count        INT;
6481     hold_transit_prox    INT;
6482     frozen_hold_count    INT;
6483     context_org_list    INT[];
6484     done            BOOL := FALSE;
6485 BEGIN
6486     SELECT INTO user_object * FROM actor.usr WHERE id = match_user;
6487     SELECT INTO context_org_list ARRAY_ACCUM(id) FROM actor.org_unit_full_path( pickup_ou );
6488
6489     result.success := TRUE;
6490
6491     -- Fail if we couldn't find a user
6492     IF user_object.id IS NULL THEN
6493         result.fail_part := 'no_user';
6494         result.success := FALSE;
6495         done := TRUE;
6496         RETURN NEXT result;
6497         RETURN;
6498     END IF;
6499
6500     SELECT INTO item_object * FROM asset.copy WHERE id = match_item;
6501
6502     -- Fail if we couldn't find a copy
6503     IF item_object.id IS NULL THEN
6504         result.fail_part := 'no_item';
6505         result.success := FALSE;
6506         done := TRUE;
6507         RETURN NEXT result;
6508         RETURN;
6509     END IF;
6510
6511     SELECT INTO matchpoint_id action.find_hold_matrix_matchpoint(pickup_ou, request_ou, match_item, match_user, match_requestor);
6512     result.matchpoint := matchpoint_id;
6513
6514     SELECT INTO ou_skip * FROM actor.org_unit_setting WHERE name = 'circ.holds.target_skip_me' AND org_unit = item_object.circ_lib;
6515
6516     -- Fail if the circ_lib for the item has circ.holds.target_skip_me set to true
6517     IF ou_skip.id IS NOT NULL AND ou_skip.value = 'true' THEN
6518         result.fail_part := 'circ.holds.target_skip_me';
6519         result.success := FALSE;
6520         done := TRUE;
6521         RETURN NEXT result;
6522         RETURN;
6523     END IF;
6524
6525     -- Fail if user is barred
6526     IF user_object.barred IS TRUE THEN
6527         result.fail_part := 'actor.usr.barred';
6528         result.success := FALSE;
6529         done := TRUE;
6530         RETURN NEXT result;
6531         RETURN;
6532     END IF;
6533
6534     -- Fail if we couldn't find any matchpoint (requires a default)
6535     IF matchpoint_id IS NULL THEN
6536         result.fail_part := 'no_matchpoint';
6537         result.success := FALSE;
6538         done := TRUE;
6539         RETURN NEXT result;
6540         RETURN;
6541     END IF;
6542
6543     SELECT INTO hold_test * FROM config.hold_matrix_matchpoint WHERE id = matchpoint_id;
6544
6545     IF hold_test.holdable IS FALSE THEN
6546         result.fail_part := 'config.hold_matrix_test.holdable';
6547         result.success := FALSE;
6548         done := TRUE;
6549         RETURN NEXT result;
6550     END IF;
6551
6552     IF hold_test.transit_range IS NOT NULL THEN
6553         SELECT INTO transit_range_ou_type * FROM actor.org_unit_type WHERE id = hold_test.transit_range;
6554         IF hold_test.distance_is_from_owner THEN
6555             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;
6556         ELSE
6557             SELECT INTO transit_source * FROM actor.org_unit WHERE id = item_object.circ_lib;
6558         END IF;
6559
6560         PERFORM * FROM actor.org_unit_descendants( transit_source.id, transit_range_ou_type.depth ) WHERE id = pickup_ou;
6561
6562         IF NOT FOUND THEN
6563             result.fail_part := 'transit_range';
6564             result.success := FALSE;
6565             done := TRUE;
6566             RETURN NEXT result;
6567         END IF;
6568     END IF;
6569
6570     IF NOT retargetting THEN
6571         FOR standing_penalty IN
6572             SELECT  DISTINCT csp.*
6573               FROM  actor.usr_standing_penalty usp
6574                     JOIN config.standing_penalty csp ON (csp.id = usp.standing_penalty)
6575               WHERE usr = match_user
6576                     AND usp.org_unit IN ( SELECT * FROM explode_array(context_org_list) )
6577                     AND (usp.stop_date IS NULL or usp.stop_date > NOW())
6578                     AND csp.block_list LIKE '%HOLD%' LOOP
6579
6580             result.fail_part := standing_penalty.name;
6581             result.success := FALSE;
6582             done := TRUE;
6583             RETURN NEXT result;
6584         END LOOP;
6585
6586         IF hold_test.stop_blocked_user IS TRUE THEN
6587             FOR standing_penalty IN
6588                 SELECT  DISTINCT csp.*
6589                   FROM  actor.usr_standing_penalty usp
6590                         JOIN config.standing_penalty csp ON (csp.id = usp.standing_penalty)
6591                   WHERE usr = match_user
6592                         AND usp.org_unit IN ( SELECT * FROM explode_array(context_org_list) )
6593                         AND (usp.stop_date IS NULL or usp.stop_date > NOW())
6594                         AND csp.block_list LIKE '%CIRC%' LOOP
6595
6596                 result.fail_part := standing_penalty.name;
6597                 result.success := FALSE;
6598                 done := TRUE;
6599                 RETURN NEXT result;
6600             END LOOP;
6601         END IF;
6602
6603         IF hold_test.max_holds IS NOT NULL THEN
6604             SELECT    INTO hold_count COUNT(*)
6605               FROM    action.hold_request
6606               WHERE    usr = match_user
6607                 AND fulfillment_time IS NULL
6608                 AND cancel_time IS NULL
6609                 AND CASE WHEN hold_test.include_frozen_holds THEN TRUE ELSE frozen IS FALSE END;
6610
6611             IF hold_count >= hold_test.max_holds THEN
6612                 result.fail_part := 'config.hold_matrix_test.max_holds';
6613                 result.success := FALSE;
6614                 done := TRUE;
6615                 RETURN NEXT result;
6616             END IF;
6617         END IF;
6618     END IF;
6619
6620     IF item_object.age_protect IS NOT NULL THEN
6621         SELECT INTO age_protect_object * FROM config.rule_age_hold_protect WHERE id = item_object.age_protect;
6622
6623         IF item_object.create_date + age_protect_object.age > NOW() THEN
6624             IF hold_test.distance_is_from_owner THEN
6625                 SELECT INTO hold_transit_prox prox FROM actor.org_unit_proximity WHERE from_org = item_cn_object.owning_lib AND to_org = pickup_ou;
6626             ELSE
6627                 SELECT INTO hold_transit_prox prox FROM actor.org_unit_proximity WHERE from_org = item_object.circ_lib AND to_org = pickup_ou;
6628             END IF;
6629
6630             IF hold_transit_prox > age_protect_object.prox THEN
6631                 result.fail_part := 'config.rule_age_hold_protect.prox';
6632                 result.success := FALSE;
6633                 done := TRUE;
6634                 RETURN NEXT result;
6635             END IF;
6636         END IF;
6637     END IF;
6638
6639     IF NOT done THEN
6640         RETURN NEXT result;
6641     END IF;
6642
6643     RETURN;
6644 END;
6645 $func$ LANGUAGE plpgsql;
6646
6647 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$
6648     SELECT * FROM action.hold_request_permit_test( $1, $2, $3, $4, $5, FALSE);
6649 $func$ LANGUAGE SQL;
6650
6651 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$
6652     SELECT * FROM action.hold_request_permit_test( $1, $2, $3, $4, $5, TRUE );
6653 $func$ LANGUAGE SQL;
6654
6655 -- New post-delete trigger to propagate deletions to parent(s)
6656
6657 CREATE OR REPLACE FUNCTION action.age_parent_circ_on_delete () RETURNS TRIGGER AS $$
6658 BEGIN
6659
6660     -- Having deleted a renewal, we can delete the original circulation (or a previous
6661     -- renewal, if that's what parent_circ is pointing to).  That deletion will trigger
6662     -- deletion of any prior parents, etc. recursively.
6663
6664     IF OLD.parent_circ IS NOT NULL THEN
6665         DELETE FROM action.circulation
6666         WHERE id = OLD.parent_circ;
6667     END IF;
6668
6669     RETURN OLD;
6670 END;
6671 $$ LANGUAGE 'plpgsql';
6672
6673 CREATE TRIGGER age_parent_circ AFTER DELETE ON action.circulation
6674 FOR EACH ROW EXECUTE PROCEDURE action.age_parent_circ_on_delete ();
6675
6676 -- This only gets inserted if there are no other id > 100 billing types
6677 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;
6678 SELECT SETVAL('config.billing_type_id_seq'::TEXT, 101) FROM config.billing_type_id_seq WHERE last_value < 101;
6679
6680 -- Populate xact_type column in the materialized version of billable_xact_summary
6681
6682 CREATE OR REPLACE FUNCTION money.mat_summary_create () RETURNS TRIGGER AS $$
6683 BEGIN
6684         INSERT INTO money.materialized_billable_xact_summary (id, usr, xact_start, xact_finish, total_paid, total_owed, balance_owed, xact_type)
6685                 VALUES ( NEW.id, NEW.usr, NEW.xact_start, NEW.xact_finish, 0.0, 0.0, 0.0, TG_ARGV[0]);
6686         RETURN NEW;
6687 END;
6688 $$ LANGUAGE PLPGSQL;
6689
6690 DROP TRIGGER IF EXISTS mat_summary_create_tgr ON action.circulation;
6691 CREATE TRIGGER mat_summary_create_tgr AFTER INSERT ON action.circulation FOR EACH ROW EXECUTE PROCEDURE money.mat_summary_create ('circulation');
6692
6693 DROP TRIGGER IF EXISTS mat_summary_create_tgr ON money.grocery;
6694 CREATE TRIGGER mat_summary_create_tgr AFTER INSERT ON money.grocery FOR EACH ROW EXECUTE PROCEDURE money.mat_summary_create ('grocery');
6695
6696 CREATE RULE money_payment_view_update AS ON UPDATE TO money.payment_view DO INSTEAD
6697     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;
6698
6699 -- Generate the equivalent of compound subject entries from the existing rows
6700 -- so that we don't have to laboriously reindex them
6701
6702 --INSERT INTO config.metabib_field (field_class, name, format, xpath ) VALUES
6703 --    ( 'subject', 'complete', 'mods32', $$//mods32:mods/mods32:subject//text()$$ );
6704 --
6705 --CREATE INDEX metabib_subject_field_entry_source_idx ON metabib.subject_field_entry (source);
6706 --
6707 --INSERT INTO metabib.subject_field_entry (source, field, value)
6708 --    SELECT source, (
6709 --            SELECT id
6710 --            FROM config.metabib_field
6711 --            WHERE field_class = 'subject' AND name = 'complete'
6712 --        ),
6713 --        ARRAY_TO_STRING (
6714 --            ARRAY (
6715 --                SELECT value
6716 --                FROM metabib.subject_field_entry msfe
6717 --                WHERE msfe.source = groupee.source
6718 --                ORDER BY source
6719 --            ), ' '
6720 --        ) AS grouped
6721 --    FROM (
6722 --        SELECT source
6723 --        FROM metabib.subject_field_entry
6724 --        GROUP BY source
6725 --    ) AS groupee;
6726
6727 CREATE OR REPLACE FUNCTION money.materialized_summary_billing_del () RETURNS TRIGGER AS $$
6728 DECLARE
6729         prev_billing    money.billing%ROWTYPE;
6730         old_billing     money.billing%ROWTYPE;
6731 BEGIN
6732         SELECT * INTO prev_billing FROM money.billing WHERE xact = OLD.xact AND NOT voided ORDER BY billing_ts DESC LIMIT 1 OFFSET 1;
6733         SELECT * INTO old_billing FROM money.billing WHERE xact = OLD.xact AND NOT voided ORDER BY billing_ts DESC LIMIT 1;
6734
6735         IF OLD.id = old_billing.id THEN
6736                 UPDATE  money.materialized_billable_xact_summary
6737                   SET   last_billing_ts = prev_billing.billing_ts,
6738                         last_billing_note = prev_billing.note,
6739                         last_billing_type = prev_billing.billing_type
6740                   WHERE id = OLD.xact;
6741         END IF;
6742
6743         IF NOT OLD.voided THEN
6744                 UPDATE  money.materialized_billable_xact_summary
6745                   SET   total_owed = total_owed - OLD.amount,
6746                         balance_owed = balance_owed + OLD.amount
6747                   WHERE id = OLD.xact;
6748         END IF;
6749
6750         RETURN OLD;
6751 END;
6752 $$ LANGUAGE PLPGSQL;
6753
6754 -- ARG! need to rid ourselves of the broken table definition ... this mechanism is not ideal, sorry.
6755 DROP TABLE IF EXISTS config.index_normalizer CASCADE;
6756
6757 CREATE OR REPLACE FUNCTION public.naco_normalize( TEXT, TEXT ) RETURNS TEXT AS $func$
6758         use Unicode::Normalize;
6759         use Encode;
6760
6761         # When working with Unicode data, the first step is to decode it to
6762         # a byte string; after that, lowercasing is safe
6763         my $txt = lc(decode_utf8(shift));
6764         my $sf = shift;
6765
6766         $txt = NFD($txt);
6767         $txt =~ s/\pM+//go;     # Remove diacritics
6768
6769         $txt =~ s/\xE6/AE/go;   # Convert ae digraph
6770         $txt =~ s/\x{153}/OE/go;# Convert oe digraph
6771         $txt =~ s/\xFE/TH/go;   # Convert Icelandic thorn
6772
6773         $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
6774         $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
6775
6776         $txt =~ tr/\x{0251}\x{03B1}\x{03B2}\x{0262}\x{03B3}/AABGG/;             # Convert Latin and Greek
6777         $txt =~ tr/\x{2113}\xF0\!\"\(\)\-\{\}\<\>\;\:\.\?\xA1\xBF\/\\\@\*\%\=\xB1\+\xAE\xA9\x{2117}\$\xA3\x{FFE1}\xB0\^\_\~\`/LD /;     # Convert Misc
6778         $txt =~ tr/\'\[\]\|//d;                                                 # Remove Misc
6779
6780         if ($sf && $sf =~ /^a/o) {
6781                 my $commapos = index($txt,',');
6782                 if ($commapos > -1) {
6783                         if ($commapos != length($txt) - 1) {
6784                                 my @list = split /,/, $txt;
6785                                 my $first = shift @list;
6786                                 $txt = $first . ',' . join(' ', @list);
6787                         } else {
6788                                 $txt =~ s/,/ /go;
6789                         }
6790                 }
6791         } else {
6792                 $txt =~ s/,/ /go;
6793         }
6794
6795         $txt =~ s/\s+/ /go;     # Compress multiple spaces
6796         $txt =~ s/^\s+//o;      # Remove leading space
6797         $txt =~ s/\s+$//o;      # Remove trailing space
6798
6799         # Encoding the outgoing string is good practice, but not strictly
6800         # necessary in this case because we've stripped everything from it
6801         return encode_utf8($txt);
6802 $func$ LANGUAGE 'plperlu' STRICT IMMUTABLE;
6803
6804 -- Some handy functions, based on existing ones, to provide optional ingest normalization
6805
6806 CREATE OR REPLACE FUNCTION public.left_trunc( TEXT, INT ) RETURNS TEXT AS $func$
6807         SELECT SUBSTRING($1,$2);
6808 $func$ LANGUAGE SQL STRICT IMMUTABLE;
6809
6810 CREATE OR REPLACE FUNCTION public.right_trunc( TEXT, INT ) RETURNS TEXT AS $func$
6811         SELECT SUBSTRING($1,1,$2);
6812 $func$ LANGUAGE SQL STRICT IMMUTABLE;
6813
6814 CREATE OR REPLACE FUNCTION public.naco_normalize_keep_comma( TEXT ) RETURNS TEXT AS $func$
6815         SELECT public.naco_normalize($1,'a');
6816 $func$ LANGUAGE SQL STRICT IMMUTABLE;
6817
6818 CREATE OR REPLACE FUNCTION public.split_date_range( TEXT ) RETURNS TEXT AS $func$
6819         SELECT REGEXP_REPLACE( $1, E'(\\d{4})-(\\d{4})', E'\\1 \\2', 'g' );
6820 $func$ LANGUAGE SQL STRICT IMMUTABLE;
6821
6822 -- And ... a table in which to register them
6823
6824 CREATE TABLE config.index_normalizer (
6825         id              SERIAL  PRIMARY KEY,
6826         name            TEXT    UNIQUE NOT NULL,
6827         description     TEXT,
6828         func            TEXT    NOT NULL,
6829         param_count     INT     NOT NULL DEFAULT 0
6830 );
6831
6832 CREATE TABLE config.metabib_field_index_norm_map (
6833         id      SERIAL  PRIMARY KEY,
6834         field   INT     NOT NULL REFERENCES config.metabib_field (id) ON DELETE CASCADE DEFERRABLE INITIALLY DEFERRED,
6835         norm    INT     NOT NULL REFERENCES config.index_normalizer (id) ON DELETE CASCADE DEFERRABLE INITIALLY DEFERRED,
6836         params  TEXT,
6837         pos     INT     NOT NULL DEFAULT 0
6838 );
6839
6840 INSERT INTO config.index_normalizer (name, description, func, param_count) VALUES (
6841         'NACO Normalize',
6842         'Apply NACO normalization rules to the extracted text.  See http://www.loc.gov/catdir/pcc/naco/normrule-2.html for details.',
6843         'naco_normalize',
6844         0
6845 );
6846
6847 INSERT INTO config.index_normalizer (name, description, func, param_count) VALUES (
6848         'Normalize date range',
6849         'Split date ranges in the form of "XXXX-YYYY" into "XXXX YYYY" for proper index.',
6850         'split_date_range',
6851         1
6852 );
6853
6854 INSERT INTO config.index_normalizer (name, description, func, param_count) VALUES (
6855         'NACO Normalize -- retain first comma',
6856         '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.',
6857         'naco_normalize_keep_comma',
6858         0
6859 );
6860
6861 INSERT INTO config.index_normalizer (name, description, func, param_count) VALUES (
6862         'Strip Diacritics',
6863         'Convert text to NFD form and remove non-spacing combining marks.',
6864         'remove_diacritics',
6865         0
6866 );
6867
6868 INSERT INTO config.index_normalizer (name, description, func, param_count) VALUES (
6869         'Up-case',
6870         'Convert text upper case.',
6871         'uppercase',
6872         0
6873 );
6874
6875 INSERT INTO config.index_normalizer (name, description, func, param_count) VALUES (
6876         'Down-case',
6877         'Convert text lower case.',
6878         'lowercase',
6879         0
6880 );
6881
6882 INSERT INTO config.index_normalizer (name, description, func, param_count) VALUES (
6883         'Extract Dewey-like number',
6884         'Extract a string of numeric characters ther resembles a DDC number.',
6885         'call_number_dewey',
6886         0
6887 );
6888
6889 INSERT INTO config.index_normalizer (name, description, func, param_count) VALUES (
6890         'Left truncation',
6891         'Discard the specified number of characters from the left side of the string.',
6892         'left_trunc',
6893         1
6894 );
6895
6896 INSERT INTO config.index_normalizer (name, description, func, param_count) VALUES (
6897         'Right truncation',
6898         'Include only the specified number of characters from the left side of the string.',
6899         'right_trunc',
6900         1
6901 );
6902
6903 INSERT INTO config.index_normalizer (name, description, func, param_count) VALUES (
6904         'First word',
6905         'Include only the first space-separated word of a string.',
6906         'first_word',
6907         0
6908 );
6909
6910 INSERT INTO config.metabib_field_index_norm_map (field,norm)
6911         SELECT  m.id,
6912                 i.id
6913           FROM  config.metabib_field m,
6914                 config.index_normalizer i
6915           WHERE i.func IN ('naco_normalize','split_date_range');
6916
6917 CREATE OR REPLACE FUNCTION oils_tsearch2 () RETURNS TRIGGER AS $$
6918 DECLARE
6919     normalizer      RECORD;
6920     value           TEXT := '';
6921 BEGIN
6922
6923     value := NEW.value;
6924
6925     IF TG_TABLE_NAME::TEXT ~ 'field_entry$' THEN
6926         FOR normalizer IN
6927             SELECT  n.func AS func,
6928                     n.param_count AS param_count,
6929                     m.params AS params
6930               FROM  config.index_normalizer n
6931                     JOIN config.metabib_field_index_norm_map m ON (m.norm = n.id)
6932               WHERE field = NEW.field AND m.pos < 0
6933               ORDER BY m.pos LOOP
6934                 EXECUTE 'SELECT ' || normalizer.func || '(' ||
6935                     quote_literal( value ) ||
6936                     CASE
6937                         WHEN normalizer.param_count > 0
6938                             THEN ',' || REPLACE(REPLACE(BTRIM(normalizer.params,'[]'),E'\'',E'\\\''),E'"',E'\'')
6939                             ELSE ''
6940                         END ||
6941                     ')' INTO value;
6942
6943         END LOOP;
6944
6945         NEW.value := value;
6946     END IF;
6947
6948     IF NEW.index_vector = ''::tsvector THEN
6949         RETURN NEW;
6950     END IF;
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     END IF;
6972
6973     IF REGEXP_REPLACE(VERSION(),E'^.+?(\\d+\\.\\d+).*?$',E'\\1')::FLOAT > 8.2 THEN
6974         NEW.index_vector = to_tsvector((TG_ARGV[0])::regconfig, value);
6975     ELSE
6976         NEW.index_vector = to_tsvector(TG_ARGV[0], value);
6977     END IF;
6978
6979     RETURN NEW;
6980 END;
6981 $$ LANGUAGE PLPGSQL;
6982
6983 CREATE OR REPLACE FUNCTION oils_xpath ( TEXT, TEXT, ANYARRAY ) RETURNS TEXT[] AS 'SELECT XPATH( $1, $2::XML, $3 )::TEXT[];' LANGUAGE SQL IMMUTABLE;
6984
6985 CREATE OR REPLACE FUNCTION oils_xpath ( TEXT, TEXT ) RETURNS TEXT[] AS 'SELECT XPATH( $1, $2::XML )::TEXT[];' LANGUAGE SQL IMMUTABLE;
6986
6987 CREATE OR REPLACE FUNCTION oils_xpath_string ( TEXT, TEXT, TEXT, ANYARRAY ) RETURNS TEXT AS $func$
6988     SELECT  ARRAY_TO_STRING(
6989                 oils_xpath(
6990                     $1 ||
6991                         CASE WHEN $1 ~ $re$/[^/[]*@[^]]+$$re$ OR $1 ~ $re$text\(\)$$re$ THEN '' ELSE '//text()' END,
6992                     $2,
6993                     $4
6994                 ),
6995                 $3
6996             );
6997 $func$ LANGUAGE SQL IMMUTABLE;
6998
6999 CREATE OR REPLACE FUNCTION oils_xpath_string ( TEXT, TEXT, TEXT ) RETURNS TEXT AS $func$
7000     SELECT oils_xpath_string( $1, $2, $3, '{}'::TEXT[] );
7001 $func$ LANGUAGE SQL IMMUTABLE;
7002
7003 CREATE OR REPLACE FUNCTION oils_xpath_string ( TEXT, TEXT, ANYARRAY ) RETURNS TEXT AS $func$
7004     SELECT oils_xpath_string( $1, $2, '', $3 );
7005 $func$ LANGUAGE SQL IMMUTABLE;
7006
7007 CREATE OR REPLACE FUNCTION oils_xpath_string ( TEXT, TEXT ) RETURNS TEXT AS $func$
7008     SELECT oils_xpath_string( $1, $2, '{}'::TEXT[] );
7009 $func$ LANGUAGE SQL IMMUTABLE;
7010
7011 CREATE TYPE metabib.field_entry_template AS (
7012         field_class     TEXT,
7013         field           INT,
7014         source          BIGINT,
7015         value           TEXT
7016 );
7017
7018 CREATE OR REPLACE FUNCTION oils_xslt_process(TEXT, TEXT) RETURNS TEXT AS $func$
7019   use strict;
7020
7021   use XML::LibXSLT;
7022   use XML::LibXML;
7023
7024   my $doc = shift;
7025   my $xslt = shift;
7026
7027   # The following approach uses the older XML::LibXML 1.69 / XML::LibXSLT 1.68
7028   # methods of parsing XML documents and stylesheets, in the hopes of broader
7029   # compatibility with distributions
7030   my $parser = $_SHARED{'_xslt_process'}{parsers}{xml} || XML::LibXML->new();
7031
7032   # Cache the XML parser, if we do not already have one
7033   $_SHARED{'_xslt_process'}{parsers}{xml} = $parser
7034     unless ($_SHARED{'_xslt_process'}{parsers}{xml});
7035
7036   my $xslt_parser = $_SHARED{'_xslt_process'}{parsers}{xslt} || XML::LibXSLT->new();
7037
7038   # Cache the XSLT processor, if we do not already have one
7039   $_SHARED{'_xslt_process'}{parsers}{xslt} = $xslt_parser
7040     unless ($_SHARED{'_xslt_process'}{parsers}{xslt});
7041
7042   my $stylesheet = $_SHARED{'_xslt_process'}{stylesheets}{$xslt} ||
7043     $xslt_parser->parse_stylesheet( $parser->parse_string($xslt) );
7044
7045   $_SHARED{'_xslt_process'}{stylesheets}{$xslt} = $stylesheet
7046     unless ($_SHARED{'_xslt_process'}{stylesheets}{$xslt});
7047
7048   return $stylesheet->output_string(
7049     $stylesheet->transform(
7050       $parser->parse_string($doc)
7051     )
7052   );
7053
7054 $func$ LANGUAGE 'plperlu' STRICT IMMUTABLE;
7055
7056 -- Add two columns so that the following function will compile.
7057 -- Eventually the label column will be NOT NULL, but not yet.
7058 ALTER TABLE config.metabib_field ADD COLUMN label TEXT;
7059 ALTER TABLE config.metabib_field ADD COLUMN facet_xpath TEXT;
7060
7061 CREATE OR REPLACE FUNCTION biblio.extract_metabib_field_entry ( rid BIGINT, default_joiner TEXT ) RETURNS SETOF metabib.field_entry_template AS $func$
7062 DECLARE
7063     bib     biblio.record_entry%ROWTYPE;
7064     idx     config.metabib_field%ROWTYPE;
7065     xfrm        config.xml_transform%ROWTYPE;
7066     prev_xfrm   TEXT;
7067     transformed_xml TEXT;
7068     xml_node    TEXT;
7069     xml_node_list   TEXT[];
7070     facet_text  TEXT;
7071     raw_text    TEXT;
7072     curr_text   TEXT;
7073     joiner      TEXT := default_joiner; -- XXX will index defs supply a joiner?
7074     output_row  metabib.field_entry_template%ROWTYPE;
7075 BEGIN
7076
7077     -- Get the record
7078     SELECT INTO bib * FROM biblio.record_entry WHERE id = rid;
7079
7080     -- Loop over the indexing entries
7081     FOR idx IN SELECT * FROM config.metabib_field ORDER BY format LOOP
7082
7083         SELECT INTO xfrm * from config.xml_transform WHERE name = idx.format;
7084
7085         -- See if we can skip the XSLT ... it's expensive
7086         IF prev_xfrm IS NULL OR prev_xfrm <> xfrm.name THEN
7087             -- Can't skip the transform
7088             IF xfrm.xslt <> '---' THEN
7089                 transformed_xml := oils_xslt_process(bib.marc,xfrm.xslt);
7090             ELSE
7091                 transformed_xml := bib.marc;
7092             END IF;
7093
7094             prev_xfrm := xfrm.name;
7095         END IF;
7096
7097         xml_node_list := oils_xpath( idx.xpath, transformed_xml, ARRAY[ARRAY[xfrm.prefix, xfrm.namespace_uri]] );
7098
7099         raw_text := NULL;
7100         FOR xml_node IN SELECT x FROM explode_array(xml_node_list) AS x LOOP
7101             CONTINUE WHEN xml_node !~ E'^\\s*<';
7102
7103             curr_text := ARRAY_TO_STRING(
7104                 oils_xpath( '//text()',
7105                     REGEXP_REPLACE( -- This escapes all &s not followed by "amp;".  Data ise returned from oils_xpath (above) in UTF-8, not entity encoded
7106                         REGEXP_REPLACE( -- This escapes embeded <s
7107                             xml_node,
7108                             $re$(>[^<]+)(<)([^>]+<)$re$,
7109                             E'\\1&lt;\\3',
7110                             'g'
7111                         ),
7112                         '&(?!amp;)',
7113                         '&amp;',
7114                         'g'
7115                     )
7116                 ),
7117                 ' '
7118             );
7119
7120             CONTINUE WHEN curr_text IS NULL OR curr_text = '';
7121
7122             IF raw_text IS NOT NULL THEN
7123                 raw_text := raw_text || joiner;
7124             END IF;
7125
7126             raw_text := COALESCE(raw_text,'') || curr_text;
7127
7128             -- insert raw node text for faceting
7129             IF idx.facet_field THEN
7130
7131                 IF idx.facet_xpath IS NOT NULL AND idx.facet_xpath <> '' THEN
7132                     facet_text := oils_xpath_string( idx.facet_xpath, xml_node, joiner, ARRAY[ARRAY[xfrm.prefix, xfrm.namespace_uri]] );
7133                 ELSE
7134                     facet_text := curr_text;
7135                 END IF;
7136
7137                 output_row.field_class = idx.field_class;
7138                 output_row.field = -1 * idx.id;
7139                 output_row.source = rid;
7140                 output_row.value = BTRIM(REGEXP_REPLACE(facet_text, E'\\s+', ' ', 'g'));
7141
7142                 RETURN NEXT output_row;
7143             END IF;
7144
7145         END LOOP;
7146
7147         CONTINUE WHEN raw_text IS NULL OR raw_text = '';
7148
7149         -- insert combined node text for searching
7150         IF idx.search_field THEN
7151             output_row.field_class = idx.field_class;
7152             output_row.field = idx.id;
7153             output_row.source = rid;
7154             output_row.value = BTRIM(REGEXP_REPLACE(raw_text, E'\\s+', ' ', 'g'));
7155
7156             RETURN NEXT output_row;
7157         END IF;
7158
7159     END LOOP;
7160
7161 END;
7162 $func$ LANGUAGE PLPGSQL;
7163
7164 -- default to a space joiner
7165 CREATE OR REPLACE FUNCTION biblio.extract_metabib_field_entry ( BIGINT ) RETURNS SETOF metabib.field_entry_template AS $func$
7166         SELECT * FROM biblio.extract_metabib_field_entry($1, ' ');
7167 $func$ LANGUAGE SQL;
7168
7169 CREATE OR REPLACE FUNCTION biblio.flatten_marc ( TEXT ) RETURNS SETOF metabib.full_rec AS $func$
7170
7171 use MARC::Record;
7172 use MARC::File::XML (BinaryEncoding => 'UTF-8');
7173
7174 my $xml = shift;
7175 my $r = MARC::Record->new_from_xml( $xml );
7176
7177 return_next( { tag => 'LDR', value => $r->leader } );
7178
7179 for my $f ( $r->fields ) {
7180     if ($f->is_control_field) {
7181         return_next({ tag => $f->tag, value => $f->data });
7182     } else {
7183         for my $s ($f->subfields) {
7184             return_next({
7185                 tag      => $f->tag,
7186                 ind1     => $f->indicator(1),
7187                 ind2     => $f->indicator(2),
7188                 subfield => $s->[0],
7189                 value    => $s->[1]
7190             });
7191
7192             if ( $f->tag eq '245' and $s->[0] eq 'a' ) {
7193                 my $trim = $f->indicator(2) || 0;
7194                 return_next({
7195                     tag      => 'tnf',
7196                     ind1     => $f->indicator(1),
7197                     ind2     => $f->indicator(2),
7198                     subfield => 'a',
7199                     value    => substr( $s->[1], $trim )
7200                 });
7201             }
7202         }
7203     }
7204 }
7205
7206 return undef;
7207
7208 $func$ LANGUAGE PLPERLU;
7209
7210 CREATE OR REPLACE FUNCTION biblio.flatten_marc ( rid BIGINT ) RETURNS SETOF metabib.full_rec AS $func$
7211 DECLARE
7212     bib biblio.record_entry%ROWTYPE;
7213     output  metabib.full_rec%ROWTYPE;
7214     field   RECORD;
7215 BEGIN
7216     SELECT INTO bib * FROM biblio.record_entry WHERE id = rid;
7217
7218     FOR field IN SELECT * FROM biblio.flatten_marc( bib.marc ) LOOP
7219         output.record := rid;
7220         output.ind1 := field.ind1;
7221         output.ind2 := field.ind2;
7222         output.tag := field.tag;
7223         output.subfield := field.subfield;
7224         IF field.subfield IS NOT NULL AND field.tag NOT IN ('020','022','024') THEN -- exclude standard numbers and control fields
7225             output.value := naco_normalize(field.value, field.subfield);
7226         ELSE
7227             output.value := field.value;
7228         END IF;
7229
7230         CONTINUE WHEN output.value IS NULL;
7231
7232         RETURN NEXT output;
7233     END LOOP;
7234 END;
7235 $func$ LANGUAGE PLPGSQL;
7236
7237 -- functions to create auditor objects
7238
7239 CREATE FUNCTION auditor.create_auditor_seq     ( sch TEXT, tbl TEXT ) RETURNS BOOL AS $creator$
7240 BEGIN
7241     EXECUTE $$
7242         CREATE SEQUENCE auditor.$$ || sch || $$_$$ || tbl || $$_pkey_seq;
7243     $$;
7244         RETURN TRUE;
7245 END;
7246 $creator$ LANGUAGE 'plpgsql';
7247
7248 CREATE FUNCTION auditor.create_auditor_history ( sch TEXT, tbl TEXT ) RETURNS BOOL AS $creator$
7249 BEGIN
7250     EXECUTE $$
7251         CREATE TABLE auditor.$$ || sch || $$_$$ || tbl || $$_history (
7252             audit_id    BIGINT                          PRIMARY KEY,
7253             audit_time  TIMESTAMP WITH TIME ZONE        NOT NULL,
7254             audit_action        TEXT                            NOT NULL,
7255             LIKE $$ || sch || $$.$$ || tbl || $$
7256         );
7257     $$;
7258         RETURN TRUE;
7259 END;
7260 $creator$ LANGUAGE 'plpgsql';
7261
7262 CREATE FUNCTION auditor.create_auditor_func    ( sch TEXT, tbl TEXT ) RETURNS BOOL AS $creator$
7263 BEGIN
7264     EXECUTE $$
7265         CREATE FUNCTION auditor.audit_$$ || sch || $$_$$ || tbl || $$_func ()
7266         RETURNS TRIGGER AS $func$
7267         BEGIN
7268             INSERT INTO auditor.$$ || sch || $$_$$ || tbl || $$_history
7269                 SELECT  nextval('auditor.$$ || sch || $$_$$ || tbl || $$_pkey_seq'),
7270                     now(),
7271                     SUBSTR(TG_OP,1,1),
7272                     OLD.*;
7273             RETURN NULL;
7274         END;
7275         $func$ LANGUAGE 'plpgsql';
7276     $$;
7277         RETURN TRUE;
7278 END;
7279 $creator$ LANGUAGE 'plpgsql';
7280
7281 CREATE FUNCTION auditor.create_auditor_update_trigger ( sch TEXT, tbl TEXT ) RETURNS BOOL AS $creator$
7282 BEGIN
7283     EXECUTE $$
7284         CREATE TRIGGER audit_$$ || sch || $$_$$ || tbl || $$_update_trigger
7285             AFTER UPDATE OR DELETE ON $$ || sch || $$.$$ || tbl || $$ FOR EACH ROW
7286             EXECUTE PROCEDURE auditor.audit_$$ || sch || $$_$$ || tbl || $$_func ();
7287     $$;
7288         RETURN TRUE;
7289 END;
7290 $creator$ LANGUAGE 'plpgsql';
7291
7292 CREATE FUNCTION auditor.create_auditor_lifecycle     ( sch TEXT, tbl TEXT ) RETURNS BOOL AS $creator$
7293 BEGIN
7294     EXECUTE $$
7295         CREATE VIEW auditor.$$ || sch || $$_$$ || tbl || $$_lifecycle AS
7296             SELECT      -1, now() as audit_time, '-' as audit_action, *
7297               FROM      $$ || sch || $$.$$ || tbl || $$
7298                 UNION ALL
7299             SELECT      *
7300               FROM      auditor.$$ || sch || $$_$$ || tbl || $$_history;
7301     $$;
7302         RETURN TRUE;
7303 END;
7304 $creator$ LANGUAGE 'plpgsql';
7305
7306 DROP FUNCTION IF EXISTS auditor.create_auditor (TEXT, TEXT);
7307
7308 -- The main event
7309
7310 CREATE FUNCTION auditor.create_auditor ( sch TEXT, tbl TEXT ) RETURNS BOOL AS $creator$
7311 BEGIN
7312     PERFORM auditor.create_auditor_seq(sch, tbl);
7313     PERFORM auditor.create_auditor_history(sch, tbl);
7314     PERFORM auditor.create_auditor_func(sch, tbl);
7315     PERFORM auditor.create_auditor_update_trigger(sch, tbl);
7316     PERFORM auditor.create_auditor_lifecycle(sch, tbl);
7317     RETURN TRUE;
7318 END;
7319 $creator$ LANGUAGE 'plpgsql';
7320
7321 ALTER TABLE action.hold_request ADD COLUMN cut_in_line BOOL;
7322
7323 ALTER TABLE action.hold_request
7324 ADD COLUMN mint_condition boolean NOT NULL DEFAULT TRUE;
7325
7326 ALTER TABLE action.hold_request
7327 ADD COLUMN shelf_expire_time TIMESTAMPTZ;
7328
7329 ALTER TABLE action.hold_request DROP CONSTRAINT hold_request_current_copy_fkey;
7330
7331 ALTER TABLE action.hold_request DROP CONSTRAINT hold_request_hold_type_check;
7332
7333 UPDATE config.index_normalizer SET param_count = 0 WHERE func = 'split_date_range';
7334
7335 CREATE INDEX actor_usr_usrgroup_idx ON actor.usr (usrgroup);
7336
7337 -- Add claims_never_checked_out_count to actor.usr, related history
7338
7339 ALTER TABLE actor.usr ADD COLUMN
7340         claims_never_checked_out_count  INT         NOT NULL DEFAULT 0;
7341
7342 ALTER TABLE AUDITOR.actor_usr_history ADD COLUMN
7343         claims_never_checked_out_count INT;
7344
7345 DROP VIEW IF EXISTS auditor.actor_usr_lifecycle;
7346
7347 SELECT auditor.create_auditor_lifecycle( 'actor', 'usr' );
7348
7349 -----------
7350
7351 CREATE OR REPLACE FUNCTION action.circulation_claims_returned () RETURNS TRIGGER AS $$
7352 BEGIN
7353         IF OLD.stop_fines IS NULL OR OLD.stop_fines <> NEW.stop_fines THEN
7354                 IF NEW.stop_fines = 'CLAIMSRETURNED' THEN
7355                         UPDATE actor.usr SET claims_returned_count = claims_returned_count + 1 WHERE id = NEW.usr;
7356                 END IF;
7357                 IF NEW.stop_fines = 'CLAIMSNEVERCHECKEDOUT' THEN
7358                         UPDATE actor.usr SET claims_never_checked_out_count = claims_never_checked_out_count + 1 WHERE id = NEW.usr;
7359                 END IF;
7360                 IF NEW.stop_fines = 'LOST' THEN
7361                         UPDATE asset.copy SET status = 3 WHERE id = NEW.target_copy;
7362                 END IF;
7363         END IF;
7364         RETURN NEW;
7365 END;
7366 $$ LANGUAGE 'plpgsql';
7367
7368 -- Create new table acq.fund_allocation_percent
7369 -- Populate it from acq.fund_allocation
7370 -- Convert all percentages to amounts in acq.fund_allocation
7371
7372 CREATE TABLE acq.fund_allocation_percent
7373 (
7374     id                   SERIAL            PRIMARY KEY,
7375     funding_source       INT               NOT NULL REFERENCES acq.funding_source
7376                                                DEFERRABLE INITIALLY DEFERRED,
7377     org                  INT               NOT NULL REFERENCES actor.org_unit
7378                                                DEFERRABLE INITIALLY DEFERRED,
7379     fund_code            TEXT,
7380     percent              NUMERIC           NOT NULL,
7381     allocator            INTEGER           NOT NULL REFERENCES actor.usr
7382                                                DEFERRABLE INITIALLY DEFERRED,
7383     note                 TEXT,
7384     create_time          TIMESTAMPTZ       NOT NULL DEFAULT now(),
7385     CONSTRAINT logical_key UNIQUE( funding_source, org, fund_code ),
7386     CONSTRAINT percentage_range CHECK( percent >= 0 AND percent <= 100 )
7387 );
7388
7389 -- Trigger function to validate combination of org_unit and fund_code
7390
7391 CREATE OR REPLACE FUNCTION acq.fund_alloc_percent_val()
7392 RETURNS TRIGGER AS $$
7393 --
7394 DECLARE
7395 --
7396 dummy int := 0;
7397 --
7398 BEGIN
7399     SELECT
7400         1
7401     INTO
7402         dummy
7403     FROM
7404         acq.fund
7405     WHERE
7406         org = NEW.org
7407         AND code = NEW.fund_code
7408         LIMIT 1;
7409     --
7410     IF dummy = 1 then
7411         RETURN NEW;
7412     ELSE
7413         RAISE EXCEPTION 'No fund exists for org % and code %', NEW.org, NEW.fund_code;
7414     END IF;
7415 END;
7416 $$ LANGUAGE plpgsql;
7417
7418 CREATE TRIGGER acq_fund_alloc_percent_val_trig
7419     BEFORE INSERT OR UPDATE ON acq.fund_allocation_percent
7420     FOR EACH ROW EXECUTE PROCEDURE acq.fund_alloc_percent_val();
7421
7422 CREATE OR REPLACE FUNCTION acq.fap_limit_100()
7423 RETURNS TRIGGER AS $$
7424 DECLARE
7425 --
7426 total_percent numeric;
7427 --
7428 BEGIN
7429     SELECT
7430         sum( percent )
7431     INTO
7432         total_percent
7433     FROM
7434         acq.fund_allocation_percent AS fap
7435     WHERE
7436         fap.funding_source = NEW.funding_source;
7437     --
7438     IF total_percent > 100 THEN
7439         RAISE EXCEPTION 'Total percentages exceed 100 for funding_source %',
7440             NEW.funding_source;
7441     ELSE
7442         RETURN NEW;
7443     END IF;
7444 END;
7445 $$ LANGUAGE plpgsql;
7446
7447 CREATE TRIGGER acqfap_limit_100_trig
7448     AFTER INSERT OR UPDATE ON acq.fund_allocation_percent
7449     FOR EACH ROW EXECUTE PROCEDURE acq.fap_limit_100();
7450
7451 -- Populate new table from acq.fund_allocation
7452
7453 INSERT INTO acq.fund_allocation_percent
7454 (
7455     funding_source,
7456     org,
7457     fund_code,
7458     percent,
7459     allocator,
7460     note,
7461     create_time
7462 )
7463     SELECT
7464         fa.funding_source,
7465         fund.org,
7466         fund.code,
7467         fa.percent,
7468         fa.allocator,
7469         fa.note,
7470         fa.create_time
7471     FROM
7472         acq.fund_allocation AS fa
7473             INNER JOIN acq.fund AS fund
7474                 ON ( fa.fund = fund.id )
7475     WHERE
7476         fa.percent is not null
7477     ORDER BY
7478         fund.org;
7479
7480 -- Temporary function to convert percentages to amounts in acq.fund_allocation
7481
7482 -- Algorithm to apply to each funding source:
7483
7484 -- 1. Add up the credits.
7485 -- 2. Add up the percentages.
7486 -- 3. Multiply the sum of the percentages times the sum of the credits.  Drop any
7487 --    fractional cents from the result.  This is the total amount to be allocated.
7488 -- 4. For each allocation: multiply the percentage by the total allocation.  Drop any
7489 --    fractional cents to get a preliminary amount.
7490 -- 5. Add up the preliminary amounts for all the allocations.
7491 -- 6. Subtract the results of step 5 from the result of step 3.  The difference is the
7492 --    number of residual cents (resulting from having dropped fractional cents) that
7493 --    must be distributed across the funds in order to make the total of the amounts
7494 --    match the total allocation.
7495 -- 7. Make a second pass through the allocations, in decreasing order of the fractional
7496 --    cents that were dropped from their amounts in step 4.  Add one cent to the amount
7497 --    for each successive fund, until all the residual cents have been exhausted.
7498
7499 -- Result: the sum of the individual allocations now equals the total to be allocated,
7500 -- to the penny.  The individual amounts match the percentages as closely as possible,
7501 -- given the constraint that the total must match.
7502
7503 CREATE OR REPLACE FUNCTION acq.apply_percents()
7504 RETURNS VOID AS $$
7505 declare
7506 --
7507 tot              RECORD;
7508 fund             RECORD;
7509 tot_cents        INTEGER;
7510 src              INTEGER;
7511 id               INTEGER[];
7512 curr_id          INTEGER;
7513 pennies          NUMERIC[];
7514 curr_amount      NUMERIC;
7515 i                INTEGER;
7516 total_of_floors  INTEGER;
7517 total_percent    NUMERIC;
7518 total_allocation INTEGER;
7519 residue          INTEGER;
7520 --
7521 begin
7522         RAISE NOTICE 'Applying percents';
7523         FOR tot IN
7524                 SELECT
7525                         fsrc.funding_source,
7526                         sum( fsrc.amount ) AS total
7527                 FROM
7528                         acq.funding_source_credit AS fsrc
7529                 WHERE fsrc.funding_source IN
7530                         ( SELECT DISTINCT fa.funding_source
7531                           FROM acq.fund_allocation AS fa
7532                           WHERE fa.percent IS NOT NULL )
7533                 GROUP BY
7534                         fsrc.funding_source
7535         LOOP
7536                 tot_cents = floor( tot.total * 100 );
7537                 src = tot.funding_source;
7538                 RAISE NOTICE 'Funding source % total %',
7539                         src, tot_cents;
7540                 i := 0;
7541                 total_of_floors := 0;
7542                 total_percent := 0;
7543                 --
7544                 FOR fund in
7545                         SELECT
7546                                 fa.id,
7547                                 fa.percent,
7548                                 floor( fa.percent * tot_cents / 100 ) as floor_pennies
7549                         FROM
7550                                 acq.fund_allocation AS fa
7551                         WHERE
7552                                 fa.funding_source = src
7553                                 AND fa.percent IS NOT NULL
7554                         ORDER BY
7555                                 mod( fa.percent * tot_cents / 100, 1 ),
7556                                 fa.fund,
7557                                 fa.id
7558                 LOOP
7559                         RAISE NOTICE '   %: %',
7560                                 fund.id,
7561                                 fund.floor_pennies;
7562                         i := i + 1;
7563                         id[i] = fund.id;
7564                         pennies[i] = fund.floor_pennies;
7565                         total_percent := total_percent + fund.percent;
7566                         total_of_floors := total_of_floors + pennies[i];
7567                 END LOOP;
7568                 total_allocation := floor( total_percent * tot_cents /100 );
7569                 RAISE NOTICE 'Total before distributing residue: %', total_of_floors;
7570                 residue := total_allocation - total_of_floors;
7571                 RAISE NOTICE 'Residue: %', residue;
7572                 --
7573                 -- Post the calculated amounts, revising as needed to
7574                 -- distribute the rounding error
7575                 --
7576                 WHILE i > 0 LOOP
7577                         IF residue > 0 THEN
7578                                 pennies[i] = pennies[i] + 1;
7579                                 residue := residue - 1;
7580                         END IF;
7581                         --
7582                         -- Post amount
7583                         --
7584                         curr_id     := id[i];
7585                         curr_amount := trunc( pennies[i] / 100, 2 );
7586                         --
7587                         UPDATE
7588                                 acq.fund_allocation AS fa
7589                         SET
7590                                 amount = curr_amount,
7591                                 percent = NULL
7592                         WHERE
7593                                 fa.id = curr_id;
7594                         --
7595                         RAISE NOTICE '   ID % and amount %',
7596                                 curr_id,
7597                                 curr_amount;
7598                         i = i - 1;
7599                 END LOOP;
7600         END LOOP;
7601 end;
7602 $$ LANGUAGE 'plpgsql';
7603
7604 -- Run the temporary function
7605
7606 select * from acq.apply_percents();
7607
7608 -- Drop the temporary function now that we're done with it
7609
7610 DROP FUNCTION IF EXISTS acq.apply_percents();
7611
7612 -- Eliminate acq.fund_allocation.percent, which has been moved to the acq.fund_allocation_percent table.
7613
7614 -- If the following step fails, it's probably because there are still some non-null percent values in
7615 -- acq.fund_allocation.  They should have all been converted to amounts, and then set to null, by a
7616 -- previous upgrade step based on 0049.schema.acq_funding_allocation_percent.sql.  If there are any
7617 -- non-null values, then either that step didn't run, or it didn't work, or some non-null values
7618 -- slipped in afterwards.
7619
7620 -- To convert any remaining percents to amounts: create, run, and then drop the temporary stored
7621 -- procedure acq.apply_percents() as defined above.
7622
7623 ALTER TABLE acq.fund_allocation
7624 ALTER COLUMN amount SET NOT NULL;
7625
7626 CREATE OR REPLACE VIEW acq.fund_allocation_total AS
7627     SELECT  fund,
7628             SUM(a.amount * acq.exchange_ratio(s.currency_type, f.currency_type))::NUMERIC(100,2) AS amount
7629     FROM acq.fund_allocation a
7630          JOIN acq.fund f ON (a.fund = f.id)
7631          JOIN acq.funding_source s ON (a.funding_source = s.id)
7632     GROUP BY 1;
7633
7634 CREATE OR REPLACE VIEW acq.funding_source_allocation_total AS
7635     SELECT  funding_source,
7636             SUM(a.amount)::NUMERIC(100,2) AS amount
7637     FROM  acq.fund_allocation a
7638     GROUP BY 1;
7639
7640 ALTER TABLE acq.fund_allocation
7641 DROP COLUMN percent;
7642
7643 CREATE TABLE asset.copy_location_order
7644 (
7645         id              SERIAL           PRIMARY KEY,
7646         location        INT              NOT NULL
7647                                              REFERENCES asset.copy_location
7648                                              ON DELETE CASCADE
7649                                              DEFERRABLE INITIALLY DEFERRED,
7650         org             INT              NOT NULL
7651                                              REFERENCES actor.org_unit
7652                                              ON DELETE CASCADE
7653                                              DEFERRABLE INITIALLY DEFERRED,
7654         position        INT              NOT NULL DEFAULT 0,
7655         CONSTRAINT acplo_once_per_org UNIQUE ( location, org )
7656 );
7657
7658 ALTER TABLE money.credit_card_payment ADD COLUMN cc_processor TEXT;
7659
7660 -- If you ran this before its most recent incarnation:
7661 -- delete from config.upgrade_log where version = '0328';
7662 -- alter table money.credit_card_payment drop column cc_name;
7663
7664 ALTER TABLE money.credit_card_payment ADD COLUMN cc_first_name TEXT;
7665 ALTER TABLE money.credit_card_payment ADD COLUMN cc_last_name TEXT;
7666
7667 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$
7668 DECLARE
7669     current_group    permission.grp_tree%ROWTYPE;
7670     user_object    actor.usr%ROWTYPE;
7671     item_object    asset.copy%ROWTYPE;
7672     cn_object    asset.call_number%ROWTYPE;
7673     rec_descriptor    metabib.rec_descriptor%ROWTYPE;
7674     current_mp    config.circ_matrix_matchpoint%ROWTYPE;
7675     matchpoint    config.circ_matrix_matchpoint%ROWTYPE;
7676 BEGIN
7677     SELECT INTO user_object * FROM actor.usr WHERE id = match_user;
7678     SELECT INTO item_object * FROM asset.copy WHERE id = match_item;
7679     SELECT INTO cn_object * FROM asset.call_number WHERE id = item_object.call_number;
7680     SELECT INTO rec_descriptor r.* FROM metabib.rec_descriptor r JOIN asset.call_number c USING (record) WHERE c.id = item_object.call_number;
7681     SELECT INTO current_group * FROM permission.grp_tree WHERE id = user_object.profile;
7682
7683     LOOP
7684         -- for each potential matchpoint for this ou and group ...
7685         FOR current_mp IN
7686             SELECT  m.*
7687               FROM  config.circ_matrix_matchpoint m
7688                     JOIN actor.org_unit_ancestors( context_ou ) d ON (m.org_unit = d.id)
7689                     LEFT JOIN actor.org_unit_proximity p ON (p.from_org = context_ou AND p.to_org = d.id)
7690               WHERE m.grp = current_group.id
7691                     AND m.active
7692                     AND (m.copy_owning_lib IS NULL OR cn_object.owning_lib IN ( SELECT id FROM actor.org_unit_descendants(m.copy_owning_lib) ))
7693                     AND (m.copy_circ_lib   IS NULL OR item_object.circ_lib IN ( SELECT id FROM actor.org_unit_descendants(m.copy_circ_lib)   ))
7694               ORDER BY    CASE WHEN p.prox        IS NULL THEN 999 ELSE p.prox END,
7695                     CASE WHEN m.copy_owning_lib IS NOT NULL
7696                         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 )
7697                         ELSE 0
7698                     END +
7699                     CASE WHEN m.copy_circ_lib IS NOT NULL
7700                         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 )
7701                         ELSE 0
7702                     END +
7703                     CASE WHEN m.is_renewal = renewal        THEN 128 ELSE 0 END +
7704                     CASE WHEN m.juvenile_flag    IS NOT NULL THEN 64 ELSE 0 END +
7705                     CASE WHEN m.circ_modifier    IS NOT NULL THEN 32 ELSE 0 END +
7706                     CASE WHEN m.marc_type        IS NOT NULL THEN 16 ELSE 0 END +
7707                     CASE WHEN m.marc_form        IS NOT NULL THEN 8 ELSE 0 END +
7708                     CASE WHEN m.marc_vr_format    IS NOT NULL THEN 4 ELSE 0 END +
7709                     CASE WHEN m.ref_flag        IS NOT NULL THEN 2 ELSE 0 END +
7710                     CASE WHEN m.usr_age_lower_bound    IS NOT NULL THEN 0.5 ELSE 0 END +
7711                     CASE WHEN m.usr_age_upper_bound    IS NOT NULL THEN 0.5 ELSE 0 END DESC LOOP
7712
7713             IF current_mp.is_renewal IS NOT NULL THEN
7714                 CONTINUE WHEN current_mp.is_renewal <> renewal;
7715             END IF;
7716
7717             IF current_mp.circ_modifier IS NOT NULL THEN
7718                 CONTINUE WHEN current_mp.circ_modifier <> item_object.circ_modifier OR item_object.circ_modifier IS NULL;
7719             END IF;
7720
7721             IF current_mp.marc_type IS NOT NULL THEN
7722                 IF item_object.circ_as_type IS NOT NULL THEN
7723                     CONTINUE WHEN current_mp.marc_type <> item_object.circ_as_type;
7724                 ELSE
7725                     CONTINUE WHEN current_mp.marc_type <> rec_descriptor.item_type;
7726                 END IF;
7727             END IF;
7728
7729             IF current_mp.marc_form IS NOT NULL THEN
7730                 CONTINUE WHEN current_mp.marc_form <> rec_descriptor.item_form;
7731             END IF;
7732
7733             IF current_mp.marc_vr_format IS NOT NULL THEN
7734                 CONTINUE WHEN current_mp.marc_vr_format <> rec_descriptor.vr_format;
7735             END IF;
7736
7737             IF current_mp.ref_flag IS NOT NULL THEN
7738                 CONTINUE WHEN current_mp.ref_flag <> item_object.ref;
7739             END IF;
7740
7741             IF current_mp.juvenile_flag IS NOT NULL THEN
7742                 CONTINUE WHEN current_mp.juvenile_flag <> user_object.juvenile;
7743             END IF;
7744
7745             IF current_mp.usr_age_lower_bound IS NOT NULL THEN
7746                 CONTINUE WHEN user_object.dob IS NULL OR current_mp.usr_age_lower_bound < age(user_object.dob);
7747             END IF;
7748
7749             IF current_mp.usr_age_upper_bound IS NOT NULL THEN
7750                 CONTINUE WHEN user_object.dob IS NULL OR current_mp.usr_age_upper_bound > age(user_object.dob);
7751             END IF;
7752
7753
7754             -- everything was undefined or matched
7755             matchpoint = current_mp;
7756
7757             EXIT WHEN matchpoint.id IS NOT NULL;
7758         END LOOP;
7759
7760         EXIT WHEN current_group.parent IS NULL OR matchpoint.id IS NOT NULL;
7761
7762         SELECT INTO current_group * FROM permission.grp_tree WHERE id = current_group.parent;
7763     END LOOP;
7764
7765     RETURN matchpoint;
7766 END;
7767 $func$ LANGUAGE plpgsql;
7768
7769 CREATE TYPE action.hold_stats AS (
7770     hold_count              INT,
7771     copy_count              INT,
7772     available_count         INT,
7773     total_copy_ratio        FLOAT,
7774     available_copy_ratio    FLOAT
7775 );
7776
7777 CREATE OR REPLACE FUNCTION action.copy_related_hold_stats (copy_id INT) RETURNS action.hold_stats AS $func$
7778 DECLARE
7779     output          action.hold_stats%ROWTYPE;
7780     hold_count      INT := 0;
7781     copy_count      INT := 0;
7782     available_count INT := 0;
7783     hold_map_data   RECORD;
7784 BEGIN
7785
7786     output.hold_count := 0;
7787     output.copy_count := 0;
7788     output.available_count := 0;
7789
7790     SELECT  COUNT( DISTINCT m.hold ) INTO hold_count
7791       FROM  action.hold_copy_map m
7792             JOIN action.hold_request h ON (m.hold = h.id)
7793       WHERE m.target_copy = copy_id
7794             AND NOT h.frozen;
7795
7796     output.hold_count := hold_count;
7797
7798     IF output.hold_count > 0 THEN
7799         FOR hold_map_data IN
7800             SELECT  DISTINCT m.target_copy,
7801                     acp.status
7802               FROM  action.hold_copy_map m
7803                     JOIN asset.copy acp ON (m.target_copy = acp.id)
7804                     JOIN action.hold_request h ON (m.hold = h.id)
7805               WHERE m.hold IN ( SELECT DISTINCT hold FROM action.hold_copy_map WHERE target_copy = copy_id ) AND NOT h.frozen
7806         LOOP
7807             output.copy_count := output.copy_count + 1;
7808             IF hold_map_data.status IN (0,7,12) THEN
7809                 output.available_count := output.available_count + 1;
7810             END IF;
7811         END LOOP;
7812         output.total_copy_ratio = output.copy_count::FLOAT / output.hold_count::FLOAT;
7813         output.available_copy_ratio = output.available_count::FLOAT / output.hold_count::FLOAT;
7814
7815     END IF;
7816
7817     RETURN output;
7818
7819 END;
7820 $func$ LANGUAGE PLPGSQL;
7821
7822 ALTER TABLE config.circ_matrix_matchpoint ADD COLUMN total_copy_hold_ratio FLOAT;
7823 ALTER TABLE config.circ_matrix_matchpoint ADD COLUMN available_copy_hold_ratio FLOAT;
7824
7825 ALTER TABLE config.circ_matrix_matchpoint DROP CONSTRAINT ep_once_per_grp_loc_mod_marc;
7826
7827 ALTER TABLE config.circ_matrix_matchpoint ADD COLUMN copy_circ_lib   INT REFERENCES actor.org_unit (id) DEFERRABLE INITIALLY DEFERRED;
7828 ALTER TABLE config.circ_matrix_matchpoint ADD COLUMN copy_owning_lib INT REFERENCES actor.org_unit (id) DEFERRABLE INITIALLY DEFERRED;
7829
7830 ALTER TABLE config.circ_matrix_matchpoint ADD CONSTRAINT ep_once_per_grp_loc_mod_marc UNIQUE (
7831     grp, org_unit, circ_modifier, marc_type, marc_form, marc_vr_format, ref_flag,
7832     juvenile_flag, usr_age_lower_bound, usr_age_upper_bound, is_renewal, copy_circ_lib,
7833     copy_owning_lib
7834 );
7835
7836 -- Return the correct fail_part when the item can't be found
7837 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$
7838 DECLARE
7839     user_object        actor.usr%ROWTYPE;
7840     standing_penalty    config.standing_penalty%ROWTYPE;
7841     item_object        asset.copy%ROWTYPE;
7842     item_status_object    config.copy_status%ROWTYPE;
7843     item_location_object    asset.copy_location%ROWTYPE;
7844     result            action.matrix_test_result;
7845     circ_test        config.circ_matrix_matchpoint%ROWTYPE;
7846     out_by_circ_mod        config.circ_matrix_circ_mod_test%ROWTYPE;
7847     circ_mod_map        config.circ_matrix_circ_mod_test_map%ROWTYPE;
7848     hold_ratio          action.hold_stats%ROWTYPE;
7849     penalty_type         TEXT;
7850     tmp_grp         INT;
7851     items_out        INT;
7852     context_org_list        INT[];
7853     done            BOOL := FALSE;
7854 BEGIN
7855     result.success := TRUE;
7856
7857     -- Fail if the user is BARRED
7858     SELECT INTO user_object * FROM actor.usr WHERE id = match_user;
7859
7860     -- Fail if we couldn't find the user
7861     IF user_object.id IS NULL THEN
7862         result.fail_part := 'no_user';
7863         result.success := FALSE;
7864         done := TRUE;
7865         RETURN NEXT result;
7866         RETURN;
7867     END IF;
7868
7869     SELECT INTO item_object * FROM asset.copy WHERE id = match_item;
7870
7871     -- Fail if we couldn't find the item
7872     IF item_object.id IS NULL THEN
7873         result.fail_part := 'no_item';
7874         result.success := FALSE;
7875         done := TRUE;
7876         RETURN NEXT result;
7877         RETURN;
7878     END IF;
7879
7880     SELECT INTO circ_test * FROM action.find_circ_matrix_matchpoint(circ_ou, match_item, match_user, renewal);
7881     result.matchpoint := circ_test.id;
7882
7883     -- Fail if we couldn't find a matchpoint
7884     IF result.matchpoint IS NULL THEN
7885         result.fail_part := 'no_matchpoint';
7886         result.success := FALSE;
7887         done := TRUE;
7888         RETURN NEXT result;
7889     END IF;
7890
7891     IF user_object.barred IS TRUE THEN
7892         result.fail_part := 'actor.usr.barred';
7893         result.success := FALSE;
7894         done := TRUE;
7895         RETURN NEXT result;
7896     END IF;
7897
7898     -- Fail if the item can't circulate
7899     IF item_object.circulate IS FALSE THEN
7900         result.fail_part := 'asset.copy.circulate';
7901         result.success := FALSE;
7902         done := TRUE;
7903         RETURN NEXT result;
7904     END IF;
7905
7906     -- Fail if the item isn't in a circulateable status on a non-renewal
7907     IF NOT renewal AND item_object.status NOT IN ( 0, 7, 8 ) THEN
7908         result.fail_part := 'asset.copy.status';
7909         result.success := FALSE;
7910         done := TRUE;
7911         RETURN NEXT result;
7912     ELSIF renewal AND item_object.status <> 1 THEN
7913         result.fail_part := 'asset.copy.status';
7914         result.success := FALSE;
7915         done := TRUE;
7916         RETURN NEXT result;
7917     END IF;
7918
7919     -- Fail if the item can't circulate because of the shelving location
7920     SELECT INTO item_location_object * FROM asset.copy_location WHERE id = item_object.location;
7921     IF item_location_object.circulate IS FALSE THEN
7922         result.fail_part := 'asset.copy_location.circulate';
7923         result.success := FALSE;
7924         done := TRUE;
7925         RETURN NEXT result;
7926     END IF;
7927
7928     SELECT INTO context_org_list ARRAY_ACCUM(id) FROM actor.org_unit_full_path( circ_test.org_unit );
7929
7930     -- Fail if the test is set to hard non-circulating
7931     IF circ_test.circulate IS FALSE THEN
7932         result.fail_part := 'config.circ_matrix_test.circulate';
7933         result.success := FALSE;
7934         done := TRUE;
7935         RETURN NEXT result;
7936     END IF;
7937
7938     -- Fail if the total copy-hold ratio is too low
7939     IF circ_test.total_copy_hold_ratio IS NOT NULL THEN
7940         SELECT INTO hold_ratio * FROM action.copy_related_hold_stats(match_item);
7941         IF hold_ratio.total_copy_ratio IS NOT NULL AND hold_ratio.total_copy_ratio < circ_test.total_copy_hold_ratio THEN
7942             result.fail_part := 'config.circ_matrix_test.total_copy_hold_ratio';
7943             result.success := FALSE;
7944             done := TRUE;
7945             RETURN NEXT result;
7946         END IF;
7947     END IF;
7948
7949     -- Fail if the available copy-hold ratio is too low
7950     IF circ_test.available_copy_hold_ratio IS NOT NULL THEN
7951         SELECT INTO hold_ratio * FROM action.copy_related_hold_stats(match_item);
7952         IF hold_ratio.available_copy_ratio IS NOT NULL AND hold_ratio.available_copy_ratio < circ_test.available_copy_hold_ratio THEN
7953             result.fail_part := 'config.circ_matrix_test.available_copy_hold_ratio';
7954             result.success := FALSE;
7955             done := TRUE;
7956             RETURN NEXT result;
7957         END IF;
7958     END IF;
7959
7960     IF renewal THEN
7961         penalty_type = '%RENEW%';
7962     ELSE
7963         penalty_type = '%CIRC%';
7964     END IF;
7965
7966     FOR standing_penalty IN
7967         SELECT  DISTINCT csp.*
7968           FROM  actor.usr_standing_penalty usp
7969                 JOIN config.standing_penalty csp ON (csp.id = usp.standing_penalty)
7970           WHERE usr = match_user
7971                 AND usp.org_unit IN ( SELECT * FROM explode_array(context_org_list) )
7972                 AND (usp.stop_date IS NULL or usp.stop_date > NOW())
7973                 AND csp.block_list LIKE penalty_type LOOP
7974
7975         result.fail_part := standing_penalty.name;
7976         result.success := FALSE;
7977         done := TRUE;
7978         RETURN NEXT result;
7979     END LOOP;
7980
7981     -- Fail if the user has too many items with specific circ_modifiers checked out
7982     FOR out_by_circ_mod IN SELECT * FROM config.circ_matrix_circ_mod_test WHERE matchpoint = circ_test.id LOOP
7983         SELECT  INTO items_out COUNT(*)
7984           FROM  action.circulation circ
7985             JOIN asset.copy cp ON (cp.id = circ.target_copy)
7986           WHERE circ.usr = match_user
7987                AND circ.circ_lib IN ( SELECT * FROM explode_array(context_org_list) )
7988             AND circ.checkin_time IS NULL
7989             AND (circ.stop_fines IN ('MAXFINES','LONGOVERDUE') OR circ.stop_fines IS NULL)
7990             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);
7991         IF items_out >= out_by_circ_mod.items_out THEN
7992             result.fail_part := 'config.circ_matrix_circ_mod_test';
7993             result.success := FALSE;
7994             done := TRUE;
7995             RETURN NEXT result;
7996         END IF;
7997     END LOOP;
7998
7999     -- If we passed everything, return the successful matchpoint id
8000     IF NOT done THEN
8001         RETURN NEXT result;
8002     END IF;
8003
8004     RETURN;
8005 END;
8006 $func$ LANGUAGE plpgsql;
8007
8008 CREATE TABLE config.remote_account (
8009     id          SERIAL  PRIMARY KEY,
8010     label       TEXT    NOT NULL,
8011     host        TEXT    NOT NULL,   -- name or IP, :port optional
8012     username    TEXT,               -- optional, since we could default to $USER
8013     password    TEXT,               -- optional, since we could use SSH keys, or anonymous login.
8014     account     TEXT,               -- aka profile or FTP "account" command
8015     path        TEXT,               -- aka directory
8016     owner       INT     NOT NULL REFERENCES actor.org_unit (id) DEFERRABLE INITIALLY DEFERRED,
8017     last_activity TIMESTAMP WITH TIME ZONE
8018 );
8019
8020 CREATE TABLE acq.edi_account (      -- similar tables can extend remote_account for other parts of EG
8021     provider    INT     NOT NULL REFERENCES acq.provider          (id) ON DELETE CASCADE DEFERRABLE INITIALLY DEFERRED,
8022     in_dir      TEXT,   -- incoming messages dir (probably different than config.remote_account.path, the outgoing dir)
8023         vendcode    TEXT,
8024         vendacct    TEXT
8025
8026 ) INHERITS (config.remote_account);
8027
8028 ALTER TABLE acq.edi_account ADD PRIMARY KEY (id);
8029
8030 CREATE TABLE acq.claim_type (
8031         id             SERIAL           PRIMARY KEY,
8032         org_unit       INT              NOT NULL REFERENCES actor.org_unit(id)
8033                                                  DEFERRABLE INITIALLY DEFERRED,
8034         code           TEXT             NOT NULL,
8035         description    TEXT             NOT NULL,
8036         CONSTRAINT claim_type_once_per_org UNIQUE ( org_unit, code )
8037 );
8038
8039 CREATE TABLE acq.claim (
8040         id             SERIAL           PRIMARY KEY,
8041         type           INT              NOT NULL REFERENCES acq.claim_type
8042                                                  DEFERRABLE INITIALLY DEFERRED,
8043         lineitem_detail BIGINT          NOT NULL REFERENCES acq.lineitem_detail
8044                                                  DEFERRABLE INITIALLY DEFERRED
8045 );
8046
8047 CREATE TABLE acq.claim_policy (
8048         id              SERIAL       PRIMARY KEY,
8049         org_unit        INT          NOT NULL REFERENCES actor.org_unit
8050                                      DEFERRABLE INITIALLY DEFERRED,
8051         name            TEXT         NOT NULL,
8052         description     TEXT         NOT NULL,
8053         CONSTRAINT name_once_per_org UNIQUE (org_unit, name)
8054 );
8055
8056 -- Add a san column for EDI.
8057 -- See: http://isbn.org/standards/home/isbn/us/san/san-qa.asp
8058
8059 ALTER TABLE acq.provider ADD COLUMN san INT;
8060
8061 ALTER TABLE acq.provider ALTER COLUMN san TYPE TEXT USING lpad(text(san), 7, '0');
8062
8063 -- null edi_default is OK... it has to be, since we have no values in acq.edi_account yet
8064 ALTER TABLE acq.provider ADD COLUMN edi_default INT REFERENCES acq.edi_account (id) DEFERRABLE INITIALLY DEFERRED;
8065
8066 ALTER TABLE acq.provider
8067         ADD COLUMN active BOOL NOT NULL DEFAULT TRUE;
8068
8069 ALTER TABLE acq.provider
8070         ADD COLUMN prepayment_required BOOLEAN NOT NULL DEFAULT FALSE;
8071
8072 ALTER TABLE acq.provider
8073         ADD COLUMN url TEXT;
8074
8075 ALTER TABLE acq.provider
8076         ADD COLUMN email TEXT;
8077
8078 ALTER TABLE acq.provider
8079         ADD COLUMN phone TEXT;
8080
8081 ALTER TABLE acq.provider
8082         ADD COLUMN fax_phone TEXT;
8083
8084 ALTER TABLE acq.provider
8085         ADD COLUMN default_claim_policy INT
8086                 REFERENCES acq.claim_policy
8087                 DEFERRABLE INITIALLY DEFERRED;
8088
8089 ALTER TABLE action.transit_copy
8090 ADD COLUMN prev_dest INTEGER REFERENCES actor.org_unit( id )
8091                                                          DEFERRABLE INITIALLY DEFERRED;
8092
8093 DROP SCHEMA IF EXISTS booking CASCADE;
8094
8095 CREATE SCHEMA booking;
8096
8097 CREATE TABLE booking.resource_type (
8098         id             SERIAL          PRIMARY KEY,
8099         name           TEXT            NOT NULL,
8100         fine_interval  INTERVAL,
8101         fine_amount    DECIMAL(8,2)    NOT NULL DEFAULT 0,
8102         owner          INT             NOT NULL
8103                                        REFERENCES actor.org_unit( id )
8104                                        DEFERRABLE INITIALLY DEFERRED,
8105         catalog_item   BOOLEAN         NOT NULL DEFAULT FALSE,
8106         transferable   BOOLEAN         NOT NULL DEFAULT FALSE,
8107     record         BIGINT          REFERENCES biblio.record_entry (id)
8108                                        DEFERRABLE INITIALLY DEFERRED,
8109     max_fine       NUMERIC(8,2),
8110     elbow_room     INTERVAL,
8111     CONSTRAINT brt_name_and_record_once_per_owner UNIQUE(owner, name, record)
8112 );
8113
8114 CREATE TABLE booking.resource (
8115         id             SERIAL           PRIMARY KEY,
8116         owner          INT              NOT NULL
8117                                         REFERENCES actor.org_unit(id)
8118                                         DEFERRABLE INITIALLY DEFERRED,
8119         type           INT              NOT NULL
8120                                         REFERENCES booking.resource_type(id)
8121                                         DEFERRABLE INITIALLY DEFERRED,
8122         overbook       BOOLEAN          NOT NULL DEFAULT FALSE,
8123         barcode        TEXT             NOT NULL,
8124         deposit        BOOLEAN          NOT NULL DEFAULT FALSE,
8125         deposit_amount DECIMAL(8,2)     NOT NULL DEFAULT 0.00,
8126         user_fee       DECIMAL(8,2)     NOT NULL DEFAULT 0.00,
8127         CONSTRAINT br_unique UNIQUE (owner, barcode)
8128 );
8129
8130 -- For non-catalog items: hijack barcode for name/description
8131
8132 CREATE TABLE booking.resource_attr (
8133         id              SERIAL          PRIMARY KEY,
8134         owner           INT             NOT NULL
8135                                         REFERENCES actor.org_unit(id)
8136                                         DEFERRABLE INITIALLY DEFERRED,
8137         name            TEXT            NOT NULL,
8138         resource_type   INT             NOT NULL
8139                                         REFERENCES booking.resource_type(id)
8140                                         ON DELETE CASCADE
8141                                         DEFERRABLE INITIALLY DEFERRED,
8142         required        BOOLEAN         NOT NULL DEFAULT FALSE,
8143         CONSTRAINT bra_name_once_per_type UNIQUE(resource_type, name)
8144 );
8145
8146 CREATE TABLE booking.resource_attr_value (
8147         id               SERIAL         PRIMARY KEY,
8148         owner            INT            NOT NULL
8149                                         REFERENCES actor.org_unit(id)
8150                                         DEFERRABLE INITIALLY DEFERRED,
8151         attr             INT            NOT NULL
8152                                         REFERENCES booking.resource_attr(id)
8153                                         DEFERRABLE INITIALLY DEFERRED,
8154         valid_value      TEXT           NOT NULL,
8155         CONSTRAINT brav_logical_key UNIQUE(owner, attr, valid_value)
8156 );
8157
8158 CREATE TABLE booking.resource_attr_map (
8159         id               SERIAL         PRIMARY KEY,
8160         resource         INT            NOT NULL
8161                                         REFERENCES booking.resource(id)
8162                                         ON DELETE CASCADE
8163                                         DEFERRABLE INITIALLY DEFERRED,
8164         resource_attr    INT            NOT NULL
8165                                         REFERENCES booking.resource_attr(id)
8166                                         ON DELETE CASCADE
8167                                         DEFERRABLE INITIALLY DEFERRED,
8168         value            INT            NOT NULL
8169                                         REFERENCES booking.resource_attr_value(id)
8170                                         DEFERRABLE INITIALLY DEFERRED,
8171         CONSTRAINT bram_one_value_per_attr UNIQUE(resource, resource_attr)
8172 );
8173
8174 CREATE TABLE booking.reservation (
8175         request_time     TIMESTAMPTZ   NOT NULL DEFAULT now(),
8176         start_time       TIMESTAMPTZ,
8177         end_time         TIMESTAMPTZ,
8178         capture_time     TIMESTAMPTZ,
8179         cancel_time      TIMESTAMPTZ,
8180         pickup_time      TIMESTAMPTZ,
8181         return_time      TIMESTAMPTZ,
8182         booking_interval INTERVAL,
8183         fine_interval    INTERVAL,
8184         fine_amount      DECIMAL(8,2),
8185         target_resource_type  INT       NOT NULL
8186                                         REFERENCES booking.resource_type(id)
8187                                         ON DELETE CASCADE
8188                                         DEFERRABLE INITIALLY DEFERRED,
8189         target_resource  INT            REFERENCES booking.resource(id)
8190                                         ON DELETE CASCADE
8191                                         DEFERRABLE INITIALLY DEFERRED,
8192         current_resource INT            REFERENCES booking.resource(id)
8193                                         ON DELETE CASCADE
8194                                         DEFERRABLE INITIALLY DEFERRED,
8195         request_lib      INT            NOT NULL
8196                                         REFERENCES actor.org_unit(id)
8197                                         DEFERRABLE INITIALLY DEFERRED,
8198         pickup_lib       INT            REFERENCES actor.org_unit(id)
8199                                         DEFERRABLE INITIALLY DEFERRED,
8200         capture_staff    INT            REFERENCES actor.usr(id)
8201                                         DEFERRABLE INITIALLY DEFERRED,
8202     max_fine         NUMERIC(8,2)
8203 ) INHERITS (money.billable_xact);
8204
8205 ALTER TABLE booking.reservation ADD PRIMARY KEY (id);
8206
8207 ALTER TABLE booking.reservation
8208         ADD CONSTRAINT booking_reservation_usr_fkey
8209         FOREIGN KEY (usr) REFERENCES actor.usr (id)
8210         DEFERRABLE INITIALLY DEFERRED;
8211
8212 CREATE TABLE booking.reservation_attr_value_map (
8213         id               SERIAL         PRIMARY KEY,
8214         reservation      INT            NOT NULL
8215                                         REFERENCES booking.reservation(id)
8216                                         ON DELETE CASCADE
8217                                         DEFERRABLE INITIALLY DEFERRED,
8218         attr_value       INT            NOT NULL
8219                                         REFERENCES booking.resource_attr_value(id)
8220                                         ON DELETE CASCADE
8221                                         DEFERRABLE INITIALLY DEFERRED,
8222         CONSTRAINT bravm_logical_key UNIQUE(reservation, attr_value)
8223 );
8224
8225 -- represents a circ chain summary
8226 CREATE TYPE action.circ_chain_summary AS (
8227     num_circs INTEGER,
8228     start_time TIMESTAMP WITH TIME ZONE,
8229     checkout_workstation TEXT,
8230     last_renewal_time TIMESTAMP WITH TIME ZONE, -- NULL if no renewals
8231     last_stop_fines TEXT,
8232     last_stop_fines_time TIMESTAMP WITH TIME ZONE,
8233     last_renewal_workstation TEXT, -- NULL if no renewals
8234     last_checkin_workstation TEXT,
8235     last_checkin_time TIMESTAMP WITH TIME ZONE,
8236     last_checkin_scan_time TIMESTAMP WITH TIME ZONE
8237 );
8238
8239 CREATE OR REPLACE FUNCTION action.circ_chain ( ctx_circ_id INTEGER ) RETURNS SETOF action.circulation AS $$
8240 DECLARE
8241     tmp_circ action.circulation%ROWTYPE;
8242     circ_0 action.circulation%ROWTYPE;
8243 BEGIN
8244
8245     SELECT INTO tmp_circ * FROM action.circulation WHERE id = ctx_circ_id;
8246
8247     IF tmp_circ IS NULL THEN
8248         RETURN NEXT tmp_circ;
8249     END IF;
8250     circ_0 := tmp_circ;
8251
8252     -- find the front of the chain
8253     WHILE TRUE LOOP
8254         SELECT INTO tmp_circ * FROM action.circulation WHERE id = tmp_circ.parent_circ;
8255         IF tmp_circ IS NULL THEN
8256             EXIT;
8257         END IF;
8258         circ_0 := tmp_circ;
8259     END LOOP;
8260
8261     -- now send the circs to the caller, oldest to newest
8262     tmp_circ := circ_0;
8263     WHILE TRUE LOOP
8264         IF tmp_circ IS NULL THEN
8265             EXIT;
8266         END IF;
8267         RETURN NEXT tmp_circ;
8268         SELECT INTO tmp_circ * FROM action.circulation WHERE parent_circ = tmp_circ.id;
8269     END LOOP;
8270
8271 END;
8272 $$ LANGUAGE 'plpgsql';
8273
8274 CREATE OR REPLACE FUNCTION action.summarize_circ_chain ( ctx_circ_id INTEGER ) RETURNS action.circ_chain_summary AS $$
8275
8276 DECLARE
8277
8278     -- first circ in the chain
8279     circ_0 action.circulation%ROWTYPE;
8280
8281     -- last circ in the chain
8282     circ_n action.circulation%ROWTYPE;
8283
8284     -- circ chain under construction
8285     chain action.circ_chain_summary;
8286     tmp_circ action.circulation%ROWTYPE;
8287
8288 BEGIN
8289
8290     chain.num_circs := 0;
8291     FOR tmp_circ IN SELECT * FROM action.circ_chain(ctx_circ_id) LOOP
8292
8293         IF chain.num_circs = 0 THEN
8294             circ_0 := tmp_circ;
8295         END IF;
8296
8297         chain.num_circs := chain.num_circs + 1;
8298         circ_n := tmp_circ;
8299     END LOOP;
8300
8301     chain.start_time := circ_0.xact_start;
8302     chain.last_stop_fines := circ_n.stop_fines;
8303     chain.last_stop_fines_time := circ_n.stop_fines_time;
8304     chain.last_checkin_time := circ_n.checkin_time;
8305     chain.last_checkin_scan_time := circ_n.checkin_scan_time;
8306     SELECT INTO chain.checkout_workstation name FROM actor.workstation WHERE id = circ_0.workstation;
8307     SELECT INTO chain.last_checkin_workstation name FROM actor.workstation WHERE id = circ_n.checkin_workstation;
8308
8309     IF chain.num_circs > 1 THEN
8310         chain.last_renewal_time := circ_n.xact_start;
8311         SELECT INTO chain.last_renewal_workstation name FROM actor.workstation WHERE id = circ_n.workstation;
8312     END IF;
8313
8314     RETURN chain;
8315
8316 END;
8317 $$ LANGUAGE 'plpgsql';
8318
8319 CREATE TRIGGER mat_summary_create_tgr AFTER INSERT ON booking.reservation FOR EACH ROW EXECUTE PROCEDURE money.mat_summary_create ('reservation');
8320 CREATE TRIGGER mat_summary_change_tgr AFTER UPDATE ON booking.reservation FOR EACH ROW EXECUTE PROCEDURE money.mat_summary_update ();
8321 CREATE TRIGGER mat_summary_remove_tgr AFTER DELETE ON booking.reservation FOR EACH ROW EXECUTE PROCEDURE money.mat_summary_delete ();
8322
8323 ALTER TABLE config.standing_penalty
8324         ADD COLUMN org_depth   INTEGER;
8325
8326 CREATE OR REPLACE FUNCTION actor.calculate_system_penalties( match_user INT, context_org INT ) RETURNS SETOF actor.usr_standing_penalty AS $func$
8327 DECLARE
8328     user_object         actor.usr%ROWTYPE;
8329     new_sp_row          actor.usr_standing_penalty%ROWTYPE;
8330     existing_sp_row     actor.usr_standing_penalty%ROWTYPE;
8331     collections_fines   permission.grp_penalty_threshold%ROWTYPE;
8332     max_fines           permission.grp_penalty_threshold%ROWTYPE;
8333     max_overdue         permission.grp_penalty_threshold%ROWTYPE;
8334     max_items_out       permission.grp_penalty_threshold%ROWTYPE;
8335     tmp_grp             INT;
8336     items_overdue       INT;
8337     items_out           INT;
8338     context_org_list    INT[];
8339     current_fines        NUMERIC(8,2) := 0.0;
8340     tmp_fines            NUMERIC(8,2);
8341     tmp_groc            RECORD;
8342     tmp_circ            RECORD;
8343     tmp_org             actor.org_unit%ROWTYPE;
8344     tmp_penalty         config.standing_penalty%ROWTYPE;
8345     tmp_depth           INTEGER;
8346 BEGIN
8347     SELECT INTO user_object * FROM actor.usr WHERE id = match_user;
8348
8349     -- Max fines
8350     SELECT INTO tmp_org * FROM actor.org_unit WHERE id = context_org;
8351
8352     -- Fail if the user has a high fine balance
8353     LOOP
8354         tmp_grp := user_object.profile;
8355         LOOP
8356             SELECT * INTO max_fines FROM permission.grp_penalty_threshold WHERE grp = tmp_grp AND penalty = 1 AND org_unit = tmp_org.id;
8357
8358             IF max_fines.threshold IS NULL THEN
8359                 SELECT parent INTO tmp_grp FROM permission.grp_tree WHERE id = tmp_grp;
8360             ELSE
8361                 EXIT;
8362             END IF;
8363
8364             IF tmp_grp IS NULL THEN
8365                 EXIT;
8366             END IF;
8367         END LOOP;
8368
8369         IF max_fines.threshold IS NOT NULL OR tmp_org.parent_ou IS NULL THEN
8370             EXIT;
8371         END IF;
8372
8373         SELECT * INTO tmp_org FROM actor.org_unit WHERE id = tmp_org.parent_ou;
8374
8375     END LOOP;
8376
8377     IF max_fines.threshold IS NOT NULL THEN
8378
8379         FOR existing_sp_row IN
8380                 SELECT  *
8381                   FROM  actor.usr_standing_penalty
8382                   WHERE usr = match_user
8383                         AND org_unit = max_fines.org_unit
8384                         AND (stop_date IS NULL or stop_date > NOW())
8385                         AND standing_penalty = 1
8386                 LOOP
8387             RETURN NEXT existing_sp_row;
8388         END LOOP;
8389
8390         SELECT  SUM(f.balance_owed) INTO current_fines
8391           FROM  money.materialized_billable_xact_summary f
8392                 JOIN (
8393                     SELECT  r.id
8394                       FROM  booking.reservation r
8395                             JOIN  actor.org_unit_full_path( max_fines.org_unit ) fp ON (r.pickup_lib = fp.id)
8396                       WHERE usr = match_user
8397                             AND xact_finish IS NULL
8398                                 UNION ALL
8399                     SELECT  g.id
8400                       FROM  money.grocery g
8401                             JOIN  actor.org_unit_full_path( max_fines.org_unit ) fp ON (g.billing_location = fp.id)
8402                       WHERE usr = match_user
8403                             AND xact_finish IS NULL
8404                                 UNION ALL
8405                     SELECT  circ.id
8406                       FROM  action.circulation circ
8407                             JOIN  actor.org_unit_full_path( max_fines.org_unit ) fp ON (circ.circ_lib = fp.id)
8408                       WHERE usr = match_user
8409                             AND xact_finish IS NULL ) l USING (id);
8410
8411         IF current_fines >= max_fines.threshold THEN
8412             new_sp_row.usr := match_user;
8413             new_sp_row.org_unit := max_fines.org_unit;
8414             new_sp_row.standing_penalty := 1;
8415             RETURN NEXT new_sp_row;
8416         END IF;
8417     END IF;
8418
8419     -- Start over for max overdue
8420     SELECT INTO tmp_org * FROM actor.org_unit WHERE id = context_org;
8421
8422     -- Fail if the user has too many overdue items
8423     LOOP
8424         tmp_grp := user_object.profile;
8425         LOOP
8426
8427             SELECT * INTO max_overdue FROM permission.grp_penalty_threshold WHERE grp = tmp_grp AND penalty = 2 AND org_unit = tmp_org.id;
8428
8429             IF max_overdue.threshold IS NULL THEN
8430                 SELECT parent INTO tmp_grp FROM permission.grp_tree WHERE id = tmp_grp;
8431             ELSE
8432                 EXIT;
8433             END IF;
8434
8435             IF tmp_grp IS NULL THEN
8436                 EXIT;
8437             END IF;
8438         END LOOP;
8439
8440         IF max_overdue.threshold IS NOT NULL OR tmp_org.parent_ou IS NULL THEN
8441             EXIT;
8442         END IF;
8443
8444         SELECT INTO tmp_org * FROM actor.org_unit WHERE id = tmp_org.parent_ou;
8445
8446     END LOOP;
8447
8448     IF max_overdue.threshold IS NOT NULL THEN
8449
8450         FOR existing_sp_row IN
8451                 SELECT  *
8452                   FROM  actor.usr_standing_penalty
8453                   WHERE usr = match_user
8454                         AND org_unit = max_overdue.org_unit
8455                         AND (stop_date IS NULL or stop_date > NOW())
8456                         AND standing_penalty = 2
8457                 LOOP
8458             RETURN NEXT existing_sp_row;
8459         END LOOP;
8460
8461         SELECT  INTO items_overdue COUNT(*)
8462           FROM  action.circulation circ
8463                 JOIN  actor.org_unit_full_path( max_overdue.org_unit ) fp ON (circ.circ_lib = fp.id)
8464           WHERE circ.usr = match_user
8465             AND circ.checkin_time IS NULL
8466             AND circ.due_date < NOW()
8467             AND (circ.stop_fines = 'MAXFINES' OR circ.stop_fines IS NULL);
8468
8469         IF items_overdue >= max_overdue.threshold::INT THEN
8470             new_sp_row.usr := match_user;
8471             new_sp_row.org_unit := max_overdue.org_unit;
8472             new_sp_row.standing_penalty := 2;
8473             RETURN NEXT new_sp_row;
8474         END IF;
8475     END IF;
8476
8477     -- Start over for max out
8478     SELECT INTO tmp_org * FROM actor.org_unit WHERE id = context_org;
8479
8480     -- Fail if the user has too many checked out items
8481     LOOP
8482         tmp_grp := user_object.profile;
8483         LOOP
8484             SELECT * INTO max_items_out FROM permission.grp_penalty_threshold WHERE grp = tmp_grp AND penalty = 3 AND org_unit = tmp_org.id;
8485
8486             IF max_items_out.threshold IS NULL THEN
8487                 SELECT parent INTO tmp_grp FROM permission.grp_tree WHERE id = tmp_grp;
8488             ELSE
8489                 EXIT;
8490             END IF;
8491
8492             IF tmp_grp IS NULL THEN
8493                 EXIT;
8494             END IF;
8495         END LOOP;
8496
8497         IF max_items_out.threshold IS NOT NULL OR tmp_org.parent_ou IS NULL THEN
8498             EXIT;
8499         END IF;
8500
8501         SELECT INTO tmp_org * FROM actor.org_unit WHERE id = tmp_org.parent_ou;
8502
8503     END LOOP;
8504
8505
8506     -- Fail if the user has too many items checked out
8507     IF max_items_out.threshold IS NOT NULL THEN
8508
8509         FOR existing_sp_row IN
8510                 SELECT  *
8511                   FROM  actor.usr_standing_penalty
8512                   WHERE usr = match_user
8513                         AND org_unit = max_items_out.org_unit
8514                         AND (stop_date IS NULL or stop_date > NOW())
8515                         AND standing_penalty = 3
8516                 LOOP
8517             RETURN NEXT existing_sp_row;
8518         END LOOP;
8519
8520         SELECT  INTO items_out COUNT(*)
8521           FROM  action.circulation circ
8522                 JOIN  actor.org_unit_full_path( max_items_out.org_unit ) fp ON (circ.circ_lib = fp.id)
8523           WHERE circ.usr = match_user
8524                 AND circ.checkin_time IS NULL
8525                 AND (circ.stop_fines IN ('MAXFINES','LONGOVERDUE') OR circ.stop_fines IS NULL);
8526
8527            IF items_out >= max_items_out.threshold::INT THEN
8528             new_sp_row.usr := match_user;
8529             new_sp_row.org_unit := max_items_out.org_unit;
8530             new_sp_row.standing_penalty := 3;
8531             RETURN NEXT new_sp_row;
8532            END IF;
8533     END IF;
8534
8535     -- Start over for collections warning
8536     SELECT INTO tmp_org * FROM actor.org_unit WHERE id = context_org;
8537
8538     -- Fail if the user has a collections-level fine balance
8539     LOOP
8540         tmp_grp := user_object.profile;
8541         LOOP
8542             SELECT * INTO max_fines FROM permission.grp_penalty_threshold WHERE grp = tmp_grp AND penalty = 4 AND org_unit = tmp_org.id;
8543
8544             IF max_fines.threshold IS NULL THEN
8545                 SELECT parent INTO tmp_grp FROM permission.grp_tree WHERE id = tmp_grp;
8546             ELSE
8547                 EXIT;
8548             END IF;
8549
8550             IF tmp_grp IS NULL THEN
8551                 EXIT;
8552             END IF;
8553         END LOOP;
8554
8555         IF max_fines.threshold IS NOT NULL OR tmp_org.parent_ou IS NULL THEN
8556             EXIT;
8557         END IF;
8558
8559         SELECT * INTO tmp_org FROM actor.org_unit WHERE id = tmp_org.parent_ou;
8560
8561     END LOOP;
8562
8563     IF max_fines.threshold IS NOT NULL THEN
8564
8565         FOR existing_sp_row IN
8566                 SELECT  *
8567                   FROM  actor.usr_standing_penalty
8568                   WHERE usr = match_user
8569                         AND org_unit = max_fines.org_unit
8570                         AND (stop_date IS NULL or stop_date > NOW())
8571                         AND standing_penalty = 4
8572                 LOOP
8573             RETURN NEXT existing_sp_row;
8574         END LOOP;
8575
8576         SELECT  SUM(f.balance_owed) INTO current_fines
8577           FROM  money.materialized_billable_xact_summary f
8578                 JOIN (
8579                     SELECT  r.id
8580                       FROM  booking.reservation r
8581                             JOIN  actor.org_unit_full_path( max_fines.org_unit ) fp ON (r.pickup_lib = fp.id)
8582                       WHERE usr = match_user
8583                             AND xact_finish IS NULL
8584                                 UNION ALL
8585                     SELECT  g.id
8586                       FROM  money.grocery g
8587                             JOIN  actor.org_unit_full_path( max_fines.org_unit ) fp ON (g.billing_location = fp.id)
8588                       WHERE usr = match_user
8589                             AND xact_finish IS NULL
8590                                 UNION ALL
8591                     SELECT  circ.id
8592                       FROM  action.circulation circ
8593                             JOIN  actor.org_unit_full_path( max_fines.org_unit ) fp ON (circ.circ_lib = fp.id)
8594                       WHERE usr = match_user
8595                             AND xact_finish IS NULL ) l USING (id);
8596
8597         IF current_fines >= max_fines.threshold THEN
8598             new_sp_row.usr := match_user;
8599             new_sp_row.org_unit := max_fines.org_unit;
8600             new_sp_row.standing_penalty := 4;
8601             RETURN NEXT new_sp_row;
8602         END IF;
8603     END IF;
8604
8605     -- Start over for in collections
8606     SELECT INTO tmp_org * FROM actor.org_unit WHERE id = context_org;
8607
8608     -- Remove the in-collections penalty if the user has paid down enough
8609     -- This penalty is different, because this code is not responsible for creating
8610     -- new in-collections penalties, only for removing them
8611     LOOP
8612         tmp_grp := user_object.profile;
8613         LOOP
8614             SELECT * INTO max_fines FROM permission.grp_penalty_threshold WHERE grp = tmp_grp AND penalty = 30 AND org_unit = tmp_org.id;
8615
8616             IF max_fines.threshold IS NULL THEN
8617                 SELECT parent INTO tmp_grp FROM permission.grp_tree WHERE id = tmp_grp;
8618             ELSE
8619                 EXIT;
8620             END IF;
8621
8622             IF tmp_grp IS NULL THEN
8623                 EXIT;
8624             END IF;
8625         END LOOP;
8626
8627         IF max_fines.threshold IS NOT NULL OR tmp_org.parent_ou IS NULL THEN
8628             EXIT;
8629         END IF;
8630
8631         SELECT * INTO tmp_org FROM actor.org_unit WHERE id = tmp_org.parent_ou;
8632
8633     END LOOP;
8634
8635     IF max_fines.threshold IS NOT NULL THEN
8636
8637         -- first, see if the user had paid down to the threshold
8638         SELECT  SUM(f.balance_owed) INTO current_fines
8639           FROM  money.materialized_billable_xact_summary f
8640                 JOIN (
8641                     SELECT  r.id
8642                       FROM  booking.reservation r
8643                             JOIN  actor.org_unit_full_path( max_fines.org_unit ) fp ON (r.pickup_lib = fp.id)
8644                       WHERE usr = match_user
8645                             AND xact_finish IS NULL
8646                                 UNION ALL
8647                     SELECT  g.id
8648                       FROM  money.grocery g
8649                             JOIN  actor.org_unit_full_path( max_fines.org_unit ) fp ON (g.billing_location = fp.id)
8650                       WHERE usr = match_user
8651                             AND xact_finish IS NULL
8652                                 UNION ALL
8653                     SELECT  circ.id
8654                       FROM  action.circulation circ
8655                             JOIN  actor.org_unit_full_path( max_fines.org_unit ) fp ON (circ.circ_lib = fp.id)
8656                       WHERE usr = match_user
8657                             AND xact_finish IS NULL ) l USING (id);
8658
8659         IF current_fines IS NULL OR current_fines <= max_fines.threshold THEN
8660             -- patron has paid down enough
8661
8662             SELECT INTO tmp_penalty * FROM config.standing_penalty WHERE id = 30;
8663
8664             IF tmp_penalty.org_depth IS NOT NULL THEN
8665
8666                 -- since this code is not responsible for applying the penalty, it can't
8667                 -- guarantee the current context org will match the org at which the penalty
8668                 --- was applied.  search up the org tree until we hit the configured penalty depth
8669                 SELECT INTO tmp_org * FROM actor.org_unit WHERE id = context_org;
8670                 SELECT INTO tmp_depth depth FROM actor.org_unit_type WHERE id = tmp_org.ou_type;
8671
8672                 WHILE tmp_depth >= tmp_penalty.org_depth LOOP
8673
8674                     FOR existing_sp_row IN
8675                             SELECT  *
8676                             FROM  actor.usr_standing_penalty
8677                             WHERE usr = match_user
8678                                     AND org_unit = tmp_org.id
8679                                     AND (stop_date IS NULL or stop_date > NOW())
8680                                     AND standing_penalty = 30
8681                             LOOP
8682
8683                         -- Penalty exists, return it for removal
8684                         RETURN NEXT existing_sp_row;
8685                     END LOOP;
8686
8687                     IF tmp_org.parent_ou IS NULL THEN
8688                         EXIT;
8689                     END IF;
8690
8691                     SELECT * INTO tmp_org FROM actor.org_unit WHERE id = tmp_org.parent_ou;
8692                     SELECT INTO tmp_depth depth FROM actor.org_unit_type WHERE id = tmp_org.ou_type;
8693                 END LOOP;
8694
8695             ELSE
8696
8697                 -- no penalty depth is defined, look for exact matches
8698
8699                 FOR existing_sp_row IN
8700                         SELECT  *
8701                         FROM  actor.usr_standing_penalty
8702                         WHERE usr = match_user
8703                                 AND org_unit = max_fines.org_unit
8704                                 AND (stop_date IS NULL or stop_date > NOW())
8705                                 AND standing_penalty = 30
8706                         LOOP
8707                     -- Penalty exists, return it for removal
8708                     RETURN NEXT existing_sp_row;
8709                 END LOOP;
8710             END IF;
8711
8712         END IF;
8713
8714     END IF;
8715
8716     RETURN;
8717 END;
8718 $func$ LANGUAGE plpgsql;
8719
8720 -- Create a default row in acq.fiscal_calendar
8721 -- Add a column in actor.org_unit to point to it
8722
8723 INSERT INTO acq.fiscal_calendar ( id, name ) VALUES ( 1, 'Default' );
8724
8725 ALTER TABLE actor.org_unit
8726 ADD COLUMN fiscal_calendar INT NOT NULL
8727         REFERENCES acq.fiscal_calendar( id )
8728         DEFERRABLE INITIALLY DEFERRED
8729         DEFAULT 1;
8730
8731 ALTER TABLE auditor.actor_org_unit_history
8732         ADD COLUMN fiscal_calendar INT;
8733
8734 DROP VIEW IF EXISTS auditor.actor_org_unit_lifecycle;
8735
8736 SELECT auditor.create_auditor_lifecycle( 'actor', 'org_unit' );
8737
8738 ALTER TABLE acq.funding_source_credit
8739 ADD COLUMN deadline_date TIMESTAMPTZ;
8740
8741 ALTER TABLE acq.funding_source_credit
8742 ADD COLUMN effective_date TIMESTAMPTZ NOT NULL DEFAULT now();
8743
8744 INSERT INTO config.standing_penalty (id,name,label) VALUES (30,'PATRON_IN_COLLECTIONS','Patron has been referred to a collections agency');
8745
8746 CREATE TABLE acq.fund_transfer (
8747         id               SERIAL         PRIMARY KEY,
8748         src_fund         INT            NOT NULL REFERENCES acq.fund( id )
8749                                         DEFERRABLE INITIALLY DEFERRED,
8750         src_amount       NUMERIC        NOT NULL,
8751         dest_fund        INT            REFERENCES acq.fund( id )
8752                                         DEFERRABLE INITIALLY DEFERRED,
8753         dest_amount      NUMERIC,
8754         transfer_time    TIMESTAMPTZ    NOT NULL DEFAULT now(),
8755         transfer_user    INT            NOT NULL REFERENCES actor.usr( id )
8756                                         DEFERRABLE INITIALLY DEFERRED,
8757         note             TEXT,
8758     funding_source_credit INTEGER   NOT NULL
8759                                         REFERENCES acq.funding_source_credit(id)
8760                                         DEFERRABLE INITIALLY DEFERRED
8761 );
8762
8763 CREATE INDEX acqftr_usr_idx
8764 ON acq.fund_transfer( transfer_user );
8765
8766 COMMENT ON TABLE acq.fund_transfer IS $$
8767 /*
8768  * Copyright (C) 2009  Georgia Public Library Service
8769  * Scott McKellar <scott@esilibrary.com>
8770  *
8771  * Fund Transfer
8772  *
8773  * Each row represents the transfer of money from a source fund
8774  * to a destination fund.  There should be corresponding entries
8775  * in acq.fund_allocation.  The purpose of acq.fund_transfer is
8776  * to record how much money moved from which fund to which other
8777  * fund.
8778  *
8779  * The presence of two amount fields, rather than one, reflects
8780  * the possibility that the two funds are denominated in different
8781  * currencies.  If they use the same currency type, the two
8782  * amounts should be the same.
8783  *
8784  * ****
8785  *
8786  * This program is free software; you can redistribute it and/or
8787  * modify it under the terms of the GNU General Public License
8788  * as published by the Free Software Foundation; either version 2
8789  * of the License, or (at your option) any later version.
8790  *
8791  * This program is distributed in the hope that it will be useful,
8792  * but WITHOUT ANY WARRANTY; without even the implied warranty of
8793  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
8794  * GNU General Public License for more details.
8795  */
8796 $$;
8797
8798 CREATE TABLE acq.claim_event_type (
8799         id             SERIAL           PRIMARY KEY,
8800         org_unit       INT              NOT NULL REFERENCES actor.org_unit(id)
8801                                                  DEFERRABLE INITIALLY DEFERRED,
8802         code           TEXT             NOT NULL,
8803         description    TEXT             NOT NULL,
8804         library_initiated BOOL          NOT NULL DEFAULT FALSE,
8805         CONSTRAINT event_type_once_per_org UNIQUE ( org_unit, code )
8806 );
8807
8808 CREATE TABLE acq.claim_event (
8809         id             BIGSERIAL        PRIMARY KEY,
8810         type           INT              NOT NULL REFERENCES acq.claim_event_type
8811                                                  DEFERRABLE INITIALLY DEFERRED,
8812         claim          SERIAL           NOT NULL REFERENCES acq.claim
8813                                                  DEFERRABLE INITIALLY DEFERRED,
8814         event_date     TIMESTAMPTZ      NOT NULL DEFAULT now(),
8815         creator        INT              NOT NULL REFERENCES actor.usr
8816                                                  DEFERRABLE INITIALLY DEFERRED,
8817         note           TEXT
8818 );
8819
8820 CREATE INDEX claim_event_claim_date_idx ON acq.claim_event( claim, event_date );
8821
8822 CREATE OR REPLACE FUNCTION actor.usr_purge_data(
8823         src_usr  IN INTEGER,
8824         dest_usr IN INTEGER
8825 ) RETURNS VOID AS $$
8826 DECLARE
8827         suffix TEXT;
8828         renamable_row RECORD;
8829 BEGIN
8830
8831         UPDATE actor.usr SET
8832                 active = FALSE,
8833                 card = NULL,
8834                 mailing_address = NULL,
8835                 billing_address = NULL
8836         WHERE id = src_usr;
8837
8838         -- acq.*
8839         UPDATE acq.fund_allocation SET allocator = dest_usr WHERE allocator = src_usr;
8840         UPDATE acq.lineitem SET creator = dest_usr WHERE creator = src_usr;
8841         UPDATE acq.lineitem SET editor = dest_usr WHERE editor = src_usr;
8842         UPDATE acq.lineitem SET selector = dest_usr WHERE selector = src_usr;
8843         UPDATE acq.lineitem_note SET creator = dest_usr WHERE creator = src_usr;
8844         UPDATE acq.lineitem_note SET editor = dest_usr WHERE editor = src_usr;
8845         DELETE FROM acq.lineitem_usr_attr_definition WHERE usr = src_usr;
8846
8847         -- Update with a rename to avoid collisions
8848         FOR renamable_row in
8849                 SELECT id, name
8850                 FROM   acq.picklist
8851                 WHERE  owner = src_usr
8852         LOOP
8853                 suffix := ' (' || src_usr || ')';
8854                 LOOP
8855                         BEGIN
8856                                 UPDATE  acq.picklist
8857                                 SET     owner = dest_usr, name = name || suffix
8858                                 WHERE   id = renamable_row.id;
8859                         EXCEPTION WHEN unique_violation THEN
8860                                 suffix := suffix || ' ';
8861                                 CONTINUE;
8862                         END;
8863                         EXIT;
8864                 END LOOP;
8865         END LOOP;
8866
8867         UPDATE acq.picklist SET creator = dest_usr WHERE creator = src_usr;
8868         UPDATE acq.picklist SET editor = dest_usr WHERE editor = src_usr;
8869         UPDATE acq.po_note SET creator = dest_usr WHERE creator = src_usr;
8870         UPDATE acq.po_note SET editor = dest_usr WHERE editor = src_usr;
8871         UPDATE acq.purchase_order SET owner = dest_usr WHERE owner = src_usr;
8872         UPDATE acq.purchase_order SET creator = dest_usr WHERE creator = src_usr;
8873         UPDATE acq.purchase_order SET editor = dest_usr WHERE editor = src_usr;
8874         UPDATE acq.claim_event SET creator = dest_usr WHERE creator = src_usr;
8875
8876         -- action.*
8877         DELETE FROM action.circulation WHERE usr = src_usr;
8878         UPDATE action.circulation SET circ_staff = dest_usr WHERE circ_staff = src_usr;
8879         UPDATE action.circulation SET checkin_staff = dest_usr WHERE checkin_staff = src_usr;
8880         UPDATE action.hold_notification SET notify_staff = dest_usr WHERE notify_staff = src_usr;
8881         UPDATE action.hold_request SET fulfillment_staff = dest_usr WHERE fulfillment_staff = src_usr;
8882         UPDATE action.hold_request SET requestor = dest_usr WHERE requestor = src_usr;
8883         DELETE FROM action.hold_request WHERE usr = src_usr;
8884         UPDATE action.in_house_use SET staff = dest_usr WHERE staff = src_usr;
8885         UPDATE action.non_cat_in_house_use SET staff = dest_usr WHERE staff = src_usr;
8886         DELETE FROM action.non_cataloged_circulation WHERE patron = src_usr;
8887         UPDATE action.non_cataloged_circulation SET staff = dest_usr WHERE staff = src_usr;
8888         DELETE FROM action.survey_response WHERE usr = src_usr;
8889         UPDATE action.fieldset SET owner = dest_usr WHERE owner = src_usr;
8890
8891         -- actor.*
8892         DELETE FROM actor.card WHERE usr = src_usr;
8893         DELETE FROM actor.stat_cat_entry_usr_map WHERE target_usr = src_usr;
8894
8895         -- The following update is intended to avoid transient violations of a foreign
8896         -- key constraint, whereby actor.usr_address references itself.  It may not be
8897         -- necessary, but it does no harm.
8898         UPDATE actor.usr_address SET replaces = NULL
8899                 WHERE usr = src_usr AND replaces IS NOT NULL;
8900         DELETE FROM actor.usr_address WHERE usr = src_usr;
8901         DELETE FROM actor.usr_note WHERE usr = src_usr;
8902         UPDATE actor.usr_note SET creator = dest_usr WHERE creator = src_usr;
8903         DELETE FROM actor.usr_org_unit_opt_in WHERE usr = src_usr;
8904         UPDATE actor.usr_org_unit_opt_in SET staff = dest_usr WHERE staff = src_usr;
8905         DELETE FROM actor.usr_setting WHERE usr = src_usr;
8906         DELETE FROM actor.usr_standing_penalty WHERE usr = src_usr;
8907         UPDATE actor.usr_standing_penalty SET staff = dest_usr WHERE staff = src_usr;
8908
8909         -- asset.*
8910         UPDATE asset.call_number SET creator = dest_usr WHERE creator = src_usr;
8911         UPDATE asset.call_number SET editor = dest_usr WHERE editor = src_usr;
8912         UPDATE asset.call_number_note SET creator = dest_usr WHERE creator = src_usr;
8913         UPDATE asset.copy SET creator = dest_usr WHERE creator = src_usr;
8914         UPDATE asset.copy SET editor = dest_usr WHERE editor = src_usr;
8915         UPDATE asset.copy_note SET creator = dest_usr WHERE creator = src_usr;
8916
8917         -- auditor.*
8918         DELETE FROM auditor.actor_usr_address_history WHERE id = src_usr;
8919         DELETE FROM auditor.actor_usr_history WHERE id = src_usr;
8920         UPDATE auditor.asset_call_number_history SET creator = dest_usr WHERE creator = src_usr;
8921         UPDATE auditor.asset_call_number_history SET editor  = dest_usr WHERE editor  = src_usr;
8922         UPDATE auditor.asset_copy_history SET creator = dest_usr WHERE creator = src_usr;
8923         UPDATE auditor.asset_copy_history SET editor  = dest_usr WHERE editor  = src_usr;
8924         UPDATE auditor.biblio_record_entry_history SET creator = dest_usr WHERE creator = src_usr;
8925         UPDATE auditor.biblio_record_entry_history SET editor  = dest_usr WHERE editor  = src_usr;
8926
8927         -- biblio.*
8928         UPDATE biblio.record_entry SET creator = dest_usr WHERE creator = src_usr;
8929         UPDATE biblio.record_entry SET editor = dest_usr WHERE editor = src_usr;
8930         UPDATE biblio.record_note SET creator = dest_usr WHERE creator = src_usr;
8931         UPDATE biblio.record_note SET editor = dest_usr WHERE editor = src_usr;
8932
8933         -- container.*
8934         -- Update buckets with a rename to avoid collisions
8935         FOR renamable_row in
8936                 SELECT id, name
8937                 FROM   container.biblio_record_entry_bucket
8938                 WHERE  owner = src_usr
8939         LOOP
8940                 suffix := ' (' || src_usr || ')';
8941                 LOOP
8942                         BEGIN
8943                                 UPDATE  container.biblio_record_entry_bucket
8944                                 SET     owner = dest_usr, name = name || suffix
8945                                 WHERE   id = renamable_row.id;
8946                         EXCEPTION WHEN unique_violation THEN
8947                                 suffix := suffix || ' ';
8948                                 CONTINUE;
8949                         END;
8950                         EXIT;
8951                 END LOOP;
8952         END LOOP;
8953
8954         FOR renamable_row in
8955                 SELECT id, name
8956                 FROM   container.call_number_bucket
8957                 WHERE  owner = src_usr
8958         LOOP
8959                 suffix := ' (' || src_usr || ')';
8960                 LOOP
8961                         BEGIN
8962                                 UPDATE  container.call_number_bucket
8963                                 SET     owner = dest_usr, name = name || suffix
8964                                 WHERE   id = renamable_row.id;
8965                         EXCEPTION WHEN unique_violation THEN
8966                                 suffix := suffix || ' ';
8967                                 CONTINUE;
8968                         END;
8969                         EXIT;
8970                 END LOOP;
8971         END LOOP;
8972
8973         FOR renamable_row in
8974                 SELECT id, name
8975                 FROM   container.copy_bucket
8976                 WHERE  owner = src_usr
8977         LOOP
8978                 suffix := ' (' || src_usr || ')';
8979                 LOOP
8980                         BEGIN
8981                                 UPDATE  container.copy_bucket
8982                                 SET     owner = dest_usr, name = name || suffix
8983                                 WHERE   id = renamable_row.id;
8984                         EXCEPTION WHEN unique_violation THEN
8985                                 suffix := suffix || ' ';
8986                                 CONTINUE;
8987                         END;
8988                         EXIT;
8989                 END LOOP;
8990         END LOOP;
8991
8992         FOR renamable_row in
8993                 SELECT id, name
8994                 FROM   container.user_bucket
8995                 WHERE  owner = src_usr
8996         LOOP
8997                 suffix := ' (' || src_usr || ')';
8998                 LOOP
8999                         BEGIN
9000                                 UPDATE  container.user_bucket
9001                                 SET     owner = dest_usr, name = name || suffix
9002                                 WHERE   id = renamable_row.id;
9003                         EXCEPTION WHEN unique_violation THEN
9004                                 suffix := suffix || ' ';
9005                                 CONTINUE;
9006                         END;
9007                         EXIT;
9008                 END LOOP;
9009         END LOOP;
9010
9011         DELETE FROM container.user_bucket_item WHERE target_user = src_usr;
9012
9013         -- money.*
9014         DELETE FROM money.billable_xact WHERE usr = src_usr;
9015         DELETE FROM money.collections_tracker WHERE usr = src_usr;
9016         UPDATE money.collections_tracker SET collector = dest_usr WHERE collector = src_usr;
9017
9018         -- permission.*
9019         DELETE FROM permission.usr_grp_map WHERE usr = src_usr;
9020         DELETE FROM permission.usr_object_perm_map WHERE usr = src_usr;
9021         DELETE FROM permission.usr_perm_map WHERE usr = src_usr;
9022         DELETE FROM permission.usr_work_ou_map WHERE usr = src_usr;
9023
9024         -- reporter.*
9025         -- Update with a rename to avoid collisions
9026         BEGIN
9027                 FOR renamable_row in
9028                         SELECT id, name
9029                         FROM   reporter.output_folder
9030                         WHERE  owner = src_usr
9031                 LOOP
9032                         suffix := ' (' || src_usr || ')';
9033                         LOOP
9034                                 BEGIN
9035                                         UPDATE  reporter.output_folder
9036                                         SET     owner = dest_usr, name = name || suffix
9037                                         WHERE   id = renamable_row.id;
9038                                 EXCEPTION WHEN unique_violation THEN
9039                                         suffix := suffix || ' ';
9040                                         CONTINUE;
9041                                 END;
9042                                 EXIT;
9043                         END LOOP;
9044                 END LOOP;
9045         EXCEPTION WHEN undefined_table THEN
9046                 -- do nothing
9047         END;
9048
9049         BEGIN
9050                 UPDATE reporter.report SET owner = dest_usr WHERE owner = src_usr;
9051         EXCEPTION WHEN undefined_table THEN
9052                 -- do nothing
9053         END;
9054
9055         -- Update with a rename to avoid collisions
9056         BEGIN
9057                 FOR renamable_row in
9058                         SELECT id, name
9059                         FROM   reporter.report_folder
9060                         WHERE  owner = src_usr
9061                 LOOP
9062                         suffix := ' (' || src_usr || ')';
9063                         LOOP
9064                                 BEGIN
9065                                         UPDATE  reporter.report_folder
9066                                         SET     owner = dest_usr, name = name || suffix
9067                                         WHERE   id = renamable_row.id;
9068                                 EXCEPTION WHEN unique_violation THEN
9069                                         suffix := suffix || ' ';
9070                                         CONTINUE;
9071                                 END;
9072                                 EXIT;
9073                         END LOOP;
9074                 END LOOP;
9075         EXCEPTION WHEN undefined_table THEN
9076                 -- do nothing
9077         END;
9078
9079         BEGIN
9080                 UPDATE reporter.schedule SET runner = dest_usr WHERE runner = src_usr;
9081         EXCEPTION WHEN undefined_table THEN
9082                 -- do nothing
9083         END;
9084
9085         BEGIN
9086                 UPDATE reporter.template SET owner = dest_usr WHERE owner = src_usr;
9087         EXCEPTION WHEN undefined_table THEN
9088                 -- do nothing
9089         END;
9090
9091         -- Update with a rename to avoid collisions
9092         BEGIN
9093                 FOR renamable_row in
9094                         SELECT id, name
9095                         FROM   reporter.template_folder
9096                         WHERE  owner = src_usr
9097                 LOOP
9098                         suffix := ' (' || src_usr || ')';
9099                         LOOP
9100                                 BEGIN
9101                                         UPDATE  reporter.template_folder
9102                                         SET     owner = dest_usr, name = name || suffix
9103                                         WHERE   id = renamable_row.id;
9104                                 EXCEPTION WHEN unique_violation THEN
9105                                         suffix := suffix || ' ';
9106                                         CONTINUE;
9107                                 END;
9108                                 EXIT;
9109                         END LOOP;
9110                 END LOOP;
9111         EXCEPTION WHEN undefined_table THEN
9112         -- do nothing
9113         END;
9114
9115         -- vandelay.*
9116         -- Update with a rename to avoid collisions
9117         FOR renamable_row in
9118                 SELECT id, name
9119                 FROM   vandelay.queue
9120                 WHERE  owner = src_usr
9121         LOOP
9122                 suffix := ' (' || src_usr || ')';
9123                 LOOP
9124                         BEGIN
9125                                 UPDATE  vandelay.queue
9126                                 SET     owner = dest_usr, name = name || suffix
9127                                 WHERE   id = renamable_row.id;
9128                         EXCEPTION WHEN unique_violation THEN
9129                                 suffix := suffix || ' ';
9130                                 CONTINUE;
9131                         END;
9132                         EXIT;
9133                 END LOOP;
9134         END LOOP;
9135
9136 END;
9137 $$ LANGUAGE plpgsql;
9138
9139 COMMENT ON FUNCTION actor.usr_purge_data(INT, INT) IS $$
9140 /**
9141  * Finds rows dependent on a given row in actor.usr and either deletes them
9142  * or reassigns them to a different user.
9143  */
9144 $$;
9145
9146 CREATE OR REPLACE FUNCTION actor.usr_delete(
9147         src_usr  IN INTEGER,
9148         dest_usr IN INTEGER
9149 ) RETURNS VOID AS $$
9150 DECLARE
9151         old_profile actor.usr.profile%type;
9152         old_home_ou actor.usr.home_ou%type;
9153         new_profile actor.usr.profile%type;
9154         new_home_ou actor.usr.home_ou%type;
9155         new_name    text;
9156         new_dob     actor.usr.dob%type;
9157 BEGIN
9158         SELECT
9159                 id || '-PURGED-' || now(),
9160                 profile,
9161                 home_ou,
9162                 dob
9163         INTO
9164                 new_name,
9165                 old_profile,
9166                 old_home_ou,
9167                 new_dob
9168         FROM
9169                 actor.usr
9170         WHERE
9171                 id = src_usr;
9172         --
9173         -- Quit if no such user
9174         --
9175         IF old_profile IS NULL THEN
9176                 RETURN;
9177         END IF;
9178         --
9179         perform actor.usr_purge_data( src_usr, dest_usr );
9180         --
9181         -- Find the root grp_tree and the root org_unit.  This would be simpler if we
9182         -- could assume that there is only one root.  Theoretically, someday, maybe,
9183         -- there could be multiple roots, so we take extra trouble to get the right ones.
9184         --
9185         SELECT
9186                 id
9187         INTO
9188                 new_profile
9189         FROM
9190                 permission.grp_ancestors( old_profile )
9191         WHERE
9192                 parent is null;
9193         --
9194         SELECT
9195                 id
9196         INTO
9197                 new_home_ou
9198         FROM
9199                 actor.org_unit_ancestors( old_home_ou )
9200         WHERE
9201                 parent_ou is null;
9202         --
9203         -- Truncate date of birth
9204         --
9205         IF new_dob IS NOT NULL THEN
9206                 new_dob := date_trunc( 'year', new_dob );
9207         END IF;
9208         --
9209         UPDATE
9210                 actor.usr
9211                 SET
9212                         card = NULL,
9213                         profile = new_profile,
9214                         usrname = new_name,
9215                         email = NULL,
9216                         passwd = random()::text,
9217                         standing = DEFAULT,
9218                         ident_type =
9219                         (
9220                                 SELECT MIN( id )
9221                                 FROM config.identification_type
9222                         ),
9223                         ident_value = NULL,
9224                         ident_type2 = NULL,
9225                         ident_value2 = NULL,
9226                         net_access_level = DEFAULT,
9227                         photo_url = NULL,
9228                         prefix = NULL,
9229                         first_given_name = new_name,
9230                         second_given_name = NULL,
9231                         family_name = new_name,
9232                         suffix = NULL,
9233                         alias = NULL,
9234                         day_phone = NULL,
9235                         evening_phone = NULL,
9236                         other_phone = NULL,
9237                         mailing_address = NULL,
9238                         billing_address = NULL,
9239                         home_ou = new_home_ou,
9240                         dob = new_dob,
9241                         active = FALSE,
9242                         master_account = DEFAULT,
9243                         super_user = DEFAULT,
9244                         barred = FALSE,
9245                         deleted = TRUE,
9246                         juvenile = DEFAULT,
9247                         usrgroup = 0,
9248                         claims_returned_count = DEFAULT,
9249                         credit_forward_balance = DEFAULT,
9250                         last_xact_id = DEFAULT,
9251                         alert_message = NULL,
9252                         create_date = now(),
9253                         expire_date = now()
9254         WHERE
9255                 id = src_usr;
9256 END;
9257 $$ LANGUAGE plpgsql;
9258
9259 COMMENT ON FUNCTION actor.usr_delete(INT, INT) IS $$
9260 /**
9261  * Logically deletes a user.  Removes personally identifiable information,
9262  * and purges associated data in other tables.
9263  */
9264 $$;
9265
9266 -- INSERT INTO config.copy_status (id,name) VALUES (15,oils_i18n_gettext(15, 'On reservation shelf', 'ccs', 'name'));
9267
9268 ALTER TABLE acq.fund
9269 ADD COLUMN rollover BOOL NOT NULL DEFAULT FALSE;
9270
9271 ALTER TABLE acq.fund
9272         ADD COLUMN propagate BOOLEAN NOT NULL DEFAULT TRUE;
9273
9274 -- A fund can't roll over if it doesn't propagate from one year to the next
9275
9276 ALTER TABLE acq.fund
9277         ADD CONSTRAINT acq_fund_rollover_implies_propagate CHECK
9278         ( propagate OR NOT rollover );
9279
9280 ALTER TABLE acq.fund
9281         ADD COLUMN active BOOL NOT NULL DEFAULT TRUE;
9282
9283 ALTER TABLE acq.fund
9284     ADD COLUMN balance_warning_percent INT
9285     CONSTRAINT balance_warning_percent_limit
9286         CHECK( balance_warning_percent <= 100 );
9287
9288 ALTER TABLE acq.fund
9289     ADD COLUMN balance_stop_percent INT
9290     CONSTRAINT balance_stop_percent_limit
9291         CHECK( balance_stop_percent <= 100 );
9292
9293 CREATE VIEW acq.ordered_funding_source_credit AS
9294         SELECT
9295                 CASE WHEN deadline_date IS NULL THEN
9296                         2
9297                 ELSE
9298                         1
9299                 END AS sort_priority,
9300                 CASE WHEN deadline_date IS NULL THEN
9301                         effective_date
9302                 ELSE
9303                         deadline_date
9304                 END AS sort_date,
9305                 id,
9306                 funding_source,
9307                 amount,
9308                 note
9309         FROM
9310                 acq.funding_source_credit;
9311
9312 COMMENT ON VIEW acq.ordered_funding_source_credit IS $$
9313 /*
9314  * Copyright (C) 2009  Georgia Public Library Service
9315  * Scott McKellar <scott@gmail.com>
9316  *
9317  * The acq.ordered_funding_source_credit view is a prioritized
9318  * ordering of funding source credits.  When ordered by the first
9319  * three columns, this view defines the order in which the various
9320  * credits are to be tapped for spending, subject to the allocations
9321  * in the acq.fund_allocation table.
9322  *
9323  * The first column reflects the principle that we should spend
9324  * money with deadlines before spending money without deadlines.
9325  *
9326  * The second column reflects the principle that we should spend the
9327  * oldest money first.  For money with deadlines, that means that we
9328  * spend first from the credit with the earliest deadline.  For
9329  * money without deadlines, we spend first from the credit with the
9330  * earliest effective date.
9331  *
9332  * The third column is a tie breaker to ensure a consistent
9333  * ordering.
9334  *
9335  * ****
9336  *
9337  * This program is free software; you can redistribute it and/or
9338  * modify it under the terms of the GNU General Public License
9339  * as published by the Free Software Foundation; either version 2
9340  * of the License, or (at your option) any later version.
9341  *
9342  * This program is distributed in the hope that it will be useful,
9343  * but WITHOUT ANY WARRANTY; without even the implied warranty of
9344  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
9345  * GNU General Public License for more details.
9346  */
9347 $$;
9348
9349 CREATE OR REPLACE VIEW money.billable_xact_summary_location_view AS
9350     SELECT  m.*, COALESCE(c.circ_lib, g.billing_location, r.pickup_lib) AS billing_location
9351       FROM  money.materialized_billable_xact_summary m
9352             LEFT JOIN action.circulation c ON (c.id = m.id)
9353             LEFT JOIN money.grocery g ON (g.id = m.id)
9354             LEFT JOIN booking.reservation r ON (r.id = m.id);
9355
9356 CREATE TABLE config.marc21_rec_type_map (
9357     code        TEXT    PRIMARY KEY,
9358     type_val    TEXT    NOT NULL,
9359     blvl_val    TEXT    NOT NULL
9360 );
9361
9362 CREATE TABLE config.marc21_ff_pos_map (
9363     id          SERIAL  PRIMARY KEY,
9364     fixed_field TEXT    NOT NULL,
9365     tag         TEXT    NOT NULL,
9366     rec_type    TEXT    NOT NULL,
9367     start_pos   INT     NOT NULL,
9368     length      INT     NOT NULL,
9369     default_val TEXT    NOT NULL DEFAULT ' '
9370 );
9371
9372 CREATE TABLE config.marc21_physical_characteristic_type_map (
9373     ptype_key   TEXT    PRIMARY KEY,
9374     label       TEXT    NOT NULL -- I18N
9375 );
9376
9377 CREATE TABLE config.marc21_physical_characteristic_subfield_map (
9378     id          SERIAL  PRIMARY KEY,
9379     ptype_key   TEXT    NOT NULL REFERENCES config.marc21_physical_characteristic_type_map (ptype_key) ON DELETE CASCADE ON UPDATE CASCADE,
9380     subfield    TEXT    NOT NULL,
9381     start_pos   INT     NOT NULL,
9382     length      INT     NOT NULL,
9383     label       TEXT    NOT NULL -- I18N
9384 );
9385
9386 CREATE TABLE config.marc21_physical_characteristic_value_map (
9387     id              SERIAL  PRIMARY KEY,
9388     value           TEXT    NOT NULL,
9389     ptype_subfield  INT     NOT NULL REFERENCES config.marc21_physical_characteristic_subfield_map (id),
9390     label           TEXT    NOT NULL -- I18N
9391 );
9392
9393 ----------------------------------
9394 -- MARC21 record structure data --
9395 ----------------------------------
9396
9397 -- Record type map
9398 INSERT INTO config.marc21_rec_type_map (code, type_val, blvl_val) VALUES ('BKS','at','acdm');
9399 INSERT INTO config.marc21_rec_type_map (code, type_val, blvl_val) VALUES ('SER','a','bsi');
9400 INSERT INTO config.marc21_rec_type_map (code, type_val, blvl_val) VALUES ('VIS','gkro','abcdmsi');
9401 INSERT INTO config.marc21_rec_type_map (code, type_val, blvl_val) VALUES ('MIX','p','cdi');
9402 INSERT INTO config.marc21_rec_type_map (code, type_val, blvl_val) VALUES ('MAP','ef','abcdmsi');
9403 INSERT INTO config.marc21_rec_type_map (code, type_val, blvl_val) VALUES ('SCO','cd','abcdmsi');
9404 INSERT INTO config.marc21_rec_type_map (code, type_val, blvl_val) VALUES ('REC','ij','abcdmsi');
9405 INSERT INTO config.marc21_rec_type_map (code, type_val, blvl_val) VALUES ('COM','m','abcdmsi');
9406
9407 ------ Physical Characteristics
9408
9409 -- Map
9410 INSERT INTO config.marc21_physical_characteristic_type_map (ptype_key, label) VALUES ('a','Map');
9411 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('a','b','1','1','SMD');
9412 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Atlas');
9413 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('g',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Diagram');
9414 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('j',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Map');
9415 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('k',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Profile');
9416 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('q',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Model');
9417 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');
9418 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('s',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Section');
9419 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unspecified');
9420 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('y',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'View');
9421 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9422 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('a','d','3','1','Color');
9423 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');
9424 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Multicolored');
9425 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('a','e','4','1','Physical medium');
9426 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Paper');
9427 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Wood');
9428 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Stone');
9429 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Metal');
9430 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Synthetics');
9431 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Skins');
9432 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('g',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Textile');
9433 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('p',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Plaster');
9434 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');
9435 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');
9436 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');
9437 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');
9438 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9439 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');
9440 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9441 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('a','f','5','1','Type of reproduction');
9442 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Facsimile');
9443 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');
9444 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9445 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9446 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('a','g','6','1','Production/reproduction details');
9447 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');
9448 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Photocopy');
9449 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');
9450 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Film');
9451 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9452 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9453 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('a','h','7','1','Positive/negative');
9454 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Positive');
9455 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Negative');
9456 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixed');
9457 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');
9458
9459 -- Electronic Resource
9460 INSERT INTO config.marc21_physical_characteristic_type_map (ptype_key, label) VALUES ('c','Electronic Resource');
9461 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('c','b','1','1','SMD');
9462 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');
9463 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');
9464 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');
9465 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');
9466 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');
9467 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');
9468 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');
9469 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');
9470 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('r',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Remote');
9471 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unspecified');
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 ('c','d','3','1','Color');
9474 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');
9475 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');
9476 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Multicolored');
9477 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');
9478 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixed');
9479 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');
9480 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9481 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9482 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('c','e','4','1','Dimensions');
9483 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.');
9484 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.');
9485 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.');
9486 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.');
9487 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.');
9488 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');
9489 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.');
9490 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9491 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.');
9492 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9493 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('c','f','5','1','Sound');
9494 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)');
9495 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Sound');
9496 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9497 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('c','g','6','3','Image bit depth');
9498 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('---',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9499 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('mmm',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Multiple');
9500 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');
9501 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('c','h','9','1','File formats');
9502 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');
9503 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');
9504 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9505 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('c','i','10','1','Quality assurance target(s)');
9506 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Absent');
9507 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');
9508 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('p',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Present');
9509 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9510 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('c','j','11','1','Antecedent/Source');
9511 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');
9512 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');
9513 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');
9514 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)');
9515 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixed');
9516 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');
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_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('c','k','12','1','Level of compression');
9519 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Uncompressed');
9520 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Lossless');
9521 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Lossy');
9522 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixed');
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','l','13','1','Reformatting quality');
9525 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Access');
9526 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');
9527 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('p',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Preservation');
9528 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('r',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Replacement');
9529 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9530
9531 -- Globe
9532 INSERT INTO config.marc21_physical_characteristic_type_map (ptype_key, label) VALUES ('d','Globe');
9533 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('d','b','1','1','SMD');
9534 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');
9535 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');
9536 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');
9537 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');
9538 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unspecified');
9539 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9540 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('d','d','3','1','Color');
9541 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');
9542 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Multicolored');
9543 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('d','e','4','1','Physical medium');
9544 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Paper');
9545 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Wood');
9546 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Stone');
9547 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Metal');
9548 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Synthetics');
9549 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Skins');
9550 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('g',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Textile');
9551 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('p',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Plaster');
9552 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9553 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9554 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('d','f','5','1','Type of reproduction');
9555 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Facsimile');
9556 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');
9557 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9558 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9559
9560 -- Tactile Material
9561 INSERT INTO config.marc21_physical_characteristic_type_map (ptype_key, label) VALUES ('f','Tactile Material');
9562 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('f','b','1','1','SMD');
9563 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Moon');
9564 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Braille');
9565 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Combination');
9566 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');
9567 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unspecified');
9568 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9569 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('f','d','3','2','Class of braille writing');
9570 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');
9571 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');
9572 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');
9573 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');
9574 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');
9575 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');
9576 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');
9577 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9578 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9579 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('f','e','4','1','Level of contraction');
9580 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Uncontracted');
9581 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Contracted');
9582 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Combination');
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 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('f','f','6','3','Braille music format');
9587 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');
9588 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');
9589 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');
9590 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Paragraph');
9591 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');
9592 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');
9593 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');
9594 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');
9595 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');
9596 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');
9597 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('k',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Outline');
9598 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');
9599 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');
9600 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9601 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9602 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('f','g','9','1','Special physical characteristics');
9603 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');
9604 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');
9605 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');
9606 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9607 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9608
9609 -- Projected Graphic
9610 INSERT INTO config.marc21_physical_characteristic_type_map (ptype_key, label) VALUES ('g','Projected Graphic');
9611 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('g','b','1','1','SMD');
9612 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');
9613 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Filmstrip');
9614 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');
9615 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');
9616 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('s',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Slide');
9617 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('t',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Transparency');
9618 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9619 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('g','d','3','1','Color');
9620 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');
9621 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Multicolored');
9622 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');
9623 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixed');
9624 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');
9625 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9626 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9627 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('g','e','4','1','Base of emulsion');
9628 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Glass');
9629 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Synthetics');
9630 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');
9631 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');
9632 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');
9633 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('o',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Paper');
9634 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9635 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9636 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');
9637 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');
9638 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');
9639 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9640 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('g','g','6','1','Medium for sound');
9641 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');
9642 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');
9643 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');
9644 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');
9645 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');
9646 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');
9647 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');
9648 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('h',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Videotape');
9649 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('i',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Videodisc');
9650 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9651 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9652 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('g','h','7','1','Dimensions');
9653 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.');
9654 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.');
9655 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.');
9656 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.');
9657 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.');
9658 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.');
9659 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.');
9660 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.)');
9661 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.)');
9662 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.)');
9663 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.)');
9664 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9665 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.)');
9666 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.)');
9667 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.)');
9668 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.)');
9669 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9670 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('g','i','8','1','Secondary support material');
9671 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Cardboard');
9672 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Glass');
9673 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Synthetics');
9674 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('h',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'metal');
9675 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');
9676 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');
9677 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');
9678 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9679 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9680
9681 -- Microform
9682 INSERT INTO config.marc21_physical_characteristic_type_map (ptype_key, label) VALUES ('h','Microform');
9683 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('h','b','1','1','SMD');
9684 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');
9685 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');
9686 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');
9687 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');
9688 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Microfiche');
9689 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');
9690 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('g',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Microopaque');
9691 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unspecified');
9692 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9693 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('h','d','3','1','Positive/negative');
9694 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Positive');
9695 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Negative');
9696 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixed');
9697 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9698 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('h','e','4','1','Dimensions');
9699 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.');
9700 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.');
9701 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.');
9702 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('g',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'70mm.');
9703 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.');
9704 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.)');
9705 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.)');
9706 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.)');
9707 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.)');
9708 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9709 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9710 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');
9711 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)');
9712 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)');
9713 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)');
9714 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)');
9715 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-)');
9716 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9717 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');
9718 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('h','g','9','1','Color');
9719 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');
9720 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Multicolored');
9721 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixed');
9722 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9723 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9724 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('h','h','10','1','Emulsion on film');
9725 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');
9726 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Diazo');
9727 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Vesicular');
9728 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixed');
9729 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');
9730 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9731 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9732 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('h','i','11','1','Quality assurance target(s)');
9733 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');
9734 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');
9735 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');
9736 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');
9737 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9738 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('h','j','12','1','Base of film');
9739 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');
9740 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');
9741 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');
9742 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');
9743 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');
9744 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');
9745 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');
9746 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');
9747 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');
9748 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9749 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9750
9751 -- Non-projected Graphic
9752 INSERT INTO config.marc21_physical_characteristic_type_map (ptype_key, label) VALUES ('k','Non-projected Graphic');
9753 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('k','b','1','1','SMD');
9754 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Collage');
9755 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Drawing');
9756 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Painting');
9757 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');
9758 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('g',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Photonegative');
9759 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('h',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Photoprint');
9760 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('i',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Picture');
9761 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('j',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Print');
9762 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');
9763 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('n',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Chart');
9764 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');
9765 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unspecified');
9766 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9767 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('k','d','3','1','Color');
9768 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');
9769 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');
9770 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Multicolored');
9771 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');
9772 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixed');
9773 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9774 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9775 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('k','e','4','1','Primary support material');
9776 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Canvas');
9777 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');
9778 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');
9779 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Glass');
9780 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Synthetics');
9781 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Skins');
9782 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('g',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Textile');
9783 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('h',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Metal');
9784 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');
9785 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('o',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Paper');
9786 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('p',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Plaster');
9787 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('q',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Hardboard');
9788 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('r',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Porcelain');
9789 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('s',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Stone');
9790 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('t',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Wood');
9791 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9792 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9793 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('k','f','5','1','Secondary support material');
9794 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Canvas');
9795 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');
9796 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');
9797 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Glass');
9798 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Synthetics');
9799 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Skins');
9800 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('g',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Textile');
9801 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('h',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Metal');
9802 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');
9803 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('o',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Paper');
9804 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('p',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Plaster');
9805 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('q',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Hardboard');
9806 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('r',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Porcelain');
9807 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('s',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Stone');
9808 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('t',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Wood');
9809 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9810 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9811
9812 -- Motion Picture
9813 INSERT INTO config.marc21_physical_characteristic_type_map (ptype_key, label) VALUES ('m','Motion Picture');
9814 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('m','b','1','1','SMD');
9815 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');
9816 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');
9817 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');
9818 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unspecified');
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 ('m','d','3','1','Color');
9821 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');
9822 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Multicolored');
9823 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');
9824 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixed');
9825 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9826 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9827 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('m','e','4','1','Motion picture presentation format');
9828 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');
9829 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)');
9830 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'3D');
9831 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)');
9832 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');
9833 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');
9834 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9835 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9836 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');
9837 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');
9838 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');
9839 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9840 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('m','g','6','1','Medium for sound');
9841 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');
9842 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');
9843 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');
9844 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');
9845 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');
9846 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');
9847 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');
9848 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('h',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Videotape');
9849 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('i',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Videodisc');
9850 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9851 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9852 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('m','h','7','1','Dimensions');
9853 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.');
9854 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.');
9855 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.');
9856 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.');
9857 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.');
9858 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.');
9859 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.');
9860 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9861 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9862 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('m','i','8','1','Configuration of playback channels');
9863 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('k',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixed');
9864 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Monaural');
9865 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');
9866 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');
9867 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('s',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Stereophonic');
9868 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9869 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9870 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('m','j','9','1','Production elements');
9871 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');
9872 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Trims');
9873 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Outtakes');
9874 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Rushes');
9875 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');
9876 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');
9877 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');
9878 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');
9879 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9880
9881 -- Remote-sensing Image
9882 INSERT INTO config.marc21_physical_characteristic_type_map (ptype_key, label) VALUES ('r','Remote-sensing Image');
9883 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('r','b','1','1','SMD');
9884 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unspecified');
9885 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('r','d','3','1','Altitude of sensor');
9886 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Surface');
9887 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Airborne');
9888 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Spaceborne');
9889 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');
9890 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9891 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9892 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('r','e','4','1','Attitude of sensor');
9893 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');
9894 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');
9895 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Vertical');
9896 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');
9897 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9898 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('r','f','5','1','Cloud cover');
9899 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%');
9900 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%');
9901 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%');
9902 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%');
9903 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%');
9904 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%');
9905 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%');
9906 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%');
9907 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%');
9908 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%');
9909 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');
9910 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9911 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('r','g','6','1','Platform construction type');
9912 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Balloon');
9913 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');
9914 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');
9915 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');
9916 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');
9917 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');
9918 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');
9919 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');
9920 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');
9921 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');
9922 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9923 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9924 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('r','h','7','1','Platform use category');
9925 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Meteorological');
9926 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');
9927 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');
9928 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');
9929 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');
9930 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9931 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9932 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('r','i','8','1','Sensor type');
9933 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Active');
9934 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Passive');
9935 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9936 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9937 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('r','j','9','2','Data type');
9938 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');
9939 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');
9940 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');
9941 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');
9942 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');
9943 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)');
9944 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');
9945 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('dv',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Combinations');
9946 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');
9947 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)');
9948 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)');
9949 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)');
9950 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');
9951 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');
9952 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');
9953 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');
9954 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');
9955 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');
9956 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');
9957 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');
9958 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');
9959 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');
9960 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');
9961 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');
9962 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');
9963 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');
9964 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');
9965 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');
9966 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');
9967 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');
9968 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');
9969 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');
9970 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');
9971 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)');
9972 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');
9973 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('rc',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Bouger');
9974 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('rd',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Isostatic');
9975 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');
9976 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');
9977 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('uu',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
9978 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('zz',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9979
9980 -- Sound Recording
9981 INSERT INTO config.marc21_physical_characteristic_type_map (ptype_key, label) VALUES ('s','Sound Recording');
9982 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('s','b','1','1','SMD');
9983 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');
9984 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('e',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Cylinder');
9985 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');
9986 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');
9987 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('q',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Roll');
9988 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');
9989 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');
9990 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unspecified');
9991 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');
9992 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
9993 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('s','d','3','1','Speed');
9994 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');
9995 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');
9996 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');
9997 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');
9998 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');
9999 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');
10000 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');
10001 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');
10002 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');
10003 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');
10004 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');
10005 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');
10006 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');
10007 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');
10008 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
10009 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
10010 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('s','e','4','1','Configuration of playback channels');
10011 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Monaural');
10012 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('q',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Quadraphonic');
10013 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('s',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Stereophonic');
10014 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
10015 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
10016 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('s','f','5','1','Groove width or pitch');
10017 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');
10018 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');
10019 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');
10020 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
10021 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
10022 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('s','g','6','1','Dimensions');
10023 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.');
10024 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.');
10025 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.');
10026 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.');
10027 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.');
10028 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.');
10029 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.)');
10030 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.');
10031 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');
10032 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.');
10033 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.');
10034 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
10035 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
10036 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('s','h','7','1','Tape width');
10037 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.');
10038 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.');
10039 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');
10040 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.');
10041 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.');
10042 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
10043 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
10044 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('s','i','8','1','Tape configuration ');
10045 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');
10046 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');
10047 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');
10048 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');
10049 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');
10050 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');
10051 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');
10052 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
10053 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
10054 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('s','m','12','1','Special playback');
10055 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');
10056 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');
10057 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');
10058 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');
10059 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');
10060 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');
10061 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');
10062 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');
10063 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');
10064 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
10065 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
10066 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('s','n','13','1','Capture and storage');
10067 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');
10068 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');
10069 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');
10070 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');
10071 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
10072 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
10073
10074 -- Videorecording
10075 INSERT INTO config.marc21_physical_characteristic_type_map (ptype_key, label) VALUES ('v','Videorecording');
10076 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('v','b','1','1','SMD');
10077 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Videocartridge');
10078 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Videodisc');
10079 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Videocassette');
10080 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('r',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Videoreel');
10081 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unspecified');
10082 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
10083 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('v','d','3','1','Color');
10084 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');
10085 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('c',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Multicolored');
10086 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixed');
10087 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');
10088 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
10089 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
10090 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('v','e','4','1','Videorecording format');
10091 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('a',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Beta');
10092 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('b',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'VHS');
10093 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');
10094 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('d',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'EIAJ');
10095 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');
10096 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('f',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Quadruplex');
10097 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('g',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Laserdisc');
10098 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('h',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'CED');
10099 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('i',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Betacam');
10100 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');
10101 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');
10102 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');
10103 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');
10104 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.');
10105 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.');
10106 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
10107 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('v',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'DVD');
10108 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
10109 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');
10110 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');
10111 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');
10112 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
10113 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('v','g','6','1','Medium for sound');
10114 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');
10115 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');
10116 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');
10117 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');
10118 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');
10119 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');
10120 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');
10121 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('h',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Videotape');
10122 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('i',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Videodisc');
10123 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
10124 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
10125 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('v','h','7','1','Dimensions');
10126 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.');
10127 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.');
10128 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.');
10129 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.');
10130 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.');
10131 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.');
10132 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
10133 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
10134 INSERT INTO config.marc21_physical_characteristic_subfield_map (ptype_key,subfield,start_pos,length,label) VALUES ('v','i','8','1','Configuration of playback channel');
10135 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('k',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Mixed');
10136 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('m',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Monaural');
10137 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');
10138 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');
10139 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('s',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Stereophonic');
10140 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('u',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Unknown');
10141 INSERT INTO config.marc21_physical_characteristic_value_map (value,ptype_subfield,label) VALUES ('z',CURRVAL('config.marc21_physical_characteristic_subfield_map_id_seq'),'Other');
10142
10143 -- Fixed Field position data -- 0-based!
10144 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Alph', '006', 'SER', 16, 1, ' ');
10145 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Alph', '008', 'SER', 33, 1, ' ');
10146 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Audn', '006', 'BKS', 5, 1, ' ');
10147 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Audn', '006', 'COM', 5, 1, ' ');
10148 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Audn', '006', 'REC', 5, 1, ' ');
10149 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Audn', '006', 'SCO', 5, 1, ' ');
10150 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Audn', '006', 'SER', 5, 1, ' ');
10151 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Audn', '006', 'VIS', 5, 1, ' ');
10152 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Audn', '008', 'BKS', 22, 1, ' ');
10153 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Audn', '008', 'COM', 22, 1, ' ');
10154 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Audn', '008', 'REC', 22, 1, ' ');
10155 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Audn', '008', 'SCO', 22, 1, ' ');
10156 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Audn', '008', 'SER', 22, 1, ' ');
10157 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Audn', '008', 'VIS', 22, 1, ' ');
10158 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('BLvl', 'ldr', 'BKS', 7, 1, 'm');
10159 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('BLvl', 'ldr', 'COM', 7, 1, 'm');
10160 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('BLvl', 'ldr', 'MAP', 7, 1, 'm');
10161 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('BLvl', 'ldr', 'MIX', 7, 1, 'c');
10162 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('BLvl', 'ldr', 'REC', 7, 1, 'm');
10163 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('BLvl', 'ldr', 'SCO', 7, 1, 'm');
10164 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('BLvl', 'ldr', 'SER', 7, 1, 's');
10165 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('BLvl', 'ldr', 'VIS', 7, 1, 'm');
10166 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Biog', '006', 'BKS', 17, 1, ' ');
10167 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Biog', '008', 'BKS', 34, 1, ' ');
10168 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Conf', '006', 'BKS', 7, 4, ' ');
10169 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Conf', '006', 'SER', 8, 3, ' ');
10170 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Conf', '008', 'BKS', 24, 4, ' ');
10171 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Conf', '008', 'SER', 25, 3, ' ');
10172 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ctrl', 'ldr', 'BKS', 8, 1, ' ');
10173 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ctrl', 'ldr', 'COM', 8, 1, ' ');
10174 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ctrl', 'ldr', 'MAP', 8, 1, ' ');
10175 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ctrl', 'ldr', 'MIX', 8, 1, ' ');
10176 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ctrl', 'ldr', 'REC', 8, 1, ' ');
10177 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ctrl', 'ldr', 'SCO', 8, 1, ' ');
10178 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ctrl', 'ldr', 'SER', 8, 1, ' ');
10179 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ctrl', 'ldr', 'VIS', 8, 1, ' ');
10180 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ctry', '008', 'BKS', 15, 3, ' ');
10181 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ctry', '008', 'COM', 15, 3, ' ');
10182 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ctry', '008', 'MAP', 15, 3, ' ');
10183 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ctry', '008', 'MIX', 15, 3, ' ');
10184 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ctry', '008', 'REC', 15, 3, ' ');
10185 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ctry', '008', 'SCO', 15, 3, ' ');
10186 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ctry', '008', 'SER', 15, 3, ' ');
10187 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ctry', '008', 'VIS', 15, 3, ' ');
10188 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Date1', '008', 'BKS', 7, 4, ' ');
10189 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Date1', '008', 'COM', 7, 4, ' ');
10190 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Date1', '008', 'MAP', 7, 4, ' ');
10191 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Date1', '008', 'MIX', 7, 4, ' ');
10192 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Date1', '008', 'REC', 7, 4, ' ');
10193 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Date1', '008', 'SCO', 7, 4, ' ');
10194 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Date1', '008', 'SER', 7, 4, ' ');
10195 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Date1', '008', 'VIS', 7, 4, ' ');
10196 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Date2', '008', 'BKS', 11, 4, ' ');
10197 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Date2', '008', 'COM', 11, 4, ' ');
10198 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Date2', '008', 'MAP', 11, 4, ' ');
10199 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Date2', '008', 'MIX', 11, 4, ' ');
10200 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Date2', '008', 'REC', 11, 4, ' ');
10201 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Date2', '008', 'SCO', 11, 4, ' ');
10202 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Date2', '008', 'SER', 11, 4, '9');
10203 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Date2', '008', 'VIS', 11, 4, ' ');
10204 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Desc', 'ldr', 'BKS', 18, 1, ' ');
10205 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Desc', 'ldr', 'COM', 18, 1, ' ');
10206 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Desc', 'ldr', 'MAP', 18, 1, ' ');
10207 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Desc', 'ldr', 'MIX', 18, 1, ' ');
10208 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Desc', 'ldr', 'REC', 18, 1, ' ');
10209 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Desc', 'ldr', 'SCO', 18, 1, ' ');
10210 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Desc', 'ldr', 'SER', 18, 1, ' ');
10211 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Desc', 'ldr', 'VIS', 18, 1, ' ');
10212 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('DtSt', '008', 'BKS', 6, 1, ' ');
10213 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('DtSt', '008', 'COM', 6, 1, ' ');
10214 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('DtSt', '008', 'MAP', 6, 1, ' ');
10215 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('DtSt', '008', 'MIX', 6, 1, ' ');
10216 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('DtSt', '008', 'REC', 6, 1, ' ');
10217 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('DtSt', '008', 'SCO', 6, 1, ' ');
10218 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('DtSt', '008', 'SER', 6, 1, 'c');
10219 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('DtSt', '008', 'VIS', 6, 1, ' ');
10220 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('ELvl', 'ldr', 'BKS', 17, 1, ' ');
10221 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('ELvl', 'ldr', 'COM', 17, 1, ' ');
10222 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('ELvl', 'ldr', 'MAP', 17, 1, ' ');
10223 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('ELvl', 'ldr', 'MIX', 17, 1, ' ');
10224 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('ELvl', 'ldr', 'REC', 17, 1, ' ');
10225 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('ELvl', 'ldr', 'SCO', 17, 1, ' ');
10226 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('ELvl', 'ldr', 'SER', 17, 1, ' ');
10227 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('ELvl', 'ldr', 'VIS', 17, 1, ' ');
10228 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Fest', '006', 'BKS', 13, 1, '0');
10229 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Fest', '008', 'BKS', 30, 1, '0');
10230 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Form', '006', 'BKS', 6, 1, ' ');
10231 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Form', '006', 'MAP', 12, 1, ' ');
10232 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Form', '006', 'MIX', 6, 1, ' ');
10233 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Form', '006', 'REC', 6, 1, ' ');
10234 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Form', '006', 'SCO', 6, 1, ' ');
10235 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Form', '006', 'SER', 6, 1, ' ');
10236 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Form', '006', 'VIS', 12, 1, ' ');
10237 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Form', '008', 'BKS', 23, 1, ' ');
10238 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Form', '008', 'MAP', 29, 1, ' ');
10239 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Form', '008', 'MIX', 23, 1, ' ');
10240 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Form', '008', 'REC', 23, 1, ' ');
10241 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Form', '008', 'SCO', 23, 1, ' ');
10242 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Form', '008', 'SER', 23, 1, ' ');
10243 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Form', '008', 'VIS', 29, 1, ' ');
10244 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('GPub', '006', 'BKS', 11, 1, ' ');
10245 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('GPub', '006', 'COM', 11, 1, ' ');
10246 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('GPub', '006', 'MAP', 11, 1, ' ');
10247 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('GPub', '006', 'SER', 11, 1, ' ');
10248 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('GPub', '006', 'VIS', 11, 1, ' ');
10249 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('GPub', '008', 'BKS', 28, 1, ' ');
10250 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('GPub', '008', 'COM', 28, 1, ' ');
10251 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('GPub', '008', 'MAP', 28, 1, ' ');
10252 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('GPub', '008', 'SER', 28, 1, ' ');
10253 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('GPub', '008', 'VIS', 28, 1, ' ');
10254 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ills', '006', 'BKS', 1, 4, ' ');
10255 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Ills', '008', 'BKS', 18, 4, ' ');
10256 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Indx', '006', 'BKS', 14, 1, '0');
10257 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Indx', '006', 'MAP', 14, 1, '0');
10258 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Indx', '008', 'BKS', 31, 1, '0');
10259 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Indx', '008', 'MAP', 31, 1, '0');
10260 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Lang', '008', 'BKS', 35, 3, ' ');
10261 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Lang', '008', 'COM', 35, 3, ' ');
10262 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Lang', '008', 'MAP', 35, 3, ' ');
10263 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Lang', '008', 'MIX', 35, 3, ' ');
10264 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Lang', '008', 'REC', 35, 3, ' ');
10265 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Lang', '008', 'SCO', 35, 3, ' ');
10266 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Lang', '008', 'SER', 35, 3, ' ');
10267 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Lang', '008', 'VIS', 35, 3, ' ');
10268 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('LitF', '006', 'BKS', 16, 1, '0');
10269 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('LitF', '008', 'BKS', 33, 1, '0');
10270 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('MRec', '008', 'BKS', 38, 1, ' ');
10271 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('MRec', '008', 'COM', 38, 1, ' ');
10272 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('MRec', '008', 'MAP', 38, 1, ' ');
10273 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('MRec', '008', 'MIX', 38, 1, ' ');
10274 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('MRec', '008', 'REC', 38, 1, ' ');
10275 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('MRec', '008', 'SCO', 38, 1, ' ');
10276 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('MRec', '008', 'SER', 38, 1, ' ');
10277 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('MRec', '008', 'VIS', 38, 1, ' ');
10278 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');
10279 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');
10280 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('TMat', '006', 'VIS', 16, 1, ' ');
10281 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('TMat', '008', 'VIS', 33, 1, ' ');
10282 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Type', 'ldr', 'BKS', 6, 1, 'a');
10283 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Type', 'ldr', 'COM', 6, 1, 'm');
10284 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Type', 'ldr', 'MAP', 6, 1, 'e');
10285 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Type', 'ldr', 'MIX', 6, 1, 'p');
10286 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Type', 'ldr', 'REC', 6, 1, 'i');
10287 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Type', 'ldr', 'SCO', 6, 1, 'c');
10288 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Type', 'ldr', 'SER', 6, 1, 'a');
10289 INSERT INTO config.marc21_ff_pos_map (fixed_field, tag, rec_type,start_pos, length, default_val) VALUES ('Type', 'ldr', 'VIS', 6, 1, 'g');
10290
10291 CREATE OR REPLACE FUNCTION biblio.marc21_record_type( rid BIGINT ) RETURNS config.marc21_rec_type_map AS $func$
10292 DECLARE
10293         ldr         RECORD;
10294         tval        TEXT;
10295         tval_rec    RECORD;
10296         bval        TEXT;
10297         bval_rec    RECORD;
10298     retval      config.marc21_rec_type_map%ROWTYPE;
10299 BEGIN
10300     SELECT * INTO ldr FROM metabib.full_rec WHERE record = rid AND tag = 'LDR' LIMIT 1;
10301
10302     IF ldr.id IS NULL THEN
10303         SELECT * INTO retval FROM config.marc21_rec_type_map WHERE code = 'BKS';
10304         RETURN retval;
10305     END IF;
10306
10307     SELECT * INTO tval_rec FROM config.marc21_ff_pos_map WHERE fixed_field = 'Type' LIMIT 1; -- They're all the same
10308     SELECT * INTO bval_rec FROM config.marc21_ff_pos_map WHERE fixed_field = 'BLvl' LIMIT 1; -- They're all the same
10309
10310
10311     tval := SUBSTRING( ldr.value, tval_rec.start_pos + 1, tval_rec.length );
10312     bval := SUBSTRING( ldr.value, bval_rec.start_pos + 1, bval_rec.length );
10313
10314     -- RAISE NOTICE 'type %, blvl %, ldr %', tval, bval, ldr.value;
10315
10316     SELECT * INTO retval FROM config.marc21_rec_type_map WHERE type_val LIKE '%' || tval || '%' AND blvl_val LIKE '%' || bval || '%';
10317
10318
10319     IF retval.code IS NULL THEN
10320         SELECT * INTO retval FROM config.marc21_rec_type_map WHERE code = 'BKS';
10321     END IF;
10322
10323     RETURN retval;
10324 END;
10325 $func$ LANGUAGE PLPGSQL;
10326
10327 CREATE OR REPLACE FUNCTION biblio.marc21_extract_fixed_field( rid BIGINT, ff TEXT ) RETURNS TEXT AS $func$
10328 DECLARE
10329     rtype       TEXT;
10330     ff_pos      RECORD;
10331     tag_data    RECORD;
10332     val         TEXT;
10333 BEGIN
10334     rtype := (biblio.marc21_record_type( rid )).code;
10335     FOR ff_pos IN SELECT * FROM config.marc21_ff_pos_map WHERE fixed_field = ff AND rec_type = rtype ORDER BY tag DESC LOOP
10336         FOR tag_data IN SELECT * FROM metabib.full_rec WHERE tag = UPPER(ff_pos.tag) AND record = rid LOOP
10337             val := SUBSTRING( tag_data.value, ff_pos.start_pos + 1, ff_pos.length );
10338             RETURN val;
10339         END LOOP;
10340         val := REPEAT( ff_pos.default_val, ff_pos.length );
10341         RETURN val;
10342     END LOOP;
10343
10344     RETURN NULL;
10345 END;
10346 $func$ LANGUAGE PLPGSQL;
10347
10348 CREATE TYPE biblio.marc21_physical_characteristics AS ( id INT, record BIGINT, ptype TEXT, subfield INT, value INT );
10349 CREATE OR REPLACE FUNCTION biblio.marc21_physical_characteristics( rid BIGINT ) RETURNS SETOF biblio.marc21_physical_characteristics AS $func$
10350 DECLARE
10351     rowid   INT := 0;
10352     _007    RECORD;
10353     ptype   config.marc21_physical_characteristic_type_map%ROWTYPE;
10354     psf     config.marc21_physical_characteristic_subfield_map%ROWTYPE;
10355     pval    config.marc21_physical_characteristic_value_map%ROWTYPE;
10356     retval  biblio.marc21_physical_characteristics%ROWTYPE;
10357 BEGIN
10358
10359     SELECT * INTO _007 FROM metabib.full_rec WHERE record = rid AND tag = '007' LIMIT 1;
10360
10361     IF _007.id IS NOT NULL THEN
10362         SELECT * INTO ptype FROM config.marc21_physical_characteristic_type_map WHERE ptype_key = SUBSTRING( _007.value, 1, 1 );
10363
10364         IF ptype.ptype_key IS NOT NULL THEN
10365             FOR psf IN SELECT * FROM config.marc21_physical_characteristic_subfield_map WHERE ptype_key = ptype.ptype_key LOOP
10366                 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 );
10367
10368                 IF pval.id IS NOT NULL THEN
10369                     rowid := rowid + 1;
10370                     retval.id := rowid;
10371                     retval.record := rid;
10372                     retval.ptype := ptype.ptype_key;
10373                     retval.subfield := psf.id;
10374                     retval.value := pval.id;
10375                     RETURN NEXT retval;
10376                 END IF;
10377
10378             END LOOP;
10379         END IF;
10380     END IF;
10381
10382     RETURN;
10383 END;
10384 $func$ LANGUAGE PLPGSQL;
10385
10386 DROP VIEW IF EXISTS money.open_usr_circulation_summary;
10387 DROP VIEW IF EXISTS money.open_usr_summary;
10388 DROP VIEW IF EXISTS money.open_billable_xact_summary;
10389
10390 -- The view should supply defaults for numeric (amount) columns
10391 CREATE OR REPLACE VIEW money.billable_xact_summary AS
10392     SELECT  xact.id,
10393         xact.usr,
10394         xact.xact_start,
10395         xact.xact_finish,
10396         COALESCE(credit.amount, 0.0::numeric) AS total_paid,
10397         credit.payment_ts AS last_payment_ts,
10398         credit.note AS last_payment_note,
10399         credit.payment_type AS last_payment_type,
10400         COALESCE(debit.amount, 0.0::numeric) AS total_owed,
10401         debit.billing_ts AS last_billing_ts,
10402         debit.note AS last_billing_note,
10403         debit.billing_type AS last_billing_type,
10404         COALESCE(debit.amount, 0.0::numeric) - COALESCE(credit.amount, 0.0::numeric) AS balance_owed,
10405         p.relname AS xact_type
10406       FROM  money.billable_xact xact
10407         JOIN pg_class p ON xact.tableoid = p.oid
10408         LEFT JOIN (
10409             SELECT  billing.xact,
10410                 sum(billing.amount) AS amount,
10411                 max(billing.billing_ts) AS billing_ts,
10412                 last(billing.note) AS note,
10413                 last(billing.billing_type) AS billing_type
10414               FROM  money.billing
10415               WHERE billing.voided IS FALSE
10416               GROUP BY billing.xact
10417             ) debit ON xact.id = debit.xact
10418         LEFT JOIN (
10419             SELECT  payment_view.xact,
10420                 sum(payment_view.amount) AS amount,
10421                 max(payment_view.payment_ts) AS payment_ts,
10422                 last(payment_view.note) AS note,
10423                 last(payment_view.payment_type) AS payment_type
10424               FROM  money.payment_view
10425               WHERE payment_view.voided IS FALSE
10426               GROUP BY payment_view.xact
10427             ) credit ON xact.id = credit.xact
10428       ORDER BY debit.billing_ts, credit.payment_ts;
10429
10430 CREATE OR REPLACE VIEW money.open_billable_xact_summary AS
10431     SELECT * FROM money.billable_xact_summary_location_view
10432     WHERE xact_finish IS NULL;
10433
10434 CREATE OR REPLACE VIEW money.open_usr_circulation_summary AS
10435     SELECT
10436         usr,
10437         SUM(total_paid) AS total_paid,
10438         SUM(total_owed) AS total_owed,
10439         SUM(balance_owed) AS balance_owed
10440     FROM  money.materialized_billable_xact_summary
10441     WHERE xact_type = 'circulation' AND xact_finish IS NULL
10442     GROUP BY usr;
10443
10444 CREATE OR REPLACE VIEW money.usr_summary AS
10445     SELECT
10446         usr,
10447         sum(total_paid) AS total_paid,
10448         sum(total_owed) AS total_owed,
10449         sum(balance_owed) AS balance_owed
10450     FROM money.materialized_billable_xact_summary
10451     GROUP BY usr;
10452
10453 CREATE OR REPLACE VIEW money.open_usr_summary AS
10454     SELECT
10455         usr,
10456         sum(total_paid) AS total_paid,
10457         sum(total_owed) AS total_owed,
10458         sum(balance_owed) AS balance_owed
10459     FROM money.materialized_billable_xact_summary
10460     WHERE xact_finish IS NULL
10461     GROUP BY usr;
10462
10463 -- 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;
10464
10465 CREATE TABLE config.biblio_fingerprint (
10466         id                      SERIAL  PRIMARY KEY,
10467         name            TEXT    NOT NULL,
10468         xpath           TEXT    NOT NULL,
10469     first_word  BOOL    NOT NULL DEFAULT FALSE,
10470         format          TEXT    NOT NULL DEFAULT 'marcxml'
10471 );
10472
10473 INSERT INTO config.biblio_fingerprint (name, xpath, format)
10474     VALUES (
10475         'Title',
10476         '//marc:datafield[@tag="700"]/marc:subfield[@code="t"]|' ||
10477             '//marc:datafield[@tag="240"]/marc:subfield[@code="a"]|' ||
10478             '//marc:datafield[@tag="242"]/marc:subfield[@code="a"]|' ||
10479             '//marc:datafield[@tag="246"]/marc:subfield[@code="a"]|' ||
10480             '//marc:datafield[@tag="245"]/marc:subfield[@code="a"]',
10481         'marcxml'
10482     );
10483
10484 INSERT INTO config.biblio_fingerprint (name, xpath, format, first_word)
10485     VALUES (
10486         'Author',
10487         '//marc:datafield[@tag="700" and ./*[@code="t"]]/marc:subfield[@code="a"]|'
10488             '//marc:datafield[@tag="100"]/marc:subfield[@code="a"]|'
10489             '//marc:datafield[@tag="110"]/marc:subfield[@code="a"]|'
10490             '//marc:datafield[@tag="111"]/marc:subfield[@code="a"]|'
10491             '//marc:datafield[@tag="260"]/marc:subfield[@code="b"]',
10492         'marcxml',
10493         TRUE
10494     );
10495
10496 CREATE OR REPLACE FUNCTION biblio.extract_quality ( marc TEXT, best_lang TEXT, best_type TEXT ) RETURNS INT AS $func$
10497 DECLARE
10498     qual        INT;
10499     ldr         TEXT;
10500     tval        TEXT;
10501     tval_rec    RECORD;
10502     bval        TEXT;
10503     bval_rec    RECORD;
10504     type_map    RECORD;
10505     ff_pos      RECORD;
10506     ff_tag_data TEXT;
10507 BEGIN
10508
10509     IF marc IS NULL OR marc = '' THEN
10510         RETURN NULL;
10511     END IF;
10512
10513     -- First, the count of tags
10514     qual := ARRAY_UPPER(oils_xpath('*[local-name()="datafield"]', marc), 1);
10515
10516     -- now go through a bunch of pain to get the record type
10517     IF best_type IS NOT NULL THEN
10518         ldr := (oils_xpath('//*[local-name()="leader"]/text()', marc))[1];
10519
10520         IF ldr IS NOT NULL THEN
10521             SELECT * INTO tval_rec FROM config.marc21_ff_pos_map WHERE fixed_field = 'Type' LIMIT 1; -- They're all the same
10522             SELECT * INTO bval_rec FROM config.marc21_ff_pos_map WHERE fixed_field = 'BLvl' LIMIT 1; -- They're all the same
10523
10524
10525             tval := SUBSTRING( ldr, tval_rec.start_pos + 1, tval_rec.length );
10526             bval := SUBSTRING( ldr, bval_rec.start_pos + 1, bval_rec.length );
10527
10528             -- RAISE NOTICE 'type %, blvl %, ldr %', tval, bval, ldr;
10529
10530             SELECT * INTO type_map FROM config.marc21_rec_type_map WHERE type_val LIKE '%' || tval || '%' AND blvl_val LIKE '%' || bval || '%';
10531
10532             IF type_map.code IS NOT NULL THEN
10533                 IF best_type = type_map.code THEN
10534                     qual := qual + qual / 2;
10535                 END IF;
10536
10537                 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
10538                     ff_tag_data := SUBSTRING((oils_xpath('//*[@tag="' || ff_pos.tag || '"]/text()',marc))[1], ff_pos.start_pos + 1, ff_pos.length);
10539                     IF ff_tag_data = best_lang THEN
10540                             qual := qual + 100;
10541                     END IF;
10542                 END LOOP;
10543             END IF;
10544         END IF;
10545     END IF;
10546
10547     -- Now look for some quality metrics
10548     -- DCL record?
10549     IF ARRAY_UPPER(oils_xpath('//*[@tag="040"]/*[@code="a" and contains(.,"DLC")]', marc), 1) = 1 THEN
10550         qual := qual + 10;
10551     END IF;
10552
10553     -- From OCLC?
10554     IF (oils_xpath('//*[@tag="003"]/text()', marc))[1] ~* E'oclo?c' THEN
10555         qual := qual + 10;
10556     END IF;
10557
10558     RETURN qual;
10559
10560 END;
10561 $func$ LANGUAGE PLPGSQL;
10562
10563 CREATE OR REPLACE FUNCTION biblio.extract_fingerprint ( marc text ) RETURNS TEXT AS $func$
10564 DECLARE
10565     idx     config.biblio_fingerprint%ROWTYPE;
10566     xfrm        config.xml_transform%ROWTYPE;
10567     prev_xfrm   TEXT;
10568     transformed_xml TEXT;
10569     xml_node    TEXT;
10570     xml_node_list   TEXT[];
10571     raw_text    TEXT;
10572     output_text TEXT := '';
10573 BEGIN
10574
10575     IF marc IS NULL OR marc = '' THEN
10576         RETURN NULL;
10577     END IF;
10578
10579     -- Loop over the indexing entries
10580     FOR idx IN SELECT * FROM config.biblio_fingerprint ORDER BY format, id LOOP
10581
10582         SELECT INTO xfrm * from config.xml_transform WHERE name = idx.format;
10583
10584         -- See if we can skip the XSLT ... it's expensive
10585         IF prev_xfrm IS NULL OR prev_xfrm <> xfrm.name THEN
10586             -- Can't skip the transform
10587             IF xfrm.xslt <> '---' THEN
10588                 transformed_xml := oils_xslt_process(marc,xfrm.xslt);
10589             ELSE
10590                 transformed_xml := marc;
10591             END IF;
10592
10593             prev_xfrm := xfrm.name;
10594         END IF;
10595
10596         raw_text := COALESCE(
10597             naco_normalize(
10598                 ARRAY_TO_STRING(
10599                     oils_xpath(
10600                         '//text()',
10601                         (oils_xpath(
10602                             idx.xpath,
10603                             transformed_xml,
10604                             ARRAY[ARRAY[xfrm.prefix, xfrm.namespace_uri]]
10605                         ))[1]
10606                     ),
10607                     ''
10608                 )
10609             ),
10610             ''
10611         );
10612
10613         raw_text := REGEXP_REPLACE(raw_text, E'\\[.+?\\]', E'');
10614         raw_text := REGEXP_REPLACE(raw_text, E'\\mthe\\M|\\man?d?d\\M', E'', 'g'); -- arg! the pain!
10615
10616         IF idx.first_word IS TRUE THEN
10617             raw_text := REGEXP_REPLACE(raw_text, E'^(\\w+).*?$', E'\\1');
10618         END IF;
10619
10620         output_text := output_text || REGEXP_REPLACE(raw_text, E'\\s+', '', 'g');
10621
10622     END LOOP;
10623
10624     RETURN output_text;
10625
10626 END;
10627 $func$ LANGUAGE PLPGSQL;
10628
10629 -- BEFORE UPDATE OR INSERT trigger for biblio.record_entry
10630 CREATE OR REPLACE FUNCTION biblio.fingerprint_trigger () RETURNS TRIGGER AS $func$
10631 BEGIN
10632
10633     -- For TG_ARGV, first param is language (like 'eng'), second is record type (like 'BKS')
10634
10635     IF NEW.deleted IS TRUE THEN -- we don't much care, then, do we?
10636         RETURN NEW;
10637     END IF;
10638
10639     NEW.fingerprint := biblio.extract_fingerprint(NEW.marc);
10640     NEW.quality := biblio.extract_quality(NEW.marc, TG_ARGV[0], TG_ARGV[1]);
10641
10642     RETURN NEW;
10643
10644 END;
10645 $func$ LANGUAGE PLPGSQL;
10646
10647 CREATE TABLE config.internal_flag (
10648     name    TEXT    PRIMARY KEY,
10649     value   TEXT,
10650     enabled BOOL    NOT NULL DEFAULT FALSE
10651 );
10652 INSERT INTO config.internal_flag (name) VALUES ('ingest.metarecord_mapping.skip_on_insert');
10653 INSERT INTO config.internal_flag (name) VALUES ('ingest.reingest.force_on_same_marc');
10654 INSERT INTO config.internal_flag (name) VALUES ('ingest.reingest.skip_located_uri');
10655 INSERT INTO config.internal_flag (name) VALUES ('ingest.disable_located_uri');
10656 INSERT INTO config.internal_flag (name) VALUES ('ingest.disable_metabib_full_rec');
10657 INSERT INTO config.internal_flag (name) VALUES ('ingest.disable_metabib_rec_descriptor');
10658 INSERT INTO config.internal_flag (name) VALUES ('ingest.disable_metabib_field_entry');
10659 INSERT INTO config.internal_flag (name) VALUES ('ingest.disable_authority_linking');
10660 INSERT INTO config.internal_flag (name) VALUES ('ingest.metarecord_mapping.skip_on_update');
10661 INSERT INTO config.internal_flag (name) VALUES ('ingest.assume_inserts_only');
10662
10663 CREATE TABLE authority.bib_linking (
10664     id          BIGSERIAL   PRIMARY KEY,
10665     bib         BIGINT      NOT NULL REFERENCES biblio.record_entry (id),
10666     authority   BIGINT      NOT NULL REFERENCES authority.record_entry (id)
10667 );
10668 CREATE INDEX authority_bl_bib_idx ON authority.bib_linking ( bib );
10669 CREATE UNIQUE INDEX authority_bl_bib_authority_once_idx ON authority.bib_linking ( authority, bib );
10670
10671 CREATE OR REPLACE FUNCTION public.remove_paren_substring( TEXT ) RETURNS TEXT AS $func$
10672     SELECT regexp_replace($1, $$\([^)]+\)$$, '', 'g');
10673 $func$ LANGUAGE SQL STRICT IMMUTABLE;
10674
10675 CREATE OR REPLACE FUNCTION biblio.map_authority_linking (bibid BIGINT, marc TEXT) RETURNS BIGINT AS $func$
10676     DELETE FROM authority.bib_linking WHERE bib = $1;
10677     INSERT INTO authority.bib_linking (bib, authority)
10678         SELECT  y.bib,
10679                 y.authority
10680           FROM (    SELECT  DISTINCT $1 AS bib,
10681                             BTRIM(remove_paren_substring(txt))::BIGINT AS authority
10682                       FROM  explode_array(oils_xpath('//*[@code="0"]/text()',$2)) x(txt)
10683                       WHERE BTRIM(remove_paren_substring(txt)) ~ $re$^\d+$$re$
10684                 ) y JOIN authority.record_entry r ON r.id = y.authority;
10685     SELECT $1;
10686 $func$ LANGUAGE SQL;
10687
10688 CREATE OR REPLACE FUNCTION metabib.reingest_metabib_rec_descriptor( bib_id BIGINT ) RETURNS VOID AS $func$
10689 BEGIN
10690     PERFORM * FROM config.internal_flag WHERE name = 'ingest.assume_inserts_only' AND enabled;
10691     IF NOT FOUND THEN
10692         DELETE FROM metabib.rec_descriptor WHERE record = bib_id;
10693     END IF;
10694     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)
10695         SELECT  bib_id,
10696                 biblio.marc21_extract_fixed_field( bib_id, 'Type' ),
10697                 biblio.marc21_extract_fixed_field( bib_id, 'Form' ),
10698                 biblio.marc21_extract_fixed_field( bib_id, 'BLvl' ),
10699                 biblio.marc21_extract_fixed_field( bib_id, 'Ctrl' ),
10700                 biblio.marc21_extract_fixed_field( bib_id, 'ELvl' ),
10701                 biblio.marc21_extract_fixed_field( bib_id, 'Audn' ),
10702                 biblio.marc21_extract_fixed_field( bib_id, 'LitF' ),
10703                 biblio.marc21_extract_fixed_field( bib_id, 'TMat' ),
10704                 biblio.marc21_extract_fixed_field( bib_id, 'Desc' ),
10705                 biblio.marc21_extract_fixed_field( bib_id, 'DtSt' ),
10706                 biblio.marc21_extract_fixed_field( bib_id, 'Lang' ),
10707                 (   SELECT  v.value
10708                       FROM  biblio.marc21_physical_characteristics( bib_id) p
10709                             JOIN config.marc21_physical_characteristic_subfield_map s ON (s.id = p.subfield)
10710                             JOIN config.marc21_physical_characteristic_value_map v ON (v.id = p.value)
10711                       WHERE p.ptype = 'v' AND s.subfield = 'e'    ),
10712                 LPAD(NULLIF(REGEXP_REPLACE(NULLIF(biblio.marc21_extract_fixed_field( bib_id, 'Date1'), ''), E'\\D', '0', 'g')::INT,0)::TEXT,4,'0'),
10713                 LPAD(NULLIF(REGEXP_REPLACE(NULLIF(biblio.marc21_extract_fixed_field( bib_id, 'Date2'), ''), E'\\D', '9', 'g')::INT,9999)::TEXT,4,'0');
10714
10715     RETURN;
10716 END;
10717 $func$ LANGUAGE PLPGSQL;
10718
10719 CREATE TABLE config.metabib_class (
10720     name    TEXT    PRIMARY KEY,
10721     label   TEXT    NOT NULL UNIQUE
10722 );
10723
10724 INSERT INTO config.metabib_class ( name, label ) VALUES ( 'keyword', oils_i18n_gettext('keyword', 'Keyword', 'cmc', 'label') );
10725 INSERT INTO config.metabib_class ( name, label ) VALUES ( 'title', oils_i18n_gettext('title', 'Title', 'cmc', 'label') );
10726 INSERT INTO config.metabib_class ( name, label ) VALUES ( 'author', oils_i18n_gettext('author', 'Author', 'cmc', 'label') );
10727 INSERT INTO config.metabib_class ( name, label ) VALUES ( 'subject', oils_i18n_gettext('subject', 'Subject', 'cmc', 'label') );
10728 INSERT INTO config.metabib_class ( name, label ) VALUES ( 'series', oils_i18n_gettext('series', 'Series', 'cmc', 'label') );
10729
10730 CREATE TABLE metabib.facet_entry (
10731         id              BIGSERIAL       PRIMARY KEY,
10732         source          BIGINT          NOT NULL,
10733         field           INT             NOT NULL,
10734         value           TEXT            NOT NULL
10735 );
10736
10737 CREATE OR REPLACE FUNCTION metabib.reingest_metabib_field_entries( bib_id BIGINT ) RETURNS VOID AS $func$
10738 DECLARE
10739     fclass          RECORD;
10740     ind_data        metabib.field_entry_template%ROWTYPE;
10741 BEGIN
10742     PERFORM * FROM config.internal_flag WHERE name = 'ingest.assume_inserts_only' AND enabled;
10743     IF NOT FOUND THEN
10744         FOR fclass IN SELECT * FROM config.metabib_class LOOP
10745             -- RAISE NOTICE 'Emptying out %', fclass.name;
10746             EXECUTE $$DELETE FROM metabib.$$ || fclass.name || $$_field_entry WHERE source = $$ || bib_id;
10747         END LOOP;
10748         DELETE FROM metabib.facet_entry WHERE source = bib_id;
10749     END IF;
10750
10751     FOR ind_data IN SELECT * FROM biblio.extract_metabib_field_entry( bib_id ) LOOP
10752         IF ind_data.field < 0 THEN
10753             ind_data.field = -1 * ind_data.field;
10754             INSERT INTO metabib.facet_entry (field, source, value)
10755                 VALUES (ind_data.field, ind_data.source, ind_data.value);
10756         ELSE
10757             EXECUTE $$
10758                 INSERT INTO metabib.$$ || ind_data.field_class || $$_field_entry (field, source, value)
10759                     VALUES ($$ ||
10760                         quote_literal(ind_data.field) || $$, $$ ||
10761                         quote_literal(ind_data.source) || $$, $$ ||
10762                         quote_literal(ind_data.value) ||
10763                     $$);$$;
10764         END IF;
10765
10766     END LOOP;
10767
10768     RETURN;
10769 END;
10770 $func$ LANGUAGE PLPGSQL;
10771
10772 CREATE OR REPLACE FUNCTION biblio.extract_located_uris( bib_id BIGINT, marcxml TEXT, editor_id INT ) RETURNS VOID AS $func$
10773 DECLARE
10774     uris            TEXT[];
10775     uri_xml         TEXT;
10776     uri_label       TEXT;
10777     uri_href        TEXT;
10778     uri_use         TEXT;
10779     uri_owner       TEXT;
10780     uri_owner_id    INT;
10781     uri_id          INT;
10782     uri_cn_id       INT;
10783     uri_map_id      INT;
10784 BEGIN
10785
10786     uris := oils_xpath('//*[@tag="856" and (@ind1="4" or @ind1="1") and (@ind2="0" or @ind2="1")]',marcxml);
10787     IF ARRAY_UPPER(uris,1) > 0 THEN
10788         FOR i IN 1 .. ARRAY_UPPER(uris, 1) LOOP
10789             -- First we pull info out of the 856
10790             uri_xml     := uris[i];
10791
10792             uri_href    := (oils_xpath('//*[@code="u"]/text()',uri_xml))[1];
10793             CONTINUE WHEN uri_href IS NULL;
10794
10795             uri_label   := (oils_xpath('//*[@code="y"]/text()|//*[@code="3"]/text()|//*[@code="u"]/text()',uri_xml))[1];
10796             CONTINUE WHEN uri_label IS NULL;
10797
10798             uri_owner   := (oils_xpath('//*[@code="9"]/text()|//*[@code="w"]/text()|//*[@code="n"]/text()',uri_xml))[1];
10799             CONTINUE WHEN uri_owner IS NULL;
10800
10801             uri_use     := (oils_xpath('//*[@code="z"]/text()|//*[@code="2"]/text()|//*[@code="n"]/text()',uri_xml))[1];
10802
10803             uri_owner := REGEXP_REPLACE(uri_owner, $re$^.*?\((\w+)\).*$$re$, E'\\1');
10804
10805             SELECT id INTO uri_owner_id FROM actor.org_unit WHERE shortname = uri_owner;
10806             CONTINUE WHEN NOT FOUND;
10807
10808             -- now we look for a matching uri
10809             SELECT id INTO uri_id FROM asset.uri WHERE label = uri_label AND href = uri_href AND use_restriction = uri_use AND active;
10810             IF NOT FOUND THEN -- create one
10811                 INSERT INTO asset.uri (label, href, use_restriction) VALUES (uri_label, uri_href, uri_use);
10812                 SELECT id INTO uri_id FROM asset.uri WHERE label = uri_label AND href = uri_href AND use_restriction = uri_use AND active;
10813             END IF;
10814
10815             -- we need a call number to link through
10816             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;
10817             IF NOT FOUND THEN
10818                 INSERT INTO asset.call_number (owning_lib, record, create_date, edit_date, creator, editor, label)
10819                     VALUES (uri_owner_id, bib_id, 'now', 'now', editor_id, editor_id, '##URI##');
10820                 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;
10821             END IF;
10822
10823             -- now, link them if they're not already
10824             SELECT id INTO uri_map_id FROM asset.uri_call_number_map WHERE call_number = uri_cn_id AND uri = uri_id;
10825             IF NOT FOUND THEN
10826                 INSERT INTO asset.uri_call_number_map (call_number, uri) VALUES (uri_cn_id, uri_id);
10827             END IF;
10828
10829         END LOOP;
10830     END IF;
10831
10832     RETURN;
10833 END;
10834 $func$ LANGUAGE PLPGSQL;
10835
10836 CREATE OR REPLACE FUNCTION metabib.remap_metarecord_for_bib( bib_id BIGINT, fp TEXT ) RETURNS BIGINT AS $func$
10837 DECLARE
10838     source_count    INT;
10839     old_mr          BIGINT;
10840     tmp_mr          metabib.metarecord%ROWTYPE;
10841     deleted_mrs     BIGINT[];
10842 BEGIN
10843
10844     DELETE FROM metabib.metarecord_source_map WHERE source = bib_id; -- Rid ourselves of the search-estimate-killing linkage
10845
10846     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
10847
10848         IF old_mr IS NULL AND fp = tmp_mr.fingerprint THEN -- Find the first fingerprint-matching
10849             old_mr := tmp_mr.id;
10850         ELSE
10851             SELECT COUNT(*) INTO source_count FROM metabib.metarecord_source_map WHERE metarecord = tmp_mr.id;
10852             IF source_count = 0 THEN -- No other records
10853                 deleted_mrs := ARRAY_APPEND(deleted_mrs, tmp_mr.id);
10854                 DELETE FROM metabib.metarecord WHERE id = tmp_mr.id;
10855             END IF;
10856         END IF;
10857
10858     END LOOP;
10859
10860     IF old_mr IS NULL THEN -- we found no suitable, preexisting MR based on old source maps
10861         SELECT id INTO old_mr FROM metabib.metarecord WHERE fingerprint = fp; -- is there one for our current fingerprint?
10862         IF old_mr IS NULL THEN -- nope, create one and grab its id
10863             INSERT INTO metabib.metarecord ( fingerprint, master_record ) VALUES ( fp, bib_id );
10864             SELECT id INTO old_mr FROM metabib.metarecord WHERE fingerprint = fp;
10865         ELSE -- indeed there is. update it with a null cache and recalcualated master record
10866             UPDATE  metabib.metarecord
10867               SET   mods = NULL,
10868                     master_record = ( SELECT id FROM biblio.record_entry WHERE fingerprint = fp ORDER BY quality DESC LIMIT 1)
10869               WHERE id = old_mr;
10870         END IF;
10871     ELSE -- there was one we already attached to, update its mods cache and master_record
10872         UPDATE  metabib.metarecord
10873           SET   mods = NULL,
10874                 master_record = ( SELECT id FROM biblio.record_entry WHERE fingerprint = fp ORDER BY quality DESC LIMIT 1)
10875           WHERE id = old_mr;
10876     END IF;
10877
10878     INSERT INTO metabib.metarecord_source_map (metarecord, source) VALUES (old_mr, bib_id); -- new source mapping
10879
10880     IF ARRAY_UPPER(deleted_mrs,1) > 0 THEN
10881         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
10882     END IF;
10883
10884     RETURN old_mr;
10885
10886 END;
10887 $func$ LANGUAGE PLPGSQL;
10888
10889 CREATE OR REPLACE FUNCTION metabib.reingest_metabib_full_rec( bib_id BIGINT ) RETURNS VOID AS $func$
10890 BEGIN
10891     PERFORM * FROM config.internal_flag WHERE name = 'ingest.assume_inserts_only' AND enabled;
10892     IF NOT FOUND THEN
10893         DELETE FROM metabib.real_full_rec WHERE record = bib_id;
10894     END IF;
10895     INSERT INTO metabib.real_full_rec (record, tag, ind1, ind2, subfield, value)
10896         SELECT record, tag, ind1, ind2, subfield, value FROM biblio.flatten_marc( bib_id );
10897
10898     RETURN;
10899 END;
10900 $func$ LANGUAGE PLPGSQL;
10901
10902 -- AFTER UPDATE OR INSERT trigger for biblio.record_entry
10903 CREATE OR REPLACE FUNCTION biblio.indexing_ingest_or_delete () RETURNS TRIGGER AS $func$
10904 BEGIN
10905
10906     IF NEW.deleted IS TRUE THEN -- If this bib is deleted
10907         DELETE FROM metabib.metarecord_source_map WHERE source = NEW.id; -- Rid ourselves of the search-estimate-killing linkage
10908         DELETE FROM authority.bib_linking WHERE bib = NEW.id; -- Avoid updating fields in bibs that are no longer visible
10909         RETURN NEW; -- and we're done
10910     END IF;
10911
10912     IF TG_OP = 'UPDATE' THEN -- re-ingest?
10913         PERFORM * FROM config.internal_flag WHERE name = 'ingest.reingest.force_on_same_marc' AND enabled;
10914
10915         IF NOT FOUND AND OLD.marc = NEW.marc THEN -- don't do anything if the MARC didn't change
10916             RETURN NEW;
10917         END IF;
10918     END IF;
10919
10920     -- Record authority linking
10921     PERFORM * FROM config.internal_flag WHERE name = 'ingest.disable_authority_linking' AND enabled;
10922     IF NOT FOUND THEN
10923         PERFORM biblio.map_authority_linking( NEW.id, NEW.marc );
10924     END IF;
10925
10926     -- Flatten and insert the mfr data
10927     PERFORM * FROM config.internal_flag WHERE name = 'ingest.disable_metabib_full_rec' AND enabled;
10928     IF NOT FOUND THEN
10929         PERFORM metabib.reingest_metabib_full_rec(NEW.id);
10930         PERFORM * FROM config.internal_flag WHERE name = 'ingest.disable_metabib_rec_descriptor' AND enabled;
10931         IF NOT FOUND THEN
10932             PERFORM metabib.reingest_metabib_rec_descriptor(NEW.id);
10933         END IF;
10934     END IF;
10935
10936     -- Gather and insert the field entry data
10937     PERFORM metabib.reingest_metabib_field_entries(NEW.id);
10938
10939     -- Located URI magic
10940     IF TG_OP = 'INSERT' THEN
10941         PERFORM * FROM config.internal_flag WHERE name = 'ingest.disable_located_uri' AND enabled;
10942         IF NOT FOUND THEN
10943             PERFORM biblio.extract_located_uris( NEW.id, NEW.marc, NEW.editor );
10944         END IF;
10945     ELSE
10946         PERFORM * FROM config.internal_flag WHERE name = 'ingest.disable_located_uri' AND enabled;
10947         IF NOT FOUND THEN
10948             PERFORM biblio.extract_located_uris( NEW.id, NEW.marc, NEW.editor );
10949         END IF;
10950     END IF;
10951
10952     -- (re)map metarecord-bib linking
10953     IF TG_OP = 'INSERT' THEN -- if not deleted and performing an insert, check for the flag
10954         PERFORM * FROM config.internal_flag WHERE name = 'ingest.metarecord_mapping.skip_on_insert' AND enabled;
10955         IF NOT FOUND THEN
10956             PERFORM metabib.remap_metarecord_for_bib( NEW.id, NEW.fingerprint );
10957         END IF;
10958     ELSE -- we're doing an update, and we're not deleted, remap
10959         PERFORM * FROM config.internal_flag WHERE name = 'ingest.metarecord_mapping.skip_on_update' AND enabled;
10960         IF NOT FOUND THEN
10961             PERFORM metabib.remap_metarecord_for_bib( NEW.id, NEW.fingerprint );
10962         END IF;
10963     END IF;
10964
10965     RETURN NEW;
10966 END;
10967 $func$ LANGUAGE PLPGSQL;
10968
10969 CREATE TRIGGER fingerprint_tgr BEFORE INSERT OR UPDATE ON biblio.record_entry FOR EACH ROW EXECUTE PROCEDURE biblio.fingerprint_trigger ('eng','BKS');
10970 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 ();
10971
10972 DROP TRIGGER IF EXISTS zzz_update_materialized_simple_rec_delete_tgr ON biblio.record_entry;
10973
10974 CREATE OR REPLACE FUNCTION oils_xpath_table ( key TEXT, document_field TEXT, relation_name TEXT, xpaths TEXT, criteria TEXT ) RETURNS SETOF RECORD AS $func$
10975 DECLARE
10976     xpath_list  TEXT[];
10977     select_list TEXT[];
10978     where_list  TEXT[];
10979     q           TEXT;
10980     out_record  RECORD;
10981     empty_test  RECORD;
10982 BEGIN
10983     xpath_list := STRING_TO_ARRAY( xpaths, '|' );
10984
10985     select_list := ARRAY_APPEND( select_list, key || '::INT AS key' );
10986
10987     FOR i IN 1 .. ARRAY_UPPER(xpath_list,1) LOOP
10988         IF xpath_list[i] = 'null()' THEN
10989             select_list := ARRAY_APPEND( select_list, 'NULL::TEXT AS c_' || i );
10990         ELSE
10991             select_list := ARRAY_APPEND(
10992                 select_list,
10993                 $sel$
10994                 EXPLODE_ARRAY(
10995                     COALESCE(
10996                         NULLIF(
10997                             oils_xpath(
10998                                 $sel$ ||
10999                                     quote_literal(
11000                                         CASE
11001                                             WHEN xpath_list[i] ~ $re$/[^/[]*@[^/]+$$re$ OR xpath_list[i] ~ $re$text\(\)$$re$ THEN xpath_list[i]
11002                                             ELSE xpath_list[i] || '//text()'
11003                                         END
11004                                     ) ||
11005                                 $sel$,
11006                                 $sel$ || document_field || $sel$
11007                             ),
11008                            '{}'::TEXT[]
11009                         ),
11010                         '{NULL}'::TEXT[]
11011                     )
11012                 ) AS c_$sel$ || i
11013             );
11014             where_list := ARRAY_APPEND(
11015                 where_list,
11016                 'c_' || i || ' IS NOT NULL'
11017             );
11018         END IF;
11019     END LOOP;
11020
11021     q := $q$
11022 SELECT * FROM (
11023     SELECT $q$ || ARRAY_TO_STRING( select_list, ', ' ) || $q$ FROM $q$ || relation_name || $q$ WHERE ($q$ || criteria || $q$)
11024 )x WHERE $q$ || ARRAY_TO_STRING( where_list, ' AND ' );
11025     -- RAISE NOTICE 'query: %', q;
11026
11027     FOR out_record IN EXECUTE q LOOP
11028         RETURN NEXT out_record;
11029     END LOOP;
11030
11031     RETURN;
11032 END;
11033 $func$ LANGUAGE PLPGSQL IMMUTABLE;
11034
11035 CREATE OR REPLACE FUNCTION vandelay.ingest_items ( import_id BIGINT, attr_def_id BIGINT ) RETURNS SETOF vandelay.import_item AS $$
11036 DECLARE
11037
11038     owning_lib      TEXT;
11039     circ_lib        TEXT;
11040     call_number     TEXT;
11041     copy_number     TEXT;
11042     status          TEXT;
11043     location        TEXT;
11044     circulate       TEXT;
11045     deposit         TEXT;
11046     deposit_amount  TEXT;
11047     ref             TEXT;
11048     holdable        TEXT;
11049     price           TEXT;
11050     barcode         TEXT;
11051     circ_modifier   TEXT;
11052     circ_as_type    TEXT;
11053     alert_message   TEXT;
11054     opac_visible    TEXT;
11055     pub_note        TEXT;
11056     priv_note       TEXT;
11057
11058     attr_def        RECORD;
11059     tmp_attr_set    RECORD;
11060     attr_set        vandelay.import_item%ROWTYPE;
11061
11062     xpath           TEXT;
11063
11064 BEGIN
11065
11066     SELECT * INTO attr_def FROM vandelay.import_item_attr_definition WHERE id = attr_def_id;
11067
11068     IF FOUND THEN
11069
11070         attr_set.definition := attr_def.id;
11071
11072         -- Build the combined XPath
11073
11074         owning_lib :=
11075             CASE
11076                 WHEN attr_def.owning_lib IS NULL THEN 'null()'
11077                 WHEN LENGTH( attr_def.owning_lib ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.owning_lib || '"]'
11078                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.owning_lib
11079             END;
11080
11081         circ_lib :=
11082             CASE
11083                 WHEN attr_def.circ_lib IS NULL THEN 'null()'
11084                 WHEN LENGTH( attr_def.circ_lib ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.circ_lib || '"]'
11085                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.circ_lib
11086             END;
11087
11088         call_number :=
11089             CASE
11090                 WHEN attr_def.call_number IS NULL THEN 'null()'
11091                 WHEN LENGTH( attr_def.call_number ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.call_number || '"]'
11092                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.call_number
11093             END;
11094
11095         copy_number :=
11096             CASE
11097                 WHEN attr_def.copy_number IS NULL THEN 'null()'
11098                 WHEN LENGTH( attr_def.copy_number ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.copy_number || '"]'
11099                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.copy_number
11100             END;
11101
11102         status :=
11103             CASE
11104                 WHEN attr_def.status IS NULL THEN 'null()'
11105                 WHEN LENGTH( attr_def.status ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.status || '"]'
11106                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.status
11107             END;
11108
11109         location :=
11110             CASE
11111                 WHEN attr_def.location IS NULL THEN 'null()'
11112                 WHEN LENGTH( attr_def.location ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.location || '"]'
11113                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.location
11114             END;
11115
11116         circulate :=
11117             CASE
11118                 WHEN attr_def.circulate IS NULL THEN 'null()'
11119                 WHEN LENGTH( attr_def.circulate ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.circulate || '"]'
11120                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.circulate
11121             END;
11122
11123         deposit :=
11124             CASE
11125                 WHEN attr_def.deposit IS NULL THEN 'null()'
11126                 WHEN LENGTH( attr_def.deposit ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.deposit || '"]'
11127                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.deposit
11128             END;
11129
11130         deposit_amount :=
11131             CASE
11132                 WHEN attr_def.deposit_amount IS NULL THEN 'null()'
11133                 WHEN LENGTH( attr_def.deposit_amount ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.deposit_amount || '"]'
11134                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.deposit_amount
11135             END;
11136
11137         ref :=
11138             CASE
11139                 WHEN attr_def.ref IS NULL THEN 'null()'
11140                 WHEN LENGTH( attr_def.ref ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.ref || '"]'
11141                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.ref
11142             END;
11143
11144         holdable :=
11145             CASE
11146                 WHEN attr_def.holdable IS NULL THEN 'null()'
11147                 WHEN LENGTH( attr_def.holdable ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.holdable || '"]'
11148                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.holdable
11149             END;
11150
11151         price :=
11152             CASE
11153                 WHEN attr_def.price IS NULL THEN 'null()'
11154                 WHEN LENGTH( attr_def.price ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.price || '"]'
11155                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.price
11156             END;
11157
11158         barcode :=
11159             CASE
11160                 WHEN attr_def.barcode IS NULL THEN 'null()'
11161                 WHEN LENGTH( attr_def.barcode ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.barcode || '"]'
11162                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.barcode
11163             END;
11164
11165         circ_modifier :=
11166             CASE
11167                 WHEN attr_def.circ_modifier IS NULL THEN 'null()'
11168                 WHEN LENGTH( attr_def.circ_modifier ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.circ_modifier || '"]'
11169                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.circ_modifier
11170             END;
11171
11172         circ_as_type :=
11173             CASE
11174                 WHEN attr_def.circ_as_type IS NULL THEN 'null()'
11175                 WHEN LENGTH( attr_def.circ_as_type ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.circ_as_type || '"]'
11176                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.circ_as_type
11177             END;
11178
11179         alert_message :=
11180             CASE
11181                 WHEN attr_def.alert_message IS NULL THEN 'null()'
11182                 WHEN LENGTH( attr_def.alert_message ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.alert_message || '"]'
11183                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.alert_message
11184             END;
11185
11186         opac_visible :=
11187             CASE
11188                 WHEN attr_def.opac_visible IS NULL THEN 'null()'
11189                 WHEN LENGTH( attr_def.opac_visible ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.opac_visible || '"]'
11190                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.opac_visible
11191             END;
11192
11193         pub_note :=
11194             CASE
11195                 WHEN attr_def.pub_note IS NULL THEN 'null()'
11196                 WHEN LENGTH( attr_def.pub_note ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.pub_note || '"]'
11197                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.pub_note
11198             END;
11199         priv_note :=
11200             CASE
11201                 WHEN attr_def.priv_note IS NULL THEN 'null()'
11202                 WHEN LENGTH( attr_def.priv_note ) = 1 THEN '//*[@tag="' || attr_def.tag || '"]/*[@code="' || attr_def.priv_note || '"]'
11203                 ELSE '//*[@tag="' || attr_def.tag || '"]/*' || attr_def.priv_note
11204             END;
11205
11206
11207         xpath :=
11208             owning_lib      || '|' ||
11209             circ_lib        || '|' ||
11210             call_number     || '|' ||
11211             copy_number     || '|' ||
11212             status          || '|' ||
11213             location        || '|' ||
11214             circulate       || '|' ||
11215             deposit         || '|' ||
11216             deposit_amount  || '|' ||
11217             ref             || '|' ||
11218             holdable        || '|' ||
11219             price           || '|' ||
11220             barcode         || '|' ||
11221             circ_modifier   || '|' ||
11222             circ_as_type    || '|' ||
11223             alert_message   || '|' ||
11224             pub_note        || '|' ||
11225             priv_note       || '|' ||
11226             opac_visible;
11227
11228         -- RAISE NOTICE 'XPath: %', xpath;
11229
11230         FOR tmp_attr_set IN
11231                 SELECT  *
11232                   FROM  oils_xpath_table( 'id', 'marc', 'vandelay.queued_bib_record', xpath, 'id = ' || import_id )
11233                             AS t( id INT, ol TEXT, clib TEXT, cn TEXT, cnum TEXT, cs TEXT, cl TEXT, circ TEXT,
11234                                   dep TEXT, dep_amount TEXT, r TEXT, hold TEXT, pr TEXT, bc TEXT, circ_mod TEXT,
11235                                   circ_as TEXT, amessage TEXT, note TEXT, pnote TEXT, opac_vis TEXT )
11236         LOOP
11237
11238             tmp_attr_set.pr = REGEXP_REPLACE(tmp_attr_set.pr, E'[^0-9\\.]', '', 'g');
11239             tmp_attr_set.dep_amount = REGEXP_REPLACE(tmp_attr_set.dep_amount, E'[^0-9\\.]', '', 'g');
11240
11241             tmp_attr_set.pr := NULLIF( tmp_attr_set.pr, '' );
11242             tmp_attr_set.dep_amount := NULLIF( tmp_attr_set.dep_amount, '' );
11243
11244             SELECT id INTO attr_set.owning_lib FROM actor.org_unit WHERE shortname = UPPER(tmp_attr_set.ol); -- INT
11245             SELECT id INTO attr_set.circ_lib FROM actor.org_unit WHERE shortname = UPPER(tmp_attr_set.clib); -- INT
11246             SELECT id INTO attr_set.status FROM config.copy_status WHERE LOWER(name) = LOWER(tmp_attr_set.cs); -- INT
11247
11248             SELECT  id INTO attr_set.location
11249               FROM  asset.copy_location
11250               WHERE LOWER(name) = LOWER(tmp_attr_set.cl)
11251                     AND asset.copy_location.owning_lib = COALESCE(attr_set.owning_lib, attr_set.circ_lib); -- INT
11252
11253             attr_set.circulate      :=
11254                 LOWER( SUBSTRING( tmp_attr_set.circ, 1, 1)) IN ('t','y','1')
11255                 OR LOWER(tmp_attr_set.circ) = 'circulating'; -- BOOL
11256
11257             attr_set.deposit        :=
11258                 LOWER( SUBSTRING( tmp_attr_set.dep, 1, 1 ) ) IN ('t','y','1')
11259                 OR LOWER(tmp_attr_set.dep) = 'deposit'; -- BOOL
11260
11261             attr_set.holdable       :=
11262                 LOWER( SUBSTRING( tmp_attr_set.hold, 1, 1 ) ) IN ('t','y','1')
11263                 OR LOWER(tmp_attr_set.hold) = 'holdable'; -- BOOL
11264
11265             attr_set.opac_visible   :=
11266                 LOWER( SUBSTRING( tmp_attr_set.opac_vis, 1, 1 ) ) IN ('t','y','1')
11267                 OR LOWER(tmp_attr_set.opac_vis) = 'visible'; -- BOOL
11268
11269             attr_set.ref            :=
11270                 LOWER( SUBSTRING( tmp_attr_set.r, 1, 1 ) ) IN ('t','y','1')
11271                 OR LOWER(tmp_attr_set.r) = 'reference'; -- BOOL
11272
11273             attr_set.copy_number    := tmp_attr_set.cnum::INT; -- INT,
11274             attr_set.deposit_amount := tmp_attr_set.dep_amount::NUMERIC(6,2); -- NUMERIC(6,2),
11275             attr_set.price          := tmp_attr_set.pr::NUMERIC(8,2); -- NUMERIC(8,2),
11276
11277             attr_set.call_number    := tmp_attr_set.cn; -- TEXT
11278             attr_set.barcode        := tmp_attr_set.bc; -- TEXT,
11279             attr_set.circ_modifier  := tmp_attr_set.circ_mod; -- TEXT,
11280             attr_set.circ_as_type   := tmp_attr_set.circ_as; -- TEXT,
11281             attr_set.alert_message  := tmp_attr_set.amessage; -- TEXT,
11282             attr_set.pub_note       := tmp_attr_set.note; -- TEXT,
11283             attr_set.priv_note      := tmp_attr_set.pnote; -- TEXT,
11284             attr_set.alert_message  := tmp_attr_set.amessage; -- TEXT,
11285
11286             RETURN NEXT attr_set;
11287
11288         END LOOP;
11289
11290     END IF;
11291
11292     RETURN;
11293
11294 END;
11295 $$ LANGUAGE PLPGSQL;
11296
11297 CREATE OR REPLACE FUNCTION vandelay.ingest_bib_items ( ) RETURNS TRIGGER AS $func$
11298 DECLARE
11299     attr_def    BIGINT;
11300     item_data   vandelay.import_item%ROWTYPE;
11301 BEGIN
11302
11303     SELECT item_attr_def INTO attr_def FROM vandelay.bib_queue WHERE id = NEW.queue;
11304
11305     FOR item_data IN SELECT * FROM vandelay.ingest_items( NEW.id::BIGINT, attr_def ) LOOP
11306         INSERT INTO vandelay.import_item (
11307             record,
11308             definition,
11309             owning_lib,
11310             circ_lib,
11311             call_number,
11312             copy_number,
11313             status,
11314             location,
11315             circulate,
11316             deposit,
11317             deposit_amount,
11318             ref,
11319             holdable,
11320             price,
11321             barcode,
11322             circ_modifier,
11323             circ_as_type,
11324             alert_message,
11325             pub_note,
11326             priv_note,
11327             opac_visible
11328         ) VALUES (
11329             NEW.id,
11330             item_data.definition,
11331             item_data.owning_lib,
11332             item_data.circ_lib,
11333             item_data.call_number,
11334             item_data.copy_number,
11335             item_data.status,
11336             item_data.location,
11337             item_data.circulate,
11338             item_data.deposit,
11339             item_data.deposit_amount,
11340             item_data.ref,
11341             item_data.holdable,
11342             item_data.price,
11343             item_data.barcode,
11344             item_data.circ_modifier,
11345             item_data.circ_as_type,
11346             item_data.alert_message,
11347             item_data.pub_note,
11348             item_data.priv_note,
11349             item_data.opac_visible
11350         );
11351     END LOOP;
11352
11353     RETURN NULL;
11354 END;
11355 $func$ LANGUAGE PLPGSQL;
11356
11357 CREATE OR REPLACE FUNCTION acq.create_acq_seq     ( sch TEXT, tbl TEXT ) RETURNS BOOL AS $creator$
11358 BEGIN
11359     EXECUTE $$
11360         CREATE SEQUENCE acq.$$ || sch || $$_$$ || tbl || $$_pkey_seq;
11361     $$;
11362         RETURN TRUE;
11363 END;
11364 $creator$ LANGUAGE 'plpgsql';
11365
11366 CREATE OR REPLACE FUNCTION acq.create_acq_history ( sch TEXT, tbl TEXT ) RETURNS BOOL AS $creator$
11367 BEGIN
11368     EXECUTE $$
11369         CREATE TABLE acq.$$ || sch || $$_$$ || tbl || $$_history (
11370             audit_id    BIGINT                          PRIMARY KEY,
11371             audit_time  TIMESTAMP WITH TIME ZONE        NOT NULL,
11372             audit_action        TEXT                            NOT NULL,
11373             LIKE $$ || sch || $$.$$ || tbl || $$
11374         );
11375     $$;
11376         RETURN TRUE;
11377 END;
11378 $creator$ LANGUAGE 'plpgsql';
11379
11380 CREATE OR REPLACE FUNCTION acq.create_acq_func    ( sch TEXT, tbl TEXT ) RETURNS BOOL AS $creator$
11381 BEGIN
11382     EXECUTE $$
11383         CREATE OR REPLACE FUNCTION acq.audit_$$ || sch || $$_$$ || tbl || $$_func ()
11384         RETURNS TRIGGER AS $func$
11385         BEGIN
11386             INSERT INTO acq.$$ || sch || $$_$$ || tbl || $$_history
11387                 SELECT  nextval('acq.$$ || sch || $$_$$ || tbl || $$_pkey_seq'),
11388                     now(),
11389                     SUBSTR(TG_OP,1,1),
11390                     OLD.*;
11391             RETURN NULL;
11392         END;
11393         $func$ LANGUAGE 'plpgsql';
11394     $$;
11395         RETURN TRUE;
11396 END;
11397 $creator$ LANGUAGE 'plpgsql';
11398
11399 CREATE OR REPLACE FUNCTION acq.create_acq_update_trigger ( sch TEXT, tbl TEXT ) RETURNS BOOL AS $creator$
11400 BEGIN
11401     EXECUTE $$
11402         CREATE TRIGGER audit_$$ || sch || $$_$$ || tbl || $$_update_trigger
11403             AFTER UPDATE OR DELETE ON $$ || sch || $$.$$ || tbl || $$ FOR EACH ROW
11404             EXECUTE PROCEDURE acq.audit_$$ || sch || $$_$$ || tbl || $$_func ();
11405     $$;
11406         RETURN TRUE;
11407 END;
11408 $creator$ LANGUAGE 'plpgsql';
11409
11410 CREATE OR REPLACE FUNCTION acq.create_acq_lifecycle     ( sch TEXT, tbl TEXT ) RETURNS BOOL AS $creator$
11411 BEGIN
11412     EXECUTE $$
11413         CREATE OR REPLACE VIEW acq.$$ || sch || $$_$$ || tbl || $$_lifecycle AS
11414             SELECT      -1, now() as audit_time, '-' as audit_action, *
11415               FROM      $$ || sch || $$.$$ || tbl || $$
11416                 UNION ALL
11417             SELECT      *
11418               FROM      acq.$$ || sch || $$_$$ || tbl || $$_history;
11419     $$;
11420         RETURN TRUE;
11421 END;
11422 $creator$ LANGUAGE 'plpgsql';
11423
11424 -- The main event
11425
11426 CREATE OR REPLACE FUNCTION acq.create_acq_auditor ( sch TEXT, tbl TEXT ) RETURNS BOOL AS $creator$
11427 BEGIN
11428     PERFORM acq.create_acq_seq(sch, tbl);
11429     PERFORM acq.create_acq_history(sch, tbl);
11430     PERFORM acq.create_acq_func(sch, tbl);
11431     PERFORM acq.create_acq_update_trigger(sch, tbl);
11432     PERFORM acq.create_acq_lifecycle(sch, tbl);
11433     RETURN TRUE;
11434 END;
11435 $creator$ LANGUAGE 'plpgsql';
11436
11437 ALTER TABLE acq.lineitem DROP COLUMN item_count;
11438
11439 CREATE OR REPLACE VIEW acq.fund_debit_total AS
11440     SELECT  fund.id AS fund,
11441             fund_debit.encumbrance AS encumbrance,
11442             SUM( COALESCE( fund_debit.amount, 0 ) ) AS amount
11443       FROM acq.fund AS fund
11444                         LEFT JOIN acq.fund_debit AS fund_debit
11445                                 ON ( fund.id = fund_debit.fund )
11446       GROUP BY 1,2;
11447
11448 CREATE TABLE acq.debit_attribution (
11449         id                     INT         NOT NULL PRIMARY KEY,
11450         fund_debit             INT         NOT NULL
11451                                            REFERENCES acq.fund_debit
11452                                            DEFERRABLE INITIALLY DEFERRED,
11453     debit_amount           NUMERIC     NOT NULL,
11454         funding_source_credit  INT         REFERENCES acq.funding_source_credit
11455                                            DEFERRABLE INITIALLY DEFERRED,
11456     credit_amount          NUMERIC
11457 );
11458
11459 CREATE INDEX acq_attribution_debit_idx
11460         ON acq.debit_attribution( fund_debit );
11461
11462 CREATE INDEX acq_attribution_credit_idx
11463         ON acq.debit_attribution( funding_source_credit );
11464
11465 CREATE OR REPLACE FUNCTION acq.attribute_debits() RETURNS VOID AS $$
11466 /*
11467 Function to attribute expenditures and encumbrances to funding source credits,
11468 and thereby to funding sources.
11469
11470 Read the debits in chonological order, attributing each one to one or
11471 more funding source credits.  Constraints:
11472
11473 1. Don't attribute more to a credit than the amount of the credit.
11474
11475 2. For a given fund, don't attribute more to a funding source than the
11476 source has allocated to that fund.
11477
11478 3. Attribute debits to credits with deadlines before attributing them to
11479 credits without deadlines.  Otherwise attribute to the earliest credits
11480 first, based on the deadline date when present, or on the effective date
11481 when there is no deadline.  Use funding_source_credit.id as a tie-breaker.
11482 This ordering is defined by an ORDER BY clause on the view
11483 acq.ordered_funding_source_credit.
11484
11485 Start by truncating the table acq.debit_attribution.  Then insert a row
11486 into that table for each attribution.  If a debit cannot be fully
11487 attributed, insert a row for the unattributable balance, with the
11488 funding_source_credit and credit_amount columns NULL.
11489 */
11490 DECLARE
11491         curr_fund_source_bal RECORD;
11492         seqno                INT;     -- sequence num for credits applicable to a fund
11493         fund_credit          RECORD;  -- current row in temp t_fund_credit table
11494         fc                   RECORD;  -- used for loading t_fund_credit table
11495         sc                   RECORD;  -- used for loading t_fund_credit table
11496         --
11497         -- Used exclusively in the main loop:
11498         --
11499         deb                 RECORD;   -- current row from acq.fund_debit table
11500         curr_credit_bal     RECORD;   -- current row from temp t_credit table
11501         debit_balance       NUMERIC;  -- amount left to attribute for current debit
11502         conv_debit_balance  NUMERIC;  -- debit balance in currency of the fund
11503         attr_amount         NUMERIC;  -- amount being attributed, in currency of debit
11504         conv_attr_amount    NUMERIC;  -- amount being attributed, in currency of source
11505         conv_cred_balance   NUMERIC;  -- credit_balance in the currency of the fund
11506         conv_alloc_balance  NUMERIC;  -- allocated balance in the currency of the fund
11507         attrib_count        INT;      -- populates id of acq.debit_attribution
11508 BEGIN
11509         --
11510         -- Load a temporary table.  For each combination of fund and funding source,
11511         -- load an entry with the total amount allocated to that fund by that source.
11512         -- This sum may reflect transfers as well as original allocations.  We will
11513         -- reduce this balance whenever we attribute debits to it.
11514         --
11515         CREATE TEMP TABLE t_fund_source_bal
11516         ON COMMIT DROP AS
11517                 SELECT
11518                         fund AS fund,
11519                         funding_source AS source,
11520                         sum( amount ) AS balance
11521                 FROM
11522                         acq.fund_allocation
11523                 GROUP BY
11524                         fund,
11525                         funding_source
11526                 HAVING
11527                         sum( amount ) > 0;
11528         --
11529         CREATE INDEX t_fund_source_bal_idx
11530                 ON t_fund_source_bal( fund, source );
11531         -------------------------------------------------------------------------------
11532         --
11533         -- Load another temporary table.  For each fund, load zero or more
11534         -- funding source credits from which that fund can get money.
11535         --
11536         CREATE TEMP TABLE t_fund_credit (
11537                 fund        INT,
11538                 seq         INT,
11539                 credit      INT
11540         ) ON COMMIT DROP;
11541         --
11542         FOR fc IN
11543                 SELECT DISTINCT fund
11544                 FROM acq.fund_allocation
11545                 ORDER BY fund
11546         LOOP                  -- Loop over the funds
11547                 seqno := 1;
11548                 FOR sc IN
11549                         SELECT
11550                                 ofsc.id
11551                         FROM
11552                                 acq.ordered_funding_source_credit AS ofsc
11553                         WHERE
11554                                 ofsc.funding_source IN
11555                                 (
11556                                         SELECT funding_source
11557                                         FROM acq.fund_allocation
11558                                         WHERE fund = fc.fund
11559                                 )
11560                 ORDER BY
11561                     ofsc.sort_priority,
11562                     ofsc.sort_date,
11563                     ofsc.id
11564                 LOOP                        -- Add each credit to the list
11565                         INSERT INTO t_fund_credit (
11566                                 fund,
11567                                 seq,
11568                                 credit
11569                         ) VALUES (
11570                                 fc.fund,
11571                                 seqno,
11572                                 sc.id
11573                         );
11574                         --RAISE NOTICE 'Fund % credit %', fc.fund, sc.id;
11575                         seqno := seqno + 1;
11576                 END LOOP;     -- Loop over credits for a given fund
11577         END LOOP;         -- Loop over funds
11578         --
11579         CREATE INDEX t_fund_credit_idx
11580                 ON t_fund_credit( fund, seq );
11581         -------------------------------------------------------------------------------
11582         --
11583         -- Load yet another temporary table.  This one is a list of funding source
11584         -- credits, with their balances.  We shall reduce those balances as we
11585         -- attribute debits to them.
11586         --
11587         CREATE TEMP TABLE t_credit
11588         ON COMMIT DROP AS
11589         SELECT
11590             fsc.id AS credit,
11591             fsc.funding_source AS source,
11592             fsc.amount AS balance,
11593             fs.currency_type AS currency_type
11594         FROM
11595             acq.funding_source_credit AS fsc,
11596             acq.funding_source fs
11597         WHERE
11598             fsc.funding_source = fs.id
11599                         AND fsc.amount > 0;
11600         --
11601         CREATE INDEX t_credit_idx
11602                 ON t_credit( credit );
11603         --
11604         -------------------------------------------------------------------------------
11605         --
11606         -- Now that we have loaded the lookup tables: loop through the debits,
11607         -- attributing each one to one or more funding source credits.
11608         --
11609         truncate table acq.debit_attribution;
11610         --
11611         attrib_count := 0;
11612         FOR deb in
11613                 SELECT
11614                         fd.id,
11615                         fd.fund,
11616                         fd.amount,
11617                         f.currency_type,
11618                         fd.encumbrance
11619                 FROM
11620                         acq.fund_debit fd,
11621                         acq.fund f
11622                 WHERE
11623                         fd.fund = f.id
11624                 ORDER BY
11625                         fd.id
11626         LOOP
11627                 --RAISE NOTICE 'Debit %, fund %', deb.id, deb.fund;
11628                 --
11629                 debit_balance := deb.amount;
11630                 --
11631                 -- Loop over the funding source credits that are eligible
11632                 -- to pay for this debit
11633                 --
11634                 FOR fund_credit IN
11635                         SELECT
11636                                 credit
11637                         FROM
11638                                 t_fund_credit
11639                         WHERE
11640                                 fund = deb.fund
11641                         ORDER BY
11642                                 seq
11643                 LOOP
11644                         --RAISE NOTICE '   Examining credit %', fund_credit.credit;
11645                         --
11646                         -- Look up the balance for this credit.  If it's zero, then
11647                         -- it's not useful, so treat it as if you didn't find it.
11648                         -- (Actually there shouldn't be any zero balances in the table,
11649                         -- but we check just to make sure.)
11650                         --
11651                         SELECT *
11652                         INTO curr_credit_bal
11653                         FROM t_credit
11654                         WHERE
11655                                 credit = fund_credit.credit
11656                                 AND balance > 0;
11657                         --
11658                         IF curr_credit_bal IS NULL THEN
11659                                 --
11660                                 -- This credit is exhausted; try the next one.
11661                                 --
11662                                 CONTINUE;
11663                         END IF;
11664                         --
11665                         --
11666                         -- At this point we have an applicable credit with some money left.
11667                         -- Now see if the relevant funding_source has any money left.
11668                         --
11669                         -- Look up the balance of the allocation for this combination of
11670                         -- fund and source.  If you find such an entry, but it has a zero
11671                         -- balance, then it's not useful, so treat it as unfound.
11672                         -- (Actually there shouldn't be any zero balances in the table,
11673                         -- but we check just to make sure.)
11674                         --
11675                         SELECT *
11676                         INTO curr_fund_source_bal
11677                         FROM t_fund_source_bal
11678                         WHERE
11679                                 fund = deb.fund
11680                                 AND source = curr_credit_bal.source
11681                                 AND balance > 0;
11682                         --
11683                         IF curr_fund_source_bal IS NULL THEN
11684                                 --
11685                                 -- This fund/source doesn't exist or is already exhausted,
11686                                 -- so we can't use this credit.  Go on to the next one.
11687                                 --
11688                                 CONTINUE;
11689                         END IF;
11690                         --
11691                         -- Convert the available balances to the currency of the fund
11692                         --
11693                         conv_alloc_balance := curr_fund_source_bal.balance * acq.exchange_ratio(
11694                                 curr_credit_bal.currency_type, deb.currency_type );
11695                         conv_cred_balance := curr_credit_bal.balance * acq.exchange_ratio(
11696                                 curr_credit_bal.currency_type, deb.currency_type );
11697                         --
11698                         -- Determine how much we can attribute to this credit: the minimum
11699                         -- of the debit amount, the fund/source balance, and the
11700                         -- credit balance
11701                         --
11702                         --RAISE NOTICE '   deb bal %', debit_balance;
11703                         --RAISE NOTICE '      source % balance %', curr_credit_bal.source, conv_alloc_balance;
11704                         --RAISE NOTICE '      credit % balance %', curr_credit_bal.credit, conv_cred_balance;
11705                         --
11706                         conv_attr_amount := NULL;
11707                         attr_amount := debit_balance;
11708                         --
11709                         IF attr_amount > conv_alloc_balance THEN
11710                                 attr_amount := conv_alloc_balance;
11711                                 conv_attr_amount := curr_fund_source_bal.balance;
11712                         END IF;
11713                         IF attr_amount > conv_cred_balance THEN
11714                                 attr_amount := conv_cred_balance;
11715                                 conv_attr_amount := curr_credit_bal.balance;
11716                         END IF;
11717                         --
11718                         -- If we're attributing all of one of the balances, then that's how
11719                         -- much we will deduct from the balances, and we already captured
11720                         -- that amount above.  Otherwise we must convert the amount of the
11721                         -- attribution from the currency of the fund back to the currency of
11722                         -- the funding source.
11723                         --
11724                         IF conv_attr_amount IS NULL THEN
11725                                 conv_attr_amount := attr_amount * acq.exchange_ratio(
11726                                         deb.currency_type, curr_credit_bal.currency_type );
11727                         END IF;
11728                         --
11729                         -- Insert a row to record the attribution
11730                         --
11731                         attrib_count := attrib_count + 1;
11732                         INSERT INTO acq.debit_attribution (
11733                                 id,
11734                                 fund_debit,
11735                                 debit_amount,
11736                                 funding_source_credit,
11737                                 credit_amount
11738                         ) VALUES (
11739                                 attrib_count,
11740                                 deb.id,
11741                                 attr_amount,
11742                                 curr_credit_bal.credit,
11743                                 conv_attr_amount
11744                         );
11745                         --
11746                         -- Subtract the attributed amount from the various balances
11747                         --
11748                         debit_balance := debit_balance - attr_amount;
11749                         curr_fund_source_bal.balance := curr_fund_source_bal.balance - conv_attr_amount;
11750                         --
11751                         IF curr_fund_source_bal.balance <= 0 THEN
11752                                 --
11753                                 -- This allocation is exhausted.  Delete it so
11754                                 -- that we don't waste time looking at it again.
11755                                 --
11756                                 DELETE FROM t_fund_source_bal
11757                                 WHERE
11758                                         fund = curr_fund_source_bal.fund
11759                                         AND source = curr_fund_source_bal.source;
11760                         ELSE
11761                                 UPDATE t_fund_source_bal
11762                                 SET balance = balance - conv_attr_amount
11763                                 WHERE
11764                                         fund = curr_fund_source_bal.fund
11765                                         AND source = curr_fund_source_bal.source;
11766                         END IF;
11767                         --
11768                         IF curr_credit_bal.balance <= 0 THEN
11769                                 --
11770                                 -- This funding source credit is exhausted.  Delete it
11771                                 -- so that we don't waste time looking at it again.
11772                                 --
11773                                 --DELETE FROM t_credit
11774                                 --WHERE
11775                                 --      credit = curr_credit_bal.credit;
11776                                 --
11777                                 DELETE FROM t_fund_credit
11778                                 WHERE
11779                                         credit = curr_credit_bal.credit;
11780                         ELSE
11781                                 UPDATE t_credit
11782                                 SET balance = curr_credit_bal.balance
11783                                 WHERE
11784                                         credit = curr_credit_bal.credit;
11785                         END IF;
11786                         --
11787                         -- Are we done with this debit yet?
11788                         --
11789                         IF debit_balance <= 0 THEN
11790                                 EXIT;       -- We've fully attributed this debit; stop looking at credits.
11791                         END IF;
11792                 END LOOP;       -- End loop over credits
11793                 --
11794                 IF debit_balance <> 0 THEN
11795                         --
11796                         -- We weren't able to attribute this debit, or at least not
11797                         -- all of it.  Insert a row for the unattributed balance.
11798                         --
11799                         attrib_count := attrib_count + 1;
11800                         INSERT INTO acq.debit_attribution (
11801                                 id,
11802                                 fund_debit,
11803                                 debit_amount,
11804                                 funding_source_credit,
11805                                 credit_amount
11806                         ) VALUES (
11807                                 attrib_count,
11808                                 deb.id,
11809                                 debit_balance,
11810                                 NULL,
11811                                 NULL
11812                         );
11813                 END IF;
11814         END LOOP;   -- End of loop over debits
11815 END;
11816 $$ LANGUAGE 'plpgsql';
11817
11818 CREATE OR REPLACE FUNCTION extract_marc_field ( TEXT, BIGINT, TEXT, TEXT ) RETURNS TEXT AS $$
11819 DECLARE
11820     query TEXT;
11821     output TEXT;
11822 BEGIN
11823     query := $q$
11824         SELECT  regexp_replace(
11825                     oils_xpath_string(
11826                         $q$ || quote_literal($3) || $q$,
11827                         marc,
11828                         ' '
11829                     ),
11830                     $q$ || quote_literal($4) || $q$,
11831                     '',
11832                     'g')
11833           FROM  $q$ || $1 || $q$
11834           WHERE id = $q$ || $2;
11835
11836     EXECUTE query INTO output;
11837
11838     -- RAISE NOTICE 'query: %, output; %', query, output;
11839
11840     RETURN output;
11841 END;
11842 $$ LANGUAGE PLPGSQL IMMUTABLE;
11843
11844 CREATE OR REPLACE FUNCTION extract_marc_field ( TEXT, BIGINT, TEXT ) RETURNS TEXT AS $$
11845     SELECT extract_marc_field($1,$2,$3,'');
11846 $$ LANGUAGE SQL IMMUTABLE;
11847
11848 CREATE OR REPLACE FUNCTION asset.merge_record_assets( target_record BIGINT, source_record BIGINT ) RETURNS INT AS $func$
11849 DECLARE
11850     moved_objects INT := 0;
11851     source_cn     asset.call_number%ROWTYPE;
11852     target_cn     asset.call_number%ROWTYPE;
11853     metarec       metabib.metarecord%ROWTYPE;
11854     hold          action.hold_request%ROWTYPE;
11855     ser_rec       serial.record_entry%ROWTYPE;
11856     uri_count     INT := 0;
11857     counter       INT := 0;
11858     uri_datafield TEXT;
11859     uri_text      TEXT := '';
11860 BEGIN
11861
11862     -- move any 856 entries on records that have at least one MARC-mapped URI entry
11863     SELECT  INTO uri_count COUNT(*)
11864       FROM  asset.uri_call_number_map m
11865             JOIN asset.call_number cn ON (m.call_number = cn.id)
11866       WHERE cn.record = source_record;
11867
11868     IF uri_count > 0 THEN
11869
11870         SELECT  COUNT(*) INTO counter
11871           FROM  oils_xpath_table(
11872                     'id',
11873                     'marc',
11874                     'biblio.record_entry',
11875                     '//*[@tag="856"]',
11876                     'id=' || source_record
11877                 ) as t(i int,c text);
11878
11879         FOR i IN 1 .. counter LOOP
11880             SELECT  '<datafield xmlns="http://www.loc.gov/MARC21/slim"' ||
11881                         ' tag="856"' ||
11882                         ' ind1="' || FIRST(ind1) || '"'  ||
11883                         ' ind2="' || FIRST(ind2) || '">' ||
11884                         array_to_string(
11885                             array_accum(
11886                                 '<subfield code="' || subfield || '">' ||
11887                                 regexp_replace(
11888                                     regexp_replace(
11889                                         regexp_replace(data,'&','&amp;','g'),
11890                                         '>', '&gt;', 'g'
11891                                     ),
11892                                     '<', '&lt;', 'g'
11893                                 ) || '</subfield>'
11894                             ), ''
11895                         ) || '</datafield>' INTO uri_datafield
11896               FROM  oils_xpath_table(
11897                         'id',
11898                         'marc',
11899                         'biblio.record_entry',
11900                         '//*[@tag="856"][position()=' || i || ']/@ind1|' ||
11901                         '//*[@tag="856"][position()=' || i || ']/@ind2|' ||
11902                         '//*[@tag="856"][position()=' || i || ']/*/@code|' ||
11903                         '//*[@tag="856"][position()=' || i || ']/*[@code]',
11904                         'id=' || source_record
11905                     ) as t(id int,ind1 text, ind2 text,subfield text,data text);
11906
11907             uri_text := uri_text || uri_datafield;
11908         END LOOP;
11909
11910         IF uri_text <> '' THEN
11911             UPDATE  biblio.record_entry
11912               SET   marc = regexp_replace(marc,'(</[^>]*record>)', uri_text || E'\\1')
11913               WHERE id = target_record;
11914         END IF;
11915
11916     END IF;
11917
11918     -- Find and move metarecords to the target record
11919     SELECT  INTO metarec *
11920       FROM  metabib.metarecord
11921       WHERE master_record = source_record;
11922
11923     IF FOUND THEN
11924         UPDATE  metabib.metarecord
11925           SET   master_record = target_record,
11926             mods = NULL
11927           WHERE id = metarec.id;
11928
11929         moved_objects := moved_objects + 1;
11930     END IF;
11931
11932     -- Find call numbers attached to the source ...
11933     FOR source_cn IN SELECT * FROM asset.call_number WHERE record = source_record LOOP
11934
11935         SELECT  INTO target_cn *
11936           FROM  asset.call_number
11937           WHERE label = source_cn.label
11938             AND owning_lib = source_cn.owning_lib
11939             AND record = target_record;
11940
11941         -- ... and if there's a conflicting one on the target ...
11942         IF FOUND THEN
11943
11944             -- ... move the copies to that, and ...
11945             UPDATE  asset.copy
11946               SET   call_number = target_cn.id
11947               WHERE call_number = source_cn.id;
11948
11949             -- ... move V holds to the move-target call number
11950             FOR hold IN SELECT * FROM action.hold_request WHERE target = source_cn.id AND hold_type = 'V' LOOP
11951
11952                 UPDATE  action.hold_request
11953                   SET   target = target_cn.id
11954                   WHERE id = hold.id;
11955
11956                 moved_objects := moved_objects + 1;
11957             END LOOP;
11958
11959         -- ... if not ...
11960         ELSE
11961             -- ... just move the call number to the target record
11962             UPDATE  asset.call_number
11963               SET   record = target_record
11964               WHERE id = source_cn.id;
11965         END IF;
11966
11967         moved_objects := moved_objects + 1;
11968     END LOOP;
11969
11970     -- Find T holds targeting the source record ...
11971     FOR hold IN SELECT * FROM action.hold_request WHERE target = source_record AND hold_type = 'T' LOOP
11972
11973         -- ... and move them to the target record
11974         UPDATE  action.hold_request
11975           SET   target = target_record
11976           WHERE id = hold.id;
11977
11978         moved_objects := moved_objects + 1;
11979     END LOOP;
11980
11981     -- Find serial records targeting the source record ...
11982     FOR ser_rec IN SELECT * FROM serial.record_entry WHERE record = source_record LOOP
11983         -- ... and move them to the target record
11984         UPDATE  serial.record_entry
11985           SET   record = target_record
11986           WHERE id = ser_rec.id;
11987
11988         moved_objects := moved_objects + 1;
11989     END LOOP;
11990
11991     -- Finally, "delete" the source record
11992     DELETE FROM biblio.record_entry WHERE id = source_record;
11993
11994     -- That's all, folks!
11995     RETURN moved_objects;
11996 END;
11997 $func$ LANGUAGE plpgsql;
11998
11999 CREATE OR REPLACE FUNCTION acq.transfer_fund(
12000         old_fund   IN INT,
12001         old_amount IN NUMERIC,     -- in currency of old fund
12002         new_fund   IN INT,
12003         new_amount IN NUMERIC,     -- in currency of new fund
12004         user_id    IN INT,
12005         xfer_note  IN TEXT         -- to be recorded in acq.fund_transfer
12006         -- ,funding_source_in IN INT  -- if user wants to specify a funding source (see notes)
12007 ) RETURNS VOID AS $$
12008 /* -------------------------------------------------------------------------------
12009
12010 Function to transfer money from one fund to another.
12011
12012 A transfer is represented as a pair of entries in acq.fund_allocation, with a
12013 negative amount for the old (losing) fund and a positive amount for the new
12014 (gaining) fund.  In some cases there may be more than one such pair of entries
12015 in order to pull the money from different funding sources, or more specifically
12016 from different funding source credits.  For each such pair there is also an
12017 entry in acq.fund_transfer.
12018
12019 Since funding_source is a non-nullable column in acq.fund_allocation, we must
12020 choose a funding source for the transferred money to come from.  This choice
12021 must meet two constraints, so far as possible:
12022
12023 1. The amount transferred from a given funding source must not exceed the
12024 amount allocated to the old fund by the funding source.  To that end we
12025 compare the amount being transferred to the amount allocated.
12026
12027 2. We shouldn't transfer money that has already been spent or encumbered, as
12028 defined by the funding attribution process.  We attribute expenses to the
12029 oldest funding source credits first.  In order to avoid transferring that
12030 attributed money, we reverse the priority, transferring from the newest funding
12031 source credits first.  There can be no guarantee that this approach will
12032 avoid overcommitting a fund, but no other approach can do any better.
12033
12034 In this context the age of a funding source credit is defined by the
12035 deadline_date for credits with deadline_dates, and by the effective_date for
12036 credits without deadline_dates, with the proviso that credits with deadline_dates
12037 are all considered "older" than those without.
12038
12039 ----------
12040
12041 In the signature for this function, there is one last parameter commented out,
12042 named "funding_source_in".  Correspondingly, the WHERE clause for the query
12043 driving the main loop has an OR clause commented out, which references the
12044 funding_source_in parameter.
12045
12046 If these lines are uncommented, this function will allow the user optionally to
12047 restrict a fund transfer to a specified funding source.  If the source
12048 parameter is left NULL, then there will be no such restriction.
12049
12050 ------------------------------------------------------------------------------- */
12051 DECLARE
12052         same_currency      BOOLEAN;
12053         currency_ratio     NUMERIC;
12054         old_fund_currency  TEXT;
12055         old_remaining      NUMERIC;  -- in currency of old fund
12056         new_fund_currency  TEXT;
12057         new_fund_active    BOOLEAN;
12058         new_remaining      NUMERIC;  -- in currency of new fund
12059         curr_old_amt       NUMERIC;  -- in currency of old fund
12060         curr_new_amt       NUMERIC;  -- in currency of new fund
12061         source_addition    NUMERIC;  -- in currency of funding source
12062         source_deduction   NUMERIC;  -- in currency of funding source
12063         orig_allocated_amt NUMERIC;  -- in currency of funding source
12064         allocated_amt      NUMERIC;  -- in currency of fund
12065         source             RECORD;
12066 BEGIN
12067         --
12068         -- Sanity checks
12069         --
12070         IF old_fund IS NULL THEN
12071                 RAISE EXCEPTION 'acq.transfer_fund: old fund id is NULL';
12072         END IF;
12073         --
12074         IF old_amount IS NULL THEN
12075                 RAISE EXCEPTION 'acq.transfer_fund: amount to transfer is NULL';
12076         END IF;
12077         --
12078         -- The new fund and its amount must be both NULL or both not NULL.
12079         --
12080         IF new_fund IS NOT NULL AND new_amount IS NULL THEN
12081                 RAISE EXCEPTION 'acq.transfer_fund: amount to transfer to receiving fund is NULL';
12082         END IF;
12083         --
12084         IF new_fund IS NULL AND new_amount IS NOT NULL THEN
12085                 RAISE EXCEPTION 'acq.transfer_fund: receiving fund is NULL, its amount is not NULL';
12086         END IF;
12087         --
12088         IF user_id IS NULL THEN
12089                 RAISE EXCEPTION 'acq.transfer_fund: user id is NULL';
12090         END IF;
12091         --
12092         -- Initialize the amounts to be transferred, each denominated
12093         -- in the currency of its respective fund.  They will be
12094         -- reduced on each iteration of the loop.
12095         --
12096         old_remaining := old_amount;
12097         new_remaining := new_amount;
12098         --
12099         -- RAISE NOTICE 'Transferring % in fund % to % in fund %',
12100         --      old_amount, old_fund, new_amount, new_fund;
12101         --
12102         -- Get the currency types of the old and new funds.
12103         --
12104         SELECT
12105                 currency_type
12106         INTO
12107                 old_fund_currency
12108         FROM
12109                 acq.fund
12110         WHERE
12111                 id = old_fund;
12112         --
12113         IF old_fund_currency IS NULL THEN
12114                 RAISE EXCEPTION 'acq.transfer_fund: old fund id % is not defined', old_fund;
12115         END IF;
12116         --
12117         IF new_fund IS NOT NULL THEN
12118                 SELECT
12119                         currency_type,
12120                         active
12121                 INTO
12122                         new_fund_currency,
12123                         new_fund_active
12124                 FROM
12125                         acq.fund
12126                 WHERE
12127                         id = new_fund;
12128                 --
12129                 IF new_fund_currency IS NULL THEN
12130                         RAISE EXCEPTION 'acq.transfer_fund: new fund id % is not defined', new_fund;
12131                 ELSIF NOT new_fund_active THEN
12132                         --
12133                         -- No point in putting money into a fund from whence you can't spend it
12134                         --
12135                         RAISE EXCEPTION 'acq.transfer_fund: new fund id % is inactive', new_fund;
12136                 END IF;
12137                 --
12138                 IF new_amount = old_amount THEN
12139                         same_currency := true;
12140                         currency_ratio := 1;
12141                 ELSE
12142                         --
12143                         -- We'll have to translate currency between funds.  We presume that
12144                         -- the calling code has already applied an appropriate exchange rate,
12145                         -- so we'll apply the same conversion to each sub-transfer.
12146                         --
12147                         same_currency := false;
12148                         currency_ratio := new_amount / old_amount;
12149                 END IF;
12150         END IF;
12151         --
12152         -- Identify the funding source(s) from which we want to transfer the money.
12153         -- The principle is that we want to transfer the newest money first, because
12154         -- we spend the oldest money first.  The priority for spending is defined
12155         -- by a sort of the view acq.ordered_funding_source_credit.
12156         --
12157         FOR source in
12158                 SELECT
12159                         ofsc.id,
12160                         ofsc.funding_source,
12161                         ofsc.amount,
12162                         ofsc.amount * acq.exchange_ratio( fs.currency_type, old_fund_currency )
12163                                 AS converted_amt,
12164                         fs.currency_type
12165                 FROM
12166                         acq.ordered_funding_source_credit AS ofsc,
12167                         acq.funding_source fs
12168                 WHERE
12169                         ofsc.funding_source = fs.id
12170                         and ofsc.funding_source IN
12171                         (
12172                                 SELECT funding_source
12173                                 FROM acq.fund_allocation
12174                                 WHERE fund = old_fund
12175                         )
12176                         -- and
12177                         -- (
12178                         --      ofsc.funding_source = funding_source_in
12179                         --      OR funding_source_in IS NULL
12180                         -- )
12181                 ORDER BY
12182                         ofsc.sort_priority desc,
12183                         ofsc.sort_date desc,
12184                         ofsc.id desc
12185         LOOP
12186                 --
12187                 -- Determine how much money the old fund got from this funding source,
12188                 -- denominated in the currency types of the source and of the fund.
12189                 -- This result may reflect transfers from previous iterations.
12190                 --
12191                 SELECT
12192                         COALESCE( sum( amount ), 0 ),
12193                         COALESCE( sum( amount )
12194                                 * acq.exchange_ratio( source.currency_type, old_fund_currency ), 0 )
12195                 INTO
12196                         orig_allocated_amt,     -- in currency of the source
12197                         allocated_amt           -- in currency of the old fund
12198                 FROM
12199                         acq.fund_allocation
12200                 WHERE
12201                         fund = old_fund
12202                         and funding_source = source.funding_source;
12203                 --
12204                 -- Determine how much to transfer from this credit, in the currency
12205                 -- of the fund.   Begin with the amount remaining to be attributed:
12206                 --
12207                 curr_old_amt := old_remaining;
12208                 --
12209                 -- Can't attribute more than was allocated from the fund:
12210                 --
12211                 IF curr_old_amt > allocated_amt THEN
12212                         curr_old_amt := allocated_amt;
12213                 END IF;
12214                 --
12215                 -- Can't attribute more than the amount of the current credit:
12216                 --
12217                 IF curr_old_amt > source.converted_amt THEN
12218                         curr_old_amt := source.converted_amt;
12219                 END IF;
12220                 --
12221                 curr_old_amt := trunc( curr_old_amt, 2 );
12222                 --
12223                 old_remaining := old_remaining - curr_old_amt;
12224                 --
12225                 -- Determine the amount to be deducted, if any,
12226                 -- from the old allocation.
12227                 --
12228                 IF old_remaining > 0 THEN
12229                         --
12230                         -- In this case we're using the whole allocation, so use that
12231                         -- amount directly instead of applying a currency translation
12232                         -- and thereby inviting round-off errors.
12233                         --
12234                         source_deduction := - orig_allocated_amt;
12235                 ELSE
12236                         source_deduction := trunc(
12237                                 ( - curr_old_amt ) *
12238                                         acq.exchange_ratio( old_fund_currency, source.currency_type ),
12239                                 2 );
12240                 END IF;
12241                 --
12242                 IF source_deduction <> 0 THEN
12243                         --
12244                         -- Insert negative allocation for old fund in fund_allocation,
12245                         -- converted into the currency of the funding source
12246                         --
12247                         INSERT INTO acq.fund_allocation (
12248                                 funding_source,
12249                                 fund,
12250                                 amount,
12251                                 allocator,
12252                                 note
12253                         ) VALUES (
12254                                 source.funding_source,
12255                                 old_fund,
12256                                 source_deduction,
12257                                 user_id,
12258                                 'Transfer to fund ' || new_fund
12259                         );
12260                 END IF;
12261                 --
12262                 IF new_fund IS NOT NULL THEN
12263                         --
12264                         -- Determine how much to add to the new fund, in
12265                         -- its currency, and how much remains to be added:
12266                         --
12267                         IF same_currency THEN
12268                                 curr_new_amt := curr_old_amt;
12269                         ELSE
12270                                 IF old_remaining = 0 THEN
12271                                         --
12272                                         -- This is the last iteration, so nothing should be left
12273                                         --
12274                                         curr_new_amt := new_remaining;
12275                                         new_remaining := 0;
12276                                 ELSE
12277                                         curr_new_amt := trunc( curr_old_amt * currency_ratio, 2 );
12278                                         new_remaining := new_remaining - curr_new_amt;
12279                                 END IF;
12280                         END IF;
12281                         --
12282                         -- Determine how much to add, if any,
12283                         -- to the new fund's allocation.
12284                         --
12285                         IF old_remaining > 0 THEN
12286                                 --
12287                                 -- In this case we're using the whole allocation, so use that amount
12288                                 -- amount directly instead of applying a currency translation and
12289                                 -- thereby inviting round-off errors.
12290                                 --
12291                                 source_addition := orig_allocated_amt;
12292                         ELSIF source.currency_type = old_fund_currency THEN
12293                                 --
12294                                 -- In this case we don't need a round trip currency translation,
12295                                 -- thereby inviting round-off errors:
12296                                 --
12297                                 source_addition := curr_old_amt;
12298                         ELSE
12299                                 source_addition := trunc(
12300                                         curr_new_amt *
12301                                                 acq.exchange_ratio( new_fund_currency, source.currency_type ),
12302                                         2 );
12303                         END IF;
12304                         --
12305                         IF source_addition <> 0 THEN
12306                                 --
12307                                 -- Insert positive allocation for new fund in fund_allocation,
12308                                 -- converted to the currency of the founding source
12309                                 --
12310                                 INSERT INTO acq.fund_allocation (
12311                                         funding_source,
12312                                         fund,
12313                                         amount,
12314                                         allocator,
12315                                         note
12316                                 ) VALUES (
12317                                         source.funding_source,
12318                                         new_fund,
12319                                         source_addition,
12320                                         user_id,
12321                                         'Transfer from fund ' || old_fund
12322                                 );
12323                         END IF;
12324                 END IF;
12325                 --
12326                 IF trunc( curr_old_amt, 2 ) <> 0
12327                 OR trunc( curr_new_amt, 2 ) <> 0 THEN
12328                         --
12329                         -- Insert row in fund_transfer, using amounts in the currency of the funds
12330                         --
12331                         INSERT INTO acq.fund_transfer (
12332                                 src_fund,
12333                                 src_amount,
12334                                 dest_fund,
12335                                 dest_amount,
12336                                 transfer_user,
12337                                 note,
12338                                 funding_source_credit
12339                         ) VALUES (
12340                                 old_fund,
12341                                 trunc( curr_old_amt, 2 ),
12342                                 new_fund,
12343                                 trunc( curr_new_amt, 2 ),
12344                                 user_id,
12345                                 xfer_note,
12346                                 source.id
12347                         );
12348                 END IF;
12349                 --
12350                 if old_remaining <= 0 THEN
12351                         EXIT;                   -- Nothing more to be transferred
12352                 END IF;
12353         END LOOP;
12354 END;
12355 $$ LANGUAGE plpgsql;
12356
12357 CREATE OR REPLACE FUNCTION acq.propagate_funds_by_org_unit(
12358         old_year INTEGER,
12359         user_id INTEGER,
12360         org_unit_id INTEGER
12361 ) RETURNS VOID AS $$
12362 DECLARE
12363 --
12364 new_id      INT;
12365 old_fund    RECORD;
12366 org_found   BOOLEAN;
12367 --
12368 BEGIN
12369         --
12370         -- Sanity checks
12371         --
12372         IF old_year IS NULL THEN
12373                 RAISE EXCEPTION 'Input year argument is NULL';
12374         ELSIF old_year NOT BETWEEN 2008 and 2200 THEN
12375                 RAISE EXCEPTION 'Input year is out of range';
12376         END IF;
12377         --
12378         IF user_id IS NULL THEN
12379                 RAISE EXCEPTION 'Input user id argument is NULL';
12380         END IF;
12381         --
12382         IF org_unit_id IS NULL THEN
12383                 RAISE EXCEPTION 'Org unit id argument is NULL';
12384         ELSE
12385                 SELECT TRUE INTO org_found
12386                 FROM actor.org_unit
12387                 WHERE id = org_unit_id;
12388                 --
12389                 IF org_found IS NULL THEN
12390                         RAISE EXCEPTION 'Org unit id is invalid';
12391                 END IF;
12392         END IF;
12393         --
12394         -- Loop over the applicable funds
12395         --
12396         FOR old_fund in SELECT * FROM acq.fund
12397         WHERE
12398                 year = old_year
12399                 AND propagate
12400                 AND org = org_unit_id
12401         LOOP
12402                 BEGIN
12403                         INSERT INTO acq.fund (
12404                                 org,
12405                                 name,
12406                                 year,
12407                                 currency_type,
12408                                 code,
12409                                 rollover,
12410                                 propagate,
12411                                 balance_warning_percent,
12412                                 balance_stop_percent
12413                         ) VALUES (
12414                                 old_fund.org,
12415                                 old_fund.name,
12416                                 old_year + 1,
12417                                 old_fund.currency_type,
12418                                 old_fund.code,
12419                                 old_fund.rollover,
12420                                 true,
12421                                 old_fund.balance_warning_percent,
12422                                 old_fund.balance_stop_percent
12423                         )
12424                         RETURNING id INTO new_id;
12425                 EXCEPTION
12426                         WHEN unique_violation THEN
12427                                 --RAISE NOTICE 'Fund % already propagated', old_fund.id;
12428                                 CONTINUE;
12429                 END;
12430                 --RAISE NOTICE 'Propagating fund % to fund %',
12431                 --      old_fund.code, new_id;
12432         END LOOP;
12433 END;
12434 $$ LANGUAGE plpgsql;
12435
12436 CREATE OR REPLACE FUNCTION acq.propagate_funds_by_org_tree(
12437         old_year INTEGER,
12438         user_id INTEGER,
12439         org_unit_id INTEGER
12440 ) RETURNS VOID AS $$
12441 DECLARE
12442 --
12443 new_id      INT;
12444 old_fund    RECORD;
12445 org_found   BOOLEAN;
12446 --
12447 BEGIN
12448         --
12449         -- Sanity checks
12450         --
12451         IF old_year IS NULL THEN
12452                 RAISE EXCEPTION 'Input year argument is NULL';
12453         ELSIF old_year NOT BETWEEN 2008 and 2200 THEN
12454                 RAISE EXCEPTION 'Input year is out of range';
12455         END IF;
12456         --
12457         IF user_id IS NULL THEN
12458                 RAISE EXCEPTION 'Input user id argument is NULL';
12459         END IF;
12460         --
12461         IF org_unit_id IS NULL THEN
12462                 RAISE EXCEPTION 'Org unit id argument is NULL';
12463         ELSE
12464                 SELECT TRUE INTO org_found
12465                 FROM actor.org_unit
12466                 WHERE id = org_unit_id;
12467                 --
12468                 IF org_found IS NULL THEN
12469                         RAISE EXCEPTION 'Org unit id is invalid';
12470                 END IF;
12471         END IF;
12472         --
12473         -- Loop over the applicable funds
12474         --
12475         FOR old_fund in SELECT * FROM acq.fund
12476         WHERE
12477                 year = old_year
12478                 AND propagate
12479                 AND org in (
12480                         SELECT id FROM actor.org_unit_descendants( org_unit_id )
12481                 )
12482         LOOP
12483                 BEGIN
12484                         INSERT INTO acq.fund (
12485                                 org,
12486                                 name,
12487                                 year,
12488                                 currency_type,
12489                                 code,
12490                                 rollover,
12491                                 propagate,
12492                                 balance_warning_percent,
12493                                 balance_stop_percent
12494                         ) VALUES (
12495                                 old_fund.org,
12496                                 old_fund.name,
12497                                 old_year + 1,
12498                                 old_fund.currency_type,
12499                                 old_fund.code,
12500                                 old_fund.rollover,
12501                                 true,
12502                                 old_fund.balance_warning_percent,
12503                                 old_fund.balance_stop_percent
12504                         )
12505                         RETURNING id INTO new_id;
12506                 EXCEPTION
12507                         WHEN unique_violation THEN
12508                                 --RAISE NOTICE 'Fund % already propagated', old_fund.id;
12509                                 CONTINUE;
12510                 END;
12511                 --RAISE NOTICE 'Propagating fund % to fund %',
12512                 --      old_fund.code, new_id;
12513         END LOOP;
12514 END;
12515 $$ LANGUAGE plpgsql;
12516
12517 CREATE OR REPLACE FUNCTION acq.rollover_funds_by_org_unit(
12518         old_year INTEGER,
12519         user_id INTEGER,
12520         org_unit_id INTEGER
12521 ) RETURNS VOID AS $$
12522 DECLARE
12523 --
12524 new_fund    INT;
12525 new_year    INT := old_year + 1;
12526 org_found   BOOL;
12527 xfer_amount NUMERIC;
12528 roll_fund   RECORD;
12529 deb         RECORD;
12530 detail      RECORD;
12531 --
12532 BEGIN
12533         --
12534         -- Sanity checks
12535         --
12536         IF old_year IS NULL THEN
12537                 RAISE EXCEPTION 'Input year argument is NULL';
12538     ELSIF old_year NOT BETWEEN 2008 and 2200 THEN
12539         RAISE EXCEPTION 'Input year is out of range';
12540         END IF;
12541         --
12542         IF user_id IS NULL THEN
12543                 RAISE EXCEPTION 'Input user id argument is NULL';
12544         END IF;
12545         --
12546         IF org_unit_id IS NULL THEN
12547                 RAISE EXCEPTION 'Org unit id argument is NULL';
12548         ELSE
12549                 --
12550                 -- Validate the org unit
12551                 --
12552                 SELECT TRUE
12553                 INTO org_found
12554                 FROM actor.org_unit
12555                 WHERE id = org_unit_id;
12556                 --
12557                 IF org_found IS NULL THEN
12558                         RAISE EXCEPTION 'Org unit id % is invalid', org_unit_id;
12559                 END IF;
12560         END IF;
12561         --
12562         -- Loop over the propagable funds to identify the details
12563         -- from the old fund plus the id of the new one, if it exists.
12564         --
12565         FOR roll_fund in
12566         SELECT
12567             oldf.id AS old_fund,
12568             oldf.org,
12569             oldf.name,
12570             oldf.currency_type,
12571             oldf.code,
12572                 oldf.rollover,
12573             newf.id AS new_fund_id
12574         FROM
12575         acq.fund AS oldf
12576         LEFT JOIN acq.fund AS newf
12577                 ON ( oldf.code = newf.code )
12578         WHERE
12579                     oldf.org = org_unit_id
12580                 and oldf.year = old_year
12581                 and oldf.propagate
12582         and newf.year = new_year
12583         LOOP
12584                 --RAISE NOTICE 'Processing fund %', roll_fund.old_fund;
12585                 --
12586                 IF roll_fund.new_fund_id IS NULL THEN
12587                         --
12588                         -- The old fund hasn't been propagated yet.  Propagate it now.
12589                         --
12590                         INSERT INTO acq.fund (
12591                                 org,
12592                                 name,
12593                                 year,
12594                                 currency_type,
12595                                 code,
12596                                 rollover,
12597                                 propagate,
12598                                 balance_warning_percent,
12599                                 balance_stop_percent
12600                         ) VALUES (
12601                                 roll_fund.org,
12602                                 roll_fund.name,
12603                                 new_year,
12604                                 roll_fund.currency_type,
12605                                 roll_fund.code,
12606                                 true,
12607                                 true,
12608                                 roll_fund.balance_warning_percent,
12609                                 roll_fund.balance_stop_percent
12610                         )
12611                         RETURNING id INTO new_fund;
12612                 ELSE
12613                         new_fund = roll_fund.new_fund_id;
12614                 END IF;
12615                 --
12616                 -- Determine the amount to transfer
12617                 --
12618                 SELECT amount
12619                 INTO xfer_amount
12620                 FROM acq.fund_spent_balance
12621                 WHERE fund = roll_fund.old_fund;
12622                 --
12623                 IF xfer_amount <> 0 THEN
12624                         IF roll_fund.rollover THEN
12625                                 --
12626                                 -- Transfer balance from old fund to new
12627                                 --
12628                                 --RAISE NOTICE 'Transferring % from fund % to %', xfer_amount, roll_fund.old_fund, new_fund;
12629                                 --
12630                                 PERFORM acq.transfer_fund(
12631                                         roll_fund.old_fund,
12632                                         xfer_amount,
12633                                         new_fund,
12634                                         xfer_amount,
12635                                         user_id,
12636                                         'Rollover'
12637                                 );
12638                         ELSE
12639                                 --
12640                                 -- Transfer balance from old fund to the void
12641                                 --
12642                                 -- RAISE NOTICE 'Transferring % from fund % to the void', xfer_amount, roll_fund.old_fund;
12643                                 --
12644                                 PERFORM acq.transfer_fund(
12645                                         roll_fund.old_fund,
12646                                         xfer_amount,
12647                                         NULL,
12648                                         NULL,
12649                                         user_id,
12650                                         'Rollover'
12651                                 );
12652                         END IF;
12653                 END IF;
12654                 --
12655                 IF roll_fund.rollover THEN
12656                         --
12657                         -- Move any lineitems from the old fund to the new one
12658                         -- where the associated debit is an encumbrance.
12659                         --
12660                         -- Any other tables tying expenditure details to funds should
12661                         -- receive similar treatment.  At this writing there are none.
12662                         --
12663                         UPDATE acq.lineitem_detail
12664                         SET fund = new_fund
12665                         WHERE
12666                         fund = roll_fund.old_fund -- this condition may be redundant
12667                         AND fund_debit in
12668                         (
12669                                 SELECT id
12670                                 FROM acq.fund_debit
12671                                 WHERE
12672                                 fund = roll_fund.old_fund
12673                                 AND encumbrance
12674                         );
12675                         --
12676                         -- Move encumbrance debits from the old fund to the new fund
12677                         --
12678                         UPDATE acq.fund_debit
12679                         SET fund = new_fund
12680                         wHERE
12681                                 fund = roll_fund.old_fund
12682                                 AND encumbrance;
12683                 END IF;
12684                 --
12685                 -- Mark old fund as inactive, now that we've closed it
12686                 --
12687                 UPDATE acq.fund
12688                 SET active = FALSE
12689                 WHERE id = roll_fund.old_fund;
12690         END LOOP;
12691 END;
12692 $$ LANGUAGE plpgsql;
12693
12694 CREATE OR REPLACE FUNCTION acq.rollover_funds_by_org_tree(
12695         old_year INTEGER,
12696         user_id INTEGER,
12697         org_unit_id INTEGER
12698 ) RETURNS VOID AS $$
12699 DECLARE
12700 --
12701 new_fund    INT;
12702 new_year    INT := old_year + 1;
12703 org_found   BOOL;
12704 xfer_amount NUMERIC;
12705 roll_fund   RECORD;
12706 deb         RECORD;
12707 detail      RECORD;
12708 --
12709 BEGIN
12710         --
12711         -- Sanity checks
12712         --
12713         IF old_year IS NULL THEN
12714                 RAISE EXCEPTION 'Input year argument is NULL';
12715     ELSIF old_year NOT BETWEEN 2008 and 2200 THEN
12716         RAISE EXCEPTION 'Input year is out of range';
12717         END IF;
12718         --
12719         IF user_id IS NULL THEN
12720                 RAISE EXCEPTION 'Input user id argument is NULL';
12721         END IF;
12722         --
12723         IF org_unit_id IS NULL THEN
12724                 RAISE EXCEPTION 'Org unit id argument is NULL';
12725         ELSE
12726                 --
12727                 -- Validate the org unit
12728                 --
12729                 SELECT TRUE
12730                 INTO org_found
12731                 FROM actor.org_unit
12732                 WHERE id = org_unit_id;
12733                 --
12734                 IF org_found IS NULL THEN
12735                         RAISE EXCEPTION 'Org unit id % is invalid', org_unit_id;
12736                 END IF;
12737         END IF;
12738         --
12739         -- Loop over the propagable funds to identify the details
12740         -- from the old fund plus the id of the new one, if it exists.
12741         --
12742         FOR roll_fund in
12743         SELECT
12744             oldf.id AS old_fund,
12745             oldf.org,
12746             oldf.name,
12747             oldf.currency_type,
12748             oldf.code,
12749                 oldf.rollover,
12750             newf.id AS new_fund_id
12751         FROM
12752         acq.fund AS oldf
12753         LEFT JOIN acq.fund AS newf
12754                 ON ( oldf.code = newf.code )
12755         WHERE
12756                     oldf.year = old_year
12757                 AND oldf.propagate
12758         AND newf.year = new_year
12759                 AND oldf.org in (
12760                         SELECT id FROM actor.org_unit_descendants( org_unit_id )
12761                 )
12762         LOOP
12763                 --RAISE NOTICE 'Processing fund %', roll_fund.old_fund;
12764                 --
12765                 IF roll_fund.new_fund_id IS NULL THEN
12766                         --
12767                         -- The old fund hasn't been propagated yet.  Propagate it now.
12768                         --
12769                         INSERT INTO acq.fund (
12770                                 org,
12771                                 name,
12772                                 year,
12773                                 currency_type,
12774                                 code,
12775                                 rollover,
12776                                 propagate,
12777                                 balance_warning_percent,
12778                                 balance_stop_percent
12779                         ) VALUES (
12780                                 roll_fund.org,
12781                                 roll_fund.name,
12782                                 new_year,
12783                                 roll_fund.currency_type,
12784                                 roll_fund.code,
12785                                 true,
12786                                 true,
12787                                 roll_fund.balance_warning_percent,
12788                                 roll_fund.balance_stop_percent
12789                         )
12790                         RETURNING id INTO new_fund;
12791                 ELSE
12792                         new_fund = roll_fund.new_fund_id;
12793                 END IF;
12794                 --
12795                 -- Determine the amount to transfer
12796                 --
12797                 SELECT amount
12798                 INTO xfer_amount
12799                 FROM acq.fund_spent_balance
12800                 WHERE fund = roll_fund.old_fund;
12801                 --
12802                 IF xfer_amount <> 0 THEN
12803                         IF roll_fund.rollover THEN
12804                                 --
12805                                 -- Transfer balance from old fund to new
12806                                 --
12807                                 --RAISE NOTICE 'Transferring % from fund % to %', xfer_amount, roll_fund.old_fund, new_fund;
12808                                 --
12809                                 PERFORM acq.transfer_fund(
12810                                         roll_fund.old_fund,
12811                                         xfer_amount,
12812                                         new_fund,
12813                                         xfer_amount,
12814                                         user_id,
12815                                         'Rollover'
12816                                 );
12817                         ELSE
12818                                 --
12819                                 -- Transfer balance from old fund to the void
12820                                 --
12821                                 -- RAISE NOTICE 'Transferring % from fund % to the void', xfer_amount, roll_fund.old_fund;
12822                                 --
12823                                 PERFORM acq.transfer_fund(
12824                                         roll_fund.old_fund,
12825                                         xfer_amount,
12826                                         NULL,
12827                                         NULL,
12828                                         user_id,
12829                                         'Rollover'
12830                                 );
12831                         END IF;
12832                 END IF;
12833                 --
12834                 IF roll_fund.rollover THEN
12835                         --
12836                         -- Move any lineitems from the old fund to the new one
12837                         -- where the associated debit is an encumbrance.
12838                         --
12839                         -- Any other tables tying expenditure details to funds should
12840                         -- receive similar treatment.  At this writing there are none.
12841                         --
12842                         UPDATE acq.lineitem_detail
12843                         SET fund = new_fund
12844                         WHERE
12845                         fund = roll_fund.old_fund -- this condition may be redundant
12846                         AND fund_debit in
12847                         (
12848                                 SELECT id
12849                                 FROM acq.fund_debit
12850                                 WHERE
12851                                 fund = roll_fund.old_fund
12852                                 AND encumbrance
12853                         );
12854                         --
12855                         -- Move encumbrance debits from the old fund to the new fund
12856                         --
12857                         UPDATE acq.fund_debit
12858                         SET fund = new_fund
12859                         wHERE
12860                                 fund = roll_fund.old_fund
12861                                 AND encumbrance;
12862                 END IF;
12863                 --
12864                 -- Mark old fund as inactive, now that we've closed it
12865                 --
12866                 UPDATE acq.fund
12867                 SET active = FALSE
12868                 WHERE id = roll_fund.old_fund;
12869         END LOOP;
12870 END;
12871 $$ LANGUAGE plpgsql;
12872
12873 CREATE OR REPLACE FUNCTION public.remove_commas( TEXT ) RETURNS TEXT AS $$
12874     SELECT regexp_replace($1, ',', '', 'g');
12875 $$ LANGUAGE SQL STRICT IMMUTABLE;
12876
12877 CREATE OR REPLACE FUNCTION public.remove_whitespace( TEXT ) RETURNS TEXT AS $$
12878     SELECT regexp_replace(normalize_space($1), E'\\s+', '', 'g');
12879 $$ LANGUAGE SQL STRICT IMMUTABLE;
12880
12881 CREATE TABLE acq.distribution_formula_application (
12882     id BIGSERIAL PRIMARY KEY,
12883     creator INT NOT NULL REFERENCES actor.usr(id) DEFERRABLE INITIALLY DEFERRED,
12884     create_time TIMESTAMP WITH TIME ZONE NOT NULL DEFAULT NOW(),
12885     formula INT NOT NULL
12886         REFERENCES acq.distribution_formula(id) DEFERRABLE INITIALLY DEFERRED,
12887     lineitem INT NOT NULL
12888         REFERENCES acq.lineitem( id )
12889                 ON DELETE CASCADE
12890                 DEFERRABLE INITIALLY DEFERRED
12891 );
12892
12893 CREATE INDEX acqdfa_df_idx
12894     ON acq.distribution_formula_application(formula);
12895 CREATE INDEX acqdfa_li_idx
12896     ON acq.distribution_formula_application(lineitem);
12897 CREATE INDEX acqdfa_creator_idx
12898     ON acq.distribution_formula_application(creator);
12899
12900 CREATE TABLE acq.user_request_type (
12901     id      SERIAL  PRIMARY KEY,
12902     label   TEXT    NOT NULL UNIQUE -- i18n-ize
12903 );
12904
12905 INSERT INTO acq.user_request_type (id,label) VALUES (1, oils_i18n_gettext('1', 'Books', 'aurt', 'label'));
12906 INSERT INTO acq.user_request_type (id,label) VALUES (2, oils_i18n_gettext('2', 'Journal/Magazine & Newspaper Articles', 'aurt', 'label'));
12907 INSERT INTO acq.user_request_type (id,label) VALUES (3, oils_i18n_gettext('3', 'Audiobooks', 'aurt', 'label'));
12908 INSERT INTO acq.user_request_type (id,label) VALUES (4, oils_i18n_gettext('4', 'Music', 'aurt', 'label'));
12909 INSERT INTO acq.user_request_type (id,label) VALUES (5, oils_i18n_gettext('5', 'DVDs', 'aurt', 'label'));
12910
12911 SELECT SETVAL('acq.user_request_type_id_seq'::TEXT, 6);
12912
12913 CREATE TABLE acq.cancel_reason (
12914         id            SERIAL            PRIMARY KEY,
12915         org_unit      INTEGER           NOT NULL REFERENCES actor.org_unit( id )
12916                                         DEFERRABLE INITIALLY DEFERRED,
12917         label         TEXT              NOT NULL,
12918         description   TEXT              NOT NULL,
12919         keep_debits   BOOL              NOT NULL DEFAULT FALSE,
12920         CONSTRAINT acq_cancel_reason_one_per_org_unit UNIQUE( org_unit, label )
12921 );
12922
12923 -- Reserve ids 1-999 for stock reasons
12924 -- Reserve ids 1000-1999 for EDI reasons
12925 -- 2000+ are available for staff to create
12926
12927 SELECT SETVAL('acq.cancel_reason_id_seq'::TEXT, 2000);
12928
12929 CREATE TABLE acq.user_request (
12930     id                  SERIAL  PRIMARY KEY,
12931     usr                 INT     NOT NULL REFERENCES actor.usr (id), -- requesting user
12932     hold                BOOL    NOT NULL DEFAULT TRUE,
12933
12934     pickup_lib          INT     NOT NULL REFERENCES actor.org_unit (id), -- pickup lib
12935     holdable_formats    TEXT,           -- nullable, for use in hold creation
12936     phone_notify        TEXT,
12937     email_notify        BOOL    NOT NULL DEFAULT TRUE,
12938     lineitem            INT     REFERENCES acq.lineitem (id) ON DELETE CASCADE,
12939     eg_bib              BIGINT  REFERENCES biblio.record_entry (id) ON DELETE CASCADE,
12940     request_date        TIMESTAMPTZ NOT NULL DEFAULT NOW(), -- when they requested it
12941     need_before         TIMESTAMPTZ,    -- don't create holds after this
12942     max_fee             TEXT,
12943
12944     request_type        INT     NOT NULL REFERENCES acq.user_request_type (id),
12945     isxn                TEXT,
12946     title               TEXT,
12947     volume              TEXT,
12948     author              TEXT,
12949     article_title       TEXT,
12950     article_pages       TEXT,
12951     publisher           TEXT,
12952     location            TEXT,
12953     pubdate             TEXT,
12954     mentioned           TEXT,
12955     other_info          TEXT,
12956         cancel_reason       INT              REFERENCES acq.cancel_reason( id )
12957                                              DEFERRABLE INITIALLY DEFERRED
12958 );
12959
12960 CREATE TABLE acq.lineitem_alert_text (
12961         id               SERIAL         PRIMARY KEY,
12962         code             TEXT           NOT NULL,
12963         description      TEXT,
12964         owning_lib       INT            NOT NULL
12965                                         REFERENCES actor.org_unit(id)
12966                                         DEFERRABLE INITIALLY DEFERRED,
12967         CONSTRAINT alert_one_code_per_org UNIQUE (code, owning_lib)
12968 );
12969
12970 ALTER TABLE acq.lineitem_note
12971         ADD COLUMN alert_text    INT     REFERENCES acq.lineitem_alert_text(id)
12972                                          DEFERRABLE INITIALLY DEFERRED;
12973
12974 -- add ON DELETE CASCADE clause
12975
12976 ALTER TABLE acq.lineitem_note
12977         DROP CONSTRAINT lineitem_note_lineitem_fkey;
12978
12979 ALTER TABLE acq.lineitem_note
12980         ADD FOREIGN KEY (lineitem) REFERENCES acq.lineitem( id )
12981                 ON DELETE CASCADE
12982                 DEFERRABLE INITIALLY DEFERRED;
12983
12984 ALTER TABLE acq.lineitem_note
12985         ADD COLUMN vendor_public BOOLEAN NOT NULL DEFAULT FALSE;
12986
12987 CREATE TABLE acq.invoice_method (
12988     code    TEXT    PRIMARY KEY,
12989     name    TEXT    NOT NULL -- i18n-ize
12990 );
12991 INSERT INTO acq.invoice_method (code,name) VALUES ('EDI',oils_i18n_gettext('EDI', 'EDI', 'acqim', 'name'));
12992 INSERT INTO acq.invoice_method (code,name) VALUES ('PPR',oils_i18n_gettext('PPR', 'Paper', 'acqit', 'name'));
12993
12994 CREATE TABLE acq.invoice_payment_method (
12995         code      TEXT     PRIMARY KEY,
12996         name      TEXT     NOT NULL
12997 );
12998
12999 CREATE TABLE acq.invoice (
13000     id             SERIAL      PRIMARY KEY,
13001     receiver       INT         NOT NULL REFERENCES actor.org_unit (id),
13002     provider       INT         NOT NULL REFERENCES acq.provider (id),
13003     shipper        INT         NOT NULL REFERENCES acq.provider (id),
13004     recv_date      TIMESTAMPTZ NOT NULL DEFAULT NOW(),
13005     recv_method    TEXT        NOT NULL REFERENCES acq.invoice_method (code) DEFAULT 'EDI',
13006     inv_type       TEXT,       -- A "type" field is desired, but no idea what goes here
13007     inv_ident      TEXT        NOT NULL, -- vendor-supplied invoice id/number
13008         payment_auth   TEXT,
13009         payment_method TEXT        REFERENCES acq.invoice_payment_method (code)
13010                                    DEFERRABLE INITIALLY DEFERRED,
13011         note           TEXT,
13012     complete       BOOL        NOT NULL DEFAULT FALSE,
13013     CONSTRAINT inv_ident_once_per_provider UNIQUE(provider, inv_ident)
13014 );
13015
13016 CREATE TABLE acq.invoice_entry (
13017     id              SERIAL      PRIMARY KEY,
13018     invoice         INT         NOT NULL REFERENCES acq.invoice (id) ON DELETE CASCADE,
13019     purchase_order  INT         REFERENCES acq.purchase_order (id) ON UPDATE CASCADE ON DELETE SET NULL,
13020     lineitem        INT         REFERENCES acq.lineitem (id) ON UPDATE CASCADE ON DELETE SET NULL,
13021     inv_item_count  INT         NOT NULL, -- How many acqlids did they say they sent
13022     phys_item_count INT, -- and how many did staff count
13023     note            TEXT,
13024     billed_per_item BOOL,
13025     cost_billed     NUMERIC(8,2),
13026     actual_cost     NUMERIC(8,2),
13027         amount_paid     NUMERIC (8,2)
13028 );
13029
13030 CREATE TABLE acq.invoice_item_type (
13031     code    TEXT    PRIMARY KEY,
13032     name    TEXT    NOT NULL, -- i18n-ize
13033         prorate BOOL    NOT NULL DEFAULT FALSE
13034 );
13035
13036 INSERT INTO acq.invoice_item_type (code,name) VALUES ('TAX',oils_i18n_gettext('TAX', 'Tax', 'aiit', 'name'));
13037 INSERT INTO acq.invoice_item_type (code,name) VALUES ('PRO',oils_i18n_gettext('PRO', 'Processing Fee', 'aiit', 'name'));
13038 INSERT INTO acq.invoice_item_type (code,name) VALUES ('SHP',oils_i18n_gettext('SHP', 'Shipping Charge', 'aiit', 'name'));
13039 INSERT INTO acq.invoice_item_type (code,name) VALUES ('HND',oils_i18n_gettext('HND', 'Handling Charge', 'aiit', 'name'));
13040 INSERT INTO acq.invoice_item_type (code,name) VALUES ('ITM',oils_i18n_gettext('ITM', 'Non-library Item', 'aiit', 'name'));
13041 INSERT INTO acq.invoice_item_type (code,name) VALUES ('SUB',oils_i18n_gettext('SUB', 'Serial Subscription', 'aiit', 'name'));
13042
13043 CREATE TABLE acq.po_item (
13044         id              SERIAL      PRIMARY KEY,
13045         purchase_order  INT         REFERENCES acq.purchase_order (id)
13046                                     ON UPDATE CASCADE ON DELETE SET NULL
13047                                     DEFERRABLE INITIALLY DEFERRED,
13048         fund_debit      INT         REFERENCES acq.fund_debit (id)
13049                                     DEFERRABLE INITIALLY DEFERRED,
13050         inv_item_type   TEXT        NOT NULL
13051                                     REFERENCES acq.invoice_item_type (code)
13052                                     DEFERRABLE INITIALLY DEFERRED,
13053         title           TEXT,
13054         author          TEXT,
13055         note            TEXT,
13056         estimated_cost  NUMERIC(8,2),
13057         fund            INT         REFERENCES acq.fund (id)
13058                                     DEFERRABLE INITIALLY DEFERRED,
13059         target          BIGINT
13060 );
13061
13062 CREATE TABLE acq.invoice_item ( -- for invoice-only debits: taxes/fees/non-bib items/etc
13063     id              SERIAL      PRIMARY KEY,
13064     invoice         INT         NOT NULL REFERENCES acq.invoice (id) ON UPDATE CASCADE ON DELETE CASCADE,
13065     purchase_order  INT         REFERENCES acq.purchase_order (id) ON UPDATE CASCADE ON DELETE SET NULL,
13066     fund_debit      INT         REFERENCES acq.fund_debit (id),
13067     inv_item_type   TEXT        NOT NULL REFERENCES acq.invoice_item_type (code),
13068     title           TEXT,
13069     author          TEXT,
13070     note            TEXT,
13071     cost_billed     NUMERIC(8,2),
13072     actual_cost     NUMERIC(8,2),
13073     fund            INT         REFERENCES acq.fund (id)
13074                                 DEFERRABLE INITIALLY DEFERRED,
13075     amount_paid     NUMERIC (8,2),
13076     po_item         INT         REFERENCES acq.po_item (id)
13077                                 DEFERRABLE INITIALLY DEFERRED,
13078     target          BIGINT
13079 );
13080
13081 CREATE TABLE acq.edi_message (
13082     id               SERIAL          PRIMARY KEY,
13083     account          INTEGER         REFERENCES acq.edi_account(id)
13084                                      DEFERRABLE INITIALLY DEFERRED,
13085     remote_file      TEXT,
13086     create_time      TIMESTAMPTZ     NOT NULL DEFAULT now(),
13087     translate_time   TIMESTAMPTZ,
13088     process_time     TIMESTAMPTZ,
13089     error_time       TIMESTAMPTZ,
13090     status           TEXT            NOT NULL DEFAULT 'new'
13091                                      CONSTRAINT status_value CHECK
13092                                      ( status IN (
13093                                         'new',          -- needs to be translated
13094                                         'translated',   -- needs to be processed
13095                                         'trans_error',  -- error in translation step
13096                                         'processed',    -- needs to have remote_file deleted
13097                                         'proc_error',   -- error in processing step
13098                                         'delete_error', -- error in deletion
13099                                         'retry',        -- need to retry
13100                                         'complete'      -- done
13101                                      )),
13102     edi              TEXT,
13103     jedi             TEXT,
13104     error            TEXT,
13105     purchase_order   INT             REFERENCES acq.purchase_order
13106                                      DEFERRABLE INITIALLY DEFERRED,
13107     message_type     TEXT            NOT NULL CONSTRAINT valid_message_type
13108                                      CHECK ( message_type IN (
13109                                         'ORDERS',
13110                                         'ORDRSP',
13111                                         'INVOIC',
13112                                         'OSTENQ',
13113                                         'OSTRPT'
13114                                      ))
13115 );
13116
13117 ALTER TABLE actor.org_address ADD COLUMN san TEXT;
13118
13119 ALTER TABLE acq.provider_address
13120         ADD COLUMN fax_phone TEXT;
13121
13122 ALTER TABLE acq.provider_contact_address
13123         ADD COLUMN fax_phone TEXT;
13124
13125 CREATE TABLE acq.provider_note (
13126     id      SERIAL              PRIMARY KEY,
13127     provider    INT             NOT NULL REFERENCES acq.provider (id) DEFERRABLE INITIALLY DEFERRED,
13128     creator     INT             NOT NULL REFERENCES actor.usr (id) DEFERRABLE INITIALLY DEFERRED,
13129     editor      INT             NOT NULL REFERENCES actor.usr (id) DEFERRABLE INITIALLY DEFERRED,
13130     create_time TIMESTAMP WITH TIME ZONE    NOT NULL DEFAULT NOW(),
13131     edit_time   TIMESTAMP WITH TIME ZONE    NOT NULL DEFAULT NOW(),
13132     value       TEXT            NOT NULL
13133 );
13134 CREATE INDEX acq_pro_note_pro_idx      ON acq.provider_note ( provider );
13135 CREATE INDEX acq_pro_note_creator_idx  ON acq.provider_note ( creator );
13136 CREATE INDEX acq_pro_note_editor_idx   ON acq.provider_note ( editor );
13137
13138 -- For each fund: the total allocation from all sources, in the
13139 -- currency of the fund (or 0 if there are no allocations)
13140
13141 CREATE VIEW acq.all_fund_allocation_total AS
13142 SELECT
13143     f.id AS fund,
13144     COALESCE( SUM( a.amount * acq.exchange_ratio(
13145         s.currency_type, f.currency_type))::numeric(100,2), 0 )
13146     AS amount
13147 FROM
13148     acq.fund f
13149         LEFT JOIN acq.fund_allocation a
13150             ON a.fund = f.id
13151         LEFT JOIN acq.funding_source s
13152             ON a.funding_source = s.id
13153 GROUP BY
13154     f.id;
13155
13156 -- For every fund: the total encumbrances (or 0 if none),
13157 -- in the currency of the fund.
13158
13159 CREATE VIEW acq.all_fund_encumbrance_total AS
13160 SELECT
13161         f.id AS fund,
13162         COALESCE( encumb.amount, 0 ) AS amount
13163 FROM
13164         acq.fund AS f
13165                 LEFT JOIN (
13166                         SELECT
13167                                 fund,
13168                                 sum( amount ) AS amount
13169                         FROM
13170                                 acq.fund_debit
13171                         WHERE
13172                                 encumbrance
13173                         GROUP BY fund
13174                 ) AS encumb
13175                         ON f.id = encumb.fund;
13176
13177 -- For every fund: the total spent (or 0 if none),
13178 -- in the currency of the fund.
13179
13180 CREATE VIEW acq.all_fund_spent_total AS
13181 SELECT
13182     f.id AS fund,
13183     COALESCE( spent.amount, 0 ) AS amount
13184 FROM
13185     acq.fund AS f
13186         LEFT JOIN (
13187             SELECT
13188                 fund,
13189                 sum( amount ) AS amount
13190             FROM
13191                 acq.fund_debit
13192             WHERE
13193                 NOT encumbrance
13194             GROUP BY fund
13195         ) AS spent
13196             ON f.id = spent.fund;
13197
13198 -- For each fund: the amount not yet spent, in the currency
13199 -- of the fund.  May include encumbrances.
13200
13201 CREATE VIEW acq.all_fund_spent_balance AS
13202 SELECT
13203         c.fund,
13204         c.amount - d.amount AS amount
13205 FROM acq.all_fund_allocation_total c
13206     LEFT JOIN acq.all_fund_spent_total d USING (fund);
13207
13208 -- For each fund: the amount neither spent nor encumbered,
13209 -- in the currency of the fund
13210
13211 CREATE VIEW acq.all_fund_combined_balance AS
13212 SELECT
13213      a.fund,
13214      a.amount - COALESCE( c.amount, 0 ) AS amount
13215 FROM
13216      acq.all_fund_allocation_total a
13217         LEFT OUTER JOIN (
13218             SELECT
13219                 fund,
13220                 SUM( amount ) AS amount
13221             FROM
13222                 acq.fund_debit
13223             GROUP BY
13224                 fund
13225         ) AS c USING ( fund );
13226
13227 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 $$
13228 DECLARE
13229         suffix TEXT;
13230         bucket_row RECORD;
13231         picklist_row RECORD;
13232         queue_row RECORD;
13233         folder_row RECORD;
13234 BEGIN
13235
13236     -- do some initial cleanup
13237     UPDATE actor.usr SET card = NULL WHERE id = src_usr;
13238     UPDATE actor.usr SET mailing_address = NULL WHERE id = src_usr;
13239     UPDATE actor.usr SET billing_address = NULL WHERE id = src_usr;
13240
13241     -- actor.*
13242     IF del_cards THEN
13243         DELETE FROM actor.card where usr = src_usr;
13244     ELSE
13245         IF deactivate_cards THEN
13246             UPDATE actor.card SET active = 'f' WHERE usr = src_usr;
13247         END IF;
13248         UPDATE actor.card SET usr = dest_usr WHERE usr = src_usr;
13249     END IF;
13250
13251
13252     IF del_addrs THEN
13253         DELETE FROM actor.usr_address WHERE usr = src_usr;
13254     ELSE
13255         UPDATE actor.usr_address SET usr = dest_usr WHERE usr = src_usr;
13256     END IF;
13257
13258     UPDATE actor.usr_note SET usr = dest_usr WHERE usr = src_usr;
13259     -- dupes are technically OK in actor.usr_standing_penalty, should manually delete them...
13260     UPDATE actor.usr_standing_penalty SET usr = dest_usr WHERE usr = src_usr;
13261     PERFORM actor.usr_merge_rows('actor.usr_org_unit_opt_in', 'usr', src_usr, dest_usr);
13262     PERFORM actor.usr_merge_rows('actor.usr_setting', 'usr', src_usr, dest_usr);
13263
13264     -- permission.*
13265     PERFORM actor.usr_merge_rows('permission.usr_perm_map', 'usr', src_usr, dest_usr);
13266     PERFORM actor.usr_merge_rows('permission.usr_object_perm_map', 'usr', src_usr, dest_usr);
13267     PERFORM actor.usr_merge_rows('permission.usr_grp_map', 'usr', src_usr, dest_usr);
13268     PERFORM actor.usr_merge_rows('permission.usr_work_ou_map', 'usr', src_usr, dest_usr);
13269
13270
13271     -- container.*
13272
13273         -- For each *_bucket table: transfer every bucket belonging to src_usr
13274         -- into the custody of dest_usr.
13275         --
13276         -- In order to avoid colliding with an existing bucket owned by
13277         -- the destination user, append the source user's id (in parenthesese)
13278         -- to the name.  If you still get a collision, add successive
13279         -- spaces to the name and keep trying until you succeed.
13280         --
13281         FOR bucket_row in
13282                 SELECT id, name
13283                 FROM   container.biblio_record_entry_bucket
13284                 WHERE  owner = src_usr
13285         LOOP
13286                 suffix := ' (' || src_usr || ')';
13287                 LOOP
13288                         BEGIN
13289                                 UPDATE  container.biblio_record_entry_bucket
13290                                 SET     owner = dest_usr, name = name || suffix
13291                                 WHERE   id = bucket_row.id;
13292                         EXCEPTION WHEN unique_violation THEN
13293                                 suffix := suffix || ' ';
13294                                 CONTINUE;
13295                         END;
13296                         EXIT;
13297                 END LOOP;
13298         END LOOP;
13299
13300         FOR bucket_row in
13301                 SELECT id, name
13302                 FROM   container.call_number_bucket
13303                 WHERE  owner = src_usr
13304         LOOP
13305                 suffix := ' (' || src_usr || ')';
13306                 LOOP
13307                         BEGIN
13308                                 UPDATE  container.call_number_bucket
13309                                 SET     owner = dest_usr, name = name || suffix
13310                                 WHERE   id = bucket_row.id;
13311                         EXCEPTION WHEN unique_violation THEN
13312                                 suffix := suffix || ' ';
13313                                 CONTINUE;
13314                         END;
13315                         EXIT;
13316                 END LOOP;
13317         END LOOP;
13318
13319         FOR bucket_row in
13320                 SELECT id, name
13321                 FROM   container.copy_bucket
13322                 WHERE  owner = src_usr
13323         LOOP
13324                 suffix := ' (' || src_usr || ')';
13325                 LOOP
13326                         BEGIN
13327                                 UPDATE  container.copy_bucket
13328                                 SET     owner = dest_usr, name = name || suffix
13329                                 WHERE   id = bucket_row.id;
13330                         EXCEPTION WHEN unique_violation THEN
13331                                 suffix := suffix || ' ';
13332                                 CONTINUE;
13333                         END;
13334                         EXIT;
13335                 END LOOP;
13336         END LOOP;
13337
13338         FOR bucket_row in
13339                 SELECT id, name
13340                 FROM   container.user_bucket
13341                 WHERE  owner = src_usr
13342         LOOP
13343                 suffix := ' (' || src_usr || ')';
13344                 LOOP
13345                         BEGIN
13346                                 UPDATE  container.user_bucket
13347                                 SET     owner = dest_usr, name = name || suffix
13348                                 WHERE   id = bucket_row.id;
13349                         EXCEPTION WHEN unique_violation THEN
13350                                 suffix := suffix || ' ';
13351                                 CONTINUE;
13352                         END;
13353                         EXIT;
13354                 END LOOP;
13355         END LOOP;
13356
13357         UPDATE container.user_bucket_item SET target_user = dest_usr WHERE target_user = src_usr;
13358
13359     -- vandelay.*
13360         -- transfer queues the same way we transfer buckets (see above)
13361         FOR queue_row in
13362                 SELECT id, name
13363                 FROM   vandelay.queue
13364                 WHERE  owner = src_usr
13365         LOOP
13366                 suffix := ' (' || src_usr || ')';
13367                 LOOP
13368                         BEGIN
13369                                 UPDATE  vandelay.queue
13370                                 SET     owner = dest_usr, name = name || suffix
13371                                 WHERE   id = queue_row.id;
13372                         EXCEPTION WHEN unique_violation THEN
13373                                 suffix := suffix || ' ';
13374                                 CONTINUE;
13375                         END;
13376                         EXIT;
13377                 END LOOP;
13378         END LOOP;
13379
13380     -- money.*
13381     PERFORM actor.usr_merge_rows('money.collections_tracker', 'usr', src_usr, dest_usr);
13382     PERFORM actor.usr_merge_rows('money.collections_tracker', 'collector', src_usr, dest_usr);
13383     UPDATE money.billable_xact SET usr = dest_usr WHERE usr = src_usr;
13384     UPDATE money.billing SET voider = dest_usr WHERE voider = src_usr;
13385     UPDATE money.bnm_payment SET accepting_usr = dest_usr WHERE accepting_usr = src_usr;
13386
13387     -- action.*
13388     UPDATE action.circulation SET usr = dest_usr WHERE usr = src_usr;
13389     UPDATE action.circulation SET circ_staff = dest_usr WHERE circ_staff = src_usr;
13390     UPDATE action.circulation SET checkin_staff = dest_usr WHERE checkin_staff = src_usr;
13391
13392     UPDATE action.hold_request SET usr = dest_usr WHERE usr = src_usr;
13393     UPDATE action.hold_request SET fulfillment_staff = dest_usr WHERE fulfillment_staff = src_usr;
13394     UPDATE action.hold_request SET requestor = dest_usr WHERE requestor = src_usr;
13395     UPDATE action.hold_notification SET notify_staff = dest_usr WHERE notify_staff = src_usr;
13396
13397     UPDATE action.in_house_use SET staff = dest_usr WHERE staff = src_usr;
13398     UPDATE action.non_cataloged_circulation SET staff = dest_usr WHERE staff = src_usr;
13399     UPDATE action.non_cataloged_circulation SET patron = dest_usr WHERE patron = src_usr;
13400     UPDATE action.non_cat_in_house_use SET staff = dest_usr WHERE staff = src_usr;
13401     UPDATE action.survey_response SET usr = dest_usr WHERE usr = src_usr;
13402
13403     -- acq.*
13404     UPDATE acq.fund_allocation SET allocator = dest_usr WHERE allocator = src_usr;
13405         UPDATE acq.fund_transfer SET transfer_user = dest_usr WHERE transfer_user = src_usr;
13406
13407         -- transfer picklists the same way we transfer buckets (see above)
13408         FOR picklist_row in
13409                 SELECT id, name
13410                 FROM   acq.picklist
13411                 WHERE  owner = src_usr
13412         LOOP
13413                 suffix := ' (' || src_usr || ')';
13414                 LOOP
13415                         BEGIN
13416                                 UPDATE  acq.picklist
13417                                 SET     owner = dest_usr, name = name || suffix
13418                                 WHERE   id = picklist_row.id;
13419                         EXCEPTION WHEN unique_violation THEN
13420                                 suffix := suffix || ' ';
13421                                 CONTINUE;
13422                         END;
13423                         EXIT;
13424                 END LOOP;
13425         END LOOP;
13426
13427     UPDATE acq.purchase_order SET owner = dest_usr WHERE owner = src_usr;
13428     UPDATE acq.po_note SET creator = dest_usr WHERE creator = src_usr;
13429     UPDATE acq.po_note SET editor = dest_usr WHERE editor = src_usr;
13430     UPDATE acq.provider_note SET creator = dest_usr WHERE creator = src_usr;
13431     UPDATE acq.provider_note SET editor = dest_usr WHERE editor = src_usr;
13432     UPDATE acq.lineitem_note SET creator = dest_usr WHERE creator = src_usr;
13433     UPDATE acq.lineitem_note SET editor = dest_usr WHERE editor = src_usr;
13434     UPDATE acq.lineitem_usr_attr_definition SET usr = dest_usr WHERE usr = src_usr;
13435
13436     -- asset.*
13437     UPDATE asset.copy SET creator = dest_usr WHERE creator = src_usr;
13438     UPDATE asset.copy SET editor = dest_usr WHERE editor = src_usr;
13439     UPDATE asset.copy_note SET creator = dest_usr WHERE creator = src_usr;
13440     UPDATE asset.call_number SET creator = dest_usr WHERE creator = src_usr;
13441     UPDATE asset.call_number SET editor = dest_usr WHERE editor = src_usr;
13442     UPDATE asset.call_number_note SET creator = dest_usr WHERE creator = src_usr;
13443
13444     -- serial.*
13445     UPDATE serial.record_entry SET creator = dest_usr WHERE creator = src_usr;
13446     UPDATE serial.record_entry SET editor = dest_usr WHERE editor = src_usr;
13447
13448     -- reporter.*
13449     -- It's not uncommon to define the reporter schema in a replica
13450     -- DB only, so don't assume these tables exist in the write DB.
13451     BEGIN
13452         UPDATE reporter.template SET owner = dest_usr WHERE owner = src_usr;
13453     EXCEPTION WHEN undefined_table THEN
13454         -- do nothing
13455     END;
13456     BEGIN
13457         UPDATE reporter.report SET owner = dest_usr WHERE owner = src_usr;
13458     EXCEPTION WHEN undefined_table THEN
13459         -- do nothing
13460     END;
13461     BEGIN
13462         UPDATE reporter.schedule SET runner = dest_usr WHERE runner = src_usr;
13463     EXCEPTION WHEN undefined_table THEN
13464         -- do nothing
13465     END;
13466     BEGIN
13467                 -- transfer folders the same way we transfer buckets (see above)
13468                 FOR folder_row in
13469                         SELECT id, name
13470                         FROM   reporter.template_folder
13471                         WHERE  owner = src_usr
13472                 LOOP
13473                         suffix := ' (' || src_usr || ')';
13474                         LOOP
13475                                 BEGIN
13476                                         UPDATE  reporter.template_folder
13477                                         SET     owner = dest_usr, name = name || suffix
13478                                         WHERE   id = folder_row.id;
13479                                 EXCEPTION WHEN unique_violation THEN
13480                                         suffix := suffix || ' ';
13481                                         CONTINUE;
13482                                 END;
13483                                 EXIT;
13484                         END LOOP;
13485                 END LOOP;
13486     EXCEPTION WHEN undefined_table THEN
13487         -- do nothing
13488     END;
13489     BEGIN
13490                 -- transfer folders the same way we transfer buckets (see above)
13491                 FOR folder_row in
13492                         SELECT id, name
13493                         FROM   reporter.report_folder
13494                         WHERE  owner = src_usr
13495                 LOOP
13496                         suffix := ' (' || src_usr || ')';
13497                         LOOP
13498                                 BEGIN
13499                                         UPDATE  reporter.report_folder
13500                                         SET     owner = dest_usr, name = name || suffix
13501                                         WHERE   id = folder_row.id;
13502                                 EXCEPTION WHEN unique_violation THEN
13503                                         suffix := suffix || ' ';
13504                                         CONTINUE;
13505                                 END;
13506                                 EXIT;
13507                         END LOOP;
13508                 END LOOP;
13509     EXCEPTION WHEN undefined_table THEN
13510         -- do nothing
13511     END;
13512     BEGIN
13513                 -- transfer folders the same way we transfer buckets (see above)
13514                 FOR folder_row in
13515                         SELECT id, name
13516                         FROM   reporter.output_folder
13517                         WHERE  owner = src_usr
13518                 LOOP
13519                         suffix := ' (' || src_usr || ')';
13520                         LOOP
13521                                 BEGIN
13522                                         UPDATE  reporter.output_folder
13523                                         SET     owner = dest_usr, name = name || suffix
13524                                         WHERE   id = folder_row.id;
13525                                 EXCEPTION WHEN unique_violation THEN
13526                                         suffix := suffix || ' ';
13527                                         CONTINUE;
13528                                 END;
13529                                 EXIT;
13530                         END LOOP;
13531                 END LOOP;
13532     EXCEPTION WHEN undefined_table THEN
13533         -- do nothing
13534     END;
13535
13536     -- Finally, delete the source user
13537     DELETE FROM actor.usr WHERE id = src_usr;
13538
13539 END;
13540 $$ LANGUAGE plpgsql;
13541
13542 -- The "add" trigger functions should protect against existing NULLed values, just in case
13543 CREATE OR REPLACE FUNCTION money.materialized_summary_billing_add () RETURNS TRIGGER AS $$
13544 BEGIN
13545     IF NOT NEW.voided THEN
13546         UPDATE  money.materialized_billable_xact_summary
13547           SET   total_owed = COALESCE(total_owed, 0.0::numeric) + NEW.amount,
13548             last_billing_ts = NEW.billing_ts,
13549             last_billing_note = NEW.note,
13550             last_billing_type = NEW.billing_type,
13551             balance_owed = balance_owed + NEW.amount
13552           WHERE id = NEW.xact;
13553     END IF;
13554
13555     RETURN NEW;
13556 END;
13557 $$ LANGUAGE PLPGSQL;
13558
13559 CREATE OR REPLACE FUNCTION money.materialized_summary_payment_add () RETURNS TRIGGER AS $$
13560 BEGIN
13561     IF NOT NEW.voided THEN
13562         UPDATE  money.materialized_billable_xact_summary
13563           SET   total_paid = COALESCE(total_paid, 0.0::numeric) + NEW.amount,
13564             last_payment_ts = NEW.payment_ts,
13565             last_payment_note = NEW.note,
13566             last_payment_type = TG_ARGV[0],
13567             balance_owed = balance_owed - NEW.amount
13568           WHERE id = NEW.xact;
13569     END IF;
13570
13571     RETURN NEW;
13572 END;
13573 $$ LANGUAGE PLPGSQL;
13574
13575 -- Refresh the mat view with the corrected underlying view
13576 TRUNCATE money.materialized_billable_xact_summary;
13577 INSERT INTO money.materialized_billable_xact_summary SELECT * FROM money.billable_xact_summary;
13578
13579 -- Now redefine the view as a window onto the materialized view
13580 CREATE OR REPLACE VIEW money.billable_xact_summary AS
13581     SELECT * FROM money.materialized_billable_xact_summary;
13582
13583 CREATE OR REPLACE FUNCTION permission.usr_has_perm_at_nd(
13584     user_id    IN INTEGER,
13585     perm_code  IN TEXT
13586 )
13587 RETURNS SETOF INTEGER AS $$
13588 --
13589 -- Return a set of all the org units for which a given user has a given
13590 -- permission, granted directly (not through inheritance from a parent
13591 -- org unit).
13592 --
13593 -- The permissions apply to a minimum depth of the org unit hierarchy,
13594 -- for the org unit(s) to which the user is assigned.  (They also apply
13595 -- to the subordinates of those org units, but we don't report the
13596 -- subordinates here.)
13597 --
13598 -- For purposes of this function, the permission.usr_work_ou_map table
13599 -- defines which users belong to which org units.  I.e. we ignore the
13600 -- home_ou column of actor.usr.
13601 --
13602 -- The result set may contain duplicates, which should be eliminated
13603 -- by a DISTINCT clause.
13604 --
13605 DECLARE
13606     b_super       BOOLEAN;
13607     n_perm        INTEGER;
13608     n_min_depth   INTEGER;
13609     n_work_ou     INTEGER;
13610     n_curr_ou     INTEGER;
13611     n_depth       INTEGER;
13612     n_curr_depth  INTEGER;
13613 BEGIN
13614     --
13615     -- Check for superuser
13616     --
13617     SELECT INTO b_super
13618         super_user
13619     FROM
13620         actor.usr
13621     WHERE
13622         id = user_id;
13623     --
13624     IF NOT FOUND THEN
13625         return;             -- No user?  No permissions.
13626     ELSIF b_super THEN
13627         --
13628         -- Super user has all permissions everywhere
13629         --
13630         FOR n_work_ou IN
13631             SELECT
13632                 id
13633             FROM
13634                 actor.org_unit
13635             WHERE
13636                 parent_ou IS NULL
13637         LOOP
13638             RETURN NEXT n_work_ou;
13639         END LOOP;
13640         RETURN;
13641     END IF;
13642     --
13643     -- Translate the permission name
13644     -- to a numeric permission id
13645     --
13646     SELECT INTO n_perm
13647         id
13648     FROM
13649         permission.perm_list
13650     WHERE
13651         code = perm_code;
13652     --
13653     IF NOT FOUND THEN
13654         RETURN;               -- No such permission
13655     END IF;
13656     --
13657     -- Find the highest-level org unit (i.e. the minimum depth)
13658     -- to which the permission is applied for this user
13659     --
13660     -- This query is modified from the one in permission.usr_perms().
13661     --
13662     SELECT INTO n_min_depth
13663         min( depth )
13664     FROM    (
13665         SELECT depth
13666           FROM permission.usr_perm_map upm
13667          WHERE upm.usr = user_id
13668            AND (upm.perm = n_perm OR upm.perm = -1)
13669                     UNION
13670         SELECT  gpm.depth
13671           FROM  permission.grp_perm_map gpm
13672           WHERE (gpm.perm = n_perm OR gpm.perm = -1)
13673             AND gpm.grp IN (
13674                SELECT   (permission.grp_ancestors(
13675                     (SELECT profile FROM actor.usr WHERE id = user_id)
13676                 )).id
13677             )
13678                     UNION
13679         SELECT  p.depth
13680           FROM  permission.grp_perm_map p
13681           WHERE (p.perm = n_perm OR p.perm = -1)
13682             AND p.grp IN (
13683                 SELECT (permission.grp_ancestors(m.grp)).id
13684                 FROM   permission.usr_grp_map m
13685                 WHERE  m.usr = user_id
13686             )
13687     ) AS x;
13688     --
13689     IF NOT FOUND THEN
13690         RETURN;                -- No such permission for this user
13691     END IF;
13692     --
13693     -- Identify the org units to which the user is assigned.  Note that
13694     -- we pay no attention to the home_ou column in actor.usr.
13695     --
13696     FOR n_work_ou IN
13697         SELECT
13698             work_ou
13699         FROM
13700             permission.usr_work_ou_map
13701         WHERE
13702             usr = user_id
13703     LOOP            -- For each org unit to which the user is assigned
13704         --
13705         -- Determine the level of the org unit by a lookup in actor.org_unit_type.
13706         -- We take it on faith that this depth agrees with the actual hierarchy
13707         -- defined in actor.org_unit.
13708         --
13709         SELECT INTO n_depth
13710             type.depth
13711         FROM
13712             actor.org_unit_type type
13713                 INNER JOIN actor.org_unit ou
13714                     ON ( ou.ou_type = type.id )
13715         WHERE
13716             ou.id = n_work_ou;
13717         --
13718         IF NOT FOUND THEN
13719             CONTINUE;        -- Maybe raise exception?
13720         END IF;
13721         --
13722         -- Compare the depth of the work org unit to the
13723         -- minimum depth, and branch accordingly
13724         --
13725         IF n_depth = n_min_depth THEN
13726             --
13727             -- The org unit is at the right depth, so return it.
13728             --
13729             RETURN NEXT n_work_ou;
13730         ELSIF n_depth > n_min_depth THEN
13731             --
13732             -- Traverse the org unit tree toward the root,
13733             -- until you reach the minimum depth determined above
13734             --
13735             n_curr_depth := n_depth;
13736             n_curr_ou := n_work_ou;
13737             WHILE n_curr_depth > n_min_depth LOOP
13738                 SELECT INTO n_curr_ou
13739                     parent_ou
13740                 FROM
13741                     actor.org_unit
13742                 WHERE
13743                     id = n_curr_ou;
13744                 --
13745                 IF FOUND THEN
13746                     n_curr_depth := n_curr_depth - 1;
13747                 ELSE
13748                     --
13749                     -- This can happen only if the hierarchy defined in
13750                     -- actor.org_unit is corrupted, or out of sync with
13751                     -- the depths defined in actor.org_unit_type.
13752                     -- Maybe we should raise an exception here, instead
13753                     -- of silently ignoring the problem.
13754                     --
13755                     n_curr_ou = NULL;
13756                     EXIT;
13757                 END IF;
13758             END LOOP;
13759             --
13760             IF n_curr_ou IS NOT NULL THEN
13761                 RETURN NEXT n_curr_ou;
13762             END IF;
13763         ELSE
13764             --
13765             -- The permission applies only at a depth greater than the work org unit.
13766             -- Use connectby() to find all dependent org units at the specified depth.
13767             --
13768             FOR n_curr_ou IN
13769                 SELECT ou::INTEGER
13770                 FROM connectby(
13771                         'actor.org_unit',         -- table name
13772                         'id',                     -- key column
13773                         'parent_ou',              -- recursive foreign key
13774                         n_work_ou::TEXT,          -- id of starting point
13775                         (n_min_depth - n_depth)   -- max depth to search, relative
13776                     )                             --   to starting point
13777                     AS t(
13778                         ou text,            -- dependent org unit
13779                         parent_ou text,     -- (ignore)
13780                         level int           -- depth relative to starting point
13781                     )
13782                 WHERE
13783                     level = n_min_depth - n_depth
13784             LOOP
13785                 RETURN NEXT n_curr_ou;
13786             END LOOP;
13787         END IF;
13788         --
13789     END LOOP;
13790     --
13791     RETURN;
13792     --
13793 END;
13794 $$ LANGUAGE 'plpgsql';
13795
13796 ALTER TABLE acq.purchase_order
13797         ADD COLUMN cancel_reason INT
13798                 REFERENCES acq.cancel_reason( id )
13799             DEFERRABLE INITIALLY DEFERRED,
13800         ADD COLUMN prepayment_required BOOLEAN NOT NULL DEFAULT FALSE;
13801
13802 -- Build the history table and lifecycle view
13803 -- for acq.purchase_order
13804
13805 SELECT acq.create_acq_auditor ( 'acq', 'purchase_order' );
13806
13807 CREATE INDEX acq_po_hist_id_idx            ON acq.acq_purchase_order_history( id );
13808
13809 ALTER TABLE acq.lineitem
13810         ADD COLUMN cancel_reason INT
13811                 REFERENCES acq.cancel_reason( id )
13812             DEFERRABLE INITIALLY DEFERRED,
13813         ADD COLUMN estimated_unit_price NUMERIC,
13814         ADD COLUMN claim_policy INT
13815                 REFERENCES acq.claim_policy
13816                 DEFERRABLE INITIALLY DEFERRED,
13817         ALTER COLUMN eg_bib_id SET DATA TYPE bigint;
13818
13819 -- Build the history table and lifecycle view
13820 -- for acq.lineitem
13821
13822 SELECT acq.create_acq_auditor ( 'acq', 'lineitem' );
13823 CREATE INDEX acq_lineitem_hist_id_idx            ON acq.acq_lineitem_history( id );
13824
13825 ALTER TABLE acq.lineitem_detail
13826         ADD COLUMN cancel_reason        INT REFERENCES acq.cancel_reason( id )
13827                                             DEFERRABLE INITIALLY DEFERRED;
13828
13829 ALTER TABLE acq.lineitem_detail
13830         DROP CONSTRAINT lineitem_detail_lineitem_fkey;
13831
13832 ALTER TABLE acq.lineitem_detail
13833         ADD FOREIGN KEY (lineitem) REFERENCES acq.lineitem( id )
13834                 ON DELETE CASCADE
13835                 DEFERRABLE INITIALLY DEFERRED;
13836
13837 ALTER TABLE acq.lineitem_detail DROP CONSTRAINT lineitem_detail_eg_copy_id_fkey;
13838
13839 INSERT INTO acq.cancel_reason ( id, org_unit, label, description ) VALUES (
13840         1, 1, 'invalid_isbn', oils_i18n_gettext( 1, 'ISBN is unrecognizable', 'acqcr', 'label' ));
13841
13842 INSERT INTO acq.cancel_reason ( id, org_unit, label, description ) VALUES (
13843         2, 1, 'postpone', oils_i18n_gettext( 2, 'Title has been postponed', 'acqcr', 'label' ));
13844
13845 CREATE OR REPLACE FUNCTION vandelay.add_field ( target_xml TEXT, source_xml TEXT, field TEXT ) RETURNS TEXT AS $_$
13846
13847     use MARC::Record;
13848     use MARC::File::XML (BinaryEncoding => 'UTF-8');
13849     use strict;
13850
13851     my $target_xml = shift;
13852     my $source_xml = shift;
13853     my $field_spec = shift;
13854
13855     my $target_r = MARC::Record->new_from_xml( $target_xml );
13856     my $source_r = MARC::Record->new_from_xml( $source_xml );
13857
13858     return $target_xml unless ($target_r && $source_r);
13859
13860     my @field_list = split(',', $field_spec);
13861
13862     my %fields;
13863     for my $f (@field_list) {
13864         $f =~ s/^\s*//; $f =~ s/\s*$//;
13865         if ($f =~ /^(.{3})(\w*)(?:\[([^]]*)\])?$/) {
13866             my $field = $1;
13867             $field =~ s/\s+//;
13868             my $sf = $2;
13869             $sf =~ s/\s+//;
13870             my $match = $3;
13871             $match =~ s/^\s*//; $match =~ s/\s*$//;
13872             $fields{$field} = { sf => [ split('', $sf) ] };
13873             if ($match) {
13874                 my ($msf,$mre) = split('~', $match);
13875                 if (length($msf) > 0 and length($mre) > 0) {
13876                     $msf =~ s/^\s*//; $msf =~ s/\s*$//;
13877                     $mre =~ s/^\s*//; $mre =~ s/\s*$//;
13878                     $fields{$field}{match} = { sf => $msf, re => qr/$mre/ };
13879                 }
13880             }
13881         }
13882     }
13883
13884     for my $f ( keys %fields) {
13885         if ( @{$fields{$f}{sf}} ) {
13886             for my $from_field ($source_r->field( $f )) {
13887                 for my $to_field ($target_r->field( $f )) {
13888                     if (exists($fields{$f}{match})) {
13889                         next unless (grep { $_ =~ $fields{$f}{match}{re} } $to_field->subfield($fields{$f}{match}{sf}));
13890                     }
13891                     my @new_sf = map { ($_ => $from_field->subfield($_)) } @{$fields{$f}{sf}};
13892                     $to_field->add_subfields( @new_sf );
13893                 }
13894             }
13895         } else {
13896             my @new_fields = map { $_->clone } $source_r->field( $f );
13897             $target_r->insert_fields_ordered( @new_fields );
13898         }
13899     }
13900
13901     $target_xml = $target_r->as_xml_record;
13902     $target_xml =~ s/^<\?.+?\?>$//mo;
13903     $target_xml =~ s/\n//sgo;
13904     $target_xml =~ s/>\s+</></sgo;
13905
13906     return $target_xml;
13907
13908 $_$ LANGUAGE PLPERLU;
13909
13910 CREATE OR REPLACE FUNCTION vandelay.strip_field ( xml TEXT, field TEXT ) RETURNS TEXT AS $_$
13911
13912     use MARC::Record;
13913     use MARC::File::XML (BinaryEncoding => 'UTF-8');
13914     use strict;
13915
13916     my $xml = shift;
13917     my $r = MARC::Record->new_from_xml( $xml );
13918
13919     return $xml unless ($r);
13920
13921     my $field_spec = shift;
13922     my @field_list = split(',', $field_spec);
13923
13924     my %fields;
13925     for my $f (@field_list) {
13926         $f =~ s/^\s*//; $f =~ s/\s*$//;
13927         if ($f =~ /^(.{3})(\w*)(?:\[([^]]*)\])?$/) {
13928             my $field = $1;
13929             $field =~ s/\s+//;
13930             my $sf = $2;
13931             $sf =~ s/\s+//;
13932             my $match = $3;
13933             $match =~ s/^\s*//; $match =~ s/\s*$//;
13934             $fields{$field} = { sf => [ split('', $sf) ] };
13935             if ($match) {
13936                 my ($msf,$mre) = split('~', $match);
13937                 if (length($msf) > 0 and length($mre) > 0) {
13938                     $msf =~ s/^\s*//; $msf =~ s/\s*$//;
13939                     $mre =~ s/^\s*//; $mre =~ s/\s*$//;
13940                     $fields{$field}{match} = { sf => $msf, re => qr/$mre/ };
13941                 }
13942             }
13943         }
13944     }
13945
13946     for my $f ( keys %fields) {
13947         for my $to_field ($r->field( $f )) {
13948             if (exists($fields{$f}{match})) {
13949                 next unless (grep { $_ =~ $fields{$f}{match}{re} } $to_field->subfield($fields{$f}{match}{sf}));
13950             }
13951
13952             if ( @{$fields{$f}{sf}} ) {
13953                 $to_field->delete_subfield(code => $fields{$f}{sf});
13954             } else {
13955                 $r->delete_field( $to_field );
13956             }
13957         }
13958     }
13959
13960     $xml = $r->as_xml_record;
13961     $xml =~ s/^<\?.+?\?>$//mo;
13962     $xml =~ s/\n//sgo;
13963     $xml =~ s/>\s+</></sgo;
13964
13965     return $xml;
13966
13967 $_$ LANGUAGE PLPERLU;
13968
13969 CREATE OR REPLACE FUNCTION vandelay.replace_field ( target_xml TEXT, source_xml TEXT, field TEXT ) RETURNS TEXT AS $_$
13970     SELECT vandelay.add_field( vandelay.strip_field( $1, $3), $2, $3 );
13971 $_$ LANGUAGE SQL;
13972
13973 CREATE OR REPLACE FUNCTION vandelay.preserve_field ( incumbent_xml TEXT, incoming_xml TEXT, field TEXT ) RETURNS TEXT AS $_$
13974     SELECT vandelay.add_field( vandelay.strip_field( $2, $3), $1, $3 );
13975 $_$ LANGUAGE SQL;
13976
13977 CREATE VIEW action.unfulfilled_hold_max_loop AS
13978         SELECT  hold,
13979                 max(count) AS max
13980         FROM    action.unfulfilled_hold_loops
13981         GROUP BY 1;
13982
13983 ALTER TABLE acq.lineitem_attr
13984         DROP CONSTRAINT lineitem_attr_lineitem_fkey;
13985
13986 ALTER TABLE acq.lineitem_attr
13987         ADD FOREIGN KEY (lineitem) REFERENCES acq.lineitem( id )
13988                 ON DELETE CASCADE
13989                 DEFERRABLE INITIALLY DEFERRED;
13990
13991 ALTER TABLE acq.po_note
13992         ADD COLUMN vendor_public BOOLEAN NOT NULL DEFAULT FALSE;
13993
13994 CREATE TABLE vandelay.merge_profile (
13995     id              BIGSERIAL   PRIMARY KEY,
13996     owner           INT         NOT NULL REFERENCES actor.org_unit (id) ON UPDATE CASCADE ON DELETE CASCADE DEFERRABLE INITIALLY DEFERRED,
13997     name            TEXT        NOT NULL,
13998     add_spec        TEXT,
13999     replace_spec    TEXT,
14000     strip_spec      TEXT,
14001     preserve_spec   TEXT,
14002     CONSTRAINT vand_merge_prof_owner_name_idx UNIQUE (owner,name),
14003     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))
14004 );
14005
14006 CREATE OR REPLACE FUNCTION vandelay.match_bib_record ( ) RETURNS TRIGGER AS $func$
14007 DECLARE
14008     attr        RECORD;
14009     attr_def    RECORD;
14010     eg_rec      RECORD;
14011     id_value    TEXT;
14012     exact_id    BIGINT;
14013 BEGIN
14014
14015     DELETE FROM vandelay.bib_match WHERE queued_record = NEW.id;
14016
14017     SELECT * INTO attr_def FROM vandelay.bib_attr_definition WHERE xpath = '//*[@tag="901"]/*[@code="c"]' ORDER BY id LIMIT 1;
14018
14019     IF attr_def IS NOT NULL AND attr_def.id IS NOT NULL THEN
14020         id_value := extract_marc_field('vandelay.queued_bib_record', NEW.id, attr_def.xpath, attr_def.remove);
14021
14022         IF id_value IS NOT NULL AND id_value <> '' AND id_value ~ $r$^\d+$$r$ THEN
14023             SELECT id INTO exact_id FROM biblio.record_entry WHERE id = id_value::BIGINT AND NOT deleted;
14024             SELECT * INTO attr FROM vandelay.queued_bib_record_attr WHERE record = NEW.id and field = attr_def.id LIMIT 1;
14025             IF exact_id IS NOT NULL THEN
14026                 INSERT INTO vandelay.bib_match (field_type, matched_attr, queued_record, eg_record) VALUES ('id', attr.id, NEW.id, exact_id);
14027             END IF;
14028         END IF;
14029     END IF;
14030
14031     IF exact_id IS NULL THEN
14032         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
14033
14034             -- All numbers? check for an id match
14035             IF (attr.attr_value ~ $r$^\d+$$r$) THEN
14036                 FOR eg_rec IN SELECT * FROM biblio.record_entry WHERE id = attr.attr_value::BIGINT AND deleted IS FALSE LOOP
14037                     INSERT INTO vandelay.bib_match (field_type, matched_attr, queued_record, eg_record) VALUES ('id', attr.id, NEW.id, eg_rec.id);
14038                 END LOOP;
14039             END IF;
14040
14041             -- Looks like an ISBN? check for an isbn match
14042             IF (attr.attr_value ~* $r$^[0-9x]+$$r$ AND character_length(attr.attr_value) IN (10,13)) THEN
14043                 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
14044                     PERFORM id FROM biblio.record_entry WHERE id = eg_rec.record AND deleted IS FALSE;
14045                     IF FOUND THEN
14046                         INSERT INTO vandelay.bib_match (field_type, matched_attr, queued_record, eg_record) VALUES ('isbn', attr.id, NEW.id, eg_rec.record);
14047                     END IF;
14048                 END LOOP;
14049
14050                 -- subcheck for isbn-as-tcn
14051                 FOR eg_rec IN SELECT * FROM biblio.record_entry WHERE tcn_value = 'i' || attr.attr_value AND deleted IS FALSE LOOP
14052                     INSERT INTO vandelay.bib_match (field_type, matched_attr, queued_record, eg_record) VALUES ('tcn_value', attr.id, NEW.id, eg_rec.id);
14053                 END LOOP;
14054             END IF;
14055
14056             -- check for an OCLC tcn_value match
14057             IF (attr.attr_value ~ $r$^o\d+$$r$) THEN
14058                 FOR eg_rec IN SELECT * FROM biblio.record_entry WHERE tcn_value = regexp_replace(attr.attr_value,'^o','ocm') AND deleted IS FALSE LOOP
14059                     INSERT INTO vandelay.bib_match (field_type, matched_attr, queued_record, eg_record) VALUES ('tcn_value', attr.id, NEW.id, eg_rec.id);
14060                 END LOOP;
14061             END IF;
14062
14063             -- check for a direct tcn_value match
14064             FOR eg_rec IN SELECT * FROM biblio.record_entry WHERE tcn_value = attr.attr_value AND deleted IS FALSE LOOP
14065                 INSERT INTO vandelay.bib_match (field_type, matched_attr, queued_record, eg_record) VALUES ('tcn_value', attr.id, NEW.id, eg_rec.id);
14066             END LOOP;
14067
14068             -- check for a direct item barcode match
14069             FOR eg_rec IN
14070                     SELECT  DISTINCT b.*
14071                       FROM  biblio.record_entry b
14072                             JOIN asset.call_number cn ON (cn.record = b.id)
14073                             JOIN asset.copy cp ON (cp.call_number = cn.id)
14074                       WHERE cp.barcode = attr.attr_value AND cp.deleted IS FALSE
14075             LOOP
14076                 INSERT INTO vandelay.bib_match (field_type, matched_attr, queued_record, eg_record) VALUES ('id', attr.id, NEW.id, eg_rec.id);
14077             END LOOP;
14078
14079         END LOOP;
14080     END IF;
14081
14082     RETURN NULL;
14083 END;
14084 $func$ LANGUAGE PLPGSQL;
14085
14086 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 $_$
14087     SELECT vandelay.replace_field( vandelay.add_field( vandelay.strip_field( $1, $5) , $2, $3 ), $2, $4);
14088 $_$ LANGUAGE SQL;
14089
14090 CREATE TYPE vandelay.compile_profile AS (add_rule TEXT, replace_rule TEXT, preserve_rule TEXT, strip_rule TEXT);
14091 CREATE OR REPLACE FUNCTION vandelay.compile_profile ( incoming_xml TEXT ) RETURNS vandelay.compile_profile AS $_$
14092 DECLARE
14093     output              vandelay.compile_profile%ROWTYPE;
14094     profile             vandelay.merge_profile%ROWTYPE;
14095     profile_tmpl        TEXT;
14096     profile_tmpl_owner  TEXT;
14097     add_rule            TEXT := '';
14098     strip_rule          TEXT := '';
14099     replace_rule        TEXT := '';
14100     preserve_rule       TEXT := '';
14101
14102 BEGIN
14103
14104     profile_tmpl := (oils_xpath('//*[@tag="905"]/*[@code="t"]/text()',incoming_xml))[1];
14105     profile_tmpl_owner := (oils_xpath('//*[@tag="905"]/*[@code="o"]/text()',incoming_xml))[1];
14106
14107     IF profile_tmpl IS NOT NULL AND profile_tmpl <> '' AND profile_tmpl_owner IS NOT NULL AND profile_tmpl_owner <> '' THEN
14108         SELECT  p.* INTO profile
14109           FROM  vandelay.merge_profile p
14110                 JOIN actor.org_unit u ON (u.id = p.owner)
14111           WHERE p.name = profile_tmpl
14112                 AND u.shortname = profile_tmpl_owner;
14113
14114         IF profile.id IS NOT NULL THEN
14115             add_rule := COALESCE(profile.add_spec,'');
14116             strip_rule := COALESCE(profile.strip_spec,'');
14117             replace_rule := COALESCE(profile.replace_spec,'');
14118             preserve_rule := COALESCE(profile.preserve_spec,'');
14119         END IF;
14120     END IF;
14121
14122     add_rule := add_rule || ',' || COALESCE(ARRAY_TO_STRING(oils_xpath('//*[@tag="905"]/*[@code="a"]/text()',incoming_xml),''),'');
14123     strip_rule := strip_rule || ',' || COALESCE(ARRAY_TO_STRING(oils_xpath('//*[@tag="905"]/*[@code="d"]/text()',incoming_xml),''),'');
14124     replace_rule := replace_rule || ',' || COALESCE(ARRAY_TO_STRING(oils_xpath('//*[@tag="905"]/*[@code="r"]/text()',incoming_xml),''),'');
14125     preserve_rule := preserve_rule || ',' || COALESCE(ARRAY_TO_STRING(oils_xpath('//*[@tag="905"]/*[@code="p"]/text()',incoming_xml),''),'');
14126
14127     output.add_rule := BTRIM(add_rule,',');
14128     output.replace_rule := BTRIM(replace_rule,',');
14129     output.strip_rule := BTRIM(strip_rule,',');
14130     output.preserve_rule := BTRIM(preserve_rule,',');
14131
14132     RETURN output;
14133 END;
14134 $_$ LANGUAGE PLPGSQL;
14135
14136 -- Template-based marc munging functions
14137 CREATE OR REPLACE FUNCTION vandelay.template_overlay_bib_record ( v_marc TEXT, eg_id BIGINT, merge_profile_id INT ) RETURNS BOOL AS $$
14138 DECLARE
14139     merge_profile   vandelay.merge_profile%ROWTYPE;
14140     dyn_profile     vandelay.compile_profile%ROWTYPE;
14141     editor_string   TEXT;
14142     editor_id       INT;
14143     source_marc     TEXT;
14144     target_marc     TEXT;
14145     eg_marc         TEXT;
14146     replace_rule    TEXT;
14147     match_count     INT;
14148 BEGIN
14149
14150     SELECT  b.marc INTO eg_marc
14151       FROM  biblio.record_entry b
14152       WHERE b.id = eg_id
14153       LIMIT 1;
14154
14155     IF eg_marc IS NULL OR v_marc IS NULL THEN
14156         -- RAISE NOTICE 'no marc for template or bib record';
14157         RETURN FALSE;
14158     END IF;
14159
14160     dyn_profile := vandelay.compile_profile( v_marc );
14161
14162     IF merge_profile_id IS NOT NULL THEN
14163         SELECT * INTO merge_profile FROM vandelay.merge_profile WHERE id = merge_profile_id;
14164         IF FOUND THEN
14165             dyn_profile.add_rule := BTRIM( dyn_profile.add_rule || ',' || COALESCE(merge_profile.add_spec,''), ',');
14166             dyn_profile.strip_rule := BTRIM( dyn_profile.strip_rule || ',' || COALESCE(merge_profile.strip_spec,''), ',');
14167             dyn_profile.replace_rule := BTRIM( dyn_profile.replace_rule || ',' || COALESCE(merge_profile.replace_spec,''), ',');
14168             dyn_profile.preserve_rule := BTRIM( dyn_profile.preserve_rule || ',' || COALESCE(merge_profile.preserve_spec,''), ',');
14169         END IF;
14170     END IF;
14171
14172     IF dyn_profile.replace_rule <> '' AND dyn_profile.preserve_rule <> '' THEN
14173         -- RAISE NOTICE 'both replace [%] and preserve [%] specified', dyn_profile.replace_rule, dyn_profile.preserve_rule;
14174         RETURN FALSE;
14175     END IF;
14176
14177     IF dyn_profile.replace_rule <> '' THEN
14178         source_marc = v_marc;
14179         target_marc = eg_marc;
14180         replace_rule = dyn_profile.replace_rule;
14181     ELSE
14182         source_marc = eg_marc;
14183         target_marc = v_marc;
14184         replace_rule = dyn_profile.preserve_rule;
14185     END IF;
14186
14187     UPDATE  biblio.record_entry
14188       SET   marc = vandelay.merge_record_xml( target_marc, source_marc, dyn_profile.add_rule, replace_rule, dyn_profile.strip_rule )
14189       WHERE id = eg_id;
14190
14191     IF NOT FOUND THEN
14192         -- RAISE NOTICE 'update of biblio.record_entry failed';
14193         RETURN FALSE;
14194     END IF;
14195
14196     RETURN TRUE;
14197
14198 END;
14199 $$ LANGUAGE PLPGSQL;
14200
14201 CREATE OR REPLACE FUNCTION vandelay.template_overlay_bib_record ( v_marc TEXT, eg_id BIGINT) RETURNS BOOL AS $$
14202     SELECT vandelay.template_overlay_bib_record( $1, $2, NULL);
14203 $$ LANGUAGE SQL;
14204
14205 CREATE OR REPLACE FUNCTION vandelay.overlay_bib_record ( import_id BIGINT, eg_id BIGINT, merge_profile_id INT ) RETURNS BOOL AS $$
14206 DECLARE
14207     merge_profile   vandelay.merge_profile%ROWTYPE;
14208     dyn_profile     vandelay.compile_profile%ROWTYPE;
14209     editor_string   TEXT;
14210     editor_id       INT;
14211     source_marc     TEXT;
14212     target_marc     TEXT;
14213     eg_marc         TEXT;
14214     v_marc          TEXT;
14215     replace_rule    TEXT;
14216     match_count     INT;
14217 BEGIN
14218
14219     SELECT  q.marc INTO v_marc
14220       FROM  vandelay.queued_record q
14221             JOIN vandelay.bib_match m ON (m.queued_record = q.id AND q.id = import_id)
14222       LIMIT 1;
14223
14224     IF v_marc IS NULL THEN
14225         -- RAISE NOTICE 'no marc for vandelay or bib record';
14226         RETURN FALSE;
14227     END IF;
14228
14229     IF vandelay.template_overlay_bib_record( v_marc, eg_id, merge_profile_id) THEN
14230         UPDATE  vandelay.queued_bib_record
14231           SET   imported_as = eg_id,
14232                 import_time = NOW()
14233           WHERE id = import_id;
14234
14235         editor_string := (oils_xpath('//*[@tag="905"]/*[@code="u"]/text()',v_marc))[1];
14236
14237         IF editor_string IS NOT NULL AND editor_string <> '' THEN
14238             SELECT usr INTO editor_id FROM actor.card WHERE barcode = editor_string;
14239
14240             IF editor_id IS NULL THEN
14241                 SELECT id INTO editor_id FROM actor.usr WHERE usrname = editor_string;
14242             END IF;
14243
14244             IF editor_id IS NOT NULL THEN
14245                 UPDATE biblio.record_entry SET editor = editor_id WHERE id = eg_id;
14246             END IF;
14247         END IF;
14248
14249         RETURN TRUE;
14250     END IF;
14251
14252     -- RAISE NOTICE 'update of biblio.record_entry failed';
14253
14254     RETURN FALSE;
14255
14256 END;
14257 $$ LANGUAGE PLPGSQL;
14258
14259 CREATE OR REPLACE FUNCTION vandelay.auto_overlay_bib_record ( import_id BIGINT, merge_profile_id INT ) RETURNS BOOL AS $$
14260 DECLARE
14261     eg_id           BIGINT;
14262     match_count     INT;
14263     match_attr      vandelay.bib_attr_definition%ROWTYPE;
14264 BEGIN
14265
14266     PERFORM * FROM vandelay.queued_bib_record WHERE import_time IS NOT NULL AND id = import_id;
14267
14268     IF FOUND THEN
14269         -- RAISE NOTICE 'already imported, cannot auto-overlay'
14270         RETURN FALSE;
14271     END IF;
14272
14273     SELECT COUNT(*) INTO match_count FROM vandelay.bib_match WHERE queued_record = import_id;
14274
14275     IF match_count <> 1 THEN
14276         -- RAISE NOTICE 'not an exact match';
14277         RETURN FALSE;
14278     END IF;
14279
14280     SELECT  d.* INTO match_attr
14281       FROM  vandelay.bib_attr_definition d
14282             JOIN vandelay.queued_bib_record_attr a ON (a.field = d.id)
14283             JOIN vandelay.bib_match m ON (m.matched_attr = a.id)
14284       WHERE m.queued_record = import_id;
14285
14286     IF NOT (match_attr.xpath ~ '@tag="901"' AND match_attr.xpath ~ '@code="c"') THEN
14287         -- RAISE NOTICE 'not a 901c match: %', match_attr.xpath;
14288         RETURN FALSE;
14289     END IF;
14290
14291     SELECT  m.eg_record INTO eg_id
14292       FROM  vandelay.bib_match m
14293       WHERE m.queued_record = import_id
14294       LIMIT 1;
14295
14296     IF eg_id IS NULL THEN
14297         RETURN FALSE;
14298     END IF;
14299
14300     RETURN vandelay.overlay_bib_record( import_id, eg_id, merge_profile_id );
14301 END;
14302 $$ LANGUAGE PLPGSQL;
14303
14304 CREATE OR REPLACE FUNCTION vandelay.auto_overlay_bib_queue ( queue_id BIGINT, merge_profile_id INT ) RETURNS SETOF BIGINT AS $$
14305 DECLARE
14306     queued_record   vandelay.queued_bib_record%ROWTYPE;
14307 BEGIN
14308
14309     FOR queued_record IN SELECT * FROM vandelay.queued_bib_record WHERE queue = queue_id AND import_time IS NULL LOOP
14310
14311         IF vandelay.auto_overlay_bib_record( queued_record.id, merge_profile_id ) THEN
14312             RETURN NEXT queued_record.id;
14313         END IF;
14314
14315     END LOOP;
14316
14317     RETURN;
14318
14319 END;
14320 $$ LANGUAGE PLPGSQL;
14321
14322 CREATE OR REPLACE FUNCTION vandelay.auto_overlay_bib_queue ( queue_id BIGINT ) RETURNS SETOF BIGINT AS $$
14323     SELECT * FROM vandelay.auto_overlay_bib_queue( $1, NULL );
14324 $$ LANGUAGE SQL;
14325
14326 CREATE OR REPLACE FUNCTION vandelay.overlay_authority_record ( import_id BIGINT, eg_id BIGINT, merge_profile_id INT ) RETURNS BOOL AS $$
14327 DECLARE
14328     merge_profile   vandelay.merge_profile%ROWTYPE;
14329     dyn_profile     vandelay.compile_profile%ROWTYPE;
14330     source_marc     TEXT;
14331     target_marc     TEXT;
14332     eg_marc         TEXT;
14333     v_marc          TEXT;
14334     replace_rule    TEXT;
14335     match_count     INT;
14336 BEGIN
14337
14338     SELECT  b.marc INTO eg_marc
14339       FROM  authority.record_entry b
14340             JOIN vandelay.authority_match m ON (m.eg_record = b.id AND m.queued_record = import_id)
14341       LIMIT 1;
14342
14343     SELECT  q.marc INTO v_marc
14344       FROM  vandelay.queued_record q
14345             JOIN vandelay.authority_match m ON (m.queued_record = q.id AND q.id = import_id)
14346       LIMIT 1;
14347
14348     IF eg_marc IS NULL OR v_marc IS NULL THEN
14349         -- RAISE NOTICE 'no marc for vandelay or authority record';
14350         RETURN FALSE;
14351     END IF;
14352
14353     dyn_profile := vandelay.compile_profile( v_marc );
14354
14355     IF merge_profile_id IS NOT NULL THEN
14356         SELECT * INTO merge_profile FROM vandelay.merge_profile WHERE id = merge_profile_id;
14357         IF FOUND THEN
14358             dyn_profile.add_rule := BTRIM( dyn_profile.add_rule || ',' || COALESCE(merge_profile.add_spec,''), ',');
14359             dyn_profile.strip_rule := BTRIM( dyn_profile.strip_rule || ',' || COALESCE(merge_profile.strip_spec,''), ',');
14360             dyn_profile.replace_rule := BTRIM( dyn_profile.replace_rule || ',' || COALESCE(merge_profile.replace_spec,''), ',');
14361             dyn_profile.preserve_rule := BTRIM( dyn_profile.preserve_rule || ',' || COALESCE(merge_profile.preserve_spec,''), ',');
14362         END IF;
14363     END IF;
14364
14365     IF dyn_profile.replace_rule <> '' AND dyn_profile.preserve_rule <> '' THEN
14366         -- RAISE NOTICE 'both replace [%] and preserve [%] specified', dyn_profile.replace_rule, dyn_profile.preserve_rule;
14367         RETURN FALSE;
14368     END IF;
14369
14370     IF dyn_profile.replace_rule <> '' THEN
14371         source_marc = v_marc;
14372         target_marc = eg_marc;
14373         replace_rule = dyn_profile.replace_rule;
14374     ELSE
14375         source_marc = eg_marc;
14376         target_marc = v_marc;
14377         replace_rule = dyn_profile.preserve_rule;
14378     END IF;
14379
14380     UPDATE  authority.record_entry
14381       SET   marc = vandelay.merge_record_xml( target_marc, source_marc, dyn_profile.add_rule, replace_rule, dyn_profile.strip_rule )
14382       WHERE id = eg_id;
14383
14384     IF FOUND THEN
14385         UPDATE  vandelay.queued_authority_record
14386           SET   imported_as = eg_id,
14387                 import_time = NOW()
14388           WHERE id = import_id;
14389         RETURN TRUE;
14390     END IF;
14391
14392     -- RAISE NOTICE 'update of authority.record_entry failed';
14393
14394     RETURN FALSE;
14395
14396 END;
14397 $$ LANGUAGE PLPGSQL;
14398
14399 CREATE OR REPLACE FUNCTION vandelay.auto_overlay_authority_record ( import_id BIGINT, merge_profile_id INT ) RETURNS BOOL AS $$
14400 DECLARE
14401     eg_id           BIGINT;
14402     match_count     INT;
14403 BEGIN
14404     SELECT COUNT(*) INTO match_count FROM vandelay.authority_match WHERE queued_record = import_id;
14405
14406     IF match_count <> 1 THEN
14407         -- RAISE NOTICE 'not an exact match';
14408         RETURN FALSE;
14409     END IF;
14410
14411     SELECT  m.eg_record INTO eg_id
14412       FROM  vandelay.authority_match m
14413       WHERE m.queued_record = import_id
14414       LIMIT 1;
14415
14416     IF eg_id IS NULL THEN
14417         RETURN FALSE;
14418     END IF;
14419
14420     RETURN vandelay.overlay_authority_record( import_id, eg_id, merge_profile_id );
14421 END;
14422 $$ LANGUAGE PLPGSQL;
14423
14424 CREATE OR REPLACE FUNCTION vandelay.auto_overlay_authority_queue ( queue_id BIGINT, merge_profile_id INT ) RETURNS SETOF BIGINT AS $$
14425 DECLARE
14426     queued_record   vandelay.queued_authority_record%ROWTYPE;
14427 BEGIN
14428
14429     FOR queued_record IN SELECT * FROM vandelay.queued_authority_record WHERE queue = queue_id AND import_time IS NULL LOOP
14430
14431         IF vandelay.auto_overlay_authority_record( queued_record.id, merge_profile_id ) THEN
14432             RETURN NEXT queued_record.id;
14433         END IF;
14434
14435     END LOOP;
14436
14437     RETURN;
14438
14439 END;
14440 $$ LANGUAGE PLPGSQL;
14441
14442 CREATE OR REPLACE FUNCTION vandelay.auto_overlay_authority_queue ( queue_id BIGINT ) RETURNS SETOF BIGINT AS $$
14443     SELECT * FROM vandelay.auto_overlay_authority_queue( $1, NULL );
14444 $$ LANGUAGE SQL;
14445
14446 CREATE TYPE vandelay.tcn_data AS (tcn TEXT, tcn_source TEXT, used BOOL);
14447 CREATE OR REPLACE FUNCTION vandelay.find_bib_tcn_data ( xml TEXT ) RETURNS SETOF vandelay.tcn_data AS $_$
14448 DECLARE
14449     eg_tcn          TEXT;
14450     eg_tcn_source   TEXT;
14451     output          vandelay.tcn_data%ROWTYPE;
14452 BEGIN
14453
14454     -- 001/003
14455     eg_tcn := BTRIM((oils_xpath('//*[@tag="001"]/text()',xml))[1]);
14456     IF eg_tcn IS NOT NULL AND eg_tcn <> '' THEN
14457
14458         eg_tcn_source := BTRIM((oils_xpath('//*[@tag="003"]/text()',xml))[1]);
14459         IF eg_tcn_source IS NULL OR eg_tcn_source = '' THEN
14460             eg_tcn_source := 'System Local';
14461         END IF;
14462
14463         PERFORM id FROM biblio.record_entry WHERE tcn_value = eg_tcn  AND NOT deleted;
14464
14465         IF NOT FOUND THEN
14466             output.used := FALSE;
14467         ELSE
14468             output.used := TRUE;
14469         END IF;
14470
14471         output.tcn := eg_tcn;
14472         output.tcn_source := eg_tcn_source;
14473         RETURN NEXT output;
14474
14475     END IF;
14476
14477     -- 901 ab
14478     eg_tcn := BTRIM((oils_xpath('//*[@tag="901"]/*[@code="a"]/text()',xml))[1]);
14479     IF eg_tcn IS NOT NULL AND eg_tcn <> '' THEN
14480
14481         eg_tcn_source := BTRIM((oils_xpath('//*[@tag="901"]/*[@code="b"]/text()',xml))[1]);
14482         IF eg_tcn_source IS NULL OR eg_tcn_source = '' THEN
14483             eg_tcn_source := 'System Local';
14484         END IF;
14485
14486         PERFORM id FROM biblio.record_entry WHERE tcn_value = eg_tcn  AND NOT deleted;
14487
14488         IF NOT FOUND THEN
14489             output.used := FALSE;
14490         ELSE
14491             output.used := TRUE;
14492         END IF;
14493
14494         output.tcn := eg_tcn;
14495         output.tcn_source := eg_tcn_source;
14496         RETURN NEXT output;
14497
14498     END IF;
14499
14500     -- 039 ab
14501     eg_tcn := BTRIM((oils_xpath('//*[@tag="039"]/*[@code="a"]/text()',xml))[1]);
14502     IF eg_tcn IS NOT NULL AND eg_tcn <> '' THEN
14503
14504         eg_tcn_source := BTRIM((oils_xpath('//*[@tag="039"]/*[@code="b"]/text()',xml))[1]);
14505         IF eg_tcn_source IS NULL OR eg_tcn_source = '' THEN
14506             eg_tcn_source := 'System Local';
14507         END IF;
14508
14509         PERFORM id FROM biblio.record_entry WHERE tcn_value = eg_tcn  AND NOT deleted;
14510
14511         IF NOT FOUND THEN
14512             output.used := FALSE;
14513         ELSE
14514             output.used := TRUE;
14515         END IF;
14516
14517         output.tcn := eg_tcn;
14518         output.tcn_source := eg_tcn_source;
14519         RETURN NEXT output;
14520
14521     END IF;
14522
14523     -- 020 a
14524     eg_tcn := REGEXP_REPLACE((oils_xpath('//*[@tag="020"]/*[@code="a"]/text()',xml))[1], $re$^(\w+).*?$$re$, $re$\1$re$);
14525     IF eg_tcn IS NOT NULL AND eg_tcn <> '' THEN
14526
14527         eg_tcn_source := 'ISBN';
14528
14529         PERFORM id FROM biblio.record_entry WHERE tcn_value = eg_tcn  AND NOT deleted;
14530
14531         IF NOT FOUND THEN
14532             output.used := FALSE;
14533         ELSE
14534             output.used := TRUE;
14535         END IF;
14536
14537         output.tcn := eg_tcn;
14538         output.tcn_source := eg_tcn_source;
14539         RETURN NEXT output;
14540
14541     END IF;
14542
14543     -- 022 a
14544     eg_tcn := REGEXP_REPLACE((oils_xpath('//*[@tag="022"]/*[@code="a"]/text()',xml))[1], $re$^(\w+).*?$$re$, $re$\1$re$);
14545     IF eg_tcn IS NOT NULL AND eg_tcn <> '' THEN
14546
14547         eg_tcn_source := 'ISSN';
14548
14549         PERFORM id FROM biblio.record_entry WHERE tcn_value = eg_tcn  AND NOT deleted;
14550
14551         IF NOT FOUND THEN
14552             output.used := FALSE;
14553         ELSE
14554             output.used := TRUE;
14555         END IF;
14556
14557         output.tcn := eg_tcn;
14558         output.tcn_source := eg_tcn_source;
14559         RETURN NEXT output;
14560
14561     END IF;
14562
14563     -- 010 a
14564     eg_tcn := REGEXP_REPLACE((oils_xpath('//*[@tag="010"]/*[@code="a"]/text()',xml))[1], $re$^(\w+).*?$$re$, $re$\1$re$);
14565     IF eg_tcn IS NOT NULL AND eg_tcn <> '' THEN
14566
14567         eg_tcn_source := 'LCCN';
14568
14569         PERFORM id FROM biblio.record_entry WHERE tcn_value = eg_tcn  AND NOT deleted;
14570
14571         IF NOT FOUND THEN
14572             output.used := FALSE;
14573         ELSE
14574             output.used := TRUE;
14575         END IF;
14576
14577         output.tcn := eg_tcn;
14578         output.tcn_source := eg_tcn_source;
14579         RETURN NEXT output;
14580
14581     END IF;
14582
14583     -- 035 a
14584     eg_tcn := REGEXP_REPLACE((oils_xpath('//*[@tag="035"]/*[@code="a"]/text()',xml))[1], $re$^.*?(\w+)$$re$, $re$\1$re$);
14585     IF eg_tcn IS NOT NULL AND eg_tcn <> '' THEN
14586
14587         eg_tcn_source := 'System Legacy';
14588
14589         PERFORM id FROM biblio.record_entry WHERE tcn_value = eg_tcn  AND NOT deleted;
14590
14591         IF NOT FOUND THEN
14592             output.used := FALSE;
14593         ELSE
14594             output.used := TRUE;
14595         END IF;
14596
14597         output.tcn := eg_tcn;
14598         output.tcn_source := eg_tcn_source;
14599         RETURN NEXT output;
14600
14601     END IF;
14602
14603     RETURN;
14604 END;
14605 $_$ LANGUAGE PLPGSQL;
14606
14607 CREATE INDEX claim_lid_idx ON acq.claim( lineitem_detail );
14608
14609 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);
14610
14611 UPDATE biblio.record_entry SET marc = '<record xmlns="http://www.loc.gov/MARC21/slim"/>' WHERE id = -1;
14612
14613 CREATE INDEX metabib_title_field_entry_value_idx ON metabib.title_field_entry (SUBSTRING(value,1,1024)) WHERE index_vector = ''::TSVECTOR;
14614 CREATE INDEX metabib_author_field_entry_value_idx ON metabib.author_field_entry (SUBSTRING(value,1,1024)) WHERE index_vector = ''::TSVECTOR;
14615 CREATE INDEX metabib_subject_field_entry_value_idx ON metabib.subject_field_entry (SUBSTRING(value,1,1024)) WHERE index_vector = ''::TSVECTOR;
14616 CREATE INDEX metabib_keyword_field_entry_value_idx ON metabib.keyword_field_entry (SUBSTRING(value,1,1024)) WHERE index_vector = ''::TSVECTOR;
14617 CREATE INDEX metabib_series_field_entry_value_idx ON metabib.series_field_entry (SUBSTRING(value,1,1024)) WHERE index_vector = ''::TSVECTOR;
14618
14619 CREATE INDEX metabib_author_field_entry_source_idx ON metabib.author_field_entry (source);
14620 CREATE INDEX metabib_keyword_field_entry_source_idx ON metabib.keyword_field_entry (source);
14621 CREATE INDEX metabib_title_field_entry_source_idx ON metabib.title_field_entry (source);
14622 CREATE INDEX metabib_series_field_entry_source_idx ON metabib.series_field_entry (source);
14623
14624 ALTER TABLE metabib.series_field_entry
14625         ADD CONSTRAINT metabib_series_field_entry_source_pkey FOREIGN KEY (source)
14626                 REFERENCES biblio.record_entry (id)
14627                 ON DELETE CASCADE
14628                 DEFERRABLE INITIALLY DEFERRED;
14629
14630 ALTER TABLE metabib.series_field_entry
14631         ADD CONSTRAINT metabib_series_field_entry_field_pkey FOREIGN KEY (field)
14632                 REFERENCES config.metabib_field (id)
14633                 ON DELETE CASCADE
14634                 DEFERRABLE INITIALLY DEFERRED;
14635
14636 CREATE TABLE acq.claim_policy_action (
14637         id              SERIAL       PRIMARY KEY,
14638         claim_policy    INT          NOT NULL REFERENCES acq.claim_policy
14639                                  ON DELETE CASCADE
14640                                      DEFERRABLE INITIALLY DEFERRED,
14641         action_interval INTERVAL     NOT NULL,
14642         action          INT          NOT NULL REFERENCES acq.claim_event_type
14643                                      DEFERRABLE INITIALLY DEFERRED,
14644         CONSTRAINT action_sequence UNIQUE (claim_policy, action_interval)
14645 );
14646
14647 CREATE OR REPLACE FUNCTION public.ingest_acq_marc ( ) RETURNS TRIGGER AS $function$
14648 DECLARE
14649     value       TEXT;
14650     atype       TEXT;
14651     prov        INT;
14652     pos         INT;
14653     adef        RECORD;
14654     xpath_string    TEXT;
14655 BEGIN
14656     FOR adef IN SELECT *,tableoid FROM acq.lineitem_attr_definition LOOP
14657
14658         SELECT relname::TEXT INTO atype FROM pg_class WHERE oid = adef.tableoid;
14659
14660         IF (atype NOT IN ('lineitem_usr_attr_definition','lineitem_local_attr_definition')) THEN
14661             IF (atype = 'lineitem_provider_attr_definition') THEN
14662                 SELECT provider INTO prov FROM acq.lineitem_provider_attr_definition WHERE id = adef.id;
14663                 CONTINUE WHEN NEW.provider IS NULL OR prov <> NEW.provider;
14664             END IF;
14665
14666             IF (atype = 'lineitem_provider_attr_definition') THEN
14667                 SELECT xpath INTO xpath_string FROM acq.lineitem_provider_attr_definition WHERE id = adef.id;
14668             ELSIF (atype = 'lineitem_marc_attr_definition') THEN
14669                 SELECT xpath INTO xpath_string FROM acq.lineitem_marc_attr_definition WHERE id = adef.id;
14670             ELSIF (atype = 'lineitem_generated_attr_definition') THEN
14671                 SELECT xpath INTO xpath_string FROM acq.lineitem_generated_attr_definition WHERE id = adef.id;
14672             END IF;
14673
14674             xpath_string := REGEXP_REPLACE(xpath_string,$re$//?text\(\)$$re$,'');
14675
14676             pos := 1;
14677
14678             LOOP
14679                 SELECT extract_acq_marc_field(id, xpath_string || '[' || pos || ']', adef.remove) INTO value FROM acq.lineitem WHERE id = NEW.id;
14680
14681                 IF (value IS NOT NULL AND value <> '') THEN
14682                     INSERT INTO acq.lineitem_attr (lineitem, definition, attr_type, attr_name, attr_value)
14683                         VALUES (NEW.id, adef.id, atype, adef.code, value);
14684                 ELSE
14685                     EXIT;
14686                 END IF;
14687
14688                 pos := pos + 1;
14689             END LOOP;
14690
14691         END IF;
14692
14693     END LOOP;
14694
14695     RETURN NULL;
14696 END;
14697 $function$ LANGUAGE PLPGSQL;
14698
14699 UPDATE config.metabib_field SET label = name;
14700 ALTER TABLE config.metabib_field ALTER COLUMN label SET NOT NULL;
14701
14702 ALTER TABLE config.metabib_field ADD CONSTRAINT metabib_field_field_class_fkey
14703          FOREIGN KEY (field_class) REFERENCES config.metabib_class (name);
14704
14705 ALTER TABLE config.metabib_field DROP CONSTRAINT metabib_field_field_class_check;
14706
14707 ALTER TABLE config.metabib_field ADD CONSTRAINT metabib_field_format_fkey FOREIGN KEY (format) REFERENCES config.xml_transform (name);
14708
14709 CREATE TABLE config.metabib_search_alias (
14710     alias       TEXT    PRIMARY KEY,
14711     field_class TEXT    NOT NULL REFERENCES config.metabib_class (name),
14712     field       INT     REFERENCES config.metabib_field (id)
14713 );
14714
14715 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('kw','keyword');
14716 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('eg.keyword','keyword');
14717 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('dc.publisher','keyword');
14718 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('dc.identifier','keyword');
14719 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('bib.subjecttitle','keyword');
14720 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('bib.genre','keyword');
14721 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('bib.edition','keyword');
14722 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('srw.serverchoice','keyword');
14723
14724 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('au','author');
14725 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('name','author');
14726 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('creator','author');
14727 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('eg.author','author');
14728 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('eg.name','author');
14729 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('dc.creator','author');
14730 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('dc.contributor','author');
14731 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('bib.name','author');
14732 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('bib.namepersonal','author',8);
14733 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('bib.namepersonalfamily','author',8);
14734 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('bib.namepersonalgiven','author',8);
14735 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('bib.namecorporate','author',7);
14736 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('bib.nameconference','author',9);
14737
14738 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('ti','title');
14739 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('eg.title','title');
14740 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('dc.title','title');
14741 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('bib.titleabbreviated','title',2);
14742 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('bib.titleuniform','title',5);
14743 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('bib.titletranslated','title',3);
14744 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('bib.titlealternative','title',4);
14745 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('bib.title','title',2);
14746
14747 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('su','subject');
14748 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('eg.subject','subject');
14749 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('dc.subject','subject');
14750 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('bib.subjectplace','subject',11);
14751 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('bib.subjectname','subject',12);
14752 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('bib.subjectoccupation','subject',16);
14753
14754 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('se','series');
14755 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('eg.series','series');
14756 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('bib.titleseries','series',1);
14757
14758 UPDATE config.metabib_field SET facet_field=TRUE WHERE id = 1;
14759 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;
14760 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;
14761 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;
14762 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;
14763
14764 UPDATE config.metabib_field SET facet_field=TRUE WHERE id = 11;
14765 UPDATE config.metabib_field SET facet_field=TRUE , facet_xpath=$$*[local-name()='namePart']$$ WHERE id = 12;
14766 UPDATE config.metabib_field SET facet_field=TRUE WHERE id = 13;
14767 UPDATE config.metabib_field SET facet_field=TRUE WHERE id = 14;
14768
14769 CREATE INDEX metabib_rec_descriptor_item_type_idx ON metabib.rec_descriptor (item_type);
14770 CREATE INDEX metabib_rec_descriptor_item_form_idx ON metabib.rec_descriptor (item_form);
14771 CREATE INDEX metabib_rec_descriptor_bib_level_idx ON metabib.rec_descriptor (bib_level);
14772 CREATE INDEX metabib_rec_descriptor_control_type_idx ON metabib.rec_descriptor (control_type);
14773 CREATE INDEX metabib_rec_descriptor_char_encoding_idx ON metabib.rec_descriptor (char_encoding);
14774 CREATE INDEX metabib_rec_descriptor_enc_level_idx ON metabib.rec_descriptor (enc_level);
14775 CREATE INDEX metabib_rec_descriptor_audience_idx ON metabib.rec_descriptor (audience);
14776 CREATE INDEX metabib_rec_descriptor_lit_form_idx ON metabib.rec_descriptor (lit_form);
14777 CREATE INDEX metabib_rec_descriptor_cat_form_idx ON metabib.rec_descriptor (cat_form);
14778 CREATE INDEX metabib_rec_descriptor_pub_status_idx ON metabib.rec_descriptor (pub_status);
14779 CREATE INDEX metabib_rec_descriptor_item_lang_idx ON metabib.rec_descriptor (item_lang);
14780 CREATE INDEX metabib_rec_descriptor_vr_format_idx ON metabib.rec_descriptor (vr_format);
14781 CREATE INDEX metabib_rec_descriptor_date1_idx ON metabib.rec_descriptor (date1);
14782 CREATE INDEX metabib_rec_descriptor_dates_idx ON metabib.rec_descriptor (date1,date2);
14783
14784 CREATE TABLE asset.opac_visible_copies (
14785   id        BIGINT primary key, -- copy id
14786   record    BIGINT,
14787   circ_lib  INTEGER
14788 );
14789 COMMENT ON TABLE asset.opac_visible_copies IS $$
14790 Materialized view of copies that are visible in the OPAC, used by
14791 search.query_parser_fts() to speed up OPAC visibility checks on large
14792 databases.  Contents are maintained by a set of triggers.
14793 $$;
14794 CREATE INDEX opac_visible_copies_idx1 on asset.opac_visible_copies (record, circ_lib);
14795
14796 CREATE OR REPLACE FUNCTION search.query_parser_fts (
14797
14798     param_search_ou INT,
14799     param_depth     INT,
14800     param_query     TEXT,
14801     param_statuses  INT[],
14802     param_locations INT[],
14803     param_offset    INT,
14804     param_check     INT,
14805     param_limit     INT,
14806     metarecord      BOOL,
14807     staff           BOOL
14808
14809 ) RETURNS SETOF search.search_result AS $func$
14810 DECLARE
14811
14812     current_res         search.search_result%ROWTYPE;
14813     search_org_list     INT[];
14814
14815     check_limit         INT;
14816     core_limit          INT;
14817     core_offset         INT;
14818     tmp_int             INT;
14819
14820     core_result         RECORD;
14821     core_cursor         REFCURSOR;
14822     core_rel_query      TEXT;
14823
14824     total_count         INT := 0;
14825     check_count         INT := 0;
14826     deleted_count       INT := 0;
14827     visible_count       INT := 0;
14828     excluded_count      INT := 0;
14829
14830 BEGIN
14831
14832     check_limit := COALESCE( param_check, 1000 );
14833     core_limit  := COALESCE( param_limit, 25000 );
14834     core_offset := COALESCE( param_offset, 0 );
14835
14836     -- core_skip_chk := COALESCE( param_skip_chk, 1 );
14837
14838     IF param_search_ou > 0 THEN
14839         IF param_depth IS NOT NULL THEN
14840             SELECT array_accum(distinct id) INTO search_org_list FROM actor.org_unit_descendants( param_search_ou, param_depth );
14841         ELSE
14842             SELECT array_accum(distinct id) INTO search_org_list FROM actor.org_unit_descendants( param_search_ou );
14843         END IF;
14844     ELSIF param_search_ou < 0 THEN
14845         SELECT array_accum(distinct org_unit) INTO search_org_list FROM actor.org_lasso_map WHERE lasso = -param_search_ou;
14846     ELSIF param_search_ou = 0 THEN
14847         -- reserved for user lassos (ou_buckets/type='lasso') with ID passed in depth ... hack? sure.
14848     END IF;
14849
14850     OPEN core_cursor FOR EXECUTE param_query;
14851
14852     LOOP
14853
14854         FETCH core_cursor INTO core_result;
14855         EXIT WHEN NOT FOUND;
14856         EXIT WHEN total_count >= core_limit;
14857
14858         total_count := total_count + 1;
14859
14860         CONTINUE WHEN total_count NOT BETWEEN  core_offset + 1 AND check_limit + core_offset;
14861
14862         check_count := check_count + 1;
14863
14864         PERFORM 1 FROM biblio.record_entry b WHERE NOT b.deleted AND b.id IN ( SELECT * FROM search.explode_array( core_result.records ) );
14865         IF NOT FOUND THEN
14866             -- RAISE NOTICE ' % were all deleted ... ', core_result.records;
14867             deleted_count := deleted_count + 1;
14868             CONTINUE;
14869         END IF;
14870
14871         PERFORM 1
14872           FROM  biblio.record_entry b
14873                 JOIN config.bib_source s ON (b.source = s.id)
14874           WHERE s.transcendant
14875                 AND b.id IN ( SELECT * FROM search.explode_array( core_result.records ) );
14876
14877         IF FOUND THEN
14878             -- RAISE NOTICE ' % were all transcendant ... ', core_result.records;
14879             visible_count := visible_count + 1;
14880
14881             current_res.id = core_result.id;
14882             current_res.rel = core_result.rel;
14883
14884             tmp_int := 1;
14885             IF metarecord THEN
14886                 SELECT COUNT(DISTINCT s.source) INTO tmp_int FROM metabib.metarecord_source_map s WHERE s.metarecord = core_result.id;
14887             END IF;
14888
14889             IF tmp_int = 1 THEN
14890                 current_res.record = core_result.records[1];
14891             ELSE
14892                 current_res.record = NULL;
14893             END IF;
14894
14895             RETURN NEXT current_res;
14896
14897             CONTINUE;
14898         END IF;
14899
14900         PERFORM 1
14901           FROM  asset.call_number cn
14902                 JOIN asset.uri_call_number_map map ON (map.call_number = cn.id)
14903                 JOIN asset.uri uri ON (map.uri = uri.id)
14904           WHERE NOT cn.deleted
14905                 AND cn.label = '##URI##'
14906                 AND uri.active
14907                 AND ( param_locations IS NULL OR array_upper(param_locations, 1) IS NULL )
14908                 AND cn.record IN ( SELECT * FROM search.explode_array( core_result.records ) )
14909                 AND cn.owning_lib IN ( SELECT * FROM search.explode_array( search_org_list ) )
14910           LIMIT 1;
14911
14912         IF FOUND THEN
14913             -- RAISE NOTICE ' % have at least one URI ... ', core_result.records;
14914             visible_count := visible_count + 1;
14915
14916             current_res.id = core_result.id;
14917             current_res.rel = core_result.rel;
14918
14919             tmp_int := 1;
14920             IF metarecord THEN
14921                 SELECT COUNT(DISTINCT s.source) INTO tmp_int FROM metabib.metarecord_source_map s WHERE s.metarecord = core_result.id;
14922             END IF;
14923
14924             IF tmp_int = 1 THEN
14925                 current_res.record = core_result.records[1];
14926             ELSE
14927                 current_res.record = NULL;
14928             END IF;
14929
14930             RETURN NEXT current_res;
14931
14932             CONTINUE;
14933         END IF;
14934
14935         IF param_statuses IS NOT NULL AND array_upper(param_statuses, 1) > 0 THEN
14936
14937             PERFORM 1
14938               FROM  asset.call_number cn
14939                     JOIN asset.copy cp ON (cp.call_number = cn.id)
14940               WHERE NOT cn.deleted
14941                     AND NOT cp.deleted
14942                     AND cp.status IN ( SELECT * FROM search.explode_array( param_statuses ) )
14943                     AND cn.record IN ( SELECT * FROM search.explode_array( core_result.records ) )
14944                     AND cp.circ_lib IN ( SELECT * FROM search.explode_array( search_org_list ) )
14945               LIMIT 1;
14946
14947             IF NOT FOUND THEN
14948                 -- RAISE NOTICE ' % were all status-excluded ... ', core_result.records;
14949                 excluded_count := excluded_count + 1;
14950                 CONTINUE;
14951             END IF;
14952
14953         END IF;
14954
14955         IF param_locations IS NOT NULL AND array_upper(param_locations, 1) > 0 THEN
14956
14957             PERFORM 1
14958               FROM  asset.call_number cn
14959                     JOIN asset.copy cp ON (cp.call_number = cn.id)
14960               WHERE NOT cn.deleted
14961                     AND NOT cp.deleted
14962                     AND cp.location IN ( SELECT * FROM search.explode_array( param_locations ) )
14963                     AND cn.record IN ( SELECT * FROM search.explode_array( core_result.records ) )
14964                     AND cp.circ_lib IN ( SELECT * FROM search.explode_array( search_org_list ) )
14965               LIMIT 1;
14966
14967             IF NOT FOUND THEN
14968                 -- RAISE NOTICE ' % were all copy_location-excluded ... ', core_result.records;
14969                 excluded_count := excluded_count + 1;
14970                 CONTINUE;
14971             END IF;
14972
14973         END IF;
14974
14975         IF staff IS NULL OR NOT staff THEN
14976
14977             PERFORM 1
14978               FROM  asset.opac_visible_copies
14979               WHERE circ_lib IN ( SELECT * FROM search.explode_array( search_org_list ) )
14980                     AND record IN ( SELECT * FROM search.explode_array( core_result.records ) )
14981               LIMIT 1;
14982
14983             IF NOT FOUND THEN
14984                 -- RAISE NOTICE ' % were all visibility-excluded ... ', core_result.records;
14985                 excluded_count := excluded_count + 1;
14986                 CONTINUE;
14987             END IF;
14988
14989         ELSE
14990
14991             PERFORM 1
14992               FROM  asset.call_number cn
14993                     JOIN asset.copy cp ON (cp.call_number = cn.id)
14994                     JOIN actor.org_unit a ON (cp.circ_lib = a.id)
14995               WHERE NOT cn.deleted
14996                     AND NOT cp.deleted
14997                     AND cp.circ_lib IN ( SELECT * FROM search.explode_array( search_org_list ) )
14998                     AND cn.record IN ( SELECT * FROM search.explode_array( core_result.records ) )
14999               LIMIT 1;
15000
15001             IF NOT FOUND THEN
15002
15003                 PERFORM 1
15004                   FROM  asset.call_number cn
15005                   WHERE cn.record IN ( SELECT * FROM search.explode_array( core_result.records ) )
15006                   LIMIT 1;
15007
15008                 IF FOUND THEN
15009                     -- RAISE NOTICE ' % were all visibility-excluded ... ', core_result.records;
15010                     excluded_count := excluded_count + 1;
15011                     CONTINUE;
15012                 END IF;
15013
15014             END IF;
15015
15016         END IF;
15017
15018         visible_count := visible_count + 1;
15019
15020         current_res.id = core_result.id;
15021         current_res.rel = core_result.rel;
15022
15023         tmp_int := 1;
15024         IF metarecord THEN
15025             SELECT COUNT(DISTINCT s.source) INTO tmp_int FROM metabib.metarecord_source_map s WHERE s.metarecord = core_result.id;
15026         END IF;
15027
15028         IF tmp_int = 1 THEN
15029             current_res.record = core_result.records[1];
15030         ELSE
15031             current_res.record = NULL;
15032         END IF;
15033
15034         RETURN NEXT current_res;
15035
15036         IF visible_count % 1000 = 0 THEN
15037             -- RAISE NOTICE ' % visible so far ... ', visible_count;
15038         END IF;
15039
15040     END LOOP;
15041
15042     current_res.id = NULL;
15043     current_res.rel = NULL;
15044     current_res.record = NULL;
15045     current_res.total = total_count;
15046     current_res.checked = check_count;
15047     current_res.deleted = deleted_count;
15048     current_res.visible = visible_count;
15049     current_res.excluded = excluded_count;
15050
15051     CLOSE core_cursor;
15052
15053     RETURN NEXT current_res;
15054
15055 END;
15056 $func$ LANGUAGE PLPGSQL;
15057
15058 ALTER TABLE biblio.record_entry ADD COLUMN owner INT;
15059 ALTER TABLE biblio.record_entry
15060          ADD CONSTRAINT biblio_record_entry_owner_fkey FOREIGN KEY (owner)
15061          REFERENCES actor.org_unit (id)
15062          DEFERRABLE INITIALLY DEFERRED;
15063
15064 ALTER TABLE biblio.record_entry ADD COLUMN share_depth INT;
15065
15066 ALTER TABLE auditor.biblio_record_entry_history ADD COLUMN owner INT;
15067 ALTER TABLE auditor.biblio_record_entry_history ADD COLUMN share_depth INT;
15068
15069 DROP VIEW auditor.biblio_record_entry_lifecycle;
15070
15071 SELECT auditor.create_auditor_lifecycle( 'biblio', 'record_entry' );
15072
15073 CREATE OR REPLACE FUNCTION public.first_word ( TEXT ) RETURNS TEXT AS $$
15074         SELECT COALESCE(SUBSTRING( $1 FROM $_$^\S+$_$), '');
15075 $$ LANGUAGE SQL STRICT IMMUTABLE;
15076
15077 CREATE OR REPLACE FUNCTION public.normalize_space( TEXT ) RETURNS TEXT AS $$
15078     SELECT regexp_replace(regexp_replace(regexp_replace($1, E'\\n', ' ', 'g'), E'(?:^\\s+)|(\\s+$)', '', 'g'), E'\\s+', ' ', 'g');
15079 $$ LANGUAGE SQL STRICT IMMUTABLE;
15080
15081 CREATE OR REPLACE FUNCTION public.lowercase( TEXT ) RETURNS TEXT AS $$
15082     return lc(shift);
15083 $$ LANGUAGE PLPERLU STRICT IMMUTABLE;
15084
15085 CREATE OR REPLACE FUNCTION public.uppercase( TEXT ) RETURNS TEXT AS $$
15086     return uc(shift);
15087 $$ LANGUAGE PLPERLU STRICT IMMUTABLE;
15088
15089 CREATE OR REPLACE FUNCTION public.remove_diacritics( TEXT ) RETURNS TEXT AS $$
15090     use Unicode::Normalize;
15091
15092     my $x = NFD(shift);
15093     $x =~ s/\pM+//go;
15094     return $x;
15095
15096 $$ LANGUAGE PLPERLU STRICT IMMUTABLE;
15097
15098 CREATE OR REPLACE FUNCTION public.entityize( TEXT ) RETURNS TEXT AS $$
15099     use Unicode::Normalize;
15100
15101     my $x = NFC(shift);
15102     $x =~ s/([\x{0080}-\x{fffd}])/sprintf('&#x%X;',ord($1))/sgoe;
15103     return $x;
15104
15105 $$ LANGUAGE PLPERLU STRICT IMMUTABLE;
15106
15107 CREATE OR REPLACE FUNCTION actor.org_unit_ancestor_setting( setting_name TEXT, org_id INT ) RETURNS SETOF actor.org_unit_setting AS $$
15108 DECLARE
15109     setting RECORD;
15110     cur_org INT;
15111 BEGIN
15112     cur_org := org_id;
15113     LOOP
15114         SELECT INTO setting * FROM actor.org_unit_setting WHERE org_unit = cur_org AND name = setting_name;
15115         IF FOUND THEN
15116             RETURN NEXT setting;
15117         END IF;
15118         SELECT INTO cur_org parent_ou FROM actor.org_unit WHERE id = cur_org;
15119         EXIT WHEN cur_org IS NULL;
15120     END LOOP;
15121     RETURN;
15122 END;
15123 $$ LANGUAGE plpgsql STABLE;
15124
15125 CREATE OR REPLACE FUNCTION acq.extract_holding_attr_table (lineitem int, tag text) RETURNS SETOF acq.flat_lineitem_holding_subfield AS $$
15126 DECLARE
15127     counter INT;
15128     lida    acq.flat_lineitem_holding_subfield%ROWTYPE;
15129 BEGIN
15130
15131     SELECT  COUNT(*) INTO counter
15132       FROM  oils_xpath_table(
15133                 'id',
15134                 'marc',
15135                 'acq.lineitem',
15136                 '//*[@tag="' || tag || '"]',
15137                 'id=' || lineitem
15138             ) as t(i int,c text);
15139
15140     FOR i IN 1 .. counter LOOP
15141         FOR lida IN
15142             SELECT  *
15143               FROM  (   SELECT  id,i,t,v
15144                           FROM  oils_xpath_table(
15145                                     'id',
15146                                     'marc',
15147                                     'acq.lineitem',
15148                                     '//*[@tag="' || tag || '"][position()=' || i || ']/*/@code|' ||
15149                                         '//*[@tag="' || tag || '"][position()=' || i || ']/*[@code]',
15150                                     'id=' || lineitem
15151                                 ) as t(id int,t text,v text)
15152                     )x
15153         LOOP
15154             RETURN NEXT lida;
15155         END LOOP;
15156     END LOOP;
15157
15158     RETURN;
15159 END;
15160 $$ LANGUAGE PLPGSQL;
15161
15162 CREATE OR REPLACE FUNCTION oils_i18n_xlate ( keytable TEXT, keyclass TEXT, keycol TEXT, identcol TEXT, keyvalue TEXT, raw_locale TEXT ) RETURNS TEXT AS $func$
15163 DECLARE
15164     locale      TEXT := REGEXP_REPLACE( REGEXP_REPLACE( raw_locale, E'[;, ].+$', '' ), E'_', '-', 'g' );
15165     language    TEXT := REGEXP_REPLACE( locale, E'-.+$', '' );
15166     result      config.i18n_core%ROWTYPE;
15167     fallback    TEXT;
15168     keyfield    TEXT := keyclass || '.' || keycol;
15169 BEGIN
15170
15171     -- Try the full locale
15172     SELECT  * INTO result
15173       FROM  config.i18n_core
15174       WHERE fq_field = keyfield
15175             AND identity_value = keyvalue
15176             AND translation = locale;
15177
15178     -- Try just the language
15179     IF NOT FOUND THEN
15180         SELECT  * INTO result
15181           FROM  config.i18n_core
15182           WHERE fq_field = keyfield
15183                 AND identity_value = keyvalue
15184                 AND translation = language;
15185     END IF;
15186
15187     -- Fall back to the string we passed in in the first place
15188     IF NOT FOUND THEN
15189     EXECUTE
15190             'SELECT ' ||
15191                 keycol ||
15192             ' FROM ' || keytable ||
15193             ' WHERE ' || identcol || ' = ' || quote_literal(keyvalue)
15194                 INTO fallback;
15195         RETURN fallback;
15196     END IF;
15197
15198     RETURN result.string;
15199 END;
15200 $func$ LANGUAGE PLPGSQL STABLE;
15201
15202 SELECT auditor.create_auditor ( 'acq', 'invoice' );
15203
15204 SELECT auditor.create_auditor ( 'acq', 'invoice_item' );
15205
15206 SELECT auditor.create_auditor ( 'acq', 'invoice_entry' );
15207
15208 INSERT INTO acq.cancel_reason ( id, org_unit, label, description, keep_debits ) VALUES (
15209     3, 1, 'delivered_but_lost',
15210     oils_i18n_gettext( 2, 'Delivered but not received; presumed lost', 'acqcr', 'label' ), TRUE );
15211
15212 CREATE TABLE config.global_flag (
15213     label   TEXT    NOT NULL
15214 ) INHERITS (config.internal_flag);
15215 ALTER TABLE config.global_flag ADD PRIMARY KEY (name);
15216
15217 INSERT INTO config.global_flag (name, label) -- defaults to enabled=FALSE
15218     VALUES (
15219         'cat.bib.use_id_for_tcn',
15220         oils_i18n_gettext(
15221             'cat.bib.use_id_for_tcn',
15222             'Cat: Use Internal ID for TCN Value',
15223             'cgf',
15224             'label'
15225         )
15226     );
15227
15228 -- resolves performance issue noted by EG Indiana
15229
15230 CREATE INDEX scecm_owning_copy_idx ON asset.stat_cat_entry_copy_map(owning_copy);
15231
15232 INSERT INTO config.metabib_class ( name, label ) VALUES ( 'identifier', oils_i18n_gettext('identifier', 'Identifier', 'cmc', 'name') );
15233
15234 INSERT INTO config.metabib_field ( id, field_class, name, label, format, xpath, facet_field ) VALUES
15235     (17, 'identifier', 'accession', oils_i18n_gettext(17, 'Accession Number', 'cmf', 'label'), 'marcxml', $$//marcxml:datafield[tag="001"]/text()$$, TRUE );
15236 INSERT INTO config.metabib_field ( id, field_class, name, label, format, xpath, facet_field ) VALUES
15237     (18, 'identifier', 'isbn', oils_i18n_gettext(18, 'ISBN', 'cmf', 'label'), 'marcxml', $$//marcxml:datafield[tag="020"]/marcxml:subfield[code="a" or code="z"]/text()$$, TRUE );
15238 INSERT INTO config.metabib_field ( id, field_class, name, label, format, xpath, facet_field ) VALUES
15239     (19, 'identifier', 'issn', oils_i18n_gettext(19, 'ISSN', 'cmf', 'label'), 'marcxml', $$//marcxml:datafield[tag="022"]/marcxml:subfield[code="a" or code="z"]/text()$$, TRUE );
15240 INSERT INTO config.metabib_field ( id, field_class, name, label, format, xpath, facet_field ) VALUES
15241     (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 );
15242 INSERT INTO config.metabib_field ( id, field_class, name, label, format, xpath, facet_field ) VALUES
15243     (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 );
15244 INSERT INTO config.metabib_field ( id, field_class, name, label, format, xpath, facet_field ) VALUES
15245     (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 );
15246 INSERT INTO config.metabib_field ( id, field_class, name, label, format, xpath, facet_field ) VALUES
15247     (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 );
15248 INSERT INTO config.metabib_field ( id, field_class, name, label, format, xpath, facet_field ) VALUES
15249     (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 );
15250 INSERT INTO config.metabib_field ( id, field_class, name, label, format, xpath, facet_field ) VALUES
15251     (25, 'identifier', 'bibcn', oils_i18n_gettext(25, 'Local Free-Text Call Number', 'cmf', 'label'), 'marcxml', $$//marcxml:datafield[tag="099"]//text()$$, TRUE );
15252
15253 SELECT SETVAL('config.metabib_field_id_seq'::TEXT, (SELECT MAX(id) FROM config.metabib_field), TRUE);
15254
15255
15256 DELETE FROM config.metabib_search_alias WHERE alias = 'dc.identifier';
15257
15258 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('id','identifier');
15259 INSERT INTO config.metabib_search_alias (alias,field_class) VALUES ('dc.identifier','identifier');
15260 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('eg.isbn','identifier', 18);
15261 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('eg.issn','identifier', 19);
15262 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('eg.upc','identifier', 20);
15263 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('eg.callnumber','identifier', 25);
15264
15265 CREATE TABLE metabib.identifier_field_entry (
15266         id              BIGSERIAL       PRIMARY KEY,
15267         source          BIGINT          NOT NULL,
15268         field           INT             NOT NULL,
15269         value           TEXT            NOT NULL,
15270         index_vector    tsvector        NOT NULL
15271 );
15272 CREATE TRIGGER metabib_identifier_field_entry_fti_trigger
15273         BEFORE UPDATE OR INSERT ON metabib.identifier_field_entry
15274         FOR EACH ROW EXECUTE PROCEDURE oils_tsearch2('keyword');
15275
15276 CREATE INDEX metabib_identifier_field_entry_index_vector_idx ON metabib.identifier_field_entry USING GIST (index_vector);
15277 CREATE INDEX metabib_identifier_field_entry_value_idx ON metabib.identifier_field_entry
15278     (SUBSTRING(value,1,1024)) WHERE index_vector = ''::TSVECTOR;
15279 CREATE INDEX metabib_identifier_field_entry_source_idx ON metabib.identifier_field_entry (source);
15280
15281 ALTER TABLE metabib.identifier_field_entry ADD CONSTRAINT metabib_identifier_field_entry_source_pkey
15282     FOREIGN KEY (source) REFERENCES biblio.record_entry (id) ON DELETE CASCADE DEFERRABLE INITIALLY DEFERRED;
15283 ALTER TABLE metabib.identifier_field_entry ADD CONSTRAINT metabib_identifier_field_entry_field_pkey
15284     FOREIGN KEY (field) REFERENCES config.metabib_field (id) ON DELETE CASCADE DEFERRABLE INITIALLY DEFERRED;
15285
15286 CREATE OR REPLACE FUNCTION public.translate_isbn1013( TEXT ) RETURNS TEXT AS $func$
15287     use Business::ISBN;
15288     use strict;
15289     use warnings;
15290
15291     # For each ISBN found in a single string containing a set of ISBNs:
15292     #   * Normalize an incoming ISBN to have the correct checksum and no hyphens
15293     #   * Convert an incoming ISBN10 or ISBN13 to its counterpart and return
15294
15295     my $input = shift;
15296     my $output = '';
15297
15298     foreach my $word (split(/\s/, $input)) {
15299         my $isbn = Business::ISBN->new($word);
15300
15301         # First check the checksum; if it is not valid, fix it and add the original
15302         # bad-checksum ISBN to the output
15303         if ($isbn && $isbn->is_valid_checksum() == Business::ISBN::BAD_CHECKSUM) {
15304             $output .= $isbn->isbn() . " ";
15305             $isbn->fix_checksum();
15306         }
15307
15308         # If we now have a valid ISBN, convert it to its counterpart ISBN10/ISBN13
15309         # and add the normalized original ISBN to the output
15310         if ($isbn && $isbn->is_valid()) {
15311             my $isbn_xlated = ($isbn->type eq "ISBN13") ? $isbn->as_isbn10 : $isbn->as_isbn13;
15312             $output .= $isbn->isbn . " ";
15313
15314             # If we successfully converted the ISBN to its counterpart, add the
15315             # converted ISBN to the output as well
15316             $output .= ($isbn_xlated->isbn . " ") if ($isbn_xlated);
15317         }
15318     }
15319     return $output if $output;
15320
15321     # If there were no valid ISBNs, just return the raw input
15322     return $input;
15323 $func$ LANGUAGE PLPERLU;
15324
15325 COMMENT ON FUNCTION public.translate_isbn1013(TEXT) IS $$
15326 /*
15327  * Copyright (C) 2010 Merrimack Valley Library Consortium
15328  * Jason Stephenson <jstephenson@mvlc.org>
15329  * Copyright (C) 2010 Laurentian University
15330  * Dan Scott <dscott@laurentian.ca>
15331  *
15332  * The translate_isbn1013 function takes an input ISBN and returns the
15333  * following in a single space-delimited string if the input ISBN is valid:
15334  *   - The normalized input ISBN (hyphens stripped)
15335  *   - The normalized input ISBN with a fixed checksum if the checksum was bad
15336  *   - The ISBN converted to its ISBN10 or ISBN13 counterpart, if possible
15337  */
15338 $$;
15339
15340 UPDATE config.metabib_field SET facet_field = FALSE WHERE id BETWEEN 17 AND 25;
15341 UPDATE config.metabib_field SET xpath = REPLACE(xpath,'marcxml','marc') WHERE id BETWEEN 17 AND 25;
15342 UPDATE config.metabib_field SET xpath = REPLACE(xpath,'tag','@tag') WHERE id BETWEEN 17 AND 25;
15343 UPDATE config.metabib_field SET xpath = REPLACE(xpath,'code','@code') WHERE id BETWEEN 17 AND 25;
15344 UPDATE config.metabib_field SET xpath = REPLACE(xpath,'"',E'\'') WHERE id BETWEEN 17 AND 25;
15345 UPDATE config.metabib_field SET xpath = REPLACE(xpath,'/text()','') WHERE id BETWEEN 17 AND 24;
15346
15347 INSERT INTO config.index_normalizer (name, description, func, param_count) VALUES (
15348         'ISBN 10/13 conversion',
15349         'Translate ISBN10 to ISBN13, and vice versa, for indexing purposes.',
15350         'translate_isbn1013',
15351         0
15352 );
15353
15354 INSERT INTO config.index_normalizer (name, description, func, param_count) VALUES (
15355         'Replace',
15356         'Replace all occurences of first parameter in the string with the second parameter.',
15357         'replace',
15358         2
15359 );
15360
15361 INSERT INTO config.metabib_field_index_norm_map (field,norm,pos)
15362     SELECT  m.id, i.id, 1
15363       FROM  config.metabib_field m,
15364             config.index_normalizer i
15365       WHERE i.func IN ('first_word')
15366             AND m.id IN (18);
15367
15368 INSERT INTO config.metabib_field_index_norm_map (field,norm,pos)
15369     SELECT  m.id, i.id, 2
15370       FROM  config.metabib_field m,
15371             config.index_normalizer i
15372       WHERE i.func IN ('translate_isbn1013')
15373             AND m.id IN (18);
15374
15375 INSERT INTO config.metabib_field_index_norm_map (field,norm,params)
15376     SELECT  m.id, i.id, $$['-','']$$
15377       FROM  config.metabib_field m,
15378             config.index_normalizer i
15379       WHERE i.func IN ('replace')
15380             AND m.id IN (19);
15381
15382 INSERT INTO config.metabib_field_index_norm_map (field,norm,params)
15383     SELECT  m.id, i.id, $$[' ','']$$
15384       FROM  config.metabib_field m,
15385             config.index_normalizer i
15386       WHERE i.func IN ('replace')
15387             AND m.id IN (19);
15388
15389 DELETE FROM config.metabib_field_index_norm_map WHERE norm IN (1,2) and field > 16;
15390
15391 UPDATE  config.metabib_field_index_norm_map
15392   SET   params = REPLACE(params,E'\'','"')
15393   WHERE params IS NOT NULL AND params <> '';
15394
15395 DROP TRIGGER IF EXISTS metabib_identifier_field_entry_fti_trigger ON metabib.identifier_field_entry;
15396
15397 CREATE TEXT SEARCH CONFIGURATION identifier ( COPY = title );
15398
15399 ALTER TABLE config.circ_modifier
15400         ADD COLUMN avg_wait_time INTERVAL;
15401
15402 --CREATE TABLE actor.usr_password_reset (
15403 --  id SERIAL PRIMARY KEY,
15404 --  uuid TEXT NOT NULL,
15405 --  usr BIGINT NOT NULL REFERENCES actor.usr(id) DEFERRABLE INITIALLY DEFERRED,
15406 --  request_time TIMESTAMP NOT NULL DEFAULT NOW(),
15407 --  has_been_reset BOOL NOT NULL DEFAULT false
15408 --);
15409 --COMMENT ON TABLE actor.usr_password_reset IS $$
15410 --/*
15411 -- * Copyright (C) 2010 Laurentian University
15412 -- * Dan Scott <dscott@laurentian.ca>
15413 -- *
15414 -- * Self-serve password reset requests
15415 -- *
15416 -- * ****
15417 -- *
15418 -- * This program is free software; you can redistribute it and/or
15419 -- * modify it under the terms of the GNU General Public License
15420 -- * as published by the Free Software Foundation; either version 2
15421 -- * of the License, or (at your option) any later version.
15422 -- *
15423 -- * This program is distributed in the hope that it will be useful,
15424 -- * but WITHOUT ANY WARRANTY; without even the implied warranty of
15425 -- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15426 -- * GNU General Public License for more details.
15427 -- */
15428 --$$;
15429 --CREATE UNIQUE INDEX actor_usr_password_reset_uuid_idx ON actor.usr_password_reset (uuid);
15430 --CREATE INDEX actor_usr_password_reset_usr_idx ON actor.usr_password_reset (usr);
15431 --CREATE INDEX actor_usr_password_reset_request_time_idx ON actor.usr_password_reset (request_time);
15432 --CREATE INDEX actor_usr_password_reset_has_been_reset_idx ON actor.usr_password_reset (has_been_reset);
15433
15434 -- Use the identifier search class tsconfig
15435 DROP TRIGGER IF EXISTS metabib_identifier_field_entry_fti_trigger ON metabib.identifier_field_entry;
15436 CREATE TRIGGER metabib_identifier_field_entry_fti_trigger
15437     BEFORE INSERT OR UPDATE ON metabib.identifier_field_entry
15438     FOR EACH ROW
15439     EXECUTE PROCEDURE public.oils_tsearch2('identifier');
15440
15441 INSERT INTO config.global_flag (name,label,enabled)
15442     VALUES ('history.circ.retention_age',oils_i18n_gettext('history.circ.retention_age', 'Historical Circulation Retention Age', 'cgf', 'label'), TRUE);
15443 INSERT INTO config.global_flag (name,label,enabled)
15444     VALUES ('history.circ.retention_count',oils_i18n_gettext('history.circ.retention_count', 'Historical Circulations per Copy', 'cgf', 'label'), TRUE);
15445
15446 -- turn a JSON scalar into an SQL TEXT value
15447 CREATE OR REPLACE FUNCTION oils_json_to_text( TEXT ) RETURNS TEXT AS $f$
15448     use JSON::XS;
15449     my $json = shift();
15450     my $txt;
15451     eval { $txt = JSON::XS->new->allow_nonref->decode( $json ) };
15452     return undef if ($@);
15453     return $txt
15454 $f$ LANGUAGE PLPERLU;
15455
15456 -- Return the list of circ chain heads in xact_start order that the user has chosen to "retain"
15457 CREATE OR REPLACE FUNCTION action.usr_visible_circs (usr_id INT) RETURNS SETOF action.circulation AS $func$
15458 DECLARE
15459     c               action.circulation%ROWTYPE;
15460     view_age        INTERVAL;
15461     usr_view_age    actor.usr_setting%ROWTYPE;
15462     usr_view_start  actor.usr_setting%ROWTYPE;
15463 BEGIN
15464     SELECT * INTO usr_view_age FROM actor.usr_setting WHERE usr = usr_id AND name = 'history.circ.retention_age';
15465     SELECT * INTO usr_view_start FROM actor.usr_setting WHERE usr = usr_id AND name = 'history.circ.retention_start';
15466
15467     IF usr_view_age.value IS NOT NULL AND usr_view_start.value IS NOT NULL THEN
15468         -- User opted in and supplied a retention age
15469         IF oils_json_to_text(usr_view_age.value)::INTERVAL > AGE(NOW(), oils_json_to_text(usr_view_start.value)::TIMESTAMPTZ) THEN
15470             view_age := AGE(NOW(), oils_json_to_text(usr_view_start.value)::TIMESTAMPTZ);
15471         ELSE
15472             view_age := oils_json_to_text(usr_view_age.value)::INTERVAL;
15473         END IF;
15474     ELSIF usr_view_start.value IS NOT NULL THEN
15475         -- User opted in
15476         view_age := AGE(NOW(), oils_json_to_text(usr_view_start.value)::TIMESTAMPTZ);
15477     ELSE
15478         -- User did not opt in
15479         RETURN;
15480     END IF;
15481
15482     FOR c IN
15483         SELECT  *
15484           FROM  action.circulation
15485           WHERE usr = usr_id
15486                 AND parent_circ IS NULL
15487                 AND xact_start > NOW() - view_age
15488           ORDER BY xact_start
15489     LOOP
15490         RETURN NEXT c;
15491     END LOOP;
15492
15493     RETURN;
15494 END;
15495 $func$ LANGUAGE PLPGSQL;
15496
15497 CREATE OR REPLACE FUNCTION action.purge_circulations () RETURNS INT AS $func$
15498 DECLARE
15499     usr_keep_age    actor.usr_setting%ROWTYPE;
15500     usr_keep_start  actor.usr_setting%ROWTYPE;
15501     org_keep_age    INTERVAL;
15502     org_keep_count  INT;
15503
15504     keep_age        INTERVAL;
15505
15506     target_acp      RECORD;
15507     circ_chain_head action.circulation%ROWTYPE;
15508     circ_chain_tail action.circulation%ROWTYPE;
15509
15510     purge_position  INT;
15511     count_purged    INT;
15512 BEGIN
15513
15514     count_purged := 0;
15515
15516     SELECT value::INTERVAL INTO org_keep_age FROM config.global_flag WHERE name = 'history.circ.retention_age' AND enabled;
15517
15518     SELECT value::INT INTO org_keep_count FROM config.global_flag WHERE name = 'history.circ.retention_count' AND enabled;
15519     IF org_keep_count IS NULL THEN
15520         RETURN count_purged; -- Gimme a count to keep, or I keep them all, forever
15521     END IF;
15522
15523     -- First, find copies with more than keep_count non-renewal circs
15524     FOR target_acp IN
15525         SELECT  target_copy,
15526                 COUNT(*) AS total_real_circs
15527           FROM  action.circulation
15528           WHERE parent_circ IS NULL
15529                 AND xact_finish IS NOT NULL
15530           GROUP BY target_copy
15531           HAVING COUNT(*) > org_keep_count
15532     LOOP
15533         purge_position := 0;
15534         -- And, for those, select circs that are finished and older than keep_age
15535         FOR circ_chain_head IN
15536             SELECT  *
15537               FROM  action.circulation
15538               WHERE target_copy = target_acp.target_copy
15539                     AND parent_circ IS NULL
15540               ORDER BY xact_start
15541         LOOP
15542
15543             -- Stop once we've purged enough circs to hit org_keep_count
15544             EXIT WHEN target_acp.total_real_circs - purge_position <= org_keep_count;
15545
15546             SELECT * INTO circ_chain_tail FROM action.circ_chain(circ_chain_head.id) ORDER BY xact_start DESC LIMIT 1;
15547             EXIT WHEN circ_chain_tail.xact_finish IS NULL;
15548
15549             -- Now get the user settings, if any, to block purging if the user wants to keep more circs
15550             usr_keep_age.value := NULL;
15551             SELECT * INTO usr_keep_age FROM actor.usr_setting WHERE usr = circ_chain_head.usr AND name = 'history.circ.retention_age';
15552
15553             usr_keep_start.value := NULL;
15554             SELECT * INTO usr_keep_start FROM actor.usr_setting WHERE usr = circ_chain_head.usr AND name = 'history.circ.retention_start';
15555
15556             IF usr_keep_age.value IS NOT NULL AND usr_keep_start.value IS NOT NULL THEN
15557                 IF oils_json_to_text(usr_keep_age.value)::INTERVAL > AGE(NOW(), oils_json_to_text(usr_keep_start.value)::TIMESTAMPTZ) THEN
15558                     keep_age := AGE(NOW(), oils_json_to_text(usr_keep_start.value)::TIMESTAMPTZ);
15559                 ELSE
15560                     keep_age := oils_json_to_text(usr_keep_age.value)::INTERVAL;
15561                 END IF;
15562             ELSIF usr_keep_start.value IS NOT NULL THEN
15563                 keep_age := AGE(NOW(), oils_json_to_text(usr_keep_start.value)::TIMESTAMPTZ);
15564             ELSE
15565                 keep_age := COALESCE( org_keep_age::INTERVAL, '2000 years'::INTERVAL );
15566             END IF;
15567
15568             EXIT WHEN AGE(NOW(), circ_chain_tail.xact_finish) < keep_age;
15569
15570             -- We've passed the purging tests, purge the circ chain starting at the end
15571             DELETE FROM action.circulation WHERE id = circ_chain_tail.id;
15572             WHILE circ_chain_tail.parent_circ IS NOT NULL LOOP
15573                 SELECT * INTO circ_chain_tail FROM action.circulation WHERE id = circ_chain_tail.parent_circ;
15574                 DELETE FROM action.circulation WHERE id = circ_chain_tail.id;
15575             END LOOP;
15576
15577             count_purged := count_purged + 1;
15578             purge_position := purge_position + 1;
15579
15580         END LOOP;
15581     END LOOP;
15582 END;
15583 $func$ LANGUAGE PLPGSQL;
15584
15585 CREATE OR REPLACE FUNCTION action.usr_visible_holds (usr_id INT) RETURNS SETOF action.hold_request AS $func$
15586 DECLARE
15587     h               action.hold_request%ROWTYPE;
15588     view_age        INTERVAL;
15589     view_count      INT;
15590     usr_view_count  actor.usr_setting%ROWTYPE;
15591     usr_view_age    actor.usr_setting%ROWTYPE;
15592     usr_view_start  actor.usr_setting%ROWTYPE;
15593 BEGIN
15594     SELECT * INTO usr_view_count FROM actor.usr_setting WHERE usr = usr_id AND name = 'history.hold.retention_count';
15595     SELECT * INTO usr_view_age FROM actor.usr_setting WHERE usr = usr_id AND name = 'history.hold.retention_age';
15596     SELECT * INTO usr_view_start FROM actor.usr_setting WHERE usr = usr_id AND name = 'history.hold.retention_start';
15597
15598     FOR h IN
15599         SELECT  *
15600           FROM  action.hold_request
15601           WHERE usr = usr_id
15602                 AND fulfillment_time IS NULL
15603                 AND cancel_time IS NULL
15604           ORDER BY request_time DESC
15605     LOOP
15606         RETURN NEXT h;
15607     END LOOP;
15608
15609     IF usr_view_start.value IS NULL THEN
15610         RETURN;
15611     END IF;
15612
15613     IF usr_view_age.value IS NOT NULL THEN
15614         -- User opted in and supplied a retention age
15615         IF oils_json_to_string(usr_view_age.value)::INTERVAL > AGE(NOW(), oils_json_to_string(usr_view_start.value)::TIMESTAMPTZ) THEN
15616             view_age := AGE(NOW(), oils_json_to_string(usr_view_start.value)::TIMESTAMPTZ);
15617         ELSE
15618             view_age := oils_json_to_string(usr_view_age.value)::INTERVAL;
15619         END IF;
15620     ELSE
15621         -- User opted in
15622         view_age := AGE(NOW(), oils_json_to_string(usr_view_start.value)::TIMESTAMPTZ);
15623     END IF;
15624
15625     IF usr_view_count.value IS NOT NULL THEN
15626         view_count := oils_json_to_text(usr_view_count.value)::INT;
15627     ELSE
15628         view_count := 1000;
15629     END IF;
15630
15631     -- show some fulfilled/canceled holds
15632     FOR h IN
15633         SELECT  *
15634           FROM  action.hold_request
15635           WHERE usr = usr_id
15636                 AND ( fulfillment_time IS NOT NULL OR cancel_time IS NOT NULL )
15637                 AND request_time > NOW() - view_age
15638           ORDER BY request_time DESC
15639           LIMIT view_count
15640     LOOP
15641         RETURN NEXT h;
15642     END LOOP;
15643
15644     RETURN;
15645 END;
15646 $func$ LANGUAGE PLPGSQL;
15647
15648 DROP TABLE IF EXISTS serial.bib_summary CASCADE;
15649
15650 DROP TABLE IF EXISTS serial.index_summary CASCADE;
15651
15652 DROP TABLE IF EXISTS serial.sup_summary CASCADE;
15653
15654 DROP TABLE IF EXISTS serial.issuance CASCADE;
15655
15656 DROP TABLE IF EXISTS serial.binding_unit CASCADE;
15657
15658 DROP TABLE IF EXISTS serial.subscription CASCADE;
15659
15660 CREATE TABLE asset.copy_template (
15661         id             SERIAL   PRIMARY KEY,
15662         owning_lib     INT      NOT NULL
15663                                 REFERENCES actor.org_unit (id)
15664                                 DEFERRABLE INITIALLY DEFERRED,
15665         creator        BIGINT   NOT NULL
15666                                 REFERENCES actor.usr (id)
15667                                 DEFERRABLE INITIALLY DEFERRED,
15668         editor         BIGINT   NOT NULL
15669                                 REFERENCES actor.usr (id)
15670                                 DEFERRABLE INITIALLY DEFERRED,
15671         create_date    TIMESTAMP WITH TIME ZONE    DEFAULT NOW(),
15672         edit_date      TIMESTAMP WITH TIME ZONE    DEFAULT NOW(),
15673         name           TEXT     NOT NULL,
15674         -- columns above this point are attributes of the template itself
15675         -- columns after this point are attributes of the copy this template modifies/creates
15676         circ_lib       INT      REFERENCES actor.org_unit (id)
15677                                 DEFERRABLE INITIALLY DEFERRED,
15678         status         INT      REFERENCES config.copy_status (id)
15679                                 DEFERRABLE INITIALLY DEFERRED,
15680         location       INT      REFERENCES asset.copy_location (id)
15681                                 DEFERRABLE INITIALLY DEFERRED,
15682         loan_duration  INT      CONSTRAINT valid_loan_duration CHECK (
15683                                     loan_duration IS NULL OR loan_duration IN (1,2,3)),
15684         fine_level     INT      CONSTRAINT valid_fine_level CHECK (
15685                                     fine_level IS NULL OR loan_duration IN (1,2,3)),
15686         age_protect    INT,
15687         circulate      BOOL,
15688         deposit        BOOL,
15689         ref            BOOL,
15690         holdable       BOOL,
15691         deposit_amount NUMERIC(6,2),
15692         price          NUMERIC(8,2),
15693         circ_modifier  TEXT,
15694         circ_as_type   TEXT,
15695         alert_message  TEXT,
15696         opac_visible   BOOL,
15697         floating       BOOL,
15698         mint_condition BOOL
15699 );
15700
15701 CREATE TABLE serial.subscription (
15702         id                     SERIAL       PRIMARY KEY,
15703         owning_lib             INT          NOT NULL DEFAULT 1
15704                                             REFERENCES actor.org_unit (id)
15705                                             ON DELETE SET NULL
15706                                             DEFERRABLE INITIALLY DEFERRED,
15707         start_date             TIMESTAMP WITH TIME ZONE     NOT NULL,
15708         end_date               TIMESTAMP WITH TIME ZONE,    -- interpret NULL as current subscription
15709         record_entry           BIGINT       REFERENCES biblio.record_entry (id)
15710                                             ON DELETE SET NULL
15711                                             DEFERRABLE INITIALLY DEFERRED,
15712         expected_date_offset   INTERVAL
15713         -- acquisitions/business-side tables link to here
15714 );
15715 CREATE INDEX serial_subscription_record_idx ON serial.subscription (record_entry);
15716 CREATE INDEX serial_subscription_owner_idx ON serial.subscription (owning_lib);
15717
15718 --at least one distribution per org_unit holding issues
15719 CREATE TABLE serial.distribution (
15720         id                    SERIAL  PRIMARY KEY,
15721         record_entry          BIGINT  REFERENCES serial.record_entry (id)
15722                                       ON DELETE SET NULL
15723                                       DEFERRABLE INITIALLY DEFERRED,
15724         summary_method        TEXT    CONSTRAINT sdist_summary_method_check CHECK (
15725                                           summary_method IS NULL
15726                                           OR summary_method IN ( 'add_to_sre',
15727                                           'merge_with_sre', 'use_sre_only',
15728                                           'use_sdist_only')),
15729         subscription          INT     NOT NULL
15730                                       REFERENCES serial.subscription (id)
15731                                                                   ON DELETE CASCADE
15732                                                                   DEFERRABLE INITIALLY DEFERRED,
15733         holding_lib           INT     NOT NULL
15734                                       REFERENCES actor.org_unit (id)
15735                                                                   DEFERRABLE INITIALLY DEFERRED,
15736         label                 TEXT    NOT NULL,
15737         receive_call_number   BIGINT  REFERENCES asset.call_number (id)
15738                                       DEFERRABLE INITIALLY DEFERRED,
15739         receive_unit_template INT     REFERENCES asset.copy_template (id)
15740                                       DEFERRABLE INITIALLY DEFERRED,
15741         bind_call_number      BIGINT  REFERENCES asset.call_number (id)
15742                                       DEFERRABLE INITIALLY DEFERRED,
15743         bind_unit_template    INT     REFERENCES asset.copy_template (id)
15744                                       DEFERRABLE INITIALLY DEFERRED,
15745         unit_label_prefix     TEXT,
15746         unit_label_suffix     TEXT
15747 );
15748 CREATE INDEX serial_distribution_sub_idx ON serial.distribution (subscription);
15749 CREATE INDEX serial_distribution_holding_lib_idx ON serial.distribution (holding_lib);
15750
15751 CREATE UNIQUE INDEX one_dist_per_sre_idx ON serial.distribution (record_entry);
15752
15753 CREATE TABLE serial.stream (
15754         id              SERIAL  PRIMARY KEY,
15755         distribution    INT     NOT NULL
15756                                 REFERENCES serial.distribution (id)
15757                                 ON DELETE CASCADE
15758                                 DEFERRABLE INITIALLY DEFERRED,
15759         routing_label   TEXT
15760 );
15761 CREATE INDEX serial_stream_dist_idx ON serial.stream (distribution);
15762
15763 CREATE UNIQUE INDEX label_once_per_dist
15764         ON serial.stream (distribution, routing_label)
15765         WHERE routing_label IS NOT NULL;
15766
15767 CREATE TABLE serial.routing_list_user (
15768         id             SERIAL       PRIMARY KEY,
15769         stream         INT          NOT NULL
15770                                     REFERENCES serial.stream
15771                                     ON DELETE CASCADE
15772                                     DEFERRABLE INITIALLY DEFERRED,
15773         pos            INT          NOT NULL DEFAULT 1,
15774         reader         INT          REFERENCES actor.usr
15775                                     ON DELETE CASCADE
15776                                     DEFERRABLE INITIALLY DEFERRED,
15777         department     TEXT,
15778         note           TEXT,
15779         CONSTRAINT one_pos_per_routing_list UNIQUE ( stream, pos ),
15780         CONSTRAINT reader_or_dept CHECK
15781         (
15782             -- Recipient is a person or a department, but not both
15783                 (reader IS NOT NULL AND department IS NULL) OR
15784                 (reader IS NULL AND department IS NOT NULL)
15785         )
15786 );
15787 CREATE INDEX serial_routing_list_user_stream_idx ON serial.routing_list_user (stream);
15788 CREATE INDEX serial_routing_list_user_reader_idx ON serial.routing_list_user (reader);
15789
15790 CREATE TABLE serial.caption_and_pattern (
15791         id           SERIAL       PRIMARY KEY,
15792         subscription INT          NOT NULL REFERENCES serial.subscription (id)
15793                                   ON DELETE CASCADE
15794                                   DEFERRABLE INITIALLY DEFERRED,
15795         type         TEXT         NOT NULL
15796                                   CONSTRAINT cap_type CHECK ( type in
15797                                   ( 'basic', 'supplement', 'index' )),
15798         create_date  TIMESTAMPTZ  NOT NULL DEFAULT now(),
15799         start_date   TIMESTAMP WITH TIME ZONE NOT NULL DEFAULT NOW(),
15800         end_date     TIMESTAMP WITH TIME ZONE,
15801         active       BOOL         NOT NULL DEFAULT FALSE,
15802         pattern_code TEXT         NOT NULL,       -- must contain JSON
15803         enum_1       TEXT,
15804         enum_2       TEXT,
15805         enum_3       TEXT,
15806         enum_4       TEXT,
15807         enum_5       TEXT,
15808         enum_6       TEXT,
15809         chron_1      TEXT,
15810         chron_2      TEXT,
15811         chron_3      TEXT,
15812         chron_4      TEXT,
15813         chron_5      TEXT
15814 );
15815 CREATE INDEX serial_caption_and_pattern_sub_idx ON serial.caption_and_pattern (subscription);
15816
15817 CREATE TABLE serial.issuance (
15818         id              SERIAL    PRIMARY KEY,
15819         creator         INT       NOT NULL
15820                                   REFERENCES actor.usr (id)
15821                                                           DEFERRABLE INITIALLY DEFERRED,
15822         editor          INT       NOT NULL
15823                                   REFERENCES actor.usr (id)
15824                                   DEFERRABLE INITIALLY DEFERRED,
15825         create_date     TIMESTAMP WITH TIME ZONE        NOT NULL DEFAULT now(),
15826         edit_date       TIMESTAMP WITH TIME ZONE        NOT NULL DEFAULT now(),
15827         subscription    INT       NOT NULL
15828                                   REFERENCES serial.subscription (id)
15829                                   ON DELETE CASCADE
15830                                   DEFERRABLE INITIALLY DEFERRED,
15831         label           TEXT,
15832         date_published  TIMESTAMP WITH TIME ZONE,
15833         caption_and_pattern  INT  REFERENCES serial.caption_and_pattern (id)
15834                               DEFERRABLE INITIALLY DEFERRED,
15835         holding_code    TEXT,
15836         holding_type    TEXT      CONSTRAINT valid_holding_type CHECK
15837                                   (
15838                                       holding_type IS NULL
15839                                       OR holding_type IN ('basic','supplement','index')
15840                                   ),
15841         holding_link_id INT
15842         -- TODO: add columns for separate enumeration/chronology values
15843 );
15844 CREATE INDEX serial_issuance_sub_idx ON serial.issuance (subscription);
15845 CREATE INDEX serial_issuance_caption_and_pattern_idx ON serial.issuance (caption_and_pattern);
15846 CREATE INDEX serial_issuance_date_published_idx ON serial.issuance (date_published);
15847
15848 CREATE TABLE serial.unit (
15849         label           TEXT,
15850         label_sort_key  TEXT,
15851         contents        TEXT    NOT NULL
15852 ) INHERITS (asset.copy);
15853 CREATE UNIQUE INDEX unit_barcode_key ON serial.unit (barcode) WHERE deleted = FALSE OR deleted IS FALSE;
15854 CREATE INDEX unit_cn_idx ON serial.unit (call_number);
15855 CREATE INDEX unit_avail_cn_idx ON serial.unit (call_number);
15856 CREATE INDEX unit_creator_idx  ON serial.unit ( creator );
15857 CREATE INDEX unit_editor_idx   ON serial.unit ( editor );
15858
15859 ALTER TABLE serial.unit ADD PRIMARY KEY (id);
15860
15861 ALTER TABLE serial.unit ADD CONSTRAINT serial_unit_call_number_fkey FOREIGN KEY (call_number) REFERENCES asset.call_number (id) DEFERRABLE INITIALLY DEFERRED;
15862
15863 ALTER TABLE serial.unit ADD CONSTRAINT serial_unit_creator_fkey FOREIGN KEY (creator) REFERENCES actor.usr (id) ON DELETE SET NULL DEFERRABLE INITIALLY DEFERRED;
15864
15865 ALTER TABLE serial.unit ADD CONSTRAINT serial_unit_editor_fkey FOREIGN KEY (editor) REFERENCES actor.usr (id) ON DELETE SET NULL DEFERRABLE INITIALLY DEFERRED;
15866
15867 CREATE TABLE serial.item (
15868         id              SERIAL  PRIMARY KEY,
15869         creator         INT     NOT NULL
15870                                 REFERENCES actor.usr (id)
15871                                 DEFERRABLE INITIALLY DEFERRED,
15872         editor          INT     NOT NULL
15873                                 REFERENCES actor.usr (id)
15874                                 DEFERRABLE INITIALLY DEFERRED,
15875         create_date     TIMESTAMP WITH TIME ZONE        NOT NULL DEFAULT now(),
15876         edit_date       TIMESTAMP WITH TIME ZONE        NOT NULL DEFAULT now(),
15877         issuance        INT     NOT NULL
15878                                 REFERENCES serial.issuance (id)
15879                                 ON DELETE CASCADE
15880                                 DEFERRABLE INITIALLY DEFERRED,
15881         stream          INT     NOT NULL
15882                                 REFERENCES serial.stream (id)
15883                                 ON DELETE CASCADE
15884                                 DEFERRABLE INITIALLY DEFERRED,
15885         unit            INT     REFERENCES serial.unit (id)
15886                                 ON DELETE SET NULL
15887                                 DEFERRABLE INITIALLY DEFERRED,
15888         uri             INT     REFERENCES asset.uri (id)
15889                                 ON DELETE SET NULL
15890                                 DEFERRABLE INITIALLY DEFERRED,
15891         date_expected   TIMESTAMP WITH TIME ZONE,
15892         date_received   TIMESTAMP WITH TIME ZONE,
15893         status          TEXT    CONSTRAINT valid_status CHECK (
15894                                status IN ( 'Bindery', 'Bound', 'Claimed', 'Discarded',
15895                                'Expected', 'Not Held', 'Not Published', 'Received'))
15896                             DEFAULT 'Expected',
15897         shadowed        BOOL    NOT NULL DEFAULT FALSE
15898 );
15899 CREATE INDEX serial_item_stream_idx ON serial.item (stream);
15900 CREATE INDEX serial_item_issuance_idx ON serial.item (issuance);
15901 CREATE INDEX serial_item_unit_idx ON serial.item (unit);
15902 CREATE INDEX serial_item_uri_idx ON serial.item (uri);
15903 CREATE INDEX serial_item_date_received_idx ON serial.item (date_received);
15904 CREATE INDEX serial_item_status_idx ON serial.item (status);
15905
15906 CREATE TABLE serial.item_note (
15907         id          SERIAL  PRIMARY KEY,
15908         item        INT     NOT NULL
15909                             REFERENCES serial.item (id)
15910                             ON DELETE CASCADE
15911                             DEFERRABLE INITIALLY DEFERRED,
15912         creator     INT     NOT NULL
15913                             REFERENCES actor.usr (id)
15914                             DEFERRABLE INITIALLY DEFERRED,
15915         create_date TIMESTAMP WITH TIME ZONE    DEFAULT NOW(),
15916         pub         BOOL    NOT NULL    DEFAULT FALSE,
15917         title       TEXT    NOT NULL,
15918         value       TEXT    NOT NULL
15919 );
15920 CREATE INDEX serial_item_note_item_idx ON serial.item_note (item);
15921
15922 CREATE TABLE serial.basic_summary (
15923         id                  SERIAL  PRIMARY KEY,
15924         distribution        INT     NOT NULL
15925                                     REFERENCES serial.distribution (id)
15926                                     ON DELETE CASCADE
15927                                     DEFERRABLE INITIALLY DEFERRED,
15928         generated_coverage  TEXT    NOT NULL,
15929         textual_holdings    TEXT,
15930         show_generated      BOOL    NOT NULL DEFAULT TRUE
15931 );
15932 CREATE INDEX serial_basic_summary_dist_idx ON serial.basic_summary (distribution);
15933
15934 CREATE TABLE serial.supplement_summary (
15935         id                  SERIAL  PRIMARY KEY,
15936         distribution        INT     NOT NULL
15937                                     REFERENCES serial.distribution (id)
15938                                     ON DELETE CASCADE
15939                                     DEFERRABLE INITIALLY DEFERRED,
15940         generated_coverage  TEXT    NOT NULL,
15941         textual_holdings    TEXT,
15942         show_generated      BOOL    NOT NULL DEFAULT TRUE
15943 );
15944 CREATE INDEX serial_supplement_summary_dist_idx ON serial.supplement_summary (distribution);
15945
15946 CREATE TABLE serial.index_summary (
15947         id                  SERIAL  PRIMARY KEY,
15948         distribution        INT     NOT NULL
15949                                     REFERENCES serial.distribution (id)
15950                                     ON DELETE CASCADE
15951                                     DEFERRABLE INITIALLY DEFERRED,
15952         generated_coverage  TEXT    NOT NULL,
15953         textual_holdings    TEXT,
15954         show_generated      BOOL    NOT NULL DEFAULT TRUE
15955 );
15956 CREATE INDEX serial_index_summary_dist_idx ON serial.index_summary (distribution);
15957
15958 -- 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.
15959
15960 DROP INDEX IF EXISTS authority.authority_record_unique_tcn;
15961 CREATE UNIQUE INDEX authority_record_unique_tcn ON authority.record_entry (arn_source,arn_value) WHERE deleted = FALSE OR deleted IS FALSE;
15962
15963 DROP INDEX IF EXISTS asset.asset_call_number_label_once_per_lib;
15964 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;
15965
15966 DROP INDEX IF EXISTS biblio.biblio_record_unique_tcn;
15967 CREATE UNIQUE INDEX biblio_record_unique_tcn ON biblio.record_entry (tcn_value) WHERE deleted = FALSE OR deleted IS FALSE;
15968
15969 CREATE OR REPLACE FUNCTION config.interval_to_seconds( interval_val INTERVAL )
15970 RETURNS INTEGER AS $$
15971 BEGIN
15972         RETURN EXTRACT( EPOCH FROM interval_val );
15973 END;
15974 $$ LANGUAGE plpgsql;
15975
15976 CREATE OR REPLACE FUNCTION config.interval_to_seconds( interval_string TEXT )
15977 RETURNS INTEGER AS $$
15978 BEGIN
15979         RETURN config.interval_to_seconds( interval_string::INTERVAL );
15980 END;
15981 $$ LANGUAGE plpgsql;
15982
15983 INSERT INTO container.biblio_record_entry_bucket_type( code, label ) VALUES (
15984     'temp',
15985     oils_i18n_gettext(
15986         'temp',
15987         'Temporary bucket which gets deleted after use.',
15988         'cbrebt',
15989         'label'
15990     )
15991 );
15992
15993 -- 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.
15994
15995 CREATE OR REPLACE FUNCTION biblio.check_marcxml_well_formed () RETURNS TRIGGER AS $func$
15996 BEGIN
15997
15998     IF xml_is_well_formed(NEW.marc) THEN
15999         RETURN NEW;
16000     ELSE
16001         RAISE EXCEPTION 'Attempted to % MARCXML that is not well formed', TG_OP;
16002     END IF;
16003
16004 END;
16005 $func$ LANGUAGE PLPGSQL;
16006
16007 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();
16008
16009 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();
16010
16011 ALTER TABLE serial.record_entry
16012         ALTER COLUMN marc DROP NOT NULL;
16013
16014 insert INTO CONFIG.xml_transform(name, namespace_uri, prefix, xslt)
16015 VALUES ('marc21expand880', 'http://www.loc.gov/MARC21/slim', 'marc', $$<?xml version="1.0" encoding="UTF-8"?>
16016 <xsl:stylesheet
16017     xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
16018     xmlns:marc="http://www.loc.gov/MARC21/slim"
16019     version="1.0">
16020 <!--
16021 Copyright (C) 2010  Equinox Software, Inc.
16022 Galen Charlton <gmc@esilibrary.cOM.
16023
16024 This program is free software; you can redistribute it and/or
16025 modify it under the terms of the GNU General Public License
16026 as published by the Free Software Foundation; either version 2
16027 of the License, or (at your option) any later version.
16028
16029 This program is distributed in the hope that it will be useful,
16030 but WITHOUT ANY WARRANTY; without even the implied warranty of
16031 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16032 GNU General Public License for more details.
16033
16034 marc21_expand_880.xsl - stylesheet used during indexing to
16035                         map alternative graphical representations
16036                         of MARC fields stored in 880 fields
16037                         to the corresponding tag name and value.
16038
16039 For example, if a MARC record for a Chinese book has
16040
16041 245.00 $6 880-01 $a Ba shi san nian duan pian xiao shuo xuan
16042 880.00 $6 245-01/$1 $a八十三年短篇小說選
16043
16044 this stylesheet will transform it to the equivalent of
16045
16046 245.00 $6 880-01 $a Ba shi san nian duan pian xiao shuo xuan
16047 245.00 $6 245-01/$1 $a八十三年短篇小說選
16048
16049 -->
16050     <xsl:output encoding="UTF-8" indent="yes" method="xml"/>
16051
16052     <xsl:template match="@*|node()">
16053         <xsl:copy>
16054             <xsl:apply-templates select="@*|node()"/>
16055         </xsl:copy>
16056     </xsl:template>
16057
16058     <xsl:template match="//marc:datafield[@tag='880']">
16059         <xsl:if test="./marc:subfield[@code='6'] and string-length(./marc:subfield[@code='6']) &gt;= 6">
16060             <marc:datafield>
16061                 <xsl:attribute name="tag">
16062                     <xsl:value-of select="substring(./marc:subfield[@code='6'], 1, 3)" />
16063                 </xsl:attribute>
16064                 <xsl:attribute name="ind1">
16065                     <xsl:value-of select="@ind1" />
16066                 </xsl:attribute>
16067                 <xsl:attribute name="ind2">
16068                     <xsl:value-of select="@ind2" />
16069                 </xsl:attribute>
16070                 <xsl:apply-templates />
16071             </marc:datafield>
16072         </xsl:if>
16073     </xsl:template>
16074
16075 </xsl:stylesheet>$$);
16076
16077 -- Splitting the ingest trigger up into little bits
16078
16079 CREATE TEMPORARY TABLE eg_0301_check_if_has_contents (
16080     flag INTEGER PRIMARY KEY
16081 ) ON COMMIT DROP;
16082 INSERT INTO eg_0301_check_if_has_contents VALUES (1);
16083
16084 -- cause failure if either of the tables we want to drop have rows
16085 INSERT INTO eg_0301_check_if_has_contents SELECT 1 FROM asset.copy_transparency LIMIT 1;
16086 INSERT INTO eg_0301_check_if_has_contents SELECT 1 FROM asset.copy_transparency_map LIMIT 1;
16087
16088 DROP TABLE IF EXISTS asset.copy_transparency_map;
16089 DROP TABLE IF EXISTS asset.copy_transparency;
16090
16091 UPDATE config.metabib_field SET facet_xpath = '//' || facet_xpath WHERE facet_xpath IS NOT NULL;
16092
16093 -- We won't necessarily use all of these, but they are here for completeness.
16094 -- Source is the EDI spec 1229 codelist, eg: http://www.stylusstudio.com/edifact/D04B/1229.htm
16095 -- Values are the EDI code value + 1000
16096
16097 INSERT INTO acq.cancel_reason (keep_debits, id, org_unit, label, description) VALUES
16098 ('t',(  1+1000), 1, 'Added',     'The information is to be or has been added.'),
16099 ('f',(  2+1000), 1, 'Deleted',   'The information is to be or has been deleted.'),
16100 ('t',(  3+1000), 1, 'Changed',   'The information is to be or has been changed.'),
16101 ('t',(  4+1000), 1, 'No action',                  'This line item is not affected by the actual message.'),
16102 ('t',(  5+1000), 1, 'Accepted without amendment', 'This line item is entirely accepted by the seller.'),
16103 ('t',(  6+1000), 1, 'Accepted with amendment',    'This line item is accepted but amended by the seller.'),
16104 ('f',(  7+1000), 1, 'Not accepted',               'This line item is not accepted by the seller.'),
16105 ('t',(  8+1000), 1, 'Schedule only', 'Code specifying that the message is a schedule only.'),
16106 ('t',(  9+1000), 1, 'Amendments',    'Code specifying that amendments are requested/notified.'),
16107 ('f',( 10+1000), 1, 'Not found',   'This line item is not found in the referenced message.'),
16108 ('t',( 11+1000), 1, 'Not amended', 'This line is not amended by the buyer.'),
16109 ('t',( 12+1000), 1, 'Line item numbers changed', 'Code specifying that the line item numbers have changed.'),
16110 ('t',( 13+1000), 1, 'Buyer has deducted amount', 'Buyer has deducted amount from payment.'),
16111 ('t',( 14+1000), 1, 'Buyer claims against invoice', 'Buyer has a claim against an outstanding invoice.'),
16112 ('t',( 15+1000), 1, 'Charge back by seller', 'Factor has been requested to charge back the outstanding item.'),
16113 ('t',( 16+1000), 1, 'Seller will issue credit note', 'Seller agrees to issue a credit note.'),
16114 ('t',( 17+1000), 1, 'Terms changed for new terms', 'New settlement terms have been agreed.'),
16115 ('t',( 18+1000), 1, 'Abide outcome of negotiations', 'Factor agrees to abide by the outcome of negotiations between seller and buyer.'),
16116 ('t',( 19+1000), 1, 'Seller rejects dispute', 'Seller does not accept validity of dispute.'),
16117 ('t',( 20+1000), 1, 'Settlement', 'The reported situation is settled.'),
16118 ('t',( 21+1000), 1, 'No delivery', 'Code indicating that no delivery will be required.'),
16119 ('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).'),
16120 ('t',( 23+1000), 1, 'Proposed amendment', 'A code used to indicate an amendment suggested by the sender.'),
16121 ('t',( 24+1000), 1, 'Accepted with amendment, no confirmation required', 'Accepted with changes which require no confirmation.'),
16122 ('t',( 25+1000), 1, 'Equipment provisionally repaired', 'The equipment or component has been provisionally repaired.'),
16123 ('t',( 26+1000), 1, 'Included', 'Code indicating that the entity is included.'),
16124 ('t',( 27+1000), 1, 'Verified documents for coverage', 'Upon receipt and verification of documents we shall cover you when due as per your instructions.'),
16125 ('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.'),
16126 ('t',( 29+1000), 1, 'Authenticated advice for coverage',      'On receipt of your authenticated advice we shall cover you when due as per your instructions.'),
16127 ('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.'),
16128 ('t',( 31+1000), 1, 'Authenticated advice for credit',        'On receipt of your authenticated advice we shall credit your account with us when due.'),
16129 ('t',( 32+1000), 1, 'Credit advice requested for direct debit',           'A credit advice is requested for the direct debit.'),
16130 ('t',( 33+1000), 1, 'Credit advice and acknowledgement for direct debit', 'A credit advice and acknowledgement are requested for the direct debit.'),
16131 ('t',( 34+1000), 1, 'Inquiry',     'Request for information.'),
16132 ('t',( 35+1000), 1, 'Checked',     'Checked.'),
16133 ('t',( 36+1000), 1, 'Not checked', 'Not checked.'),
16134 ('f',( 37+1000), 1, 'Cancelled',   'Discontinued.'),
16135 ('t',( 38+1000), 1, 'Replaced',    'Provide a replacement.'),
16136 ('t',( 39+1000), 1, 'New',         'Not existing before.'),
16137 ('t',( 40+1000), 1, 'Agreed',      'Consent.'),
16138 ('t',( 41+1000), 1, 'Proposed',    'Put forward for consideration.'),
16139 ('t',( 42+1000), 1, 'Already delivered', 'Delivery has taken place.'),
16140 ('t',( 43+1000), 1, 'Additional subordinate structures will follow', 'Additional subordinate structures will follow the current hierarchy level.'),
16141 ('t',( 44+1000), 1, 'Additional subordinate structures will not follow', 'No additional subordinate structures will follow the current hierarchy level.'),
16142 ('t',( 45+1000), 1, 'Result opposed',         'A notification that the result is opposed.'),
16143 ('t',( 46+1000), 1, 'Auction held',           'A notification that an auction was held.'),
16144 ('t',( 47+1000), 1, 'Legal action pursued',   'A notification that legal action has been pursued.'),
16145 ('t',( 48+1000), 1, 'Meeting held',           'A notification that a meeting was held.'),
16146 ('t',( 49+1000), 1, 'Result set aside',       'A notification that the result has been set aside.'),
16147 ('t',( 50+1000), 1, 'Result disputed',        'A notification that the result has been disputed.'),
16148 ('t',( 51+1000), 1, 'Countersued',            'A notification that a countersuit has been filed.'),
16149 ('t',( 52+1000), 1, 'Pending',                'A notification that an action is awaiting settlement.'),
16150 ('f',( 53+1000), 1, 'Court action dismissed', 'A notification that a court action will no longer be heard.'),
16151 ('t',( 54+1000), 1, 'Referred item, accepted', 'The item being referred to has been accepted.'),
16152 ('f',( 55+1000), 1, 'Referred item, rejected', 'The item being referred to has been rejected.'),
16153 ('t',( 56+1000), 1, 'Debit advice statement line',  'Notification that the statement line is a debit advice.'),
16154 ('t',( 57+1000), 1, 'Credit advice statement line', 'Notification that the statement line is a credit advice.'),
16155 ('t',( 58+1000), 1, 'Grouped credit advices',       'Notification that the credit advices are grouped.'),
16156 ('t',( 59+1000), 1, 'Grouped debit advices',        'Notification that the debit advices are grouped.'),
16157 ('t',( 60+1000), 1, 'Registered', 'The name is registered.'),
16158 ('f',( 61+1000), 1, 'Payment denied', 'The payment has been denied.'),
16159 ('t',( 62+1000), 1, 'Approved as amended', 'Approved with modifications.'),
16160 ('t',( 63+1000), 1, 'Approved as submitted', 'The request has been approved as submitted.'),
16161 ('f',( 64+1000), 1, 'Cancelled, no activity', 'Cancelled due to the lack of activity.'),
16162 ('t',( 65+1000), 1, 'Under investigation', 'Investigation is being done.'),
16163 ('t',( 66+1000), 1, 'Initial claim received', 'Notification that the initial claim was received.'),
16164 ('f',( 67+1000), 1, 'Not in process', 'Not in process.'),
16165 ('f',( 68+1000), 1, 'Rejected, duplicate', 'Rejected because it is a duplicate.'),
16166 ('f',( 69+1000), 1, 'Rejected, resubmit with corrections', 'Rejected but may be resubmitted when corrected.'),
16167 ('t',( 70+1000), 1, 'Pending, incomplete', 'Pending because of incomplete information.'),
16168 ('t',( 71+1000), 1, 'Under field office investigation', 'Investigation by the field is being done.'),
16169 ('t',( 72+1000), 1, 'Pending, awaiting additional material', 'Pending awaiting receipt of additional material.'),
16170 ('t',( 73+1000), 1, 'Pending, awaiting review', 'Pending while awaiting review.'),
16171 ('t',( 74+1000), 1, 'Reopened', 'Opened again.'),
16172 ('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).'),
16173 ('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).'),
16174 ('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).'),
16175 ('t',( 78+1000), 1, 'Previous payment decision reversed', 'A previous payment decision has been reversed.'),
16176 ('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).'),
16177 ('t',( 80+1000), 1, 'Transferred to correct insurance carrier', 'The request has been transferred to the correct insurance carrier for processing.'),
16178 ('t',( 81+1000), 1, 'Not paid, predetermination pricing only', 'Payment has not been made and the enclosed response is predetermination pricing only.'),
16179 ('t',( 82+1000), 1, 'Documentation claim', 'The claim is for documentation purposes only, no payment required.'),
16180 ('t',( 83+1000), 1, 'Reviewed', 'Assessed.'),
16181 ('f',( 84+1000), 1, 'Repriced', 'This price was changed.'),
16182 ('t',( 85+1000), 1, 'Audited', 'An official examination has occurred.'),
16183 ('t',( 86+1000), 1, 'Conditionally paid', 'Payment has been conditionally made.'),
16184 ('t',( 87+1000), 1, 'On appeal', 'Reconsideration of the decision has been applied for.'),
16185 ('t',( 88+1000), 1, 'Closed', 'Shut.'),
16186 ('t',( 89+1000), 1, 'Reaudited', 'A subsequent official examination has occurred.'),
16187 ('t',( 90+1000), 1, 'Reissued', 'Issued again.'),
16188 ('t',( 91+1000), 1, 'Closed after reopening', 'Reopened and then closed.'),
16189 ('t',( 92+1000), 1, 'Redetermined', 'Determined again or differently.'),
16190 ('t',( 93+1000), 1, 'Processed as primary',   'Processed as the first.'),
16191 ('t',( 94+1000), 1, 'Processed as secondary', 'Processed as the second.'),
16192 ('t',( 95+1000), 1, 'Processed as tertiary',  'Processed as the third.'),
16193 ('t',( 96+1000), 1, 'Correction of error', 'A correction to information previously communicated which contained an error.'),
16194 ('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.'),
16195 ('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.'),
16196 ('t',( 99+1000), 1, 'Interim response', 'The response is an interim one.'),
16197 ('t',(100+1000), 1, 'Final response',   'The response is an final one.'),
16198 ('t',(101+1000), 1, 'Debit advice requested', 'A debit advice is requested for the transaction.'),
16199 ('t',(102+1000), 1, 'Transaction not impacted', 'Advice that the transaction is not impacted.'),
16200 ('t',(103+1000), 1, 'Patient to be notified',                    'The action to take is to notify the patient.'),
16201 ('t',(104+1000), 1, 'Healthcare provider to be notified',        'The action to take is to notify the healthcare provider.'),
16202 ('t',(105+1000), 1, 'Usual general practitioner to be notified', 'The action to take is to notify the usual general practitioner.'),
16203 ('t',(106+1000), 1, 'Advice without details', 'An advice without details is requested or notified.'),
16204 ('t',(107+1000), 1, 'Advice with details', 'An advice with details is requested or notified.'),
16205 ('t',(108+1000), 1, 'Amendment requested', 'An amendment is requested.'),
16206 ('t',(109+1000), 1, 'For information', 'Included for information only.'),
16207 ('f',(110+1000), 1, 'Withdraw', 'A code indicating discontinuance or retraction.'),
16208 ('t',(111+1000), 1, 'Delivery date change', 'The action / notiification is a change of the delivery date.'),
16209 ('f',(112+1000), 1, 'Quantity change',      'The action / notification is a change of quantity.'),
16210 ('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.'),
16211 ('t',(114+1000), 1, 'Resale',           'The identified items have been sold by the distributor to the end customer.'),
16212 ('t',(115+1000), 1, 'Prior addition', 'This existing line item becomes available at an earlier date.');
16213
16214 INSERT INTO config.metabib_field ( id, field_class, name, label, format, xpath, facet_field, search_field ) VALUES
16215     (26, 'identifier', 'arcn', oils_i18n_gettext(26, 'Authority record control number', 'cmf', 'label'), 'marcxml', $$//marc:subfield[@code='0']$$, TRUE, FALSE );
16216
16217 SELECT SETVAL('config.metabib_field_id_seq'::TEXT, (SELECT MAX(id) FROM config.metabib_field), TRUE);
16218
16219 INSERT INTO config.index_normalizer (name, description, func, param_count) VALUES (
16220         'Remove Parenthesized Substring',
16221         'Remove any parenthesized substrings from the extracted text, such as the agency code preceding authority record control numbers in subfield 0.',
16222         'remove_paren_substring',
16223         0
16224 );
16225
16226 INSERT INTO config.index_normalizer (name, description, func, param_count) VALUES (
16227         'Trim Surrounding Space',
16228         'Trim leading and trailing spaces from extracted text.',
16229         'btrim',
16230         0
16231 );
16232
16233 INSERT INTO config.metabib_field_index_norm_map (field,norm,pos)
16234     SELECT  m.id,
16235             i.id,
16236             -2
16237       FROM  config.metabib_field m,
16238             config.index_normalizer i
16239       WHERE i.func IN ('remove_paren_substring')
16240             AND m.id IN (26);
16241
16242 INSERT INTO config.metabib_field_index_norm_map (field,norm,pos)
16243     SELECT  m.id,
16244             i.id,
16245             -1
16246       FROM  config.metabib_field m,
16247             config.index_normalizer i
16248       WHERE i.func IN ('btrim')
16249             AND m.id IN (26);
16250
16251 -- Function that takes, and returns, marcxml and compiles an embedded ruleset for you, and they applys it
16252 CREATE OR REPLACE FUNCTION vandelay.merge_record_xml ( target_marc TEXT, template_marc TEXT ) RETURNS TEXT AS $$
16253 DECLARE
16254     dyn_profile     vandelay.compile_profile%ROWTYPE;
16255     replace_rule    TEXT;
16256     tmp_marc        TEXT;
16257     trgt_marc        TEXT;
16258     tmpl_marc        TEXT;
16259     match_count     INT;
16260 BEGIN
16261
16262     IF target_marc IS NULL OR template_marc IS NULL THEN
16263         -- RAISE NOTICE 'no marc for target or template record';
16264         RETURN NULL;
16265     END IF;
16266
16267     dyn_profile := vandelay.compile_profile( template_marc );
16268
16269     IF dyn_profile.replace_rule <> '' AND dyn_profile.preserve_rule <> '' THEN
16270         -- RAISE NOTICE 'both replace [%] and preserve [%] specified', dyn_profile.replace_rule, dyn_profile.preserve_rule;
16271         RETURN NULL;
16272     END IF;
16273
16274     IF dyn_profile.replace_rule <> '' THEN
16275         trgt_marc = target_marc;
16276         tmpl_marc = template_marc;
16277         replace_rule = dyn_profile.replace_rule;
16278     ELSE
16279         tmp_marc = target_marc;
16280         trgt_marc = template_marc;
16281         tmpl_marc = tmp_marc;
16282         replace_rule = dyn_profile.preserve_rule;
16283     END IF;
16284
16285     RETURN vandelay.merge_record_xml( trgt_marc, tmpl_marc, dyn_profile.add_rule, replace_rule, dyn_profile.strip_rule );
16286
16287 END;
16288 $$ LANGUAGE PLPGSQL;
16289
16290 -- Function to generate an ephemeral overlay template from an authority record
16291 CREATE OR REPLACE FUNCTION authority.generate_overlay_template ( TEXT, BIGINT ) RETURNS TEXT AS $func$
16292
16293     use MARC::Record;
16294     use MARC::File::XML (BinaryEncoding => 'UTF-8');
16295
16296     my $xml = shift;
16297     my $r = MARC::Record->new_from_xml( $xml );
16298
16299     return undef unless ($r);
16300
16301     my $id = shift() || $r->subfield( '901' => 'c' );
16302     $id =~ s/^\s*(?:\([^)]+\))?\s*(.+)\s*?$/$1/;
16303     return undef unless ($id); # We need an ID!
16304
16305     my $tmpl = MARC::Record->new();
16306
16307     my @rule_fields;
16308     for my $field ( $r->field( '1..' ) ) { # Get main entry fields from the authority record
16309
16310         my $tag = $field->tag;
16311         my $i1 = $field->indicator(1);
16312         my $i2 = $field->indicator(2);
16313         my $sf = join '', map { $_->[0] } $field->subfields;
16314         my @data = map { @$_ } $field->subfields;
16315
16316         my @replace_them;
16317
16318         # Map the authority field to bib fields it can control.
16319         if ($tag >= 100 and $tag <= 111) {       # names
16320             @replace_them = map { $tag + $_ } (0, 300, 500, 600, 700);
16321         } elsif ($tag eq '130') {                # uniform title
16322             @replace_them = qw/130 240 440 730 830/;
16323         } elsif ($tag >= 150 and $tag <= 155) {  # subjects
16324             @replace_them = ($tag + 500);
16325         } elsif ($tag >= 180 and $tag <= 185) {  # floating subdivisions
16326             @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/;
16327         } else {
16328             next;
16329         }
16330
16331         # Dummy up the bib-side data
16332         $tmpl->append_fields(
16333             map {
16334                 MARC::Field->new( $_, $i1, $i2, @data )
16335             } @replace_them
16336         );
16337
16338         # Construct some 'replace' rules
16339         push @rule_fields, map { $_ . $sf . '[0~\)' .$id . '$]' } @replace_them;
16340     }
16341
16342     # Insert the replace rules into the template
16343     $tmpl->append_fields(
16344         MARC::Field->new( '905' => ' ' => ' ' => 'r' => join(',', @rule_fields ) )
16345     );
16346
16347     $xml = $tmpl->as_xml_record;
16348     $xml =~ s/^<\?.+?\?>$//mo;
16349     $xml =~ s/\n//sgo;
16350     $xml =~ s/>\s+</></sgo;
16351
16352     return $xml;
16353
16354 $func$ LANGUAGE PLPERLU;
16355
16356 CREATE OR REPLACE FUNCTION authority.generate_overlay_template ( BIGINT ) RETURNS TEXT AS $func$
16357     SELECT authority.generate_overlay_template( marc, id ) FROM authority.record_entry WHERE id = $1;
16358 $func$ LANGUAGE SQL;
16359
16360 CREATE OR REPLACE FUNCTION authority.generate_overlay_template ( TEXT ) RETURNS TEXT AS $func$
16361     SELECT authority.generate_overlay_template( $1, NULL );
16362 $func$ LANGUAGE SQL;
16363
16364 DELETE FROM config.metabib_field_index_norm_map WHERE field = 26;
16365 DELETE FROM config.metabib_field WHERE id = 26;
16366
16367 -- Making this a global_flag (UI accessible) instead of an internal_flag
16368 INSERT INTO config.global_flag (name, label) -- defaults to enabled=FALSE
16369     VALUES (
16370         'ingest.disable_authority_linking',
16371         oils_i18n_gettext(
16372             'ingest.disable_authority_linking',
16373             'Authority Automation: Disable bib-authority link tracking',
16374             'cgf',
16375             'label'
16376         )
16377     );
16378 UPDATE config.global_flag SET enabled = (SELECT enabled FROM ONLY config.internal_flag WHERE name = 'ingest.disable_authority_linking');
16379 DELETE FROM config.internal_flag WHERE name = 'ingest.disable_authority_linking';
16380
16381 INSERT INTO config.global_flag (name, label) -- defaults to enabled=FALSE
16382     VALUES (
16383         'ingest.disable_authority_auto_update',
16384         oils_i18n_gettext(
16385             'ingest.disable_authority_auto_update',
16386             'Authority Automation: Disable automatic authority updating (requires link tracking)',
16387             'cgf',
16388             'label'
16389         )
16390     );
16391
16392 -- Enable automated ingest of authority records; just insert the row into
16393 -- authority.record_entry and authority.full_rec will automatically be populated
16394
16395 CREATE OR REPLACE FUNCTION authority.propagate_changes (aid BIGINT, bid BIGINT) RETURNS BIGINT AS $func$
16396     UPDATE  biblio.record_entry
16397       SET   marc = vandelay.merge_record_xml( marc, authority.generate_overlay_template( $1 ) )
16398       WHERE id = $2;
16399     SELECT $1;
16400 $func$ LANGUAGE SQL;
16401
16402 CREATE OR REPLACE FUNCTION authority.propagate_changes (aid BIGINT) RETURNS SETOF BIGINT AS $func$
16403     SELECT authority.propagate_changes( authority, bib ) FROM authority.bib_linking WHERE authority = $1;
16404 $func$ LANGUAGE SQL;
16405
16406 CREATE OR REPLACE FUNCTION authority.flatten_marc ( TEXT ) RETURNS SETOF authority.full_rec AS $func$
16407
16408 use MARC::Record;
16409 use MARC::File::XML (BinaryEncoding => 'UTF-8');
16410
16411 my $xml = shift;
16412 my $r = MARC::Record->new_from_xml( $xml );
16413
16414 return_next( { tag => 'LDR', value => $r->leader } );
16415
16416 for my $f ( $r->fields ) {
16417     if ($f->is_control_field) {
16418         return_next({ tag => $f->tag, value => $f->data });
16419     } else {
16420         for my $s ($f->subfields) {
16421             return_next({
16422                 tag      => $f->tag,
16423                 ind1     => $f->indicator(1),
16424                 ind2     => $f->indicator(2),
16425                 subfield => $s->[0],
16426                 value    => $s->[1]
16427             });
16428
16429         }
16430     }
16431 }
16432
16433 return undef;
16434
16435 $func$ LANGUAGE PLPERLU;
16436
16437 CREATE OR REPLACE FUNCTION authority.flatten_marc ( rid BIGINT ) RETURNS SETOF authority.full_rec AS $func$
16438 DECLARE
16439     auth    authority.record_entry%ROWTYPE;
16440     output    authority.full_rec%ROWTYPE;
16441     field    RECORD;
16442 BEGIN
16443     SELECT INTO auth * FROM authority.record_entry WHERE id = rid;
16444
16445     FOR field IN SELECT * FROM authority.flatten_marc( auth.marc ) LOOP
16446         output.record := rid;
16447         output.ind1 := field.ind1;
16448         output.ind2 := field.ind2;
16449         output.tag := field.tag;
16450         output.subfield := field.subfield;
16451         IF field.subfield IS NOT NULL THEN
16452             output.value := naco_normalize(field.value, field.subfield);
16453         ELSE
16454             output.value := field.value;
16455         END IF;
16456
16457         CONTINUE WHEN output.value IS NULL;
16458
16459         RETURN NEXT output;
16460     END LOOP;
16461 END;
16462 $func$ LANGUAGE PLPGSQL;
16463
16464 -- authority.rec_descriptor appears to be unused currently
16465 CREATE OR REPLACE FUNCTION authority.reingest_authority_rec_descriptor( auth_id BIGINT ) RETURNS VOID AS $func$
16466 BEGIN
16467     DELETE FROM authority.rec_descriptor WHERE record = auth_id;
16468 --    INSERT INTO authority.rec_descriptor (record, record_status, char_encoding)
16469 --        SELECT  auth_id, ;
16470
16471     RETURN;
16472 END;
16473 $func$ LANGUAGE PLPGSQL;
16474
16475 CREATE OR REPLACE FUNCTION authority.reingest_authority_full_rec( auth_id BIGINT ) RETURNS VOID AS $func$
16476 BEGIN
16477     DELETE FROM authority.full_rec WHERE record = auth_id;
16478     INSERT INTO authority.full_rec (record, tag, ind1, ind2, subfield, value)
16479         SELECT record, tag, ind1, ind2, subfield, value FROM authority.flatten_marc( auth_id );
16480
16481     RETURN;
16482 END;
16483 $func$ LANGUAGE PLPGSQL;
16484
16485 -- AFTER UPDATE OR INSERT trigger for authority.record_entry
16486 CREATE OR REPLACE FUNCTION authority.indexing_ingest_or_delete () RETURNS TRIGGER AS $func$
16487 BEGIN
16488
16489     IF NEW.deleted IS TRUE THEN -- If this authority is deleted
16490         DELETE FROM authority.bib_linking WHERE authority = NEW.id; -- Avoid updating fields in bibs that are no longer visible
16491           -- Should remove matching $0 from controlled fields at the same time?
16492         RETURN NEW; -- and we're done
16493     END IF;
16494
16495     IF TG_OP = 'UPDATE' THEN -- re-ingest?
16496         PERFORM * FROM config.internal_flag WHERE name = 'ingest.reingest.force_on_same_marc' AND enabled;
16497
16498         IF NOT FOUND AND OLD.marc = NEW.marc THEN -- don't do anything if the MARC didn't change
16499             RETURN NEW;
16500         END IF;
16501     END IF;
16502
16503     -- Flatten and insert the afr data
16504     PERFORM * FROM config.internal_flag WHERE name = 'ingest.disable_authority_full_rec' AND enabled;
16505     IF NOT FOUND THEN
16506         PERFORM authority.reingest_authority_full_rec(NEW.id);
16507 -- authority.rec_descriptor is not currently used
16508 --        PERFORM * FROM config.internal_flag WHERE name = 'ingest.disable_authority_rec_descriptor' AND enabled;
16509 --        IF NOT FOUND THEN
16510 --            PERFORM authority.reingest_authority_rec_descriptor(NEW.id);
16511 --        END IF;
16512     END IF;
16513
16514     RETURN NEW;
16515 END;
16516 $func$ LANGUAGE PLPGSQL;
16517
16518 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 ();
16519
16520 -- Some records manage to get XML namespace declarations into each element,
16521 -- like <datafield xmlns:marc="http://www.loc.gov/MARC21/slim"
16522 -- This broke the old maintain_901(), so we'll make the regex more robust
16523
16524 CREATE OR REPLACE FUNCTION maintain_901 () RETURNS TRIGGER AS $func$
16525 BEGIN
16526     -- Remove any existing 901 fields before we insert the authoritative one
16527     NEW.marc := REGEXP_REPLACE(NEW.marc, E'<datafield\s*[^<>]*?\s*tag="901".+?</datafield>', '', 'g');
16528     IF TG_TABLE_SCHEMA = 'biblio' THEN
16529         NEW.marc := REGEXP_REPLACE(
16530             NEW.marc,
16531             E'(</(?:[^:]*?:)?record>)',
16532             E'<datafield tag="901" ind1=" " ind2=" ">' ||
16533                 '<subfield code="a">' || NEW.tcn_value || E'</subfield>' ||
16534                 '<subfield code="b">' || NEW.tcn_source || E'</subfield>' ||
16535                 '<subfield code="c">' || NEW.id || E'</subfield>' ||
16536                 '<subfield code="t">' || TG_TABLE_SCHEMA || E'</subfield>' ||
16537                 CASE WHEN NEW.owner IS NOT NULL THEN '<subfield code="o">' || NEW.owner || E'</subfield>' ELSE '' END ||
16538                 CASE WHEN NEW.share_depth IS NOT NULL THEN '<subfield code="d">' || NEW.share_depth || E'</subfield>' ELSE '' END ||
16539              E'</datafield>\\1'
16540         );
16541     ELSIF TG_TABLE_SCHEMA = 'authority' THEN
16542         NEW.marc := REGEXP_REPLACE(
16543             NEW.marc,
16544             E'(</(?:[^:]*?:)?record>)',
16545             E'<datafield tag="901" ind1=" " ind2=" ">' ||
16546                 '<subfield code="c">' || NEW.id || E'</subfield>' ||
16547                 '<subfield code="t">' || TG_TABLE_SCHEMA || E'</subfield>' ||
16548              E'</datafield>\\1'
16549         );
16550     ELSIF TG_TABLE_SCHEMA = 'serial' THEN
16551         NEW.marc := REGEXP_REPLACE(
16552             NEW.marc,
16553             E'(</(?:[^:]*?:)?record>)',
16554             E'<datafield tag="901" ind1=" " ind2=" ">' ||
16555                 '<subfield code="c">' || NEW.id || E'</subfield>' ||
16556                 '<subfield code="t">' || TG_TABLE_SCHEMA || E'</subfield>' ||
16557                 '<subfield code="o">' || NEW.owning_lib || E'</subfield>' ||
16558                 CASE WHEN NEW.record IS NOT NULL THEN '<subfield code="r">' || NEW.record || E'</subfield>' ELSE '' END ||
16559              E'</datafield>\\1'
16560         );
16561     ELSE
16562         NEW.marc := REGEXP_REPLACE(
16563             NEW.marc,
16564             E'(</(?:[^:]*?:)?record>)',
16565             E'<datafield tag="901" ind1=" " ind2=" ">' ||
16566                 '<subfield code="c">' || NEW.id || E'</subfield>' ||
16567                 '<subfield code="t">' || TG_TABLE_SCHEMA || E'</subfield>' ||
16568              E'</datafield>\\1'
16569         );
16570     END IF;
16571
16572     RETURN NEW;
16573 END;
16574 $func$ LANGUAGE PLPGSQL;
16575
16576 CREATE TRIGGER b_maintain_901 BEFORE INSERT OR UPDATE ON biblio.record_entry FOR EACH ROW EXECUTE PROCEDURE maintain_901();
16577 CREATE TRIGGER b_maintain_901 BEFORE INSERT OR UPDATE ON authority.record_entry FOR EACH ROW EXECUTE PROCEDURE maintain_901();
16578 CREATE TRIGGER b_maintain_901 BEFORE INSERT OR UPDATE ON serial.record_entry FOR EACH ROW EXECUTE PROCEDURE maintain_901();
16579
16580 -- In booking, elbow room defines:
16581 --  a) how far in the future you must make a reservation on a given item if
16582 --      that item will have to transit somewhere to fulfill the reservation.
16583 --  b) how soon a reservation must be starting for the reserved item to
16584 --      be op-captured by the checkin interface.
16585
16586 -- We don't want to clobber any default_elbow room at any level:
16587
16588 CREATE OR REPLACE FUNCTION pg_temp.default_elbow() RETURNS INTEGER AS $$
16589 DECLARE
16590     existing    actor.org_unit_setting%ROWTYPE;
16591 BEGIN
16592     SELECT INTO existing id FROM actor.org_unit_setting WHERE name = 'circ.booking_reservation.default_elbow_room';
16593     IF NOT FOUND THEN
16594         INSERT INTO actor.org_unit_setting (org_unit, name, value) VALUES (
16595             (SELECT id FROM actor.org_unit WHERE parent_ou IS NULL),
16596             'circ.booking_reservation.default_elbow_room',
16597             '"1 day"'
16598         );
16599         RETURN 1;
16600     END IF;
16601     RETURN 0;
16602 END;
16603 $$ LANGUAGE plpgsql;
16604
16605 SELECT pg_temp.default_elbow();
16606
16607 DROP FUNCTION IF EXISTS action.usr_visible_circ_copies( INTEGER );
16608
16609 -- returns the distinct set of target copy IDs from a user's visible circulation history
16610 CREATE OR REPLACE FUNCTION action.usr_visible_circ_copies( INTEGER ) RETURNS SETOF BIGINT AS $$
16611     SELECT DISTINCT(target_copy) FROM action.usr_visible_circs($1)
16612 $$ LANGUAGE SQL;
16613
16614 ALTER TABLE action.in_house_use DROP CONSTRAINT in_house_use_item_fkey;
16615 ALTER TABLE action.transit_copy DROP CONSTRAINT transit_copy_target_copy_fkey;
16616 ALTER TABLE action.hold_transit_copy DROP CONSTRAINT ahtc_tc_fkey;
16617 ALTER TABLE action.hold_copy_map DROP CONSTRAINT hold_copy_map_target_copy_fkey;
16618
16619 ALTER TABLE asset.stat_cat_entry_copy_map DROP CONSTRAINT a_sc_oc_fkey;
16620
16621 ALTER TABLE authority.record_entry ADD COLUMN owner INT;
16622 ALTER TABLE serial.record_entry ADD COLUMN owner INT;
16623
16624 INSERT INTO config.global_flag (name, label) -- defaults to enabled=FALSE
16625     VALUES (
16626         'cat.maintain_control_numbers',
16627         oils_i18n_gettext(
16628             'cat.maintain_control_numbers',
16629             'Cat: Maintain 001/003/035 according to the MARC21 specification',
16630             'cgf',
16631             'label'
16632         )
16633     );
16634
16635 INSERT INTO config.global_flag (name, label, enabled)
16636     VALUES (
16637         'circ.holds.empty_issuance_ok',
16638         oils_i18n_gettext(
16639             'circ.holds.empty_issuance_ok',
16640             'Holds: Allow holds on empty issuances',
16641             'cgf',
16642             'label'
16643         ),
16644         TRUE
16645     );
16646
16647 INSERT INTO config.global_flag (name, label, enabled)
16648     VALUES (
16649         'circ.holds.usr_not_requestor',
16650         oils_i18n_gettext(
16651             'circ.holds.usr_not_requestor',
16652             'Holds: When testing hold matrix matchpoints, use the profile group of the receiving user instead of that of the requestor (affects staff-placed holds)',
16653             'cgf',
16654             'label'
16655         ),
16656         TRUE
16657     );
16658
16659 CREATE OR REPLACE FUNCTION maintain_control_numbers() RETURNS TRIGGER AS $func$
16660 use strict;
16661 use MARC::Record;
16662 use MARC::File::XML (BinaryEncoding => 'UTF-8');
16663 use Encode;
16664 use Unicode::Normalize;
16665
16666 my $record = MARC::Record->new_from_xml($_TD->{new}{marc});
16667 my $schema = $_TD->{table_schema};
16668 my $rec_id = $_TD->{new}{id};
16669
16670 # Short-circuit if maintaining control numbers per MARC21 spec is not enabled
16671 my $enable = spi_exec_query("SELECT enabled FROM config.global_flag WHERE name = 'cat.maintain_control_numbers'");
16672 if (!($enable->{processed}) or $enable->{rows}[0]->{enabled} eq 'f') {
16673     return;
16674 }
16675
16676 # Get the control number identifier from an OU setting based on $_TD->{new}{owner}
16677 my $ou_cni = 'EVRGRN';
16678
16679 my $owner;
16680 if ($schema eq 'serial') {
16681     $owner = $_TD->{new}{owning_lib};
16682 } else {
16683     # are.owner and bre.owner can be null, so fall back to the consortial setting
16684     $owner = $_TD->{new}{owner} || 1;
16685 }
16686
16687 my $ous_rv = spi_exec_query("SELECT value FROM actor.org_unit_ancestor_setting('cat.marc_control_number_identifier', $owner)");
16688 if ($ous_rv->{processed}) {
16689     $ou_cni = $ous_rv->{rows}[0]->{value};
16690     $ou_cni =~ s/"//g; # Stupid VIM syntax highlighting"
16691 } else {
16692     # Fall back to the shortname of the OU if there was no OU setting
16693     $ous_rv = spi_exec_query("SELECT shortname FROM actor.org_unit WHERE id = $owner");
16694     if ($ous_rv->{processed}) {
16695         $ou_cni = $ous_rv->{rows}[0]->{shortname};
16696     }
16697 }
16698
16699 my ($create, $munge) = (0, 0);
16700 my ($orig_001, $orig_003) = ('', '');
16701
16702 # Incoming MARC records may have multiple 001s or 003s, despite the spec
16703 my @control_ids = $record->field('003');
16704 my @scns = $record->field('035');
16705
16706 foreach my $id_field ('001', '003') {
16707     my $spec_value;
16708     my @controls = $record->field($id_field);
16709
16710     if ($id_field eq '001') {
16711         $spec_value = $rec_id;
16712     } else {
16713         $spec_value = $ou_cni;
16714     }
16715
16716     # Create the 001/003 if none exist
16717     if (scalar(@controls) == 0) {
16718         $record->insert_fields_ordered(MARC::Field->new($id_field, $spec_value));
16719         $create = 1;
16720     } elsif (scalar(@controls) > 1) {
16721         # Do we already have the right 001/003 value in the existing set?
16722         unless (grep $_->data() eq $spec_value, @controls) {
16723             $munge = 1;
16724         }
16725
16726         # Delete the other fields, as with more than 1 001/003 we do not know which 003/001 to match
16727         foreach my $control (@controls) {
16728             unless ($control->data() eq $spec_value) {
16729                 $record->delete_field($control);
16730             }
16731         }
16732     } else {
16733         # Only one field; check to see if we need to munge it
16734         unless (grep $_->data() eq $spec_value, @controls) {
16735             $munge = 1;
16736         }
16737     }
16738 }
16739
16740 # Now, if we need to munge the 001, we will first push the existing 001/003 into the 035
16741 if ($munge) {
16742     my $scn = "(" . $record->field('003')->data() . ")" . $record->field('001')->data();
16743
16744     # Do not create duplicate 035 fields
16745     unless (grep $_->subfield('a') eq $scn, @scns) {
16746         $record->insert_fields_ordered(MARC::Field->new('035', '', '', 'a' => $scn));
16747     }
16748 }
16749
16750 # Set the 001/003 and update the MARC
16751 if ($create or $munge) {
16752     $record->field('001')->data($rec_id);
16753     $record->field('003')->data($ou_cni);
16754
16755     my $xml = $record->as_xml_record();
16756     $xml =~ s/\n//sgo;
16757     $xml =~ s/^<\?xml.+\?\s*>//go;
16758     $xml =~ s/>\s+</></go;
16759     $xml =~ s/\p{Cc}//go;
16760
16761     # Embed a version of OpenILS::Application::AppUtils->entityize()
16762     # to avoid having to set PERL5LIB for PostgreSQL as well
16763
16764     # If we are going to convert non-ASCII characters to XML entities,
16765     # we had better be dealing with a UTF8 string to begin with
16766     $xml = decode_utf8($xml);
16767
16768     $xml = NFC($xml);
16769
16770     # Convert raw ampersands to entities
16771     $xml =~ s/&(?!\S+;)/&amp;/gso;
16772
16773     # Convert Unicode characters to entities
16774     $xml =~ s/([\x{0080}-\x{fffd}])/sprintf('&#x%X;',ord($1))/sgoe;
16775
16776     $xml =~ s/[\x00-\x1f]//go;
16777     $_TD->{new}{marc} = $xml;
16778
16779     return "MODIFY";
16780 }
16781
16782 return;
16783 $func$ LANGUAGE PLPERLU;
16784
16785 CREATE TRIGGER c_maintain_control_numbers BEFORE INSERT OR UPDATE ON authority.record_entry FOR EACH ROW EXECUTE PROCEDURE maintain_control_numbers();
16786 CREATE TRIGGER c_maintain_control_numbers BEFORE INSERT OR UPDATE ON biblio.record_entry FOR EACH ROW EXECUTE PROCEDURE maintain_control_numbers();
16787 CREATE TRIGGER c_maintain_control_numbers BEFORE INSERT OR UPDATE ON serial.record_entry FOR EACH ROW EXECUTE PROCEDURE maintain_control_numbers();
16788
16789 INSERT INTO metabib.facet_entry (source, field, value)
16790     SELECT source, field, value FROM (
16791         SELECT * FROM metabib.author_field_entry
16792             UNION ALL
16793         SELECT * FROM metabib.keyword_field_entry
16794             UNION ALL
16795         SELECT * FROM metabib.identifier_field_entry
16796             UNION ALL
16797         SELECT * FROM metabib.title_field_entry
16798             UNION ALL
16799         SELECT * FROM metabib.subject_field_entry
16800             UNION ALL
16801         SELECT * FROM metabib.series_field_entry
16802         )x
16803     WHERE x.index_vector = '';
16804
16805 DELETE FROM metabib.author_field_entry WHERE index_vector = '';
16806 DELETE FROM metabib.keyword_field_entry WHERE index_vector = '';
16807 DELETE FROM metabib.identifier_field_entry WHERE index_vector = '';
16808 DELETE FROM metabib.title_field_entry WHERE index_vector = '';
16809 DELETE FROM metabib.subject_field_entry WHERE index_vector = '';
16810 DELETE FROM metabib.series_field_entry WHERE index_vector = '';
16811
16812 CREATE INDEX metabib_facet_entry_field_idx ON metabib.facet_entry (field);
16813 CREATE INDEX metabib_facet_entry_value_idx ON metabib.facet_entry (SUBSTRING(value,1,1024));
16814 CREATE INDEX metabib_facet_entry_source_idx ON metabib.facet_entry (source);
16815
16816 -- copy OPAC visibility materialized view
16817 CREATE OR REPLACE FUNCTION asset.refresh_opac_visible_copies_mat_view () RETURNS VOID AS $$
16818
16819     TRUNCATE TABLE asset.opac_visible_copies;
16820
16821     INSERT INTO asset.opac_visible_copies (id, circ_lib, record)
16822     SELECT  cp.id, cp.circ_lib, cn.record
16823     FROM  asset.copy cp
16824         JOIN asset.call_number cn ON (cn.id = cp.call_number)
16825         JOIN actor.org_unit a ON (cp.circ_lib = a.id)
16826         JOIN asset.copy_location cl ON (cp.location = cl.id)
16827         JOIN config.copy_status cs ON (cp.status = cs.id)
16828         JOIN biblio.record_entry b ON (cn.record = b.id)
16829     WHERE NOT cp.deleted
16830         AND NOT cn.deleted
16831         AND NOT b.deleted
16832         AND cs.opac_visible
16833         AND cl.opac_visible
16834         AND cp.opac_visible
16835         AND a.opac_visible;
16836
16837 $$ LANGUAGE SQL;
16838 COMMENT ON FUNCTION asset.refresh_opac_visible_copies_mat_view() IS $$
16839 Rebuild the copy OPAC visibility cache.  Useful during migrations.
16840 $$;
16841
16842 -- and actually populate the table
16843 SELECT asset.refresh_opac_visible_copies_mat_view();
16844
16845 CREATE OR REPLACE FUNCTION asset.cache_copy_visibility () RETURNS TRIGGER as $func$
16846 DECLARE
16847     add_query       TEXT;
16848     remove_query    TEXT;
16849     do_add          BOOLEAN := false;
16850     do_remove       BOOLEAN := false;
16851 BEGIN
16852     add_query := $$
16853             INSERT INTO asset.opac_visible_copies (id, circ_lib, record)
16854                 SELECT  cp.id, cp.circ_lib, cn.record
16855                   FROM  asset.copy cp
16856                         JOIN asset.call_number cn ON (cn.id = cp.call_number)
16857                         JOIN actor.org_unit a ON (cp.circ_lib = a.id)
16858                         JOIN asset.copy_location cl ON (cp.location = cl.id)
16859                         JOIN config.copy_status cs ON (cp.status = cs.id)
16860                         JOIN biblio.record_entry b ON (cn.record = b.id)
16861                   WHERE NOT cp.deleted
16862                         AND NOT cn.deleted
16863                         AND NOT b.deleted
16864                         AND cs.opac_visible
16865                         AND cl.opac_visible
16866                         AND cp.opac_visible
16867                         AND a.opac_visible
16868     $$;
16869
16870     remove_query := $$ DELETE FROM asset.opac_visible_copies WHERE id IN ( SELECT id FROM asset.copy WHERE $$;
16871
16872     IF TG_OP = 'INSERT' THEN
16873
16874         IF TG_TABLE_NAME IN ('copy', 'unit') THEN
16875             add_query := add_query || 'AND cp.id = ' || NEW.id || ';';
16876             EXECUTE add_query;
16877         END IF;
16878
16879         RETURN NEW;
16880
16881     END IF;
16882
16883     -- handle items first, since with circulation activity
16884     -- their statuses change frequently
16885     IF TG_TABLE_NAME IN ('copy', 'unit') THEN
16886
16887         IF OLD.location    <> NEW.location OR
16888            OLD.call_number <> NEW.call_number OR
16889            OLD.status      <> NEW.status OR
16890            OLD.circ_lib    <> NEW.circ_lib THEN
16891             -- any of these could change visibility, but
16892             -- we'll save some queries and not try to calculate
16893             -- the change directly
16894             do_remove := true;
16895             do_add := true;
16896         ELSE
16897
16898             IF OLD.deleted <> NEW.deleted THEN
16899                 IF NEW.deleted THEN
16900                     do_remove := true;
16901                 ELSE
16902                     do_add := true;
16903                 END IF;
16904             END IF;
16905
16906             IF OLD.opac_visible <> NEW.opac_visible THEN
16907                 IF OLD.opac_visible THEN
16908                     do_remove := true;
16909                 ELSIF NOT do_remove THEN -- handle edge case where deleted item
16910                                         -- is also marked opac_visible
16911                     do_add := true;
16912                 END IF;
16913             END IF;
16914
16915         END IF;
16916
16917         IF do_remove THEN
16918             DELETE FROM asset.opac_visible_copies WHERE id = NEW.id;
16919         END IF;
16920         IF do_add THEN
16921             add_query := add_query || 'AND cp.id = ' || NEW.id || ';';
16922             EXECUTE add_query;
16923         END IF;
16924
16925         RETURN NEW;
16926
16927     END IF;
16928
16929     IF TG_TABLE_NAME IN ('call_number', 'record_entry') THEN -- these have a 'deleted' column
16930
16931         IF OLD.deleted AND NEW.deleted THEN -- do nothing
16932
16933             RETURN NEW;
16934
16935         ELSIF NEW.deleted THEN -- remove rows
16936
16937             IF TG_TABLE_NAME = 'call_number' THEN
16938                 DELETE FROM asset.opac_visible_copies WHERE id IN (SELECT id FROM asset.copy WHERE call_number = NEW.id);
16939             ELSIF TG_TABLE_NAME = 'record_entry' THEN
16940                 DELETE FROM asset.opac_visible_copies WHERE record = NEW.id;
16941             END IF;
16942
16943             RETURN NEW;
16944
16945         ELSIF OLD.deleted THEN -- add rows
16946
16947             IF TG_TABLE_NAME IN ('copy','unit') THEN
16948                 add_query := add_query || 'AND cp.id = ' || NEW.id || ';';
16949             ELSIF TG_TABLE_NAME = 'call_number' THEN
16950                 add_query := add_query || 'AND cp.call_number = ' || NEW.id || ';';
16951             ELSIF TG_TABLE_NAME = 'record_entry' THEN
16952                 add_query := add_query || 'AND cn.record = ' || NEW.id || ';';
16953             END IF;
16954
16955             EXECUTE add_query;
16956             RETURN NEW;
16957
16958         END IF;
16959
16960     END IF;
16961
16962     IF TG_TABLE_NAME = 'call_number' THEN
16963
16964         IF OLD.record <> NEW.record THEN
16965             -- call number is linked to different bib
16966             remove_query := remove_query || 'call_number = ' || NEW.id || ');';
16967             EXECUTE remove_query;
16968             add_query := add_query || 'AND cp.call_number = ' || NEW.id || ';';
16969             EXECUTE add_query;
16970         END IF;
16971
16972         RETURN NEW;
16973
16974     END IF;
16975
16976     IF TG_TABLE_NAME IN ('record_entry') THEN
16977         RETURN NEW; -- don't have 'opac_visible'
16978     END IF;
16979
16980     -- actor.org_unit, asset.copy_location, asset.copy_status
16981     IF NEW.opac_visible = OLD.opac_visible THEN -- do nothing
16982
16983         RETURN NEW;
16984
16985     ELSIF NEW.opac_visible THEN -- add rows
16986
16987         IF TG_TABLE_NAME = 'org_unit' THEN
16988             add_query := add_query || 'AND cp.circ_lib = ' || NEW.id || ';';
16989         ELSIF TG_TABLE_NAME = 'copy_location' THEN
16990             add_query := add_query || 'AND cp.location = ' || NEW.id || ';';
16991         ELSIF TG_TABLE_NAME = 'copy_status' THEN
16992             add_query := add_query || 'AND cp.status = ' || NEW.id || ';';
16993         END IF;
16994
16995         EXECUTE add_query;
16996
16997     ELSE -- delete rows
16998
16999         IF TG_TABLE_NAME = 'org_unit' THEN
17000             remove_query := 'DELETE FROM asset.opac_visible_copies WHERE circ_lib = ' || NEW.id || ';';
17001         ELSIF TG_TABLE_NAME = 'copy_location' THEN
17002             remove_query := remove_query || 'location = ' || NEW.id || ');';
17003         ELSIF TG_TABLE_NAME = 'copy_status' THEN
17004             remove_query := remove_query || 'status = ' || NEW.id || ');';
17005         END IF;
17006
17007         EXECUTE remove_query;
17008
17009     END IF;
17010
17011     RETURN NEW;
17012 END;
17013 $func$ LANGUAGE PLPGSQL;
17014 COMMENT ON FUNCTION asset.cache_copy_visibility() IS $$
17015 Trigger function to update the copy OPAC visiblity cache.
17016 $$;
17017 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();
17018 CREATE TRIGGER a_opac_vis_mat_view_tgr AFTER INSERT OR UPDATE ON asset.copy FOR EACH ROW EXECUTE PROCEDURE asset.cache_copy_visibility();
17019 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();
17020 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();
17021 CREATE TRIGGER a_opac_vis_mat_view_tgr AFTER INSERT OR UPDATE ON serial.unit FOR EACH ROW EXECUTE PROCEDURE asset.cache_copy_visibility();
17022 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();
17023 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();
17024
17025 -- must create this rule explicitly; it is not inherited from asset.copy
17026 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;
17027
17028 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);
17029
17030 CREATE OR REPLACE FUNCTION authority.merge_records ( target_record BIGINT, source_record BIGINT ) RETURNS INT AS $func$
17031 DECLARE
17032     moved_objects INT := 0;
17033     bib_id        INT := 0;
17034     bib_rec       biblio.record_entry%ROWTYPE;
17035     auth_link     authority.bib_linking%ROWTYPE;
17036 BEGIN
17037
17038     -- 1. Make source_record MARC a copy of the target_record to get auto-sync in linked bib records
17039     UPDATE authority.record_entry
17040       SET marc = (
17041         SELECT marc
17042           FROM authority.record_entry
17043           WHERE id = target_record
17044       )
17045       WHERE id = source_record;
17046
17047     -- 2. Update all bib records with the ID from target_record in their $0
17048     FOR bib_rec IN SELECT bre.* FROM biblio.record_entry bre
17049       INNER JOIN authority.bib_linking abl ON abl.bib = bre.id
17050       WHERE abl.authority = target_record LOOP
17051
17052         UPDATE biblio.record_entry
17053           SET marc = REGEXP_REPLACE(marc,
17054             E'(<subfield\\s+code="0"\\s*>[^<]*?\\))' || source_record || '<',
17055             E'\\1' || target_record || '<', 'g')
17056           WHERE id = bib_rec.id;
17057
17058           moved_objects := moved_objects + 1;
17059     END LOOP;
17060
17061     -- 3. "Delete" source_record
17062     DELETE FROM authority.record_entry
17063       WHERE id = source_record;
17064
17065     RETURN moved_objects;
17066 END;
17067 $func$ LANGUAGE plpgsql;
17068
17069 -- serial.record_entry already had an owner column spelled "owning_lib"
17070 -- Adjust the table and affected functions accordingly
17071
17072 ALTER TABLE serial.record_entry DROP COLUMN owner;
17073
17074 CREATE TABLE actor.usr_saved_search (
17075     id              SERIAL          PRIMARY KEY,
17076         owner           INT             NOT NULL REFERENCES actor.usr (id)
17077                                         ON DELETE CASCADE
17078                                         DEFERRABLE INITIALLY DEFERRED,
17079         name            TEXT            NOT NULL,
17080         create_date     TIMESTAMPTZ     NOT NULL DEFAULT now(),
17081         query_text      TEXT            NOT NULL,
17082         query_type      TEXT            NOT NULL
17083                                         CONSTRAINT valid_query_text CHECK (
17084                                         query_type IN ( 'URL' )) DEFAULT 'URL',
17085                                         -- we may add other types someday
17086         target          TEXT            NOT NULL
17087                                         CONSTRAINT valid_target CHECK (
17088                                         target IN ( 'record', 'metarecord', 'callnumber' )),
17089         CONSTRAINT name_once_per_user UNIQUE (owner, name)
17090 );
17091
17092 -- Apply Dan Wells' changes to the serial schema, from the
17093 -- seials-integration branch
17094
17095 CREATE TABLE serial.subscription_note (
17096         id           SERIAL PRIMARY KEY,
17097         subscription INT    NOT NULL
17098                             REFERENCES serial.subscription (id)
17099                             ON DELETE CASCADE
17100                             DEFERRABLE INITIALLY DEFERRED,
17101         creator      INT    NOT NULL
17102                             REFERENCES actor.usr (id)
17103                             DEFERRABLE INITIALLY DEFERRED,
17104         create_date  TIMESTAMP WITH TIME ZONE DEFAULT NOW(),
17105         pub          BOOL   NOT NULL DEFAULT FALSE,
17106         title        TEXT   NOT NULL,
17107         value        TEXT   NOT NULL
17108 );
17109 CREATE INDEX serial_subscription_note_sub_idx ON serial.subscription_note (subscription);
17110
17111 CREATE TABLE serial.distribution_note (
17112         id           SERIAL PRIMARY KEY,
17113         distribution INT    NOT NULL
17114                             REFERENCES serial.distribution (id)
17115                             ON DELETE CASCADE
17116                             DEFERRABLE INITIALLY DEFERRED,
17117         creator      INT    NOT NULL
17118                             REFERENCES actor.usr (id)
17119                             DEFERRABLE INITIALLY DEFERRED,
17120         create_date  TIMESTAMP WITH TIME ZONE DEFAULT NOW(),
17121         pub          BOOL   NOT NULL DEFAULT FALSE,
17122         title        TEXT   NOT NULL,
17123         value        TEXT   NOT NULL
17124 );
17125 CREATE INDEX serial_distribution_note_dist_idx ON serial.distribution_note (distribution);
17126
17127 ------- Begin surgery on serial.unit
17128
17129 ALTER TABLE serial.unit
17130         DROP COLUMN label;
17131
17132 ALTER TABLE serial.unit
17133         RENAME COLUMN label_sort_key TO sort_key;
17134
17135 ALTER TABLE serial.unit
17136         RENAME COLUMN contents TO detailed_contents;
17137
17138 ALTER TABLE serial.unit
17139         ADD COLUMN summary_contents TEXT;
17140
17141 UPDATE serial.unit
17142 SET summary_contents = detailed_contents;
17143
17144 ALTER TABLE serial.unit
17145         ALTER column summary_contents SET NOT NULL;
17146
17147 ------- End surgery on serial.unit
17148
17149 -- 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' );
17150
17151 -- Now rebuild the constraints dropped via cascade.
17152 -- ALTER TABLE acq.provider    ADD CONSTRAINT provider_edi_default_fkey FOREIGN KEY (edi_default) REFERENCES acq.edi_account (id) DEFERRABLE INITIALLY DEFERRED;
17153 DROP INDEX IF EXISTS money.money_mat_summary_id_idx;
17154 ALTER TABLE money.materialized_billable_xact_summary ADD PRIMARY KEY (id);
17155
17156 -- ALTER TABLE staging.billing_address_stage ADD PRIMARY KEY (row_id);
17157
17158 DELETE FROM config.metabib_field_index_norm_map
17159     WHERE norm IN (
17160         SELECT id
17161             FROM config.index_normalizer
17162             WHERE func IN ('first_word', 'naco_normalize', 'split_date_range')
17163     )
17164     AND field = 18
17165 ;
17166
17167 -- We won't necessarily use all of these, but they are here for completeness.
17168 -- Source is the EDI spec 6063 codelist, eg: http://www.stylusstudio.com/edifact/D04B/6063.htm
17169 -- Values are the EDI code value + 1200
17170
17171 INSERT INTO acq.cancel_reason (org_unit, keep_debits, id, label, description) VALUES
17172 (1, 't', 1201, 'Discrete quantity', 'Individually separated and distinct quantity.'),
17173 (1, 't', 1202, 'Charge', 'Quantity relevant for charge.'),
17174 (1, 't', 1203, 'Cumulative quantity', 'Quantity accumulated.'),
17175 (1, 't', 1204, 'Interest for overdrawn account', 'Interest for overdrawing the account.'),
17176 (1, 't', 1205, 'Active ingredient dose per unit', 'The dosage of active ingredient per unit.'),
17177 (1, 't', 1206, 'Auditor', 'The number of entities that audit accounts.'),
17178 (1, 't', 1207, 'Branch locations, leased', 'The number of branch locations being leased by an entity.'),
17179 (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.'),
17180 (1, 't', 1209, 'Branch locations, owned', 'The number of branch locations owned by an entity.'),
17181 (1, 't', 1210, 'Judgements registered', 'The number of judgements registered against an entity.'),
17182 (1, 't', 1211, 'Split quantity', 'Part of the whole quantity.'),
17183 (1, 't', 1212, 'Despatch quantity', 'Quantity despatched by the seller.'),
17184 (1, 't', 1213, 'Liens registered', 'The number of liens registered against an entity.'),
17185 (1, 't', 1214, 'Livestock', 'The number of animals kept for use or profit.'),
17186 (1, 't', 1215, 'Insufficient funds returned cheques', 'The number of cheques returned due to insufficient funds.'),
17187 (1, 't', 1216, 'Stolen cheques', 'The number of stolen cheques.'),
17188 (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.'),
17189 (1, 't', 1218, 'Previous quantity', 'Quantity previously referenced.'),
17190 (1, 't', 1219, 'Paid-in security shares', 'The number of security shares issued and for which full payment has been made.'),
17191 (1, 't', 1220, 'Unusable quantity', 'Quantity not usable.'),
17192 (1, 't', 1221, 'Ordered quantity', '[6024] The quantity which has been ordered.'),
17193 (1, 't', 1222, 'Quantity at 100%', 'Equivalent quantity at 100% purity.'),
17194 (1, 't', 1223, 'Active ingredient', 'Quantity at 100% active agent content.'),
17195 (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.'),
17196 (1, 't', 1225, 'Retail sales', 'Quantity of retail point of sale activity.'),
17197 (1, 't', 1226, 'Promotion quantity', 'A quantity associated with a promotional event.'),
17198 (1, 't', 1227, 'On hold for shipment', 'Article received which cannot be shipped in its present form.'),
17199 (1, 't', 1228, 'Military sales quantity', 'Quantity of goods or services sold to a military organization.'),
17200 (1, 't', 1229, 'On premises sales',  'Sale of product in restaurants or bars.'),
17201 (1, 't', 1230, 'Off premises sales', 'Sale of product directly to a store.'),
17202 (1, 't', 1231, 'Estimated annual volume', 'Volume estimated for a year.'),
17203 (1, 't', 1232, 'Minimum delivery batch', 'Minimum quantity of goods delivered at one time.'),
17204 (1, 't', 1233, 'Maximum delivery batch', 'Maximum quantity of goods delivered at one time.'),
17205 (1, 't', 1234, 'Pipes', 'The number of tubes used to convey a substance.'),
17206 (1, 't', 1235, 'Price break from', 'The minimum quantity of a quantity range for a specified (unit) price.'),
17207 (1, 't', 1236, 'Price break to', 'Maximum quantity to which the price break applies.'),
17208 (1, 't', 1237, 'Poultry', 'The number of domestic fowl.'),
17209 (1, 't', 1238, 'Secured charges registered', 'The number of secured charges registered against an entity.'),
17210 (1, 't', 1239, 'Total properties owned', 'The total number of properties owned by an entity.'),
17211 (1, 't', 1240, 'Normal delivery', 'Quantity normally delivered by the seller.'),
17212 (1, 't', 1241, 'Sales quantity not included in the replenishment', 'calculation Sales which will not be included in the calculation of replenishment requirements.'),
17213 (1, 't', 1242, 'Maximum supply quantity, supplier endorsed', 'Maximum supply quantity endorsed by a supplier.'),
17214 (1, 't', 1243, 'Buyer', 'The number of buyers.'),
17215 (1, 't', 1244, 'Debenture bond', 'The number of fixed-interest bonds of an entity backed by general credit rather than specified assets.'),
17216 (1, 't', 1245, 'Debentures filed against directors', 'The number of notices of indebtedness filed against an entity''s directors.'),
17217 (1, 't', 1246, 'Pieces delivered', 'Number of pieces actually received at the final destination.'),
17218 (1, 't', 1247, 'Invoiced quantity', 'The quantity as per invoice.'),
17219 (1, 't', 1248, 'Received quantity', 'The quantity which has been received.'),
17220 (1, 't', 1249, 'Chargeable distance', '[6110] The distance between two points for which a specific tariff applies.'),
17221 (1, 't', 1250, 'Disposition undetermined quantity', 'Product quantity that has not yet had its disposition determined.'),
17222 (1, 't', 1251, 'Inventory category transfer', 'Inventory that has been moved from one inventory category to another.'),
17223 (1, 't', 1252, 'Quantity per pack', 'Quantity for each pack.'),
17224 (1, 't', 1253, 'Minimum order quantity', 'Minimum quantity of goods for an order.'),
17225 (1, 't', 1254, 'Maximum order quantity', 'Maximum quantity of goods for an order.'),
17226 (1, 't', 1255, 'Total sales', 'The summation of total quantity sales.'),
17227 (1, 't', 1256, 'Wholesaler to wholesaler sales', 'Sale of product to other wholesalers by a wholesaler.'),
17228 (1, 't', 1257, 'In transit quantity', 'A quantity that is en route.'),
17229 (1, 't', 1258, 'Quantity withdrawn', 'Quantity withdrawn from a location.'),
17230 (1, 't', 1259, 'Numbers of consumer units in the traded unit', 'Number of units for consumer sales in a unit for trading.'),
17231 (1, 't', 1260, 'Current inventory quantity available for shipment', 'Current inventory quantity available for shipment.'),
17232 (1, 't', 1261, 'Return quantity', 'Quantity of goods returned.'),
17233 (1, 't', 1262, 'Sorted quantity', 'The quantity that is sorted.'),
17234 (1, 'f', 1263, 'Sorted quantity rejected', 'The sorted quantity that is rejected.'),
17235 (1, 't', 1264, 'Scrap quantity', 'Remainder of the total quantity after split deliveries.'),
17236 (1, 'f', 1265, 'Destroyed quantity', 'Quantity of goods destroyed.'),
17237 (1, 't', 1266, 'Committed quantity', 'Quantity a party is committed to.'),
17238 (1, 't', 1267, 'Estimated reading quantity', 'The value that is estimated to be the reading of a measuring device (e.g. meter).'),
17239 (1, 't', 1268, 'End quantity', 'The quantity recorded at the end of an agreement or period.'),
17240 (1, 't', 1269, 'Start quantity', 'The quantity recorded at the start of an agreement or period.'),
17241 (1, 't', 1270, 'Cumulative quantity received', 'Cumulative quantity of all deliveries of this article received by the buyer.'),
17242 (1, 't', 1271, 'Cumulative quantity ordered', 'Cumulative quantity of all deliveries, outstanding and scheduled orders.'),
17243 (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.'),
17244 (1, 't', 1273, 'Outstanding quantity', 'Difference between quantity ordered and quantity received.'),
17245 (1, 't', 1274, 'Latest cumulative quantity', 'Cumulative quantity after complete delivery of all scheduled quantities of the product.'),
17246 (1, 't', 1275, 'Previous highest cumulative quantity', 'Cumulative quantity after complete delivery of all scheduled quantities of the product from a prior schedule period.'),
17247 (1, 't', 1276, 'Adjusted corrector reading', 'A corrector reading after it has been adjusted.'),
17248 (1, 't', 1277, 'Work days', 'Number of work days, e.g. per respective period.'),
17249 (1, 't', 1278, 'Cumulative quantity scheduled', 'Adding the quantity actually scheduled to previous cumulative quantity.'),
17250 (1, 't', 1279, 'Previous cumulative quantity', 'Cumulative quantity prior the actual order.'),
17251 (1, 't', 1280, 'Unadjusted corrector reading', 'A corrector reading before it has been adjusted.'),
17252 (1, 't', 1281, 'Extra unplanned delivery', 'Non scheduled additional quantity.'),
17253 (1, 't', 1282, 'Quantity requirement for sample inspection', 'Required quantity for sample inspection.'),
17254 (1, 't', 1283, 'Backorder quantity', 'The quantity of goods that is on back-order.'),
17255 (1, 't', 1284, 'Urgent delivery quantity', 'Quantity for urgent delivery.'),
17256 (1, 'f', 1285, 'Previous order quantity to be cancelled', 'Quantity ordered previously to be cancelled.'),
17257 (1, 't', 1286, 'Normal reading quantity', 'The value recorded or read from a measuring device (e.g. meter) in the normal conditions.'),
17258 (1, 't', 1287, 'Customer reading quantity', 'The value recorded or read from a measuring device (e.g. meter) by the customer.'),
17259 (1, 't', 1288, 'Information reading quantity', 'The value recorded or read from a measuring device (e.g. meter) for information purposes.'),
17260 (1, 't', 1289, 'Quality control held', 'Quantity of goods held pending completion of a quality control assessment.'),
17261 (1, 't', 1290, 'As is quantity', 'Quantity as it is in the existing circumstances.'),
17262 (1, 't', 1291, 'Open quantity', 'Quantity remaining after partial delivery.'),
17263 (1, 't', 1292, 'Final delivery quantity', 'Quantity of final delivery to a respective order.'),
17264 (1, 't', 1293, 'Subsequent delivery quantity', 'Quantity delivered to a respective order after it''s final delivery.'),
17265 (1, 't', 1294, 'Substitutional quantity', 'Quantity delivered replacing previous deliveries.'),
17266 (1, 't', 1295, 'Redelivery after post processing', 'Quantity redelivered after post processing.'),
17267 (1, 'f', 1296, 'Quality control failed', 'Quantity of goods which have failed quality control.'),
17268 (1, 't', 1297, 'Minimum inventory', 'Minimum stock quantity on which replenishment is based.'),
17269 (1, 't', 1298, 'Maximum inventory', 'Maximum stock quantity on which replenishment is based.'),
17270 (1, 't', 1299, 'Estimated quantity', 'Quantity estimated.'),
17271 (1, 't', 1300, 'Chargeable weight', 'The weight on which charges are based.'),
17272 (1, 't', 1301, 'Chargeable gross weight', 'The gross weight on which charges are based.'),
17273 (1, 't', 1302, 'Chargeable tare weight', 'The tare weight on which charges are based.'),
17274 (1, 't', 1303, 'Chargeable number of axles', 'The number of axles on which charges are based.'),
17275 (1, 't', 1304, 'Chargeable number of containers', 'The number of containers on which charges are based.'),
17276 (1, 't', 1305, 'Chargeable number of rail wagons', 'The number of rail wagons on which charges are based.'),
17277 (1, 't', 1306, 'Chargeable number of packages', 'The number of packages on which charges are based.'),
17278 (1, 't', 1307, 'Chargeable number of units', 'The number of units on which charges are based.'),
17279 (1, 't', 1308, 'Chargeable period', 'The period of time on which charges are based.'),
17280 (1, 't', 1309, 'Chargeable volume', 'The volume on which charges are based.'),
17281 (1, 't', 1310, 'Chargeable cubic measurements', 'The cubic measurements on which charges are based.'),
17282 (1, 't', 1311, 'Chargeable surface', 'The surface area on which charges are based.'),
17283 (1, 't', 1312, 'Chargeable length', 'The length on which charges are based.'),
17284 (1, 't', 1313, 'Quantity to be delivered', 'The quantity to be delivered.'),
17285 (1, 't', 1314, 'Number of passengers', 'Total number of passengers on the conveyance.'),
17286 (1, 't', 1315, 'Number of crew', 'Total number of crew members on the conveyance.'),
17287 (1, 't', 1316, 'Number of transport documents', 'Total number of air waybills, bills of lading, etc. being reported for a specific conveyance.'),
17288 (1, 't', 1317, 'Quantity landed', 'Quantity of goods actually arrived.'),
17289 (1, 't', 1318, 'Quantity manifested', 'Quantity of goods contracted for delivery by the carrier.'),
17290 (1, 't', 1319, 'Short shipped', 'Indication that part of the consignment was not shipped.'),
17291 (1, 't', 1320, 'Split shipment', 'Indication that the consignment has been split into two or more shipments.'),
17292 (1, 't', 1321, 'Over shipped', 'The quantity of goods shipped that exceeds the quantity contracted.'),
17293 (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.'),
17294 (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.'),
17295 (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.'),
17296 (1, 'f', 1325, 'Pilferage goods', 'Quantity of goods stolen during transport.'),
17297 (1, 'f', 1326, 'Lost goods', 'Quantity of goods that disappeared in transport.'),
17298 (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.'),
17299 (1, 't', 1328, 'Quantity loaded', 'Quantity of goods loaded onto a means of transport.'),
17300 (1, 't', 1329, 'Units per unit price', 'Number of units per unit price.'),
17301 (1, 't', 1330, 'Allowance', 'Quantity relevant for allowance.'),
17302 (1, 't', 1331, 'Delivery quantity', 'Quantity required by buyer to be delivered.'),
17303 (1, 't', 1332, 'Cumulative quantity, preceding period, planned', 'Cumulative quantity originally planned for the preceding period.'),
17304 (1, 't', 1333, 'Cumulative quantity, preceding period, reached', 'Cumulative quantity reached in the preceding period.'),
17305 (1, 't', 1334, 'Cumulative quantity, actual planned',            'Cumulative quantity planned for now.'),
17306 (1, 't', 1335, 'Period quantity, planned', 'Quantity planned for this period.'),
17307 (1, 't', 1336, 'Period quantity, reached', 'Quantity reached during this period.'),
17308 (1, 't', 1337, 'Cumulative quantity, preceding period, estimated', 'Estimated cumulative quantity reached in the preceding period.'),
17309 (1, 't', 1338, 'Cumulative quantity, actual estimated',            'Estimated cumulative quantity reached now.'),
17310 (1, 't', 1339, 'Cumulative quantity, preceding period, measured', 'Surveyed cumulative quantity reached in the preceding period.'),
17311 (1, 't', 1340, 'Cumulative quantity, actual measured', 'Surveyed cumulative quantity reached now.'),
17312 (1, 't', 1341, 'Period quantity, measured',            'Surveyed quantity reached during this period.'),
17313 (1, 't', 1342, 'Total quantity, planned', 'Total quantity planned.'),
17314 (1, 't', 1343, 'Quantity, remaining', 'Quantity remaining.'),
17315 (1, 't', 1344, 'Tolerance', 'Plus or minus tolerance expressed as a monetary amount.'),
17316 (1, 't', 1345, 'Actual stock',          'The stock on hand, undamaged, and available for despatch, sale or use.'),
17317 (1, 't', 1346, 'Model or target stock', 'The stock quantity required or planned to have on hand, undamaged and available for use.'),
17318 (1, 't', 1347, 'Direct shipment quantity', 'Quantity to be shipped directly to a customer from a manufacturing site.'),
17319 (1, 't', 1348, 'Amortization total quantity',     'Indication of final quantity for amortization.'),
17320 (1, 't', 1349, 'Amortization order quantity',     'Indication of actual share of the order quantity for amortization.'),
17321 (1, 't', 1350, 'Amortization cumulated quantity', 'Indication of actual cumulated quantity of previous and actual amortization order quantity.'),
17322 (1, 't', 1351, 'Quantity advised',  'Quantity advised by supplier or shipper, in contrast to quantity actually received.'),
17323 (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.'),
17324 (1, 't', 1353, 'Statistical sales quantity', 'Quantity of goods sold in a specified period.'),
17325 (1, 't', 1354, 'Sales quantity planned',     'Quantity of goods required to meet future demands. - Market intelligence quantity.'),
17326 (1, 't', 1355, 'Replenishment quantity',     'Quantity required to maintain the requisite on-hand stock of goods.'),
17327 (1, 't', 1356, 'Inventory movement quantity', 'To specify the quantity of an inventory movement.'),
17328 (1, 't', 1357, 'Opening stock balance quantity', 'To specify the quantity of an opening stock balance.'),
17329 (1, 't', 1358, 'Closing stock balance quantity', 'To specify the quantity of a closing stock balance.'),
17330 (1, 't', 1359, 'Number of stops', 'Number of times a means of transport stops before arriving at destination.'),
17331 (1, 't', 1360, 'Minimum production batch', 'The quantity specified is the minimum output from a single production run.'),
17332 (1, 't', 1361, 'Dimensional sample quantity', 'The quantity defined is a sample for the purpose of validating dimensions.'),
17333 (1, 't', 1362, 'Functional sample quantity', 'The quantity defined is a sample for the purpose of validating function and performance.'),
17334 (1, 't', 1363, 'Pre-production quantity', 'Quantity of the referenced item required prior to full production.'),
17335 (1, 't', 1364, 'Delivery batch', 'Quantity of the referenced item which constitutes a standard batch for deliver purposes.'),
17336 (1, 't', 1365, 'Delivery batch multiple', 'The multiples in which delivery batches can be supplied.'),
17337 (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.'),
17338 (1, 't', 1367, 'Total delivery quantity',  'The total quantity required by the buyer to be delivered.'),
17339 (1, 't', 1368, 'Single delivery quantity', 'The quantity required by the buyer to be delivered in a single shipment.'),
17340 (1, 't', 1369, 'Supplied quantity',  'Quantity of the referenced item actually shipped.'),
17341 (1, 't', 1370, 'Allocated quantity', 'Quantity of the referenced item allocated from available stock for delivery.'),
17342 (1, 't', 1371, 'Maximum stackability', 'The number of pallets/handling units which can be safely stacked one on top of another.'),
17343 (1, 't', 1372, 'Amortisation quantity', 'The quantity of the referenced item which has a cost for tooling amortisation included in the item price.'),
17344 (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.'),
17345 (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.'),
17346 (1, 't', 1375, 'Number of moulds', 'The number of pressing moulds contained within a single piece of the referenced tooling.'),
17347 (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.'),
17348 (1, 't', 1377, 'Periodic capacity of tooling', 'Maximum production output of the referenced tool over a period of time.'),
17349 (1, 't', 1378, 'Lifetime capacity of tooling', 'Maximum production output of the referenced tool over its productive lifetime.'),
17350 (1, 't', 1379, 'Number of deliveries per despatch period', 'The number of deliveries normally expected to be despatched within each despatch period.'),
17351 (1, 't', 1380, 'Provided quantity', 'The quantity of a referenced component supplied by the buyer for manufacturing of an ordered item.'),
17352 (1, 't', 1381, 'Maximum production batch', 'The quantity specified is the maximum output from a single production run.'),
17353 (1, 'f', 1382, 'Cancelled quantity', 'Quantity of the referenced item which has previously been ordered and is now cancelled.'),
17354 (1, 't', 1383, 'No delivery requirement in this instruction', 'This delivery instruction does not contain any delivery requirements.'),
17355 (1, 't', 1384, 'Quantity of material in ordered time', 'Quantity of the referenced material within the ordered time.'),
17356 (1, 'f', 1385, 'Rejected quantity', 'The quantity of received goods rejected for quantity reasons.'),
17357 (1, 't', 1386, 'Cumulative quantity scheduled up to accumulation start date', 'The cumulative quantity scheduled up to the accumulation start date.'),
17358 (1, 't', 1387, 'Quantity scheduled', 'The quantity scheduled for delivery.'),
17359 (1, 't', 1388, 'Number of identical handling units', 'Number of identical handling units in terms of type and contents.'),
17360 (1, 't', 1389, 'Number of packages in handling unit', 'The number of packages contained in one handling unit.'),
17361 (1, 't', 1390, 'Despatch note quantity', 'The item quantity specified on the despatch note.'),
17362 (1, 't', 1391, 'Adjustment to inventory quantity', 'An adjustment to inventory quantity.'),
17363 (1, 't', 1392, 'Free goods quantity',    'Quantity of goods which are free of charge.'),
17364 (1, 't', 1393, 'Free quantity included', 'Quantity included to which no charge is applicable.'),
17365 (1, 't', 1394, 'Received and accepted',  'Quantity which has been received and accepted at a given location.'),
17366 (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.'),
17367 (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.'),
17368 (1, 't', 1397, 'Reordering level', 'Quantity at which an order may be triggered to replenish.'),
17369 (1, 't', 1399, 'Inventory withdrawal quantity', 'Quantity which has been withdrawn from inventory since the last inventory report.'),
17370 (1, 't', 1400, 'Free quantity not included', 'Free quantity not included in ordered quantity.'),
17371 (1, 't', 1401, 'Recommended overhaul and repair quantity', 'To indicate the recommended quantity of an article required to support overhaul and repair activities.'),
17372 (1, 't', 1402, 'Quantity per next higher assembly', 'To indicate the quantity required for the next higher assembly.'),
17373 (1, 't', 1403, 'Quantity per unit of issue', 'Provides the standard quantity of an article in which one unit can be issued.'),
17374 (1, 't', 1404, 'Cumulative scrap quantity',  'Provides the cumulative quantity of an item which has been identified as scrapped.'),
17375 (1, 't', 1405, 'Publication turn size', 'The quantity of magazines or newspapers grouped together with the spine facing alternate directions in a bundle.'),
17376 (1, 't', 1406, 'Recommended maintenance quantity', 'Recommended quantity of an article which is required to meet an agreed level of maintenance.'),
17377 (1, 't', 1407, 'Labour hours', 'Number of labour hours.'),
17378 (1, 't', 1408, 'Quantity requirement for maintenance and repair of', 'equipment Quantity of the material needed to maintain and repair equipment.'),
17379 (1, 't', 1409, 'Additional replenishment demand quantity', 'Incremental needs over and above normal replenishment calculations, but not intended to permanently change the model parameters.'),
17380 (1, 't', 1410, 'Returned by consumer quantity', 'Quantity returned by a consumer.'),
17381 (1, 't', 1411, 'Replenishment override quantity', 'Quantity to override the normal replenishment model calculations, but not intended to permanently change the model parameters.'),
17382 (1, 't', 1412, 'Quantity sold, net', 'Net quantity sold which includes returns of saleable inventory and other adjustments.'),
17383 (1, 't', 1413, 'Transferred out quantity',   'Quantity which was transferred out of this location.'),
17384 (1, 't', 1414, 'Transferred in quantity',    'Quantity which was transferred into this location.'),
17385 (1, 't', 1415, 'Unsaleable quantity',        'Quantity of inventory received which cannot be sold in its present condition.'),
17386 (1, 't', 1416, 'Consumer reserved quantity', 'Quantity reserved for consumer delivery or pickup and not yet withdrawn from inventory.'),
17387 (1, 't', 1417, 'Out of inventory quantity',  'Quantity of inventory which was requested but was not available.'),
17388 (1, 't', 1418, 'Quantity returned, defective or damaged', 'Quantity returned in a damaged or defective condition.'),
17389 (1, 't', 1419, 'Taxable quantity',           'Quantity subject to taxation.'),
17390 (1, 't', 1420, 'Meter reading', 'The numeric value of measure units counted by a meter.'),
17391 (1, 't', 1421, 'Maximum requestable quantity', 'The maximum quantity which may be requested.'),
17392 (1, 't', 1422, 'Minimum requestable quantity', 'The minimum quantity which may be requested.'),
17393 (1, 't', 1423, 'Daily average quantity', 'The quantity for a defined period divided by the number of days of the period.'),
17394 (1, 't', 1424, 'Budgeted hours',     'The number of budgeted hours.'),
17395 (1, 't', 1425, 'Actual hours',       'The number of actual hours.'),
17396 (1, 't', 1426, 'Earned value hours', 'The number of earned value hours.'),
17397 (1, 't', 1427, 'Estimated hours',    'The number of estimated hours.'),
17398 (1, 't', 1428, 'Level resource task quantity', 'Quantity of a resource that is level for the duration of the task.'),
17399 (1, 't', 1429, 'Available resource task quantity', 'Quantity of a resource available to complete a task.'),
17400 (1, 't', 1430, 'Work time units',   'Quantity of work units of time.'),
17401 (1, 't', 1431, 'Daily work shifts', 'Quantity of work shifts per day.'),
17402 (1, 't', 1432, 'Work time units per shift', 'Work units of time per work shift.'),
17403 (1, 't', 1433, 'Work calendar units',       'Work calendar units of time.'),
17404 (1, 't', 1434, 'Elapsed duration',   'Quantity representing the elapsed duration.'),
17405 (1, 't', 1435, 'Remaining duration', 'Quantity representing the remaining duration.'),
17406 (1, 't', 1436, 'Original duration',  'Quantity representing the original duration.'),
17407 (1, 't', 1437, 'Current duration',   'Quantity representing the current duration.'),
17408 (1, 't', 1438, 'Total float time',   'Quantity representing the total float time.'),
17409 (1, 't', 1439, 'Free float time',    'Quantity representing the free float time.'),
17410 (1, 't', 1440, 'Lag time',           'Quantity representing lag time.'),
17411 (1, 't', 1441, 'Lead time',          'Quantity representing lead time.'),
17412 (1, 't', 1442, 'Number of months', 'The number of months.'),
17413 (1, 't', 1443, 'Reserved quantity customer direct delivery sales', 'Quantity of products reserved for sales delivered direct to the customer.'),
17414 (1, 't', 1444, 'Reserved quantity retail sales', 'Quantity of products reserved for retail sales.'),
17415 (1, 't', 1445, 'Consolidated discount inventory', 'A quantity of inventory supplied at consolidated discount terms.'),
17416 (1, 't', 1446, 'Returns replacement quantity',    'A quantity of goods issued as a replacement for a returned quantity.'),
17417 (1, 't', 1447, 'Additional promotion sales forecast quantity', 'A forecast of additional quantity which will be sold during a period of promotional activity.'),
17418 (1, 't', 1448, 'Reserved quantity', 'Quantity reserved for specific purposes.'),
17419 (1, 't', 1449, 'Quantity displayed not available for sale', 'Quantity displayed within a retail outlet but not available for sale.'),
17420 (1, 't', 1450, 'Inventory discrepancy', 'The difference recorded between theoretical and physical inventory.'),
17421 (1, 't', 1451, 'Incremental order quantity', 'The incremental quantity by which ordering is carried out.'),
17422 (1, 't', 1452, 'Quantity requiring manipulation before despatch', 'A quantity of goods which needs manipulation before despatch.'),
17423 (1, 't', 1453, 'Quantity in quarantine',              'A quantity of goods which are held in a restricted area for quarantine purposes.'),
17424 (1, 't', 1454, 'Quantity withheld by owner of goods', 'A quantity of goods which has been withheld by the owner of the goods.'),
17425 (1, 't', 1455, 'Quantity not available for despatch', 'A quantity of goods not available for despatch.'),
17426 (1, 't', 1456, 'Quantity awaiting delivery', 'Quantity of goods which are awaiting delivery.'),
17427 (1, 't', 1457, 'Quantity in physical inventory',      'A quantity of goods held in physical inventory.'),
17428 (1, 't', 1458, 'Quantity held by logistic service provider', 'Quantity of goods under the control of a logistic service provider.'),
17429 (1, 't', 1459, 'Optimal quantity', 'The optimal quantity for a given purpose.'),
17430 (1, 't', 1460, 'Delivery quantity balance', 'The difference between the scheduled quantity and the quantity delivered to the consignee at a given date.'),
17431 (1, 't', 1461, 'Cumulative quantity shipped', 'Cumulative quantity of all shipments.'),
17432 (1, 't', 1462, 'Quantity suspended', 'The quantity of something which is suspended.'),
17433 (1, 't', 1463, 'Control quantity', 'The quantity designated for control purposes.'),
17434 (1, 't', 1464, 'Equipment quantity', 'A count of a quantity of equipment.'),
17435 (1, 't', 1465, 'Factor', 'Number by which the measured unit has to be multiplied to calculate the units used.'),
17436 (1, 't', 1466, 'Unsold quantity held by wholesaler', 'Unsold quantity held by the wholesaler.'),
17437 (1, 't', 1467, 'Quantity held by delivery vehicle', 'Quantity of goods held by the delivery vehicle.'),
17438 (1, 't', 1468, 'Quantity held by retail outlet', 'Quantity held by the retail outlet.'),
17439 (1, 'f', 1469, 'Rejected return quantity', 'A quantity for return which has been rejected.'),
17440 (1, 't', 1470, 'Accounts', 'The number of accounts.'),
17441 (1, 't', 1471, 'Accounts placed for collection', 'The number of accounts placed for collection.'),
17442 (1, 't', 1472, 'Activity codes', 'The number of activity codes.'),
17443 (1, 't', 1473, 'Agents', 'The number of agents.'),
17444 (1, 't', 1474, 'Airline attendants', 'The number of airline attendants.'),
17445 (1, 't', 1475, 'Authorised shares',  'The number of shares authorised for issue.'),
17446 (1, 't', 1476, 'Employee average',   'The average number of employees.'),
17447 (1, 't', 1477, 'Branch locations',   'The number of branch locations.'),
17448 (1, 't', 1478, 'Capital changes',    'The number of capital changes made.'),
17449 (1, 't', 1479, 'Clerks', 'The number of clerks.'),
17450 (1, 't', 1480, 'Companies in same activity', 'The number of companies doing business in the same activity category.'),
17451 (1, 't', 1481, 'Companies included in consolidated financial statement', 'The number of companies included in a consolidated financial statement.'),
17452 (1, 't', 1482, 'Cooperative shares', 'The number of cooperative shares.'),
17453 (1, 't', 1483, 'Creditors',   'The number of creditors.'),
17454 (1, 't', 1484, 'Departments', 'The number of departments.'),
17455 (1, 't', 1485, 'Design employees', 'The number of employees involved in the design process.'),
17456 (1, 't', 1486, 'Physicians', 'The number of medical doctors.'),
17457 (1, 't', 1487, 'Domestic affiliated companies', 'The number of affiliated companies located within the country.'),
17458 (1, 't', 1488, 'Drivers', 'The number of drivers.'),
17459 (1, 't', 1489, 'Employed at location',     'The number of employees at the specified location.'),
17460 (1, 't', 1490, 'Employed by this company', 'The number of employees at the specified company.'),
17461 (1, 't', 1491, 'Total employees',    'The total number of employees.'),
17462 (1, 't', 1492, 'Employees shared',   'The number of employees shared among entities.'),
17463 (1, 't', 1493, 'Engineers',          'The number of engineers.'),
17464 (1, 't', 1494, 'Estimated accounts', 'The estimated number of accounts.'),
17465 (1, 't', 1495, 'Estimated employees at location', 'The estimated number of employees at the specified location.'),
17466 (1, 't', 1496, 'Estimated total employees',       'The total estimated number of employees.'),
17467 (1, 't', 1497, 'Executives', 'The number of executives.'),
17468 (1, 't', 1498, 'Agricultural workers',   'The number of agricultural workers.'),
17469 (1, 't', 1499, 'Financial institutions', 'The number of financial institutions.'),
17470 (1, 't', 1500, 'Floors occupied', 'The number of floors occupied.'),
17471 (1, 't', 1501, 'Foreign related entities', 'The number of related entities located outside the country.'),
17472 (1, 't', 1502, 'Group employees',    'The number of employees within the group.'),
17473 (1, 't', 1503, 'Indirect employees', 'The number of employees not associated with direct production.'),
17474 (1, 't', 1504, 'Installers',    'The number of employees involved with the installation process.'),
17475 (1, 't', 1505, 'Invoices',      'The number of invoices.'),
17476 (1, 't', 1506, 'Issued shares', 'The number of shares actually issued.'),
17477 (1, 't', 1507, 'Labourers',     'The number of labourers.'),
17478 (1, 't', 1508, 'Manufactured units', 'The number of units manufactured.'),
17479 (1, 't', 1509, 'Maximum number of employees', 'The maximum number of people employed.'),
17480 (1, 't', 1510, 'Maximum number of employees at location', 'The maximum number of people employed at a location.'),
17481 (1, 't', 1511, 'Members in group', 'The number of members within a group.'),
17482 (1, 't', 1512, 'Minimum number of employees at location', 'The minimum number of people employed at a location.'),
17483 (1, 't', 1513, 'Minimum number of employees', 'The minimum number of people employed.'),
17484 (1, 't', 1514, 'Non-union employees', 'The number of employees not belonging to a labour union.'),
17485 (1, 't', 1515, 'Floors', 'The number of floors in a building.'),
17486 (1, 't', 1516, 'Nurses', 'The number of nurses.'),
17487 (1, 't', 1517, 'Office workers', 'The number of workers in an office.'),
17488 (1, 't', 1518, 'Other employees', 'The number of employees otherwise categorised.'),
17489 (1, 't', 1519, 'Part time employees', 'The number of employees working on a part time basis.'),
17490 (1, 't', 1520, 'Accounts payable average overdue days', 'The average number of days accounts payable are overdue.'),
17491 (1, 't', 1521, 'Pilots', 'The number of pilots.'),
17492 (1, 't', 1522, 'Plant workers', 'The number of workers within a plant.'),
17493 (1, 't', 1523, 'Previous number of accounts', 'The number of accounts which preceded the current count.'),
17494 (1, 't', 1524, 'Previous number of branch locations', 'The number of branch locations which preceded the current count.'),
17495 (1, 't', 1525, 'Principals included as employees', 'The number of principals which are included in the count of employees.'),
17496 (1, 't', 1526, 'Protested bills', 'The number of bills which are protested.'),
17497 (1, 't', 1527, 'Registered brands distributed', 'The number of registered brands which are being distributed.'),
17498 (1, 't', 1528, 'Registered brands manufactured', 'The number of registered brands which are being manufactured.'),
17499 (1, 't', 1529, 'Related business entities', 'The number of related business entities.'),
17500 (1, 't', 1530, 'Relatives employed', 'The number of relatives which are counted as employees.'),
17501 (1, 't', 1531, 'Rooms',        'The number of rooms.'),
17502 (1, 't', 1532, 'Salespersons', 'The number of salespersons.'),
17503 (1, 't', 1533, 'Seats',        'The number of seats.'),
17504 (1, 't', 1534, 'Shareholders', 'The number of shareholders.'),
17505 (1, 't', 1535, 'Shares of common stock', 'The number of shares of common stock.'),
17506 (1, 't', 1536, 'Shares of preferred stock', 'The number of shares of preferred stock.'),
17507 (1, 't', 1537, 'Silent partners', 'The number of silent partners.'),
17508 (1, 't', 1538, 'Subcontractors',  'The number of subcontractors.'),
17509 (1, 't', 1539, 'Subsidiaries',    'The number of subsidiaries.'),
17510 (1, 't', 1540, 'Law suits',       'The number of law suits.'),
17511 (1, 't', 1541, 'Suppliers',       'The number of suppliers.'),
17512 (1, 't', 1542, 'Teachers',        'The number of teachers.'),
17513 (1, 't', 1543, 'Technicians',     'The number of technicians.'),
17514 (1, 't', 1544, 'Trainees',        'The number of trainees.'),
17515 (1, 't', 1545, 'Union employees', 'The number of employees who are members of a labour union.'),
17516 (1, 't', 1546, 'Number of units', 'The quantity of units.'),
17517 (1, 't', 1547, 'Warehouse employees', 'The number of employees who work in a warehouse setting.'),
17518 (1, 't', 1548, 'Shareholders holding remainder of shares', 'Number of shareholders owning the remainder of shares.'),
17519 (1, 't', 1549, 'Payment orders filed', 'Number of payment orders filed.'),
17520 (1, 't', 1550, 'Uncovered cheques', 'Number of uncovered cheques.'),
17521 (1, 't', 1551, 'Auctions', 'Number of auctions.'),
17522 (1, 't', 1552, 'Units produced', 'The number of units produced.'),
17523 (1, 't', 1553, 'Added employees', 'Number of employees that were added to the workforce.'),
17524 (1, 't', 1554, 'Number of added locations', 'Number of locations that were added.'),
17525 (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.'),
17526 (1, 't', 1556, 'Number of closed locations', 'Number of locations that were closed.'),
17527 (1, 't', 1557, 'Counter clerks', 'The number of clerks that work behind a flat-topped fitment.'),
17528 (1, 't', 1558, 'Payment experiences in the last 3 months', 'The number of payment experiences received for an entity over the last 3 months.'),
17529 (1, 't', 1559, 'Payment experiences in the last 12 months', 'The number of payment experiences received for an entity over the last 12 months.'),
17530 (1, 't', 1560, 'Total number of subsidiaries not included in the financial', 'statement The total number of subsidiaries not included in the financial statement.'),
17531 (1, 't', 1561, 'Paid-in common shares', 'The number of paid-in common shares.'),
17532 (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.'),
17533 (1, 't', 1563, 'Total number of foreign subsidiaries included in financial statement', 'The total number of foreign subsidiaries included in the financial statement.'),
17534 (1, 't', 1564, 'Total number of domestic subsidiaries included in financial statement', 'The total number of domestic subsidiaries included in the financial statement.'),
17535 (1, 't', 1565, 'Total transactions', 'The total number of transactions.'),
17536 (1, 't', 1566, 'Paid-in preferred shares', 'The number of paid-in preferred shares.'),
17537 (1, 't', 1567, 'Employees', 'Code specifying the quantity of persons working for a company, whose services are used for pay.'),
17538 (1, 't', 1568, 'Active ingredient dose per unit, dispensed', 'The dosage of active ingredient per dispensed unit.'),
17539 (1, 't', 1569, 'Budget', 'Budget quantity.'),
17540 (1, 't', 1570, 'Budget, cumulative to date', 'Budget quantity, cumulative to date.'),
17541 (1, 't', 1571, 'Actual units', 'The number of actual units.'),
17542 (1, 't', 1572, 'Actual units, cumulative to date', 'The number of cumulative to date actual units.'),
17543 (1, 't', 1573, 'Earned value', 'Earned value quantity.'),
17544 (1, 't', 1574, 'Earned value, cumulative to date', 'Earned value quantity accumulated to date.'),
17545 (1, 't', 1575, 'At completion quantity, estimated', 'The estimated quantity when a project is complete.'),
17546 (1, 't', 1576, 'To complete quantity, estimated', 'The estimated quantity required to complete a project.'),
17547 (1, 't', 1577, 'Adjusted units', 'The number of adjusted units.'),
17548 (1, 't', 1578, 'Number of limited partnership shares', 'Number of shares held in a limited partnership.'),
17549 (1, 't', 1579, 'National business failure incidences', 'Number of firms in a country that discontinued with a loss to creditors.'),
17550 (1, 't', 1580, 'Industry business failure incidences', 'Number of firms in a specific industry that discontinued with a loss to creditors.'),
17551 (1, 't', 1581, 'Business class failure incidences', 'Number of firms in a specific class that discontinued with a loss to creditors.'),
17552 (1, 't', 1582, 'Mechanics', 'Number of mechanics.'),
17553 (1, 't', 1583, 'Messengers', 'Number of messengers.'),
17554 (1, 't', 1584, 'Primary managers', 'Number of primary managers.'),
17555 (1, 't', 1585, 'Secretaries', 'Number of secretaries.'),
17556 (1, 't', 1586, 'Detrimental legal filings', 'Number of detrimental legal filings.'),
17557 (1, 't', 1587, 'Branch office locations, estimated', 'Estimated number of branch office locations.'),
17558 (1, 't', 1588, 'Previous number of employees', 'The number of employees for a previous period.'),
17559 (1, 't', 1589, 'Asset seizers', 'Number of entities that seize assets of another entity.'),
17560 (1, 't', 1590, 'Out-turned quantity', 'The quantity discharged.'),
17561 (1, 't', 1591, 'Material on-board quantity, prior to loading', 'The material in vessel tanks, void spaces, and pipelines prior to loading.'),
17562 (1, 't', 1592, 'Supplier estimated previous meter reading', 'Previous meter reading estimated by the supplier.'),
17563 (1, 't', 1593, 'Supplier estimated latest meter reading',   'Latest meter reading estimated by the supplier.'),
17564 (1, 't', 1594, 'Customer estimated previous meter reading', 'Previous meter reading estimated by the customer.'),
17565 (1, 't', 1595, 'Customer estimated latest meter reading',   'Latest meter reading estimated by the customer.'),
17566 (1, 't', 1596, 'Supplier previous meter reading',           'Previous meter reading done by the supplier.'),
17567 (1, 't', 1597, 'Supplier latest meter reading',             'Latest meter reading recorded by the supplier.'),
17568 (1, 't', 1598, 'Maximum number of purchase orders allowed', 'Maximum number of purchase orders that are allowed.'),
17569 (1, 't', 1599, 'File size before compression', 'The size of a file before compression.'),
17570 (1, 't', 1600, 'File size after compression', 'The size of a file after compression.'),
17571 (1, 't', 1601, 'Securities shares', 'Number of shares of securities.'),
17572 (1, 't', 1602, 'Patients',         'Number of patients.'),
17573 (1, 't', 1603, 'Completed projects', 'Number of completed projects.'),
17574 (1, 't', 1604, 'Promoters',        'Number of entities who finance or organize an event or a production.'),
17575 (1, 't', 1605, 'Administrators',   'Number of administrators.'),
17576 (1, 't', 1606, 'Supervisors',      'Number of supervisors.'),
17577 (1, 't', 1607, 'Professionals',    'Number of professionals.'),
17578 (1, 't', 1608, 'Debt collectors',  'Number of debt collectors.'),
17579 (1, 't', 1609, 'Inspectors',       'Number of individuals who perform inspections.'),
17580 (1, 't', 1610, 'Operators',        'Number of operators.'),
17581 (1, 't', 1611, 'Trainers',         'Number of trainers.'),
17582 (1, 't', 1612, 'Active accounts',  'Number of accounts in a current or active status.'),
17583 (1, 't', 1613, 'Trademarks used',  'Number of trademarks used.'),
17584 (1, 't', 1614, 'Machines',         'Number of machines.'),
17585 (1, 't', 1615, 'Fuel pumps',       'Number of fuel pumps.'),
17586 (1, 't', 1616, 'Tables available', 'Number of tables available for use.'),
17587 (1, 't', 1617, 'Directors',        'Number of directors.'),
17588 (1, 't', 1618, 'Freelance debt collectors', 'Number of debt collectors who work on a freelance basis.'),
17589 (1, 't', 1619, 'Freelance salespersons',    'Number of salespersons who work on a freelance basis.'),
17590 (1, 't', 1620, 'Travelling employees',      'Number of travelling employees.'),
17591 (1, 't', 1621, 'Foremen', 'Number of workers with limited supervisory responsibilities.'),
17592 (1, 't', 1622, 'Production workers', 'Number of employees engaged in production.'),
17593 (1, 't', 1623, 'Employees not including owners', 'Number of employees excluding business owners.'),
17594 (1, 't', 1624, 'Beds', 'Number of beds.'),
17595 (1, 't', 1625, 'Resting quantity', 'A quantity of product that is at rest before it can be used.'),
17596 (1, 't', 1626, 'Production requirements', 'Quantity needed to meet production requirements.'),
17597 (1, 't', 1627, 'Corrected quantity', 'The quantity has been corrected.'),
17598 (1, 't', 1628, 'Operating divisions', 'Number of divisions operating.'),
17599 (1, 't', 1629, 'Quantitative incentive scheme base', 'Quantity constituting the base for the quantitative incentive scheme.'),
17600 (1, 't', 1630, 'Petitions filed', 'Number of petitions that have been filed.'),
17601 (1, 't', 1631, 'Bankruptcy petitions filed', 'Number of bankruptcy petitions that have been filed.'),
17602 (1, 't', 1632, 'Projects in process', 'Number of projects in process.'),
17603 (1, 't', 1633, 'Changes in capital structure', 'Number of modifications made to the capital structure of an entity.'),
17604 (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.'),
17605 (1, 't', 1635, 'Number of failed businesses of directors', 'The number of failed businesses with which the directors have been associated.'),
17606 (1, 't', 1636, 'Professor', 'The number of professors.'),
17607 (1, 't', 1637, 'Seller',    'The number of sellers.'),
17608 (1, 't', 1638, 'Skilled worker', 'The number of skilled workers.'),
17609 (1, 't', 1639, 'Trademark represented', 'The number of trademarks represented.'),
17610 (1, 't', 1640, 'Number of quantitative incentive scheme units', 'Number of units allocated to a quantitative incentive scheme.'),
17611 (1, 't', 1641, 'Quantity in manufacturing process', 'Quantity currently in the manufacturing process.'),
17612 (1, 't', 1642, 'Number of units in the width of a layer', 'Number of units which make up the width of a layer.'),
17613 (1, 't', 1643, 'Number of units in the depth of a layer', 'Number of units which make up the depth of a layer.'),
17614 (1, 't', 1644, 'Return to warehouse', 'A quantity of products sent back to the warehouse.'),
17615 (1, 't', 1645, 'Return to the manufacturer', 'A quantity of products sent back from the manufacturer.'),
17616 (1, 't', 1646, 'Delta quantity', 'An increment or decrement to a quantity.'),
17617 (1, 't', 1647, 'Quantity moved between outlets', 'A quantity of products moved between outlets.'),
17618 (1, 't', 1648, 'Pre-paid invoice annual consumption, estimated', 'The estimated annual consumption used for a prepayment invoice.'),
17619 (1, 't', 1649, 'Total quoted quantity', 'The sum of quoted quantities.'),
17620 (1, 't', 1650, 'Requests pertaining to entity in last 12 months', 'Number of requests received in last 12 months pertaining to the entity.'),
17621 (1, 't', 1651, 'Total inquiry matches', 'Number of instances which correspond with the inquiry.'),
17622 (1, 't', 1652, 'En route to warehouse quantity',   'A quantity of products that is en route to a warehouse.'),
17623 (1, 't', 1653, 'En route from warehouse quantity', 'A quantity of products that is en route from a warehouse.'),
17624 (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.'),
17625 (1, 't', 1655, 'Not yet ordered quantity', 'The quantity which has not yet been ordered.'),
17626 (1, 't', 1656, 'Net reserve power', 'The reserve power available for the net.'),
17627 (1, 't', 1657, 'Maximum number of units per shelf', 'Maximum number of units of a product that can be placed on a shelf.'),
17628 (1, 't', 1658, 'Stowaway', 'Number of stowaway(s) on a conveyance.'),
17629 (1, 't', 1659, 'Tug', 'The number of tugboat(s).'),
17630 (1, 't', 1660, 'Maximum quantity capability of the package', 'Maximum quantity of a product that can be contained in a package.'),
17631 (1, 't', 1661, 'Calculated', 'The calculated quantity.'),
17632 (1, 't', 1662, 'Monthly volume, estimated', 'Volume estimated for a month.'),
17633 (1, 't', 1663, 'Total number of persons', 'Quantity representing the total number of persons.'),
17634 (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.'),
17635 (1, 't', 1665, 'Deducted tariff quantity',   'Quantity deducted from tariff quantity to reckon duty/tax/fee assessment bases.'),
17636 (1, 't', 1666, 'Advised but not arrived',    'Goods are advised by the consignor or supplier, but have not yet arrived at the destination.'),
17637 (1, 't', 1667, 'Received but not available', 'Goods have been received in the arrival area but are not yet available.'),
17638 (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.'),
17639 (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.'),
17640 (1, 't', 1670, 'Chargeable number of trailers', 'The number of trailers on which charges are based.'),
17641 (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.'),
17642 (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.'),
17643 (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.'),
17644 (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.'),
17645 (1, 't', 1675, 'Agreed maximum buying quantity', 'The agreed maximum quantity of the trade item that may be purchased.'),
17646 (1, 't', 1676, 'Agreed minimum buying quantity', 'The agreed minimum quantity of the trade item that may be purchased.'),
17647 (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.'),
17648 (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.'),
17649 (1, 't', 1679, 'Marine Diesel Oil bunkers, loaded',                  'Number of Marine Diesel Oil (MDO) bunkers taken on in the port.'),
17650 (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.'),
17651 (1, 't', 1681, 'Intermediate Fuel Oil bunkers, loaded',              'Number of Intermediate Fuel Oil (IFO) bunkers taken on in the port.'),
17652 (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.'),
17653 (1, 't', 1683, 'Bunker C bunkers, loaded', 'Number of Bunker C, or Number 6 fuel oil bunkers, taken on in the port.'),
17654 (1, 't', 1684, 'Number of individual units within the smallest packaging', 'unit Total number of individual units contained within the smallest unit of packaging.'),
17655 (1, 't', 1685, 'Percentage of constituent element', 'The part of a product or material that is composed of the constituent element, as a percentage.'),
17656 (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).'),
17657 (1, 't', 1687, 'Regulated commodity count', 'The number of regulated items.'),
17658 (1, 't', 1688, 'Number of passengers, embarking', 'The number of passengers going aboard a conveyance.'),
17659 (1, 't', 1689, 'Number of passengers, disembarking', 'The number of passengers disembarking the conveyance.'),
17660 (1, 't', 1690, 'Constituent element or component quantity', 'The specific quantity of the identified constituent element.')
17661 ;
17662 -- ZZZ, 'Mutually defined', 'As agreed by the trading partners.'),
17663
17664 CREATE TABLE acq.serial_claim (
17665     id     SERIAL           PRIMARY KEY,
17666     type   INT              NOT NULL REFERENCES acq.claim_type
17667                                      DEFERRABLE INITIALLY DEFERRED,
17668     item    BIGINT          NOT NULL REFERENCES serial.item
17669                                      DEFERRABLE INITIALLY DEFERRED
17670 );
17671
17672 CREATE INDEX serial_claim_lid_idx ON acq.serial_claim( item );
17673
17674 CREATE TABLE acq.serial_claim_event (
17675     id             BIGSERIAL        PRIMARY KEY,
17676     type           INT              NOT NULL REFERENCES acq.claim_event_type
17677                                              DEFERRABLE INITIALLY DEFERRED,
17678     claim          SERIAL           NOT NULL REFERENCES acq.serial_claim
17679                                              DEFERRABLE INITIALLY DEFERRED,
17680     event_date     TIMESTAMPTZ      NOT NULL DEFAULT now(),
17681     creator        INT              NOT NULL REFERENCES actor.usr
17682                                              DEFERRABLE INITIALLY DEFERRED,
17683     note           TEXT
17684 );
17685
17686 CREATE INDEX serial_claim_event_claim_date_idx ON acq.serial_claim_event( claim, event_date );
17687
17688 ALTER TABLE asset.stat_cat ADD COLUMN required BOOL NOT NULL DEFAULT FALSE;
17689
17690 -- now what about the auditor.*_lifecycle views??
17691
17692 INSERT INTO config.metabib_field ( id, field_class, name, label, format, xpath ) VALUES
17693     (26, 'identifier', 'tcn', oils_i18n_gettext(26, 'Title Control Number', 'cmf', 'label'), 'marcxml', $$//marc:datafield[@tag='901']/marc:subfield[@code='a']$$ );
17694 INSERT INTO config.metabib_field ( id, field_class, name, label, format, xpath ) VALUES
17695     (27, 'identifier', 'bibid', oils_i18n_gettext(27, 'Internal ID', 'cmf', 'label'), 'marcxml', $$//marc:datafield[@tag='901']/marc:subfield[@code='c']$$ );
17696 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('eg.tcn','identifier', 26);
17697 INSERT INTO config.metabib_search_alias (alias,field_class,field) VALUES ('eg.bibid','identifier', 27);
17698
17699 CREATE TABLE asset.call_number_class (
17700     id             bigserial     PRIMARY KEY,
17701     name           TEXT          NOT NULL,
17702     normalizer     TEXT          NOT NULL DEFAULT 'asset.normalize_generic',
17703     field          TEXT          NOT NULL DEFAULT '050ab,055ab,060ab,070ab,080ab,082ab,086ab,088ab,090,092,096,098,099'
17704 );
17705
17706 COMMENT ON TABLE asset.call_number_class IS $$
17707 Defines the call number normalization database functions in the "normalizer"
17708 column and the tag/subfield combinations to use to lookup the call number in
17709 the "field" column for a given classification scheme. Tag/subfield combinations
17710 are delimited by commas.
17711 $$;
17712
17713 INSERT INTO asset.call_number_class (name, normalizer) VALUES
17714     ('Generic', 'asset.label_normalizer_generic'),
17715     ('Dewey (DDC)', 'asset.label_normalizer_dewey'),
17716     ('Library of Congress (LC)', 'asset.label_normalizer_lc')
17717 ;
17718
17719 -- Generic fields
17720 UPDATE asset.call_number_class
17721     SET field = '050ab,055ab,060ab,070ab,080ab,082ab,086ab,088ab,090,092,096,098,099'
17722     WHERE id = 1
17723 ;
17724
17725 -- Dewey fields
17726 UPDATE asset.call_number_class
17727     SET field = '080ab,082ab'
17728     WHERE id = 2
17729 ;
17730
17731 -- LC fields
17732 UPDATE asset.call_number_class
17733     SET field = '050ab,055ab'
17734     WHERE id = 3
17735 ;
17736
17737 ALTER TABLE asset.call_number
17738         ADD COLUMN label_class BIGINT DEFAULT 1 NOT NULL
17739                 REFERENCES asset.call_number_class(id)
17740                 DEFERRABLE INITIALLY DEFERRED;
17741
17742 ALTER TABLE asset.call_number
17743         ADD COLUMN label_sortkey TEXT;
17744
17745 CREATE INDEX asset_call_number_label_sortkey
17746         ON asset.call_number(label_sortkey);
17747
17748 ALTER TABLE auditor.asset_call_number_history
17749         ADD COLUMN label_class BIGINT;
17750
17751 ALTER TABLE auditor.asset_call_number_history
17752         ADD COLUMN label_sortkey TEXT;
17753
17754 -- Pick up the new columns in dependent views
17755
17756 DROP VIEW auditor.asset_call_number_lifecycle;
17757
17758 SELECT auditor.create_auditor_lifecycle( 'asset', 'call_number' );
17759
17760 DROP VIEW auditor.asset_call_number_lifecycle;
17761
17762 SELECT auditor.create_auditor_lifecycle( 'asset', 'call_number' );
17763
17764 DROP VIEW IF EXISTS stats.fleshed_call_number;
17765
17766 CREATE VIEW stats.fleshed_call_number AS
17767         SELECT  cn.*,
17768             CAST(cn.create_date AS DATE) AS create_date_day,
17769         CAST(cn.edit_date AS DATE) AS edit_date_day,
17770         DATE_TRUNC('hour', cn.create_date) AS create_date_hour,
17771         DATE_TRUNC('hour', cn.edit_date) AS edit_date_hour,
17772             rd.item_lang,
17773                 rd.item_type,
17774                 rd.item_form
17775         FROM    asset.call_number cn
17776                 JOIN metabib.rec_descriptor rd ON (rd.record = cn.record);
17777
17778 CREATE OR REPLACE FUNCTION asset.label_normalizer() RETURNS TRIGGER AS $func$
17779 DECLARE
17780     sortkey        TEXT := '';
17781 BEGIN
17782     sortkey := NEW.label_sortkey;
17783
17784     EXECUTE 'SELECT ' || acnc.normalizer || '(' ||
17785        quote_literal( NEW.label ) || ')'
17786        FROM asset.call_number_class acnc
17787        WHERE acnc.id = NEW.label_class
17788        INTO sortkey;
17789
17790     NEW.label_sortkey = sortkey;
17791
17792     RETURN NEW;
17793 END;
17794 $func$ LANGUAGE PLPGSQL;
17795
17796 CREATE OR REPLACE FUNCTION asset.label_normalizer_generic(TEXT) RETURNS TEXT AS $func$
17797     # Created after looking at the Koha C4::ClassSortRoutine::Generic module,
17798     # thus could probably be considered a derived work, although nothing was
17799     # directly copied - but to err on the safe side of providing attribution:
17800     # Copyright (C) 2007 LibLime
17801     # Licensed under the GPL v2 or later
17802
17803     use strict;
17804     use warnings;
17805
17806     # Converts the callnumber to uppercase
17807     # Strips spaces from start and end of the call number
17808     # Converts anything other than letters, digits, and periods into underscores
17809     # Collapses multiple underscores into a single underscore
17810     my $callnum = uc(shift);
17811     $callnum =~ s/^\s//g;
17812     $callnum =~ s/\s$//g;
17813     $callnum =~ s/[^A-Z0-9_.]/_/g;
17814     $callnum =~ s/_{2,}/_/g;
17815
17816     return $callnum;
17817 $func$ LANGUAGE PLPERLU;
17818
17819 CREATE OR REPLACE FUNCTION asset.label_normalizer_dewey(TEXT) RETURNS TEXT AS $func$
17820     # Derived from the Koha C4::ClassSortRoutine::Dewey module
17821     # Copyright (C) 2007 LibLime
17822     # Licensed under the GPL v2 or later
17823
17824     use strict;
17825     use warnings;
17826
17827     my $init = uc(shift);
17828     $init =~ s/^\s+//;
17829     $init =~ s/\s+$//;
17830     $init =~ s!/!!g;
17831     $init =~ s/^([\p{IsAlpha}]+)/$1 /;
17832     my @tokens = split /\.|\s+/, $init;
17833     my $digit_group_count = 0;
17834     for (my $i = 0; $i <= $#tokens; $i++) {
17835         if ($tokens[$i] =~ /^\d+$/) {
17836             $digit_group_count++;
17837             if (2 == $digit_group_count) {
17838                 $tokens[$i] = sprintf("%-15.15s", $tokens[$i]);
17839                 $tokens[$i] =~ tr/ /0/;
17840             }
17841         }
17842     }
17843     my $key = join("_", @tokens);
17844     $key =~ s/[^\p{IsAlnum}_]//g;
17845
17846     return $key;
17847
17848 $func$ LANGUAGE PLPERLU;
17849
17850 CREATE OR REPLACE FUNCTION asset.label_normalizer_lc(TEXT) RETURNS TEXT AS $func$
17851     use strict;
17852     use warnings;
17853
17854     # Library::CallNumber::LC is currently hosted at http://code.google.com/p/library-callnumber-lc/
17855     # The author hopes to upload it to CPAN some day, which would make our lives easier
17856     use Library::CallNumber::LC;
17857
17858     my $callnum = Library::CallNumber::LC->new(shift);
17859     return $callnum->normalize();
17860
17861 $func$ LANGUAGE PLPERLU;
17862
17863 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$
17864 DECLARE
17865     ans RECORD;
17866     trans INT;
17867 BEGIN
17868     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;
17869
17870     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
17871         RETURN QUERY
17872         SELECT  ans.depth,
17873                 ans.id,
17874                 COUNT( av.id ),
17875                 SUM( CASE WHEN cp.status IN (0,7,12) THEN 1 ELSE 0 END ),
17876                 COUNT( av.id ),
17877                 trans
17878           FROM
17879                 actor.org_unit_descendants(ans.id) d
17880                 JOIN asset.opac_visible_copies av ON (av.record = record AND av.circ_lib = d.id)
17881                 JOIN asset.copy cp ON (cp.id = av.id)
17882           GROUP BY 1,2,6;
17883
17884         IF NOT FOUND THEN
17885             RETURN QUERY SELECT ans.depth, ans.id, 0::BIGINT, 0::BIGINT, 0::BIGINT, trans;
17886         END IF;
17887
17888     END LOOP;
17889
17890     RETURN;
17891 END;
17892 $f$ LANGUAGE PLPGSQL;
17893
17894 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$
17895 DECLARE
17896     ans RECORD;
17897     trans INT;
17898 BEGIN
17899     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;
17900
17901     FOR ans IN SELECT u.org_unit AS id FROM actor.org_lasso_map AS u WHERE lasso = i_lasso LOOP
17902         RETURN QUERY
17903         SELECT  -1,
17904                 ans.id,
17905                 COUNT( av.id ),
17906                 SUM( CASE WHEN cp.status IN (0,7,12) THEN 1 ELSE 0 END ),
17907                 COUNT( av.id ),
17908                 trans
17909           FROM
17910                 actor.org_unit_descendants(ans.id) d
17911                 JOIN asset.opac_visible_copies av ON (av.record = record AND av.circ_lib = d.id)
17912                 JOIN asset.copy cp ON (cp.id = av.id)
17913           GROUP BY 1,2,6;
17914
17915         IF NOT FOUND THEN
17916             RETURN QUERY SELECT ans.depth, ans.id, 0::BIGINT, 0::BIGINT, 0::BIGINT, trans;
17917         END IF;
17918
17919     END LOOP;
17920
17921     RETURN;
17922 END;
17923 $f$ LANGUAGE PLPGSQL;
17924
17925 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$
17926 DECLARE
17927     ans RECORD;
17928     trans INT;
17929 BEGIN
17930     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;
17931
17932     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
17933         RETURN QUERY
17934         SELECT  ans.depth,
17935                 ans.id,
17936                 COUNT( cp.id ),
17937                 SUM( CASE WHEN cp.status IN (0,7,12) THEN 1 ELSE 0 END ),
17938                 COUNT( cp.id ),
17939                 trans
17940           FROM
17941                 actor.org_unit_descendants(ans.id) d
17942                 JOIN asset.copy cp ON (cp.circ_lib = d.id)
17943                 JOIN asset.call_number cn ON (cn.record = record AND cn.id = cp.call_number)
17944           GROUP BY 1,2,6;
17945
17946         IF NOT FOUND THEN
17947             RETURN QUERY SELECT ans.depth, ans.id, 0::BIGINT, 0::BIGINT, 0::BIGINT, trans;
17948         END IF;
17949
17950     END LOOP;
17951
17952     RETURN;
17953 END;
17954 $f$ LANGUAGE PLPGSQL;
17955
17956 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$
17957 DECLARE
17958     ans RECORD;
17959     trans INT;
17960 BEGIN
17961     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;
17962
17963     FOR ans IN SELECT u.org_unit AS id FROM actor.org_lasso_map AS u WHERE lasso = i_lasso LOOP
17964         RETURN QUERY
17965         SELECT  -1,
17966                 ans.id,
17967                 COUNT( cp.id ),
17968                 SUM( CASE WHEN cp.status IN (0,7,12) THEN 1 ELSE 0 END ),
17969                 COUNT( cp.id ),
17970                 trans
17971           FROM
17972                 actor.org_unit_descendants(ans.id) d
17973                 JOIN asset.copy cp ON (cp.circ_lib = d.id)
17974                 JOIN asset.call_number cn ON (cn.record = record AND cn.id = cp.call_number)
17975           GROUP BY 1,2,6;
17976
17977         IF NOT FOUND THEN
17978             RETURN QUERY SELECT ans.depth, ans.id, 0::BIGINT, 0::BIGINT, 0::BIGINT, trans;
17979         END IF;
17980
17981     END LOOP;
17982
17983     RETURN;
17984 END;
17985 $f$ LANGUAGE PLPGSQL;
17986
17987 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$
17988 BEGIN
17989     IF staff IS TRUE THEN
17990         IF place > 0 THEN
17991             RETURN QUERY SELECT * FROM asset.staff_ou_record_copy_count( place, record );
17992         ELSE
17993             RETURN QUERY SELECT * FROM asset.staff_lasso_record_copy_count( -place, record );
17994         END IF;
17995     ELSE
17996         IF place > 0 THEN
17997             RETURN QUERY SELECT * FROM asset.opac_ou_record_copy_count( place, record );
17998         ELSE
17999             RETURN QUERY SELECT * FROM asset.opac_lasso_record_copy_count( -place, record );
18000         END IF;
18001     END IF;
18002
18003     RETURN;
18004 END;
18005 $f$ LANGUAGE PLPGSQL;
18006
18007 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$
18008 DECLARE
18009     ans RECORD;
18010     trans INT;
18011 BEGIN
18012     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;
18013
18014     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
18015         RETURN QUERY
18016         SELECT  ans.depth,
18017                 ans.id,
18018                 COUNT( av.id ),
18019                 SUM( CASE WHEN cp.status IN (0,7,12) THEN 1 ELSE 0 END ),
18020                 COUNT( av.id ),
18021                 trans
18022           FROM
18023                 actor.org_unit_descendants(ans.id) d
18024                 JOIN asset.opac_visible_copies av ON (av.record = record AND av.circ_lib = d.id)
18025                 JOIN asset.copy cp ON (cp.id = av.id)
18026                 JOIN metabib.metarecord_source_map m ON (m.source = av.record)
18027           GROUP BY 1,2,6;
18028
18029         IF NOT FOUND THEN
18030             RETURN QUERY SELECT ans.depth, ans.id, 0::BIGINT, 0::BIGINT, 0::BIGINT, trans;
18031         END IF;
18032
18033     END LOOP;
18034
18035     RETURN;
18036 END;
18037 $f$ LANGUAGE PLPGSQL;
18038
18039 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$
18040 DECLARE
18041     ans RECORD;
18042     trans INT;
18043 BEGIN
18044     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;
18045
18046     FOR ans IN SELECT u.org_unit AS id FROM actor.org_lasso_map AS u WHERE lasso = i_lasso LOOP
18047         RETURN QUERY
18048         SELECT  -1,
18049                 ans.id,
18050                 COUNT( av.id ),
18051                 SUM( CASE WHEN cp.status IN (0,7,12) THEN 1 ELSE 0 END ),
18052                 COUNT( av.id ),
18053                 trans
18054           FROM
18055                 actor.org_unit_descendants(ans.id) d
18056                 JOIN asset.opac_visible_copies av ON (av.record = record AND av.circ_lib = d.id)
18057                 JOIN asset.copy cp ON (cp.id = av.id)
18058                 JOIN metabib.metarecord_source_map m ON (m.source = av.record)
18059           GROUP BY 1,2,6;
18060
18061         IF NOT FOUND THEN
18062             RETURN QUERY SELECT ans.depth, ans.id, 0::BIGINT, 0::BIGINT, 0::BIGINT, trans;
18063         END IF;
18064
18065     END LOOP;
18066
18067     RETURN;
18068 END;
18069 $f$ LANGUAGE PLPGSQL;
18070
18071 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$
18072 DECLARE
18073     ans RECORD;
18074     trans INT;
18075 BEGIN
18076     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;
18077
18078     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
18079         RETURN QUERY
18080         SELECT  ans.depth,
18081                 ans.id,
18082                 COUNT( cp.id ),
18083                 SUM( CASE WHEN cp.status IN (0,7,12) THEN 1 ELSE 0 END ),
18084                 COUNT( cp.id ),
18085                 trans
18086           FROM
18087                 actor.org_unit_descendants(ans.id) d
18088                 JOIN asset.copy cp ON (cp.circ_lib = d.id)
18089                 JOIN asset.call_number cn ON (cn.record = record AND cn.id = cp.call_number)
18090                 JOIN metabib.metarecord_source_map m ON (m.source = cn.record)
18091           GROUP BY 1,2,6;
18092
18093         IF NOT FOUND THEN
18094             RETURN QUERY SELECT ans.depth, ans.id, 0::BIGINT, 0::BIGINT, 0::BIGINT, trans;
18095         END IF;
18096
18097     END LOOP;
18098
18099     RETURN;
18100 END;
18101 $f$ LANGUAGE PLPGSQL;
18102
18103 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$
18104 DECLARE
18105     ans RECORD;
18106     trans INT;
18107 BEGIN
18108     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;
18109
18110     FOR ans IN SELECT u.org_unit AS id FROM actor.org_lasso_map AS u WHERE lasso = i_lasso LOOP
18111         RETURN QUERY
18112         SELECT  -1,
18113                 ans.id,
18114                 COUNT( cp.id ),
18115                 SUM( CASE WHEN cp.status IN (0,7,12) THEN 1 ELSE 0 END ),
18116                 COUNT( cp.id ),
18117                 trans
18118           FROM
18119                 actor.org_unit_descendants(ans.id) d
18120                 JOIN asset.copy cp ON (cp.circ_lib = d.id)
18121                 JOIN asset.call_number cn ON (cn.record = record AND cn.id = cp.call_number)
18122                 JOIN metabib.metarecord_source_map m ON (m.source = cn.record)
18123           GROUP BY 1,2,6;
18124
18125         IF NOT FOUND THEN
18126             RETURN QUERY SELECT ans.depth, ans.id, 0::BIGINT, 0::BIGINT, 0::BIGINT, trans;
18127         END IF;
18128
18129     END LOOP;
18130
18131     RETURN;
18132 END;
18133 $f$ LANGUAGE PLPGSQL;
18134
18135 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$
18136 BEGIN
18137     IF staff IS TRUE THEN
18138         IF place > 0 THEN
18139             RETURN QUERY SELECT * FROM asset.staff_ou_metarecord_copy_count( place, record );
18140         ELSE
18141             RETURN QUERY SELECT * FROM asset.staff_lasso_metarecord_copy_count( -place, record );
18142         END IF;
18143     ELSE
18144         IF place > 0 THEN
18145             RETURN QUERY SELECT * FROM asset.opac_ou_metarecord_copy_count( place, record );
18146         ELSE
18147             RETURN QUERY SELECT * FROM asset.opac_lasso_metarecord_copy_count( -place, record );
18148         END IF;
18149     END IF;
18150
18151     RETURN;
18152 END;
18153 $f$ LANGUAGE PLPGSQL;
18154
18155 -- No transaction is required
18156
18157 -- Triggers on the vandelay.queued_*_record tables delete entries from
18158 -- the associated vandelay.queued_*_record_attr tables based on the record's
18159 -- ID; create an index on that column to avoid sequential scans for each
18160 -- queued record that is deleted
18161 CREATE INDEX queued_bib_record_attr_record_idx ON vandelay.queued_bib_record_attr (record);
18162 CREATE INDEX queued_authority_record_attr_record_idx ON vandelay.queued_authority_record_attr (record);
18163
18164 -- Avoid sequential scans for queue retrieval operations by providing an
18165 -- index on the queue column
18166 CREATE INDEX queued_bib_record_queue_idx ON vandelay.queued_bib_record (queue);
18167 CREATE INDEX queued_authority_record_queue_idx ON vandelay.queued_authority_record (queue);
18168
18169 -- Start picking up call number label prefixes and suffixes
18170 -- from asset.copy_location
18171 ALTER TABLE asset.copy_location ADD COLUMN label_prefix TEXT;
18172 ALTER TABLE asset.copy_location ADD COLUMN label_suffix TEXT;
18173
18174 DROP VIEW auditor.asset_copy_lifecycle;
18175
18176 SELECT auditor.create_auditor_lifecycle( 'asset', 'copy' );
18177
18178 ALTER TABLE reporter.report RENAME COLUMN recurance TO recurrence;
18179
18180 -- Let's not break existing reports
18181 UPDATE reporter.template SET data = REGEXP_REPLACE(data, E'^(.*)recuring(.*)$', E'\\1recurring\\2') WHERE data LIKE '%recuring%';
18182 UPDATE reporter.template SET data = REGEXP_REPLACE(data, E'^(.*)recurance(.*)$', E'\\1recurrence\\2') WHERE data LIKE '%recurance%';
18183
18184 -- Need to recreate this view with DISTINCT calls to ARRAY_ACCUM, thus avoiding duplicated ISBN and ISSN values
18185 CREATE OR REPLACE VIEW reporter.old_super_simple_record AS
18186 SELECT  r.id,
18187     r.fingerprint,
18188     r.quality,
18189     r.tcn_source,
18190     r.tcn_value,
18191     FIRST(title.value) AS title,
18192     FIRST(author.value) AS author,
18193     ARRAY_TO_STRING(ARRAY_ACCUM( DISTINCT publisher.value), ', ') AS publisher,
18194     ARRAY_TO_STRING(ARRAY_ACCUM( DISTINCT SUBSTRING(pubdate.value FROM $$\d+$$) ), ', ') AS pubdate,
18195     ARRAY_ACCUM( DISTINCT SUBSTRING(isbn.value FROM $$^\S+$$) ) AS isbn,
18196     ARRAY_ACCUM( DISTINCT SUBSTRING(issn.value FROM $$^\S+$$) ) AS issn
18197   FROM  biblio.record_entry r
18198     LEFT JOIN metabib.full_rec title ON (r.id = title.record AND title.tag = '245' AND title.subfield = 'a')
18199     LEFT JOIN metabib.full_rec author ON (r.id = author.record AND author.tag IN ('100','110','111') AND author.subfield = 'a')
18200     LEFT JOIN metabib.full_rec publisher ON (r.id = publisher.record AND publisher.tag = '260' AND publisher.subfield = 'b')
18201     LEFT JOIN metabib.full_rec pubdate ON (r.id = pubdate.record AND pubdate.tag = '260' AND pubdate.subfield = 'c')
18202     LEFT JOIN metabib.full_rec isbn ON (r.id = isbn.record AND isbn.tag IN ('024', '020') AND isbn.subfield IN ('a','z'))
18203     LEFT JOIN metabib.full_rec issn ON (r.id = issn.record AND issn.tag = '022' AND issn.subfield = 'a')
18204   GROUP BY 1,2,3,4,5;
18205
18206 -- Correct the ISSN array definition for reporter.simple_record
18207
18208 CREATE OR REPLACE VIEW reporter.simple_record AS
18209 SELECT  r.id,
18210         s.metarecord,
18211         r.fingerprint,
18212         r.quality,
18213         r.tcn_source,
18214         r.tcn_value,
18215         title.value AS title,
18216         uniform_title.value AS uniform_title,
18217         author.value AS author,
18218         publisher.value AS publisher,
18219         SUBSTRING(pubdate.value FROM $$\d+$$) AS pubdate,
18220         series_title.value AS series_title,
18221         series_statement.value AS series_statement,
18222         summary.value AS summary,
18223         ARRAY_ACCUM( SUBSTRING(isbn.value FROM $$^\S+$$) ) AS isbn,
18224         ARRAY_ACCUM( REGEXP_REPLACE(issn.value, E'^\\S*(\\d{4})[-\\s](\\d{3,4}x?)', E'\\1 \\2') ) AS issn,
18225         ARRAY((SELECT DISTINCT value FROM metabib.full_rec WHERE tag = '650' AND subfield = 'a' AND record = r.id)) AS topic_subject,
18226         ARRAY((SELECT DISTINCT value FROM metabib.full_rec WHERE tag = '651' AND subfield = 'a' AND record = r.id)) AS geographic_subject,
18227         ARRAY((SELECT DISTINCT value FROM metabib.full_rec WHERE tag = '655' AND subfield = 'a' AND record = r.id)) AS genre,
18228         ARRAY((SELECT DISTINCT value FROM metabib.full_rec WHERE tag = '600' AND subfield = 'a' AND record = r.id)) AS name_subject,
18229         ARRAY((SELECT DISTINCT value FROM metabib.full_rec WHERE tag = '610' AND subfield = 'a' AND record = r.id)) AS corporate_subject,
18230         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
18231   FROM  biblio.record_entry r
18232         JOIN metabib.metarecord_source_map s ON (s.source = r.id)
18233         LEFT JOIN metabib.full_rec uniform_title ON (r.id = uniform_title.record AND uniform_title.tag = '240' AND uniform_title.subfield = 'a')
18234         LEFT JOIN metabib.full_rec title ON (r.id = title.record AND title.tag = '245' AND title.subfield = 'a')
18235         LEFT JOIN metabib.full_rec author ON (r.id = author.record AND author.tag = '100' AND author.subfield = 'a')
18236         LEFT JOIN metabib.full_rec publisher ON (r.id = publisher.record AND publisher.tag = '260' AND publisher.subfield = 'b')
18237         LEFT JOIN metabib.full_rec pubdate ON (r.id = pubdate.record AND pubdate.tag = '260' AND pubdate.subfield = 'c')
18238         LEFT JOIN metabib.full_rec isbn ON (r.id = isbn.record AND isbn.tag IN ('024', '020') AND isbn.subfield IN ('a','z'))
18239         LEFT JOIN metabib.full_rec issn ON (r.id = issn.record AND issn.tag = '022' AND issn.subfield = 'a')
18240         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')
18241         LEFT JOIN metabib.full_rec series_statement ON (r.id = series_statement.record AND series_statement.tag = '490' AND series_statement.subfield = 'a')
18242         LEFT JOIN metabib.full_rec summary ON (r.id = summary.record AND summary.tag = '520' AND summary.subfield = 'a')
18243   GROUP BY 1,2,3,4,5,6,7,8,9,10,11,12,13,14;
18244
18245 CREATE OR REPLACE FUNCTION reporter.disable_materialized_simple_record_trigger () RETURNS VOID AS $$
18246     DROP TRIGGER IF EXISTS zzz_update_materialized_simple_record_tgr ON metabib.real_full_rec;
18247 $$ LANGUAGE SQL;
18248
18249 CREATE OR REPLACE FUNCTION reporter.simple_rec_trigger () RETURNS TRIGGER AS $func$
18250 BEGIN
18251     IF TG_OP = 'DELETE' THEN
18252         PERFORM reporter.simple_rec_delete(NEW.id);
18253     ELSE
18254         PERFORM reporter.simple_rec_update(NEW.id);
18255     END IF;
18256
18257     RETURN NEW;
18258 END;
18259 $func$ LANGUAGE PLPGSQL;
18260
18261 CREATE TRIGGER bbb_simple_rec_trigger AFTER INSERT OR UPDATE ON biblio.record_entry FOR EACH ROW EXECUTE PROCEDURE reporter.simple_rec_trigger ();
18262
18263 ALTER TABLE extend_reporter.legacy_circ_count DROP CONSTRAINT legacy_circ_count_id_fkey;
18264
18265 CREATE INDEX asset_copy_note_owning_copy_idx ON asset.copy_note ( owning_copy );
18266
18267 UPDATE config.org_unit_setting_type
18268     SET view_perm = (SELECT id FROM permission.perm_list
18269         WHERE code = 'VIEW_CREDIT_CARD_PROCESSING' LIMIT 1)
18270     WHERE name LIKE 'credit.processor%' AND view_perm IS NULL;
18271
18272 UPDATE config.org_unit_setting_type
18273     SET update_perm = (SELECT id FROM permission.perm_list
18274         WHERE code = 'ADMIN_CREDIT_CARD_PROCESSING' LIMIT 1)
18275     WHERE name LIKE 'credit.processor%' AND update_perm IS NULL;
18276
18277 INSERT INTO config.org_unit_setting_type (name, label, description, datatype)
18278     VALUES (
18279         'opac.fully_compressed_serial_holdings',
18280         'OPAC: Use fully compressed serial holdings',
18281         'Show fully compressed serial holdings for all libraries at and below
18282         the current context unit',
18283         'bool'
18284     );
18285
18286 CREATE OR REPLACE FUNCTION authority.normalize_heading( TEXT ) RETURNS TEXT AS $func$
18287     use strict;
18288     use warnings;
18289
18290     use utf8;
18291     use MARC::Record;
18292     use MARC::File::XML (BinaryEncoding => 'UTF8');
18293     use UUID::Tiny ':std';
18294
18295     my $xml = shift() or return undef;
18296
18297     my $r;
18298
18299     # Prevent errors in XML parsing from blowing out ungracefully
18300     eval {
18301         $r = MARC::Record->new_from_xml( $xml );
18302         1;
18303     } or do {
18304        return 'BAD_MARCXML_' . create_uuid_as_string(UUID_MD5, $xml);
18305     };
18306
18307     if (!$r) {
18308        return 'BAD_MARCXML_' . create_uuid_as_string(UUID_MD5, $xml);
18309     }
18310
18311     # From http://www.loc.gov/standards/sourcelist/subject.html
18312     my $thes_code_map = {
18313         a => 'lcsh',
18314         b => 'lcshac',
18315         c => 'mesh',
18316         d => 'nal',
18317         k => 'cash',
18318         n => 'notapplicable',
18319         r => 'aat',
18320         s => 'sears',
18321         v => 'rvm',
18322     };
18323
18324     # Default to "No attempt to code" if the leader is horribly broken
18325     my $fixed_field = $r->field('008');
18326     my $thes_char = '|';
18327     if ($fixed_field) {
18328         $thes_char = substr($fixed_field->data(), 11, 1) || '|';
18329     }
18330
18331     my $thes_code = 'UNDEFINED';
18332
18333     if ($thes_char eq 'z') {
18334         # Grab the 040 $f per http://www.loc.gov/marc/authority/ad040.html
18335         $thes_code = $r->subfield('040', 'f') || 'UNDEFINED';
18336     } elsif ($thes_code_map->{$thes_char}) {
18337         $thes_code = $thes_code_map->{$thes_char};
18338     }
18339
18340     my $auth_txt = '';
18341     my $head = $r->field('1..');
18342     if ($head) {
18343         # Concatenate all of these subfields together, prefixed by their code
18344         # to prevent collisions along the lines of "Fiction, North Carolina"
18345         foreach my $sf ($head->subfields()) {
18346             $auth_txt .= '‡' . $sf->[0] . ' ' . $sf->[1];
18347         }
18348     }
18349
18350     # Perhaps better to parameterize the spi and pass as a parameter
18351     $auth_txt =~ s/'//go;
18352
18353     if ($auth_txt) {
18354         my $result = spi_exec_query("SELECT public.naco_normalize('$auth_txt') AS norm_text");
18355         my $norm_txt = $result->{rows}[0]->{norm_text};
18356         return $head->tag() . "_" . $thes_code . " " . $norm_txt;
18357     }
18358
18359     return 'NOHEADING_' . $thes_code . ' ' . create_uuid_as_string(UUID_MD5, $xml);
18360 $func$ LANGUAGE 'plperlu' IMMUTABLE;
18361
18362 COMMENT ON FUNCTION authority.normalize_heading( TEXT ) IS $$
18363 /**
18364 * Extract the authority heading, thesaurus, and NACO-normalized values
18365 * from an authority record. The primary purpose is to build a unique
18366 * index to defend against duplicated authority records from the same
18367 * thesaurus.
18368 */
18369 $$;
18370
18371 DROP INDEX authority.authority_record_unique_tcn;
18372 ALTER TABLE authority.record_entry DROP COLUMN arn_value;
18373 ALTER TABLE authority.record_entry DROP COLUMN arn_source;
18374
18375 ALTER TABLE acq.provider_contact
18376         ALTER COLUMN name SET NOT NULL;
18377
18378 ALTER TABLE actor.stat_cat
18379         ADD COLUMN usr_summary BOOL NOT NULL DEFAULT FALSE;
18380
18381 -- Recreate some foreign keys that were somehow dropped, probably
18382 -- by some kind of cascade from an inherited table:
18383
18384 ALTER TABLE action.reservation_transit_copy
18385         ADD CONSTRAINT artc_tc_fkey FOREIGN KEY (target_copy)
18386                 REFERENCES booking.resource(id)
18387                 ON DELETE CASCADE
18388                 DEFERRABLE INITIALLY DEFERRED,
18389         ADD CONSTRAINT reservation_transit_copy_reservation_fkey FOREIGN KEY (reservation)
18390                 REFERENCES booking.reservation(id)
18391                 ON DELETE SET NULL
18392                 DEFERRABLE INITIALLY DEFERRED;
18393
18394 CREATE INDEX user_bucket_item_target_user_idx
18395         ON container.user_bucket_item ( target_user );
18396
18397 CREATE INDEX m_c_t_collector_idx
18398         ON money.collections_tracker ( collector );
18399
18400 CREATE INDEX aud_actor_usr_address_hist_id_idx
18401         ON auditor.actor_usr_address_history ( id );
18402
18403 CREATE INDEX aud_actor_usr_hist_id_idx
18404         ON auditor.actor_usr_history ( id );
18405
18406 CREATE INDEX aud_asset_cn_hist_creator_idx
18407         ON auditor.asset_call_number_history ( creator );
18408
18409 CREATE INDEX aud_asset_cn_hist_editor_idx
18410         ON auditor.asset_call_number_history ( editor );
18411
18412 CREATE INDEX aud_asset_cp_hist_creator_idx
18413         ON auditor.asset_copy_history ( creator );
18414
18415 CREATE INDEX aud_asset_cp_hist_editor_idx
18416         ON auditor.asset_copy_history ( editor );
18417
18418 CREATE INDEX aud_bib_rec_entry_hist_creator_idx
18419         ON auditor.biblio_record_entry_history ( creator );
18420
18421 CREATE INDEX aud_bib_rec_entry_hist_editor_idx
18422         ON auditor.biblio_record_entry_history ( editor );
18423
18424 CREATE TABLE action.hold_request_note (
18425
18426     id     BIGSERIAL PRIMARY KEY,
18427     hold   BIGINT    NOT NULL REFERENCES action.hold_request (id)
18428                               ON DELETE CASCADE
18429                               DEFERRABLE INITIALLY DEFERRED,
18430     title  TEXT      NOT NULL,
18431     body   TEXT      NOT NULL,
18432     slip   BOOL      NOT NULL DEFAULT FALSE,
18433     pub    BOOL      NOT NULL DEFAULT FALSE,
18434     staff  BOOL      NOT NULL DEFAULT FALSE  -- created by staff
18435
18436 );
18437 CREATE INDEX ahrn_hold_idx ON action.hold_request_note (hold);
18438
18439 -- Tweak a constraint to add a CASCADE
18440
18441 ALTER TABLE action.hold_notification DROP CONSTRAINT hold_notification_hold_fkey;
18442
18443 ALTER TABLE action.hold_notification
18444         ADD CONSTRAINT hold_notification_hold_fkey
18445                 FOREIGN KEY (hold) REFERENCES action.hold_request (id)
18446                 ON DELETE CASCADE
18447                 DEFERRABLE INITIALLY DEFERRED;
18448
18449 CREATE TRIGGER asset_label_sortkey_trigger
18450     BEFORE UPDATE OR INSERT ON asset.call_number
18451     FOR EACH ROW EXECUTE PROCEDURE asset.label_normalizer();
18452
18453 CREATE OR REPLACE FUNCTION container.clear_all_expired_circ_history_items( )
18454 RETURNS VOID AS $$
18455 --
18456 -- Delete expired circulation bucket items for all users that have
18457 -- a setting for patron.max_reading_list_interval.
18458 --
18459 DECLARE
18460     today        TIMESTAMP WITH TIME ZONE;
18461     threshold    TIMESTAMP WITH TIME ZONE;
18462         usr_setting  RECORD;
18463 BEGIN
18464         SELECT date_trunc( 'day', now() ) INTO today;
18465         --
18466         FOR usr_setting in
18467                 SELECT
18468                         usr,
18469                         value
18470                 FROM
18471                         actor.usr_setting
18472                 WHERE
18473                         name = 'patron.max_reading_list_interval'
18474         LOOP
18475                 --
18476                 -- Make sure the setting is a valid interval
18477                 --
18478                 BEGIN
18479                         threshold := today - CAST( translate( usr_setting.value, '"', '' ) AS INTERVAL );
18480                 EXCEPTION
18481                         WHEN OTHERS THEN
18482                                 RAISE NOTICE 'Invalid setting patron.max_reading_list_interval for user %: ''%''',
18483                                         usr_setting.usr, usr_setting.value;
18484                                 CONTINUE;
18485                 END;
18486                 --
18487                 --RAISE NOTICE 'User % threshold %', usr_setting.usr, threshold;
18488                 --
18489         DELETE FROM container.copy_bucket_item
18490         WHERE
18491                 bucket IN
18492                 (
18493                     SELECT
18494                         id
18495                     FROM
18496                         container.copy_bucket
18497                     WHERE
18498                         owner = usr_setting.usr
18499                         AND btype = 'circ_history'
18500                 )
18501                 AND create_time < threshold;
18502         END LOOP;
18503         --
18504 END;
18505 $$ LANGUAGE plpgsql;
18506
18507 COMMENT ON FUNCTION container.clear_all_expired_circ_history_items( ) IS $$
18508 /*
18509  * Delete expired circulation bucket items for all users that have
18510  * a setting for patron.max_reading_list_interval.
18511 */
18512 $$;
18513
18514 CREATE OR REPLACE FUNCTION container.clear_expired_circ_history_items(
18515          ac_usr IN INTEGER
18516 ) RETURNS VOID AS $$
18517 --
18518 -- Delete old circulation bucket items for a specified user.
18519 -- "Old" means older than the interval specified by a
18520 -- user-level setting, if it is so specified.
18521 --
18522 DECLARE
18523     threshold TIMESTAMP WITH TIME ZONE;
18524 BEGIN
18525         -- Sanity check
18526         IF ac_usr IS NULL THEN
18527                 RETURN;
18528         END IF;
18529         -- Determine the threshold date that defines "old".  Subtract the
18530         -- interval from the system date, then truncate to midnight.
18531         SELECT
18532                 date_trunc(
18533                         'day',
18534                         now() - CAST( translate( value, '"', '' ) AS INTERVAL )
18535                 )
18536         INTO
18537                 threshold
18538         FROM
18539                 actor.usr_setting
18540         WHERE
18541                 usr = ac_usr
18542                 AND name = 'patron.max_reading_list_interval';
18543         --
18544         IF threshold is null THEN
18545                 -- No interval defined; don't delete anything
18546                 -- RAISE NOTICE 'No interval defined for user %', ac_usr;
18547                 return;
18548         END IF;
18549         --
18550         -- RAISE NOTICE 'Date threshold: %', threshold;
18551         --
18552         -- Threshold found; do the delete
18553         delete from container.copy_bucket_item
18554         where
18555                 bucket in
18556                 (
18557                         select
18558                                 id
18559                         from
18560                                 container.copy_bucket
18561                         where
18562                                 owner = ac_usr
18563                                 and btype = 'circ_history'
18564                 )
18565                 and create_time < threshold;
18566         --
18567         RETURN;
18568 END;
18569 $$ LANGUAGE plpgsql;
18570
18571 COMMENT ON FUNCTION container.clear_expired_circ_history_items( INTEGER ) IS $$
18572 /*
18573  * Delete old circulation bucket items for a specified user.
18574  * "Old" means older than the interval specified by a
18575  * user-level setting, if it is so specified.
18576 */
18577 $$;
18578
18579 CREATE OR REPLACE VIEW reporter.hold_request_record AS
18580 SELECT  id,
18581     target,
18582     hold_type,
18583     CASE
18584         WHEN hold_type = 'T'
18585             THEN target
18586         WHEN hold_type = 'I'
18587             THEN (SELECT ssub.record_entry FROM serial.subscription ssub JOIN serial.issuance si ON (si.subscription = ssub.id) WHERE si.id = ahr.target)
18588         WHEN hold_type = 'V'
18589             THEN (SELECT cn.record FROM asset.call_number cn WHERE cn.id = ahr.target)
18590         WHEN hold_type IN ('C','R','F')
18591             THEN (SELECT cn.record FROM asset.call_number cn JOIN asset.copy cp ON (cn.id = cp.call_number) WHERE cp.id = ahr.target)
18592         WHEN hold_type = 'M'
18593             THEN (SELECT mr.master_record FROM metabib.metarecord mr WHERE mr.id = ahr.target)
18594     END AS bib_record
18595   FROM  action.hold_request ahr;
18596
18597 UPDATE  metabib.rec_descriptor
18598   SET   date1=LPAD(NULLIF(REGEXP_REPLACE(NULLIF(date1, ''), E'\\D', '0', 'g')::INT,0)::TEXT,4,'0'),
18599         date2=LPAD(NULLIF(REGEXP_REPLACE(NULLIF(date2, ''), E'\\D', '9', 'g')::INT,9999)::TEXT,4,'0');
18600
18601 -- Change some ints to bigints:
18602
18603 ALTER TABLE container.biblio_record_entry_bucket_item
18604         ALTER COLUMN target_biblio_record_entry SET DATA TYPE bigint;
18605
18606 ALTER TABLE vandelay.queued_bib_record
18607         ALTER COLUMN imported_as SET DATA TYPE bigint;
18608
18609 ALTER TABLE action.hold_copy_map
18610         ALTER COLUMN id SET DATA TYPE bigint;
18611
18612 -- Make due times get pushed to 23:59:59 on insert OR update
18613 DROP TRIGGER IF EXISTS push_due_date_tgr ON action.circulation;
18614 CREATE TRIGGER push_due_date_tgr BEFORE INSERT OR UPDATE ON action.circulation FOR EACH ROW EXECUTE PROCEDURE action.push_circ_due_time();
18615
18616 COMMIT;
18617
18618 -- Some operations go outside of the transaction, because they may
18619 -- legitimately fail.
18620
18621 \qecho ALTERs of auditor.action_hold_request_history will fail if the table
18622 \qecho doesn't exist; ignore those errors if they occur.
18623
18624 ALTER TABLE auditor.action_hold_request_history ADD COLUMN cut_in_line BOOL;
18625
18626 ALTER TABLE auditor.action_hold_request_history
18627 ADD COLUMN mint_condition boolean NOT NULL DEFAULT TRUE;
18628
18629 ALTER TABLE auditor.action_hold_request_history
18630 ADD COLUMN shelf_expire_time TIMESTAMPTZ;
18631
18632 \qecho Outside of the transaction: adding indexes that may or may not exist.
18633 \qecho If any of these CREATE INDEX statements fails because the index already
18634 \qecho exists, ignore the failure.
18635
18636 CREATE INDEX acq_picklist_owner_idx   ON acq.picklist ( owner );
18637 CREATE INDEX acq_picklist_creator_idx ON acq.picklist ( creator );
18638 CREATE INDEX acq_picklist_editor_idx  ON acq.picklist ( editor );
18639 CREATE INDEX acq_po_note_creator_idx  ON acq.po_note ( creator );
18640 CREATE INDEX acq_po_note_editor_idx   ON acq.po_note ( editor );
18641 CREATE INDEX fund_alloc_allocator_idx ON acq.fund_allocation ( allocator );
18642 CREATE INDEX li_creator_idx   ON acq.lineitem ( creator );
18643 CREATE INDEX li_editor_idx    ON acq.lineitem ( editor );
18644 CREATE INDEX li_selector_idx  ON acq.lineitem ( selector );
18645 CREATE INDEX li_note_creator_idx  ON acq.lineitem_note ( creator );
18646 CREATE INDEX li_note_editor_idx   ON acq.lineitem_note ( editor );
18647 CREATE INDEX li_usr_attr_def_usr_idx  ON acq.lineitem_usr_attr_definition ( usr );
18648 CREATE INDEX po_editor_idx   ON acq.purchase_order ( editor );
18649 CREATE INDEX po_creator_idx  ON acq.purchase_order ( creator );
18650 CREATE INDEX acq_po_org_name_order_date_idx ON acq.purchase_order( ordering_agency, name, order_date );
18651 CREATE INDEX action_in_house_use_staff_idx  ON action.in_house_use ( staff );
18652 CREATE INDEX action_non_cat_circ_patron_idx ON action.non_cataloged_circulation ( patron );
18653 CREATE INDEX action_non_cat_circ_staff_idx  ON action.non_cataloged_circulation ( staff );
18654 CREATE INDEX action_survey_response_usr_idx ON action.survey_response ( usr );
18655 CREATE INDEX ahn_notify_staff_idx           ON action.hold_notification ( notify_staff );
18656 CREATE INDEX circ_all_usr_idx               ON action.circulation ( usr );
18657 CREATE INDEX circ_circ_staff_idx            ON action.circulation ( circ_staff );
18658 CREATE INDEX circ_checkin_staff_idx         ON action.circulation ( checkin_staff );
18659 CREATE INDEX hold_request_fulfillment_staff_idx ON action.hold_request ( fulfillment_staff );
18660 CREATE INDEX hold_request_requestor_idx     ON action.hold_request ( requestor );
18661 CREATE INDEX non_cat_in_house_use_staff_idx ON action.non_cat_in_house_use ( staff );
18662 CREATE INDEX actor_usr_note_creator_idx     ON actor.usr_note ( creator );
18663 CREATE INDEX actor_usr_standing_penalty_staff_idx ON actor.usr_standing_penalty ( staff );
18664 CREATE INDEX usr_org_unit_opt_in_staff_idx  ON actor.usr_org_unit_opt_in ( staff );
18665 CREATE INDEX asset_call_number_note_creator_idx ON asset.call_number_note ( creator );
18666 CREATE INDEX asset_copy_note_creator_idx    ON asset.copy_note ( creator );
18667 CREATE INDEX cp_creator_idx                 ON asset.copy ( creator );
18668 CREATE INDEX cp_editor_idx                  ON asset.copy ( editor );
18669
18670 CREATE INDEX actor_card_barcode_lower_idx ON actor.card (lower(barcode));
18671
18672 DROP INDEX IF EXISTS authority.unique_by_heading_and_thesaurus;
18673
18674 \qecho If the following CREATE INDEX fails, It will be necessary to do some
18675 \qecho data cleanup as described in the comments.
18676
18677 CREATE UNIQUE INDEX unique_by_heading_and_thesaurus
18678     ON authority.record_entry (authority.normalize_heading(marc))
18679         WHERE deleted IS FALSE or deleted = FALSE;
18680
18681 -- If the unique index fails, uncomment the following to create
18682 -- a regular index that will help find the duplicates in a hurry:
18683 --CREATE INDEX by_heading_and_thesaurus
18684 --    ON authority.record_entry (authority.normalize_heading(marc))
18685 --    WHERE deleted IS FALSE or deleted = FALSE
18686 --;
18687
18688 -- Then find the duplicates like so to get an idea of how much
18689 -- pain you're looking at to clean things up:
18690 --SELECT id, authority.normalize_heading(marc)
18691 --    FROM authority.record_entry
18692 --    WHERE authority.normalize_heading(marc) IN (
18693 --        SELECT authority.normalize_heading(marc)
18694 --        FROM authority.record_entry
18695 --        GROUP BY authority.normalize_heading(marc)
18696 --        HAVING COUNT(*) > 1
18697 --    )
18698 --;
18699
18700 -- Once you have removed the duplicates and the CREATE UNIQUE INDEX
18701 -- statement succeeds, drop the temporary index to avoid unnecessary
18702 -- duplication:
18703 -- DROP INDEX authority.by_heading_and_thesaurus;
18704
18705 \qecho Upgrade script completed.