diff --git a/installer/data/mysql/atomicupdate/bug_32630.pl b/installer/data/mysql/atomicupdate/bug_32630.pl new file mode 100755 index 0000000000..2f543cfb5a --- /dev/null +++ b/installer/data/mysql/atomicupdate/bug_32630.pl @@ -0,0 +1,24 @@ +use Modern::Perl; +use Koha::Installer::Output qw(say_warning say_success say_info); + +return { + bug_number => "32630", + description => "Don't delete illrequests when borrower is deleted", + up => sub { + my ($args) = @_; + my ( $dbh, $out ) = @$args{qw(dbh out)}; + + $dbh->do(q{ ALTER TABLE illrequests DROP FOREIGN KEY illrequests_bnfk }); + $dbh->do( + q{ + ALTER TABLE illrequests ADD CONSTRAINT illrequests_bnfk + FOREIGN KEY(`borrowernumber`) + REFERENCES `borrowers` (`borrowernumber`) + ON DELETE SET NULL ON UPDATE CASCADE; + } + ); + + # Other information + say_success( $out, "Updated borrowernumber constraint" ); + }, +};