Koha/installer/data/mysql/db_revs/231200016.pl
Katrin Fischer a97565a6d2
Bug 36409: DBRev 23.12.00.016
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
2024-04-05 11:51:22 +02:00

30 lines
923 B
Perl
Executable file

use Modern::Perl;
return {
bug_number => "36409",
description => "Fix capitalization for SerialsDefaultEMailAddress and AcquisitionsDefaultEMailAddress",
up => sub {
my ($args) = @_;
my ( $dbh, $out ) = @$args{qw(dbh out)};
$dbh->do(
q{
UPDATE systempreferences
SET variable = 'SerialsDefaultEmailAddress'
WHERE variable = 'SerialsDefaultEMailAddress';
}
);
say $out "Updated system preference 'SerialsDefaultEMailAddress' -> 'SerialsDefaultEmailAddress'";
$dbh->do(
q{
UPDATE systempreferences
SET variable = 'AcquisitionsDefaultEmailAddress'
WHERE variable = 'AcquisitionsDefaultEMailAddress';
}
);
say $out "Updated system preference 'AcquisitionsDefaultEMailAddress' -> 'AcquisitionsDefaultEmailAddress'";
},
};