From 6e7a3b494493de1ae39577b091cc4864cd2a436e Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 10 May 2021 13:27:04 +0000 Subject: [PATCH] Bug 28108: DBRev 20.12.00.049 Signed-off-by: Jonathan Druart Signed-off-by: Jonathan Druart --- Koha.pm | 2 +- installer/data/mysql/atomicupdate/claimslog.perl | 14 -------------- installer/data/mysql/updatedatabase.pl | 14 ++++++++++++++ 3 files changed, 15 insertions(+), 15 deletions(-) delete mode 100644 installer/data/mysql/atomicupdate/claimslog.perl diff --git a/Koha.pm b/Koha.pm index 636ca9027e..2f07bcd155 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 = "20.12.00.048"; +$VERSION = "20.12.00.049"; sub version { return $VERSION; diff --git a/installer/data/mysql/atomicupdate/claimslog.perl b/installer/data/mysql/atomicupdate/claimslog.perl deleted file mode 100644 index 037339cbaf..0000000000 --- a/installer/data/mysql/atomicupdate/claimslog.perl +++ /dev/null @@ -1,14 +0,0 @@ -$DBversion = 'XXX'; # will be replaced by the RM -if ( CheckVersion($DBversion) ) { - $dbh->do(q{ - UPDATE action_logs SET module = 'CLAIMS' - WHERE module = 'ACQUISITIONS' AND ( action = 'SERIAL CLAIM' OR action = 'ACQUISITION CLAIM') - }); - - $dbh->do(q{ - UPDATE systempreferences SET variable = 'ClaimsLog' WHERE variable = 'LetterLog'; - }); - - # Always end with this (adjust the bug info) - NewVersion( $DBversion, XXXXX, "Description" ); -} diff --git a/installer/data/mysql/updatedatabase.pl b/installer/data/mysql/updatedatabase.pl index e479fde3ae..c555f8f1a6 100755 --- a/installer/data/mysql/updatedatabase.pl +++ b/installer/data/mysql/updatedatabase.pl @@ -24250,6 +24250,20 @@ if( CheckVersion( $DBversion ) ) { NewVersion( $DBversion, 26995, "Drop column relationship from borrower tables"); } +$DBversion = '20.12.00.049'; +if ( CheckVersion($DBversion) ) { + $dbh->do(q{ + UPDATE action_logs SET module = 'CLAIMS' + WHERE module = 'ACQUISITIONS' AND ( action = 'SERIAL CLAIM' OR action = 'ACQUISITION CLAIM') + }); + + $dbh->do(q{ + UPDATE systempreferences SET variable = 'ClaimsLog' WHERE variable = 'LetterLog'; + }); + + NewVersion( $DBversion, 28108, "Move action logs 'SERIAL CLAIM' and 'ACQUISITION CLAIM' to a new 'CLAIMS' module" ); +} + # SEE bug 13068 # if there is anything in the atomicupdate, read and execute it. my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/'; -- 2.39.5