installer/data/mysql/atomicupdate/bug_22155.perl

   1 $DBversion = 'XXX';
   2 if( CheckVersion( $DBversion ) ) {
   3
   4     if ( column_exists( 'biblio_metadata', 'marcflavour' ) ) {
   5         $dbh->do(q{
   6             ALTER TABLE biblio_metadata
   7                 CHANGE COLUMN marcflavour `schema` VARCHAR(16)
   8         });
   9     }
  10
  11     if ( column_exists( 'deletedbiblio_metadata', 'marcflavour' ) ) {
  12         $dbh->do(q{
  13             ALTER TABLE deletedbiblio_metadata
  14                 CHANGE COLUMN marcflavour `schema` VARCHAR(16)
  15         });
  16     }
  17
  18     SetVersion( $DBversion );
  19     print "Upgrade to $DBversion done (Bug 22155 - biblio_metadata.marcflavour should be renamed 'schema')\n";
  20 }