From 9d32bd9bc87a21521649bdfe0a4fb5e4883c8ed4 Mon Sep 17 00:00:00 2001 From: Andrew Fuerste Henry Date: Fri, 22 Nov 2024 20:08:36 +0000 Subject: [PATCH] Bug 38522: Increase erm_agreements.license_info length to test: 1- try to save an agreement with 81+ characters in License Info 2- it does not save 3- apply patch, updatedatabase 4- repeat 1, it works! --- .../bug_38522_increase_field_length.pl | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100755 installer/data/mysql/atomicupdate/bug_38522_increase_field_length.pl diff --git a/installer/data/mysql/atomicupdate/bug_38522_increase_field_length.pl b/installer/data/mysql/atomicupdate/bug_38522_increase_field_length.pl new file mode 100755 index 0000000000..28a0b6a201 --- /dev/null +++ b/installer/data/mysql/atomicupdate/bug_38522_increase_field_length.pl @@ -0,0 +1,18 @@ +use Modern::Perl; +use Koha::Installer::Output qw(say_warning say_success say_info); + +return { + bug_number => "38522", + description => "increase erm_agreements.license_info length", + up => sub { + my ($args) = @_; + my ( $dbh, $out ) = @$args{qw(dbh out)}; + + # Do you stuffs here + $dbh->do(q{ALTER TABLE erm_agreements MODIFY COLUMN license_info mediumtext}); + + # Print useful stuff here + # tables + say $out "Set erm_agreements.license_info to type mediumtext."; + }, +}; -- 2.39.5