installer/data/mysql/atomicupdate/bug_14237-add_course_items.biblionumber_column.perl

   1 $DBversion = 'XXX';
   2 if( CheckVersion( $DBversion ) ){
   3     unless( column_exists( 'course_items', 'biblionumber') ) {
   4         $dbh->do(q{ ALTER TABLE course_items ADD `biblionumber` int(11) AFTER `itemnumber` });
   5
   6         $dbh->do(q{
   7             UPDATE course_items
   8             LEFT JOIN items ON items.itemnumber=course_items.itemnumber
   9             SET course_items.biblionumber=items.biblionumber
  10             WHERE items.itemnumber IS NOT NULL
  11         });
  12
  13         $dbh->do(q{ ALTER TABLE course_items MODIFY COLUMN `biblionumber` INT(11) NOT NULL });
  14
  15         $dbh->do(q{ ALTER TABLE course_items ADD CONSTRAINT `fk_course_items_biblionumber` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE });
  16         $dbh->do(q{ ALTER TABLE course_items CHANGE `itemnumber` `itemnumber` int(11) DEFAULT NULL });
  17     }
  18
  19     NewVersion( $DBversion, 14237, ["Add course_items.biblionumber column", "Add fk_course_items_biblionumber constraint", "Change course_items.itemnumber to allow NULL values"] );
  20 }