Attachment #160126 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-14 Link Here

(-)a/installer/data/mysql/atomicupdate/bug_33317.pl (-6 / +5 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(q{INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('OpacMetaRobots','','','Improve search engine crawling.', 'Multiple')});
11		11
12	say $out "Added system preference 'OpacMetaRobots'";	12	say $out "Added system preference 'OpacMetaRobots'";
13	},	13	},
14	};	14	};
15	-