From 7ce74ab1330b4eedfa3502c85a4a6b8bdb009bd9 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 6 Oct 2021 14:55:45 +0200 Subject: [PATCH] Bug 25429: DBRev 21.06.00.030 Signed-off-by: Jonathan Druart --- Koha.pm | 2 +- installer/data/mysql/atomicupdate/bug_25429.perl | 9 --------- installer/data/mysql/db_revs/210600030.pl | 14 ++++++++++++++ 3 files changed, 15 insertions(+), 10 deletions(-) delete mode 100644 installer/data/mysql/atomicupdate/bug_25429.perl create mode 100755 installer/data/mysql/db_revs/210600030.pl diff --git a/Koha.pm b/Koha.pm index 3a8005f45c..eecfe8249f 100644 --- a/Koha.pm +++ b/Koha.pm @@ -29,7 +29,7 @@ use vars qw{ $VERSION }; # - #4 : the developer version. The 4th number is the database subversion. # used by developers when the database changes. updatedatabase take care of the changes itself # and is automatically called by Auth.pm when needed. -$VERSION = "21.06.00.029"; +$VERSION = "21.06.00.030"; sub version { return $VERSION; diff --git a/installer/data/mysql/atomicupdate/bug_25429.perl b/installer/data/mysql/atomicupdate/bug_25429.perl deleted file mode 100644 index c9d4222f9c..0000000000 --- a/installer/data/mysql/atomicupdate/bug_25429.perl +++ /dev/null @@ -1,9 +0,0 @@ -$DBversion = 'XXX'; # will be replaced by the RM -if( CheckVersion( $DBversion ) ) { - $dbh->do(q{ - INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES - ('CleanUpDatabaseReturnClaims', '', '', 'Sets the age of resolved return claims to delete from the database for cleanup_database.pl', 'Integer' ); - }); - - NewVersion( $DBversion, 25429, "Cleanup Database - remove resolved claims returned from db after X days"); -} diff --git a/installer/data/mysql/db_revs/210600030.pl b/installer/data/mysql/db_revs/210600030.pl new file mode 100755 index 0000000000..316e3a021f --- /dev/null +++ b/installer/data/mysql/db_revs/210600030.pl @@ -0,0 +1,14 @@ +use Modern::Perl; + +return { + bug_number => "25429", + description => "Add new system preference CleanUpDatabaseReturnClaims", + up => sub { + my ($args) = @_; + my ($dbh, $out) = @$args{qw(dbh out)}; + $dbh->do(q{ + INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES + ('CleanUpDatabaseReturnClaims', '', '', 'Sets the age of resolved return claims to delete from the database for cleanup_database.pl', 'Integer' ); + }); + }, +} -- 2.39.5