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:
Hammat Wele 2024-01-04 13:28:10 +00:00 committed by Katrin Fischer
parent 3708396e84
commit 366b9ecabe
Signed by: kfischer
GPG key ID: 0EF6E2C03357A834

12
installer/data/mysql/atomicupdate/bug_33317.pl Normal file → Executable file
View 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'";
}, },
}; };