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

(-)a/installer/data/mysql/atomicupdate/bug_37967.pl (-5 / +6 lines)
Lines 2-19 use Modern::Perl; Link Here
2
use Koha::Installer::Output qw(say_warning say_failure say_success say_info);
2
use Koha::Installer::Output qw(say_warning say_failure say_success say_info);
3
3
4
return {
4
return {
5
    bug_number  => "BUG_NUMBER",
5
    bug_number  => "37967",
6
    description => "A single line description",
6
    description => "Add auto renewal message_transport for phone",
7
    up          => sub {
7
    up          => sub {
8
        my ($args) = @_;
8
        my ($args) = @_;
9
        my ( $dbh, $out ) = @$args{qw(dbh out)};
9
        my ( $dbh, $out ) = @$args{qw(dbh out)};
10
10
11
        try {
11
        try {
12
            $dbh->do(q{
12
            $dbh->do(
13
                q{
13
                INSERT IGNORE INTO message_transports (`message_attribute_id`, `message_transport_type`, `is_digest`, `letter_module`, `letter_code`) VALUES
14
                INSERT IGNORE INTO message_transports (`message_attribute_id`, `message_transport_type`, `is_digest`, `letter_module`, `letter_code`) VALUES
14
                (9, 'phone', 1, 'circulation', 'AUTO_RENEWALS_DGST'),
15
                (9, 'phone', 1, 'circulation', 'AUTO_RENEWALS_DGST'),
15
                (9, 'phone',  0, 'circulation', 'AUTO_RENEWALS');
16
                (9, 'phone',  0, 'circulation', 'AUTO_RENEWALS');
16
            });
17
            }
18
            );
17
            say_success( $out, "Added phone messaging transports for auto-renewals" );
19
            say_success( $out, "Added phone messaging transports for auto-renewals" );
18
        } catch {
20
        } catch {
19
            say_failure( $out, "Error adding phone messaging transports for auto-renewals: $_" );
21
            say_failure( $out, "Error adding phone messaging transports for auto-renewals: $_" );
20
- 

Return to bug 37967