installer/data/mysql/atomicupdate/bug_xxxxx.perl

   1 $DBversion = 'XXX';
   2 if( CheckVersion( $DBversion ) ) {
   3
   4     if( !column_exists( 'letter', 'lang' ) ) {
   5         $dbh->do( "ALTER TABLE letter ADD COLUMN lang VARCHAR(25) NOT NULL DEFAULT 'default' AFTER message_transport_type" );
   6     }
   7
   8     if( !column_exists( 'borrowers', 'lang' ) ) {
   9         $dbh->do( "ALTER TABLE borrowers ADD COLUMN lang VARCHAR(25) NOT NULL DEFAULT 'default' AFTER lastseen" );
  10         $dbh->do( "ALTER TABLE deletedborrowers ADD COLUMN lang VARCHAR(25) NOT NULL DEFAULT 'default' AFTER lastseen" );
  11     }
  12
  13     # Add test on existene of this key
  14     ALTER TABLE message_transports DROP FOREIGN KEY message_transports_ibfk_3;
  15
  16     $dbh->do( "INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
  17         VALUES ('TranslateNotices',  '0',  NULL,  'Allow notices to be translated',  'YesNo') ");
  18
  19     SetVersion( $DBversion );
  20     print "Upgrade to $DBversion done (Bug XXXXX - Add columns letter.lang and borrowers.lang to allow translation of notices)\n";
  21 }