From f4d4a6c91e0b4ab523b0013f9d320f60e79877d6 Mon Sep 17 00:00:00 2001 From: Andrew Fuerste Henry Date: Thu, 6 Feb 2025 21:51:09 +0000 Subject: [PATCH] Bug 39062: Increase stocknumber length in items and deleteditems --- .../bug_39062_increase_stocknumber_length.pl | 20 +++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100755 installer/data/mysql/atomicupdate/bug_39062_increase_stocknumber_length.pl diff --git a/installer/data/mysql/atomicupdate/bug_39062_increase_stocknumber_length.pl b/installer/data/mysql/atomicupdate/bug_39062_increase_stocknumber_length.pl new file mode 100755 index 0000000000..db0963b9ad --- /dev/null +++ b/installer/data/mysql/atomicupdate/bug_39062_increase_stocknumber_length.pl @@ -0,0 +1,20 @@ +use Modern::Perl; +use Koha::Installer::Output qw(say_warning say_success say_info); + +return { + bug_number => "39062", + description => "Increase the size of items.stocknumber and deleteditems.stocknumber", + up => sub { + my ($args) = @_; + my ( $dbh, $out ) = @$args{qw(dbh out)}; + + # Do you stuffs here + $dbh->do(q{ALTER TABLE items MODIFY COLUMN stocknumber varchar(80) DEFAULT NULL COMMENT 'inventory number (MARC21 952$i)'}); + $dbh->do(q{ALTER TABLE deleteditems MODIFY COLUMN stocknumber varchar(80) DEFAULT NULL COMMENT 'inventory number (MARC21 952$i)'}); + + # Print useful stuff here + # tables + say $out "Increased length of items.stocknumber"; + say $out "Increased length of deleteditems.stocknumber"; + }, +}; -- 2.39.5