From 436be68e9cef417d0123cd9d04a45b7b85ac9fe3 Mon Sep 17 00:00:00 2001 From: Pedro Amorim Date: Mon, 13 Oct 2025 08:39:54 +0000 Subject: [PATCH] Bug 40517: atomicupdate --- .../bug_40517_-_hold_group_table_updates.pl | 31 +++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100755 installer/data/mysql/atomicupdate/bug_40517_-_hold_group_table_updates.pl diff --git a/installer/data/mysql/atomicupdate/bug_40517_-_hold_group_table_updates.pl b/installer/data/mysql/atomicupdate/bug_40517_-_hold_group_table_updates.pl new file mode 100755 index 00000000000..e520c378a40 --- /dev/null +++ b/installer/data/mysql/atomicupdate/bug_40517_-_hold_group_table_updates.pl @@ -0,0 +1,31 @@ +use Modern::Perl; +use Koha::Installer::Output qw(say_warning say_success say_info); + +return { + bug_number => "40517", + description => "Add 'borrower' column to hold_groups", + up => sub { + my ($args) = @_; + my ( $dbh, $out ) = @$args{qw(dbh out)}; + + unless ( column_exists( 'hold_groups', 'borrowernumber' ) ) { + $dbh->do( + q{ALTER TABLE hold_groups ADD COLUMN borrowernumber int(11) DEFAULT NULL COMMENT 'foreign key, linking this to the borrowers table' AFTER hold_group_id} + ); + $dbh->do( + q{ + ALTER TABLE hold_groups ADD KEY `hold_groups_borrowernumber` (`borrowernumber`) + } + ); + $dbh->do( + q{ + ALTER TABLE hold_groups ADD CONSTRAINT hold_groups_ibfk_1 + FOREIGN KEY(`borrowernumber`) + REFERENCES `borrowers` (`borrowernumber`) + ON DELETE CASCADE; + } + ); + say_success( $out, "Added column 'borrowernumber' to hold_groups" ); + } + }, +}; -- 2.39.5