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

(-)a/installer/data/mysql/atomicupdate/bug_8179.perl (-15 lines)
Lines 1-15 Link Here
1
$DBversion = 'XXX'; # will be replaced by the RM
2
if( CheckVersion( $DBversion ) ) {
3
    # you can use $dbh here like:
4
    $dbh->do( qq{
5
        INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES
6
        ('AcqReceiveMultipleOrderLines', '0', NULL, 'Process multiple order lines at once', 'YesNo')
7
    });
8
    # or perform some test and warn
9
    # if( !column_exists( 'biblio', 'biblionumber' ) ) {
10
    #    warn "There is something wrong";
11
    # }
12
13
    # Always end with this (adjust the bug info)
14
    NewVersion( $DBversion, 8179, "Add AcqReceiveMultipleOrderLines system preference");
15
}
(-)a/installer/data/mysql/atomicupdate/bug_8179.pl (-1 / +17 lines)
Line 0 Link Here
0
- 
1
use Modern::Perl;
2
3
return {
4
    bug_number  => "8179",
5
    description => "Acquisitions orders: multi-receive",
6
    up => sub {
7
        my ($args) = @_;
8
        my ($dbh, $out) = @$args{qw(dbh out)};
9
10
        $dbh->do(q{
11
            INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES
12
            ('AcqReceiveMultipleOrderLines', '0', NULL, 'Process multiple order lines at once', 'YesNo')
13
        });
14
15
        say $out "Added new system preference 'AcqReceiveMultipleOrderLines'";
16
    },
17
};

Return to bug 8179