Attachment #169821 for bug #28400

View | Details | Raw Unified | Return to bug 28400
Collapse All | Expand All

Lines 1683-1692 sub _set_message_status { Link Here

(-)a/C4/Letters.pm (-1 / +2 lines)
1683	}	1683	}
1684		1684
1685	my $dbh = C4::Context->dbh();	1685	my $dbh = C4::Context->dbh();
1686	my $statement = 'UPDATE message_queue SET status= ?, failure_code= ? WHERE message_id = ?';	1686	my $statement = 'UPDATE message_queue SET status= ?, failure_code= ?, response_message = ? WHERE message_id = ?';
1687	my $sth = $dbh->prepare( $statement );	1687	my $sth = $dbh->prepare( $statement );
1688	my $result = $sth->execute( $params->{'status'},	1688	my $result = $sth->execute( $params->{'status'},
1689	$params->{'failure_code'} \|\| '',	1689	$params->{'failure_code'} \|\| '',
		1690	$params->{'response_message'} \|\| '',
1690	$params->{'message_id'} );	1691	$params->{'message_id'} );
1691	return $result;	1692	return $result;
1692	}	1693	}




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'" );
    },
};

Return to bug 28400

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/bug_28400.pl (-1 / +21 lines)
0	-	1	use Modern::Perl;
		2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);
		3
		4	return {
		5	bug_number => "28400",
		6	description => "Add response_message column to message_queue table",
		7	up => sub {
		8	my ($args) = @_;
		9	my ( $dbh, $out ) = @$args{qw(dbh out)};
		10
		11	if ( !column_exists( 'message_queue', 'response_message' ) ) {
		12	$dbh->do(q{
		13	ALTER TABLE message_queue
		14	ADD COLUMN response_message MEDIUMTEXT
		15	});
		16	}
		17
		18	# Print useful stuff here
		19	say_success( $out, "Added column 'message_queue.response_message'" );
		20	},
		21	};