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

(-)a/installer/data/mysql/atomicupdate/bug_27981.pl (-1 / +17 lines)
Line 0 Link Here
0
- 
1
use Modern::Perl;
2
3
return {
4
    bug_number => "27981",
5
    description => "Make it possible to force 001 = biblionumber",
6
    up => sub {
7
        my ($args) = @_;
8
        my ($dbh, $out) = @$args{qw(dbh out)};
9
        # Do you stuffs here
10
        $dbh->do(q{
11
            INSERT IGNORE INTO systempreferences (variable, value, options, explanation, type) VALUES ('autoControlNumber','OFF','biblionumber|OFF',
12
            'Used to autogenerate a Control Number: biblionumber will be as biblionumber; OFF will leave it as is','Choice');
13
        });
14
        # Print useful stuff here
15
        say $out "Added system preference autoControlNumber";
16
    },
17
};

Return to bug 27981