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

(-)a/installer/data/mysql/atomicupdate/bug_30025.pl (-1 / +21 lines)
Line 0 Link Here
0
- 
1
use Modern::Perl;
2
3
return {
4
    bug_number => "30025",
5
    description => "Split and rename BiblioAddsAuthorities system preference",
6
    up => sub {
7
        my ($args) = @_;
8
        my ($dbh, $out) = @$args{qw(dbh out)};
9
        my $biblio_adds_authorities = C4::Context->preference('BiblioAddsAuthorities');
10
        # Do you stuffs here
11
        $dbh->do(q{
12
            INSERT IGNORE INTO systempreferences
13
            ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES
14
            ('AllowManualAuthorityEditing',?,NULL,'Allow manual entry in controlled fields during cataloging.','YesNo'),
15
            ('AutoLinkBiblios',?,NULL,'If enabled, link biblio to authorities on creation and edit','YesNo')
16
        },undef,($biblio_adds_authorities,$biblio_adds_authorities));
17
        say $out "Added AllowManualAuthorityEditing and AutoLinkBiblios";
18
        $dbh->do(q{DELETE FROM systempreferences WHERE variable="BiblioAddsAuthorities";});
19
        say $out "BiblioAddsAuthorities removed";
20
    },
21
};

Return to bug 30025