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

(-)a/installer/data/mysql/atomicupdate/bug_28872_update_log_values.pl (-7 / +2 lines)
Lines 1-16 Link Here
1
use Modern::Perl;
1
use Modern::Perl;
2
2
3
{
3
return {
4
    bug_number => "28872",
4
    bug_number => "28872",
5
    description => "update values from on and off to 1 and 0",
5
    description => "Update syspref values from on and off to 1 and 0",
6
    up => sub {
6
    up => sub {
7
        my ($args) = @_;
7
        my ($args) = @_;
8
        my ($dbh, $out) = @$args{qw(dbh out)};
8
        my ($dbh, $out) = @$args{qw(dbh out)};
9
        # Do you stuffs here
10
        $dbh->do(q{update systempreferences set value=1 where variable in ('AcquisitionLog', 'NewsLog', 'NoticesLog') and value='on'});
9
        $dbh->do(q{update systempreferences set value=1 where variable in ('AcquisitionLog', 'NewsLog', 'NoticesLog') and value='on'});
11
        $dbh->do(q{update systempreferences set value=0 where variable in ('AcquisitionLog', 'NewsLog', 'NoticesLog') and value='off'});
10
        $dbh->do(q{update systempreferences set value=0 where variable in ('AcquisitionLog', 'NewsLog', 'NoticesLog') and value='off'});
12
13
        # Print useful stuff here
14
        say $out "Update is going well so far";
15
    },
11
    },
16
}
12
}
17
- 

Return to bug 28872