installer/data/mysql/atomicupdate/bug_23049_debit.perl

   1 $DBversion = 'XXX';    # will be replaced by the RM
   2 if ( CheckVersion($DBversion) ) {
   3
   4     $dbh->do(
   5         qq{
   6             CREATE TABLE IF NOT EXISTS account_debit_types (
   7               code varchar(64) NOT NULL,
   8               description varchar(200) NULL,
   9               can_be_added_manually tinyint(4) NOT NULL DEFAULT 1,
  10               default_amount decimal(28, 6) NULL,
  11               is_system tinyint(1) NOT NULL DEFAULT 0,
  12               PRIMARY KEY (code)
  13             ) ENGINE = InnoDB DEFAULT CHARSET = utf8mb4 COLLATE = utf8mb4_unicode_ci
  14           }
  15     );
  16
  17     $dbh->do(
  18         qq{
  19             CREATE TABLE IF NOT EXISTS ac_debit_types_branches (
  20                 debit_type_code VARCHAR(64),
  21                 branchcode VARCHAR(10),
  22                 FOREIGN KEY (debit_type_code) REFERENCES account_debit_types(code) ON DELETE CASCADE,
  23                 FOREIGN KEY (branchcode) REFERENCES branches(branchcode) ON DELETE CASCADE
  24             ) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_unicode_ci
  25         }
  26     );
  27
  28     $dbh->do(
  29         qq{
  30             INSERT IGNORE INTO account_debit_types (
  31               code,
  32               description,
  33               can_be_added_manually,
  34               default_amount,
  35               is_system
  36             )
  37             VALUES
  38               ('ACCOUNT', 'Account creation fee', 0, NULL, 1),
  39               ('ACCOUNT_RENEW', 'Account renewal fee', 0, NULL, 1),
  40               ('HE', 'Hold waiting too long', 0, NULL, 1),
  41               ('LOST', 'Lost item', 1, NULL, 1),
  42               ('M', 'Manual fee', 1, NULL, 0),
  43               ('N', 'New card fee', 1, NULL, 1),
  44               ('OVERDUE', 'Overdue fine', 0, NULL, 1),
  45               ('PF', 'Lost item processing fee', 0, NULL, 1),
  46               ('RENT', 'Rental fee', 0, NULL, 1),
  47               ('RENT_DAILY', 'Daily rental fee', 0, NULL, 1),
  48               ('RENT_RENEW', 'Renewal of rental item', 0, NULL, 1),
  49               ('RENT_DAILY_RENEW', 'Rewewal of daily rental item', 0, NULL, 1),
  50               ('Res', 'Hold fee', 0, NULL, 1)
  51         }
  52     );
  53
  54     $dbh->do(
  55         qq{
  56             INSERT IGNORE INTO account_debit_types (
  57               code,
  58               default_amount,
  59               description,
  60               can_be_added_manually,
  61               is_system
  62             )
  63             SELECT
  64               SUBSTR(authorised_value, 1, 64),
  65               lib,
  66               authorised_value,
  67               1,
  68               0
  69             FROM
  70               authorised_values
  71             WHERE
  72               category = 'MANUAL_INV'
  73           }
  74     );
  75
  76     $dbh->do(
  77         qq{
  78             ALTER IGNORE TABLE accountlines
  79             ADD
  80               debit_type varchar(64) DEFAULT NULL
  81             AFTER
  82               accounttype
  83           }
  84     );
  85
  86     $dbh->do(
  87         qq{
  88         ALTER TABLE accountlines ADD CONSTRAINT `accountlines_ibfk_debit_type` FOREIGN KEY (`debit_type`) REFERENCES `account_debit_types` (`code`) ON DELETE SET NULL ON UPDATE CASCADE
  89           }
  90     );
  91
  92     $dbh->do(
  93         qq{
  94         UPDATE accountlines SET debit_type = accounttype, accounttype = NULL WHERE accounttype IN (SELECT code from account_debit_types)
  95         }
  96     );
  97
  98     # Clean up MANUAL_INV
  99     $dbh->do(
 100         qq{
 101         DELETE FROM authorised_values WHERE category = 'MANUAL_INV'
 102         }
 103     );
 104     $dbh->do(
 105         qq{
 106         DELETE FROM authorised_value_categories WHERE category_name = 'MANUAL_INV'
 107         }
 108     );
 109
 110     # Add new permission
 111     $dbh->do(
 112         q{
 113             INSERT IGNORE INTO permissions (module_bit, code, description)
 114             VALUES
 115               (
 116                 3,
 117                 'manage_accounts',
 118                 'Manage Account Debit and Credit Types'
 119               )
 120         }
 121     );
 122
 123     SetVersion($DBversion);
 124     print "Upgrade to $DBversion done (Bug 23049 - Add account debit_types)\n";
 125 }