From a609a52e9513ccc17797122b2d0021de595b32d5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Johanna=20R=C3=A4is=C3=A4?= Date: Mon, 29 Jul 2024 09:03:26 +0300 Subject: [PATCH] Bug 28400: Add response_message column to message_queue table Test Plan: 1) Run the updatedatabase.pl script 2) Run update_dbix_class_files.pl 3) Check the message_queue table for the new column Sponsored-by: Koha-Suomi Oy --- C4/Letters.pm | 5 +++- .../data/mysql/atomicupdate/bug_28400.pl | 24 +++++++++++++++++++ 2 files changed, 28 insertions(+), 1 deletion(-) create mode 100755 installer/data/mysql/atomicupdate/bug_28400.pl diff --git a/C4/Letters.pm b/C4/Letters.pm index 7ddb89b5c0..40251e6dd8 100644 --- a/C4/Letters.pm +++ b/C4/Letters.pm @@ -1758,12 +1758,15 @@ sub _set_message_status { my $sth = $dbh->prepare($statement); my $result = $sth->execute( $params->{'status'}, - $params->{'failure_code'} || '', + $params->{'failure_code'} || '', + $params->{'response_message'} || '', $params->{'message_id'} ); + return $result; } + sub _process_tt { my ($params) = @_; diff --git a/installer/data/mysql/atomicupdate/bug_28400.pl b/installer/data/mysql/atomicupdate/bug_28400.pl new file mode 100755 index 0000000000..a8b9ea4a0b --- /dev/null +++ b/installer/data/mysql/atomicupdate/bug_28400.pl @@ -0,0 +1,24 @@ +use Modern::Perl; +use Koha::Installer::Output qw(say_warning say_failure say_success say_info); + +return { + bug_number => "28400", + description => "Add response_message column to message_queue table", + up => sub { + my ($args) = @_; + my ( $dbh, $out ) = @$args{qw(dbh out)}; + + if ( !column_exists( 'message_queue', 'response_message' ) ) { + $dbh->do( + q{ + ALTER TABLE message_queue + ADD COLUMN response_message MEDIUMTEXT + } + ); + } + + # Print useful stuff here + say_success( $out, "Added column 'message_queue.response_message'" ); + }, +}; + -- 2.34.1