installer/data/mysql/atomicupdate/bug_28813.perl

   1 $DBversion = 'XXX'; # will be replaced by the RM
   2 if( CheckVersion( $DBversion ) ) {
   3     if ( column_exists('message_queue', 'delivery_note') ) {
   4         $dbh->do(q{
   5             ALTER TABLE message_queue CHANGE COLUMN delivery_note failure_code MEDIUMTEXT;
   6         });
   7     }
   8
   9     if( !column_exists( 'message_queue', 'failure_code' ) ) {
  10         $dbh->do(q{
  11             ALTER TABLE message_queue ADD failure_code mediumtext AFTER content_type
  12         });
  13     }
  14
  15     # Always end with this (adjust the bug info)
  16     NewVersion( $DBversion, 28813, "Update delivery_note to failure_code in message_queue");
  17 }