Bug 33720: Update the updatedatabase.pl script to flush caches before running

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
(cherry picked from commit 4391e23ea5)
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
(cherry picked from commit 834245b709)
Signed-off-by: Matt Blenkinsop <matt.blenkinsop@ptfs-europe.com>
This commit is contained in:
Jake Deery 2023-06-07 13:37:09 +02:00 committed by Matt Blenkinsop
parent 7ebdb10573
commit 08d0727020

View file

@ -41,6 +41,7 @@ use C4::Installer;
use Koha::Database;
use Koha;
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Caches;
use MARC::Record;
use MARC::File::XML ( BinaryEncoding => 'utf8' );
@ -69,8 +70,11 @@ $|=1; # flushes output
local $dbh->{RaiseError} = 0;
# Record the version we are coming from
# Flush memcached before we begin
Koha::Caches->get_instance('config')->flush_all;
Koha::Caches->get_instance('sysprefs')->flush_all;
# Record the version we are coming from
my $original_version = C4::Context->preference("Version");
# Deal with virtualshelves