Bug 32630: atomicupdate

Sponsored-by: UKHSA - UK Health Security Agency
Signed-off-by: Jeremy Evans <Jeremy.Evans@ukhsa.gov.uk>
Signed-off-by: Lisette Scheer <lisette@bywatersolutions.com>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>

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" );
+    },
+};