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

(-)a/installer/data/mysql/atomicupdate/bug_36409-fix_syspref_capitalization_AcquisitionsDefaultEmailAddress_SerialsDefaultEmailAddress.pl (-1 / +30 lines)
Line 0 Link Here
0
- 
1
use Modern::Perl;
2
3
return {
4
    bug_number  => "36409",
5
    description => "Fix capitalization for SerialsDefaultEMailAddress and AcquisitionsDefaultEMailAddress",
6
    up          => sub {
7
        my ($args) = @_;
8
        my ( $dbh, $out ) = @$args{qw(dbh out)};
9
10
        $dbh->do(
11
            q{
12
            UPDATE systempreferences
13
            SET variable = 'SerialsDefaultEmailAddress'
14
            WHERE variable = 'SerialsDefaultEMailAddress';
15
        }
16
        );
17
18
        say $out "Updated system preference 'SerialsDefaultEMailAddress' -> SerialsDefaultEmailAddress";
19
20
        $dbh->do(
21
            q{
22
            UPDATE systempreferences
23
            SET variable = 'AcquisitionsDefaultEmailAddress'
24
            WHERE variable = 'AcquisitionsDefaultEMailAddress';
25
        }
26
        );
27
28
        say $out "Updated system preference 'AcquisitionsDefaultEMailAddress' -> AcquisitionsDefaultEmailAddress";
29
    },
30
};

Return to bug 36409