Bug 20076: (QA follow-up) Reformat database update to use newer format

Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>

diff --git a/installer/data/mysql/atomicupdate/add-system-preference-EmailOverduesNoEmail.perl b/installer/data/mysql/atomicupdate/add-system-preference-EmailOverduesNoEmail.perl
index 783e22d..4b4c117 100644 (file)
--- 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');
+    },
 }