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     $dbh->do( "ALTER TABLE message_transports DROP FOREIGN KEY message_transports_ibfk_3 ");
  15     $dbh->do( "ALTER TABLE letter DROP PRIMARY KEY ");
  16     $dbh->do( "ALTER TABLE letter ADD PRIMARY KEY (`module`, `code`, `branchcode`, `message_transport_type`, `lang`) ");
  17
  18     $dbh->do( "INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type)
  19         VALUES ('TranslateNotices',  '0',  NULL,  'Allow notices to be translated',  'YesNo') ");
  20
  21     SetVersion( $DBversion );
  22     print "Upgrade to $DBversion done (Bug XXXXX - Add columns letter.lang and borrowers.lang to allow translation of notices)\n";
  23 }