installer/data/mysql/db_revs/210600022.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => "28972",
   5     description => "Add missing foreign key constraints to holds queue table",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9         unless ( foreign_key_exists('tmp_holdsqueue', 'tmp_holdsqueue_ibfk_2') ) {
  10             $dbh->do(q{
  11                 ALTER TABLE tmp_holdsqueue
  12                 ADD CONSTRAINT `tmp_holdsqueue_ibfk_2` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE
  13             });
  14         }
  15         unless ( foreign_key_exists('tmp_holdsqueue', 'tmp_holdsqueue_ibfk_2') ) {
  16             $dbh->do(q{
  17                 ALTER TABLE tmp_holdsqueue
  18                 ADD CONSTRAINT `tmp_holdsqueue_ibfk_3` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE
  19             });
  20         }
  21     },
  22 }