Bug 33317: (follow-up) Perltidy
Signed-off-by: Owen Leonard <oleonard@myacpl.org> Signed-off-by: Lucas Gass <lucas@bywatersolutions.com> Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
This commit is contained in:
parent
3708396e84
commit
366b9ecabe
1 changed files with 7 additions and 5 deletions
12
installer/data/mysql/atomicupdate/bug_33317.pl
Normal file → Executable file
12
installer/data/mysql/atomicupdate/bug_33317.pl
Normal file → Executable file
|
@ -1,14 +1,16 @@
|
||||||
use Modern::Perl;
|
use Modern::Perl;
|
||||||
|
|
||||||
return {
|
return {
|
||||||
bug_number => "33317",
|
bug_number => "33317",
|
||||||
description => "Add new system preference OpacMetaRobots",
|
description => "Add new system preference OpacMetaRobots",
|
||||||
up => sub {
|
up => sub {
|
||||||
my ($args) = @_;
|
my ($args) = @_;
|
||||||
my ($dbh, $out) = @$args{qw(dbh out)};
|
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') });
|
$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'";
|
say $out "Added system preference 'OpacMetaRobots'";
|
||||||
},
|
},
|
||||||
};
|
};
|
||||||
|
|
Loading…
Reference in a new issue