Attachment #148985 for bug #8179

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




$DBversion = 'XXX'; # will be replaced by the RM
if( CheckVersion( $DBversion ) ) {
    # you can use $dbh here like:
    $dbh->do( qq{
        INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES
        ('AcqReceiveMultipleOrderLines', '0', NULL, 'Process multiple order lines at once', 'YesNo')
    });
    # or perform some test and warn
    # if( !column_exists( 'biblio', 'biblionumber' ) ) {
    #    warn "There is something wrong";
    # }

    # Always end with this (adjust the bug info)
    NewVersion( $DBversion, 8179, "Add AcqReceiveMultipleOrderLines system preference");
}




use Modern::Perl;

return {
    bug_number  => "8179",
    description => "Acquisitions orders: multi-receive",
    up => sub {
        my ($args) = @_;
        my ($dbh, $out) = @$args{qw(dbh out)};

        $dbh->do(q{
            INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES
            ('AcqReceiveMultipleOrderLines', '0', NULL, 'Process multiple order lines at once', 'YesNo')
        });

        say $out "Added new system preference 'AcqReceiveMultipleOrderLines'";
    },
};

Return to bug 8179

Lines 1-15 Link Here

(-)a/installer/data/mysql/atomicupdate/bug_8179.perl (-15 lines)
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	}

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/bug_8179.pl (-1 / +17 lines)
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	};