From 6b591108eaa92971130e403317ff75a8bc6b467b Mon Sep 17 00:00:00 2001 From: Katrin Fischer Date: Sun, 19 Dec 2021 02:55:49 +0000 Subject: [PATCH] Bug 20076: (QA follow-up) Reformat database update to use newer format --- .../add-system-preference-EmailOverduesNoEmail.perl | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) diff --git a/installer/data/mysql/atomicupdate/add-system-preference-EmailOverduesNoEmail.perl b/installer/data/mysql/atomicupdate/add-system-preference-EmailOverduesNoEmail.perl index 783e22d80d..4b4c117837 100644 --- a/installer/data/mysql/atomicupdate/add-system-preference-EmailOverduesNoEmail.perl +++ b/installer/data/mysql/atomicupdate/add-system-preference-EmailOverduesNoEmail.perl @@ -1,9 +1,15 @@ -$DBversion = 'XXX'; -if ( CheckVersion($DBversion ) ) { - $dbh->do(q{ +use Modern::Perl; + +{ + bug_number => "20076", + description => "Add system preference EmailOverduesNoEmail", + up => sub { + my ($args) = @_; + my ($dbh, $out) = @$args{qw(dbh out)}; + + $dbh->do(q{ INSERT IGNORE INTO systempreferences (`variable`,`value`,`options`,`explanation`,`type`) VALUES ('EmailOverduesNoEmail','0','','Set mail sending to staff for patron has overdues but no email address', 'YesNo') }); - - NewVersion( $DBversion,'20076','Add system preference EmailOverduesNoEmail'); + }, } -- 2.11.0