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

(-)a/installer/data/mysql/atomicupdate/bug_33567.pl (-1 / +17 lines)
Line 0 Link Here
0
- 
1
use Modern::Perl;
2
3
return {
4
    bug_number => 33567,
5
    description => "Replace empty Reference_NFL_Statuses pref",
6
    up => sub {
7
        my ($args) = @_;
8
        my ($dbh, $out) = @$args{qw(dbh out)};
9
10
        my $rv = $dbh->do(q{
11
            UPDATE systempreferences SET value='1|2'
12
            WHERE variable = 'Reference_NFL_Statuses' AND COALESCE(value,'')=''
13
        });
14
        say $out "Updated preference Reference_NFL_Statuses to default"
15
            if $rv && $rv == 1;
16
    },
17
};

Return to bug 33567