installer/data/mysql/atomicupdate/bug-19036.perl

   1 $DBversion = 'XXX';
   2 if (CheckVersion($DBversion)) {
   3     unless (column_exists('accountlines', 'credit_number')) {
   4         $dbh->do('ALTER TABLE accountlines ADD COLUMN credit_number VARCHAR(20) NULL DEFAULT NULL COMMENT "autogenerated number for credits" AFTER debit_type_code');
   5     }
   6
   7     unless (column_exists('account_credit_types', 'credit_number_enabled')) {
   8         $dbh->do(q{
   9             ALTER TABLE account_credit_types
  10             ADD COLUMN credit_number_enabled TINYINT(1) NOT NULL DEFAULT 0
  11                 COMMENT "Is autogeneration of credit number enabled for this credit type"
  12                 AFTER can_be_added_manually
  13         });
  14     }
  15
  16     $dbh->do('INSERT IGNORE INTO systempreferences (variable, value, options, explanation, type) VALUES(?, ?, ?, ?, ?)', undef, 'AutoCreditNumber', '', '', 'Automatically generate a number for account credits', 'Choice');
  17
  18     SetVersion($DBversion);
  19     print "Upgrade to $DBversion done (Bug 19036 - Add accountlines.credit_number, account_credit_types.credit_number_enabled and syspref AutoCreditNumber)\n";
  20 }