From 5ff8f89474581cd46fd20f02aa0775c1b72fe227 Mon Sep 17 00:00:00 2001 From: Janusz Kaczmarek Date: Fri, 4 Apr 2025 15:57:28 +0000 Subject: [PATCH] Bug 38922: Remove auth_header.origincode, auth_heder.linkid, deletedauth_header.origincode, deletedauth_header.linkid and auth_subfield_structure.linkid from existing installations --- .../bug_38922-clenup-auth_header.pl | 32 +++++++++++++++++++ 1 file changed, 32 insertions(+) create mode 100755 installer/data/mysql/atomicupdate/bug_38922-clenup-auth_header.pl diff --git a/installer/data/mysql/atomicupdate/bug_38922-clenup-auth_header.pl b/installer/data/mysql/atomicupdate/bug_38922-clenup-auth_header.pl new file mode 100755 index 0000000000..ba0862e185 --- /dev/null +++ b/installer/data/mysql/atomicupdate/bug_38922-clenup-auth_header.pl @@ -0,0 +1,32 @@ +use Modern::Perl; +use Koha::Installer::Output qw(say_warning say_success say_info); + +return { + bug_number => "38922", + description => + "Remove auth_header.origincode, auth_heder.linkid, deletedauth_header.origincode, deletedauth_header.linkid and auth_subfield_structure.linkid", + up => sub { + my ($args) = @_; + my ( $dbh, $out ) = @$args{qw(dbh out)}; + + $dbh->do( + q{ + ALTER TABLE auth_header DROP COLUMN origincode, DROP COLUMN linkid + } + ); + $dbh->do( + q{ + ALTER TABLE deletedauth_header DROP COLUMN origincode, DROP COLUMN linkid + } + ); + $dbh->do( + q{ + ALTER TABLE auth_subfield_structure DROP COLUMN linkid + } + ); + + say $out + "Dropped columns 'auth_header.origincode', 'auth_heder.linkid', 'deletedauth_header.origincode', 'deletedauth_header.linkid' and 'auth_subfield_structure.linkid'"; + + }, +}; -- 2.39.5