installer/data/mysql/db_revs/210600006.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => "14237",
   5     description => "Add individual bibliographic records to course reserves",
   6     up => sub {
   7         my ($args) = @_;
   8         my $dbh = $args->{dbh};
   9         my $out = $args->{out};
  10
  11         unless( column_exists( 'course_items', 'biblionumber') ) {
  12             $dbh->do(q{ ALTER TABLE course_items ADD `biblionumber` int(11) AFTER `itemnumber` });
  13
  14             $dbh->do(q{
  15                 UPDATE course_items
  16                 LEFT JOIN items ON items.itemnumber=course_items.itemnumber
  17                 SET course_items.biblionumber=items.biblionumber
  18                 WHERE items.itemnumber IS NOT NULL
  19             });
  20
  21             $dbh->do(q{ ALTER TABLE course_items MODIFY COLUMN `biblionumber` INT(11) NOT NULL });
  22
  23             $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 });
  24             $dbh->do(q{ ALTER TABLE course_items CHANGE `itemnumber` `itemnumber` int(11) DEFAULT NULL });
  25
  26             say $out "Add course_items.biblionumber column";
  27             say $out "Add fk_course_items_biblionumber constraint";
  28             say $out "Change course_items.itemnumber to allow NULL values";
  29         }
  30     },
  31 }