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

(-)a/installer/data/mysql/atomicupdate/bug29129.pl (-7 / +12 lines)
Lines 1-16 Link Here
1
use Modern::Perl;
1
use Modern::Perl;
2
2
3
return {
3
return {
4
    bug_number => "29129",
4
    bug_number  => "29129",
5
    description => "Update the DisplayClearnScreenButton system pref to allow for a choice between ISSUESLIP and ISSUEQSLIP",
5
    description => "Update the DisplayClearnScreenButton system pref to allow for a choice between ISSUESLIP and ISSUEQSLIP",
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
9
10
        $dbh->do(q{
10
        $dbh->do(q{
11
                    UPDATE systempreferences SET options = 'no|issueslip|issueqslip', type = 'Choice', value = REPLACE( value, 0, 'no'), value =  REPLACE( value, 1, 'issueslip') WHERE variable = 'DisplayClearScreenButton';
11
            UPDATE systempreferences
12
                });
12
            SET
13
        # Print useful stuff here
13
                options = 'no|issueslip|issueqslip',
14
        say $out "Database updated for Bug 29129";
14
                   type = 'Choice',
15
                  value = CASE value
16
                              WHEN 1 THEN 'issueslip'
17
                              ELSE 'no'
18
                          END
19
            WHERE variable = 'DisplayClearScreenButton';
20
        });
15
    },
21
    },
16
};
22
};
17
- 

Return to bug 29129