5 description => "Add individual bibliographic records to course reserves",
8 my $dbh = $args->{dbh};
9 my $out = $args->{out};
11 unless( column_exists( 'course_items', 'biblionumber') ) {
12 $dbh->do(q{ ALTER TABLE course_items ADD `biblionumber` int(11) AFTER `itemnumber` });
16 LEFT JOIN items ON items.itemnumber=course_items.itemnumber
17 SET course_items.biblionumber=items.biblionumber
18 WHERE items.itemnumber IS NOT NULL
21 $dbh->do(q{ ALTER TABLE course_items MODIFY COLUMN `biblionumber` INT(11) NOT NULL });
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 });
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";