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

(-)a/C4/Letters.pm (-1 / +4 lines)
Lines 1758-1769 sub _set_message_status { Link Here
1758
    my $sth       = $dbh->prepare($statement);
1758
    my $sth       = $dbh->prepare($statement);
1759
    my $result    = $sth->execute(
1759
    my $result    = $sth->execute(
1760
        $params->{'status'},
1760
        $params->{'status'},
1761
        $params->{'failure_code'} || '',
1761
        $params->{'failure_code'}     || '',
1762
        $params->{'response_message'} || '',
1762
        $params->{'message_id'}
1763
        $params->{'message_id'}
1763
    );
1764
    );
1765
1764
    return $result;
1766
    return $result;
1765
}
1767
}
1766
1768
1769
1767
sub _process_tt {
1770
sub _process_tt {
1768
    my ($params) = @_;
1771
    my ($params) = @_;
1769
1772
(-)a/installer/data/mysql/atomicupdate/bug_28400.pl (-1 / +24 lines)
Line 0 Link Here
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(
13
                q{
14
                ALTER TABLE message_queue
15
                ADD COLUMN response_message MEDIUMTEXT
16
            }
17
            );
18
        }
19
20
        # Print useful stuff here
21
        say_success( $out, "Added column 'message_queue.response_message'" );
22
    },
23
};
24

Return to bug 28400