Attachment #160534 for bug #33317

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




use Modern::Perl;

return {
    bug_number  => "33317",
    description => "Add new system preference OpacMetaRobots",
    up          => sub {
        my ($args) = @_;
        my ( $dbh, $out ) = @$args{qw(dbh out)};

        $dbh->do(
            q{INSERT IGNORE INTO systempreferences (variable, value, options, explanation, type) VALUES ('OpacMetaRobots','','','Improve search engine crawling.', 'Multiple') }
        );

        say $out "Added system preference 'OpacMetaRobots'";
    },
- 

Return to bug 33317

Lines 1-13 Link Here

(-)a/installer/data/mysql/atomicupdate/bug_33317.pl (-5 / +6 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2		2
3	return {	3	return {
4	bug_number => "33317",	4	bug_number => "33317",
5	description => "Add new system preference OpacMetaRobots",	5	description => "Add new system preference OpacMetaRobots",
6	up => sub {	6	up => sub {
7	my ($args) = @_;	7	my ($args) = @_;
8	my ($dbh, $out) = @$args{qw(dbh out)};	8	my ( $dbh, $out ) = @$args{qw(dbh out)};
9		9
10	$dbh->do(q{INSERT IGNORE INTO systempreferences (variable, value, options, explanation, type) VALUES ('OpacMetaRobots','','','Improve search engine crawling.', 'Multiple') });	10	$dbh->do(
		11	q{INSERT IGNORE INTO systempreferences (variable, value, options, explanation, type) VALUES ('OpacMetaRobots','','','Improve search engine crawling.', 'Multiple') }
		12	);
11		13
12	say $out "Added system preference 'OpacMetaRobots'";	14	say $out "Added system preference 'OpacMetaRobots'";
13	},	15	},
14	-