From 56ada053c4fb2ee389e49cfed3f46c94f8746a37 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 20 Jul 2022 09:38:57 +0200 Subject: [PATCH] Bug 31196: Remove 'default_value_for_mod_marc-' clear_from_cache calls We are seeing the following lines several times in the codebase $cache->clear_from_cache("default_value_for_mod_marc-"); But values are never set for this key. Test plan: Ask you, "Is the above correct?" Use the correct 'git grep' and 'git log' and confirm the assertion. Signed-off-by: Marcel de Rooy Signed-off-by: Tomas Cohen Arazi (cherry picked from commit 93d44d18759d43a09f6c623ffe4fa81dca4dcaa2) Signed-off-by: Lucas Gass (cherry picked from commit 867c03bf6abba10eff72d125efca02c72ecba2e0) Signed-off-by: Arthur Suzuki --- admin/biblio_framework.pl | 2 -- admin/koha2marclinks.pl | 4 +--- admin/marc_subfields_structure.pl | 2 -- admin/marctagstructure.pl | 2 -- installer/data/mysql/updatedatabase.pl | 1 - t/db_dependent/Items.t | 2 -- t/db_dependent/Items/AutomaticItemModificationByAge.t | 2 -- t/db_dependent/Koha/Biblio.t | 2 -- t/db_dependent/Koha/Item.t | 2 -- t/db_dependent/Koha/Item/Attributes.t | 1 - t/db_dependent/Koha/UI/Form/Builder/Item.t | 2 -- t/db_dependent/Reserves.t | 2 -- 12 files changed, 1 insertion(+), 23 deletions(-) diff --git a/admin/biblio_framework.pl b/admin/biblio_framework.pl index 4712f0ea72..d8988e0ecd 100755 --- a/admin/biblio_framework.pl +++ b/admin/biblio_framework.pl @@ -78,7 +78,6 @@ if ( $op eq 'add_form' ) { } $cache->clear_from_cache("MarcStructure-0-$frameworkcode"); $cache->clear_from_cache("MarcStructure-1-$frameworkcode"); - $cache->clear_from_cache("default_value_for_mod_marc-"); $cache->clear_from_cache("MarcSubfieldStructure-$frameworkcode"); $cache->clear_from_cache("MarcCodedFields-$frameworkcode"); $op = 'list'; @@ -110,7 +109,6 @@ if ( $op eq 'add_form' ) { } $cache->clear_from_cache("MarcStructure-0-$frameworkcode"); $cache->clear_from_cache("MarcStructure-1-$frameworkcode"); - $cache->clear_from_cache("default_value_for_mod_marc-"); $cache->clear_from_cache("MarcSubfieldStructure-$frameworkcode"); $cache->clear_from_cache("MarcCodedFields-$frameworkcode"); $op = 'list'; diff --git a/admin/koha2marclinks.pl b/admin/koha2marclinks.pl index e731cbebe2..04e02e262e 100755 --- a/admin/koha2marclinks.pl +++ b/admin/koha2marclinks.pl @@ -66,9 +66,7 @@ if( $input->param('add_field') && $input->request_method eq 'POST' ) { # Clear the cache when needed unless( $no_upd ) { - for( qw| default_value_for_mod_marc- MarcSubfieldStructure- | ) { - $cache->clear_from_cache($_); - } + $cache->clear_from_cache("MarcSubfieldStructure-"); } # Build/Show the form diff --git a/admin/marc_subfields_structure.pl b/admin/marc_subfields_structure.pl index de86c6f39a..8b02c6f154 100755 --- a/admin/marc_subfields_structure.pl +++ b/admin/marc_subfields_structure.pl @@ -307,7 +307,6 @@ elsif ( $op eq 'add_validate' ) { } $cache->clear_from_cache("MarcStructure-0-$frameworkcode"); $cache->clear_from_cache("MarcStructure-1-$frameworkcode"); - $cache->clear_from_cache("default_value_for_mod_marc-"); $cache->clear_from_cache("MarcSubfieldStructure-$frameworkcode"); $cache->clear_from_cache("MarcCodedFields-$frameworkcode"); @@ -346,7 +345,6 @@ elsif ( $op eq 'delete_confirmed' ) { $cache->clear_from_cache("MarcStructure-0-$frameworkcode"); $cache->clear_from_cache("MarcStructure-1-$frameworkcode"); - $cache->clear_from_cache("default_value_for_mod_marc-"); $cache->clear_from_cache("MarcSubfieldStructure-$frameworkcode"); $cache->clear_from_cache("MarcCodedFields-$frameworkcode"); print $input->redirect("/cgi-bin/koha/admin/marc_subfields_structure.pl?tagfield=$tagfield&frameworkcode=$frameworkcode"); diff --git a/admin/marctagstructure.pl b/admin/marctagstructure.pl index 3514baca93..fbb955db41 100755 --- a/admin/marctagstructure.pl +++ b/admin/marctagstructure.pl @@ -153,7 +153,6 @@ if ($op eq 'add_form') { } $cache->clear_from_cache("MarcStructure-0-$frameworkcode"); $cache->clear_from_cache("MarcStructure-1-$frameworkcode"); - $cache->clear_from_cache("default_value_for_mod_marc-"); $cache->clear_from_cache("MarcSubfieldStructure-$frameworkcode"); $cache->clear_from_cache("MarcCodedFields-$frameworkcode"); print $input->redirect("/cgi-bin/koha/admin/marctagstructure.pl?searchfield=$tagfield&frameworkcode=$frameworkcode"); @@ -179,7 +178,6 @@ if ($op eq 'add_form') { $sth2->execute($searchfield, $frameworkcode); $cache->clear_from_cache("MarcStructure-0-$frameworkcode"); $cache->clear_from_cache("MarcStructure-1-$frameworkcode"); - $cache->clear_from_cache("default_value_for_mod_marc-"); $cache->clear_from_cache("MarcSubfieldStructure-$frameworkcode"); $cache->clear_from_cache("MarcCodedFields-$frameworkcode"); $template->param( searchfield => $searchfield ); diff --git a/installer/data/mysql/updatedatabase.pl b/installer/data/mysql/updatedatabase.pl index ca1ff46afb..4fdf090c16 100755 --- a/installer/data/mysql/updatedatabase.pl +++ b/installer/data/mysql/updatedatabase.pl @@ -15156,7 +15156,6 @@ if( CheckVersion( $DBversion ) ) { for my $frameworkcode (@frameworkcodes) { Koha::Caches->get_instance->clear_from_cache("MarcSubfieldStructure-$frameworkcode"); } - Koha::Caches->get_instance->clear_from_cache("default_value_for_mod_marc-"); } SetVersion( $DBversion ); diff --git a/t/db_dependent/Items.t b/t/db_dependent/Items.t index 120d9b9307..f534446f7d 100755 --- a/t/db_dependent/Items.t +++ b/t/db_dependent/Items.t @@ -538,7 +538,6 @@ subtest 'SearchItems test' => sub { my $cache = Koha::Caches->get_instance(); $cache->clear_from_cache("MarcStructure-0-$frameworkcode"); $cache->clear_from_cache("MarcStructure-1-$frameworkcode"); - $cache->clear_from_cache("default_value_for_mod_marc-"); $cache->clear_from_cache("MarcSubfieldStructure-$frameworkcode"); my $item3_record = MARC::Record->new; @@ -569,7 +568,6 @@ subtest 'SearchItems test' => sub { # Clear cache $cache->clear_from_cache("MarcStructure-0-$frameworkcode"); $cache->clear_from_cache("MarcStructure-1-$frameworkcode"); - $cache->clear_from_cache("default_value_for_mod_marc-"); $cache->clear_from_cache("MarcSubfieldStructure-$frameworkcode"); ModItemFromMarc($item3_record, $biblio->biblionumber, $item3_itemnumber); diff --git a/t/db_dependent/Items/AutomaticItemModificationByAge.t b/t/db_dependent/Items/AutomaticItemModificationByAge.t index db162d6964..26687a8503 100755 --- a/t/db_dependent/Items/AutomaticItemModificationByAge.t +++ b/t/db_dependent/Items/AutomaticItemModificationByAge.t @@ -42,7 +42,6 @@ $dbh->do(qq| my $cache = Koha::Caches->get_instance(); $cache->clear_from_cache("MarcStructure-0-$frameworkcode"); $cache->clear_from_cache("MarcStructure-1-$frameworkcode"); -$cache->clear_from_cache("default_value_for_mod_marc-"); $cache->clear_from_cache("MarcSubfieldStructure-$frameworkcode"); my $record = MARC::Record->new(); @@ -306,6 +305,5 @@ is( $schema->resultset('ActionLog')->count(), $actions_nb, q|ToggleNewStatus: no $cache = Koha::Caches->get_instance(); $cache->clear_from_cache("MarcStructure-0-$frameworkcode"); $cache->clear_from_cache("MarcStructure-1-$frameworkcode"); -$cache->clear_from_cache("default_value_for_mod_marc-"); $cache->clear_from_cache("MarcSubfieldStructure-$frameworkcode"); $schema->storage->txn_rollback; diff --git a/t/db_dependent/Koha/Biblio.t b/t/db_dependent/Koha/Biblio.t index ef0c66e275..40fac9f700 100755 --- a/t/db_dependent/Koha/Biblio.t +++ b/t/db_dependent/Koha/Biblio.t @@ -707,7 +707,6 @@ subtest 'get_marc_notes() MARC21 tests' => sub { my $cache = Koha::Caches->get_instance; $cache->clear_from_cache("MarcStructure-0-"); $cache->clear_from_cache("MarcStructure-1-"); - $cache->clear_from_cache("default_value_for_mod_marc-"); $cache->clear_from_cache("MarcSubfieldStructure-"); C4::Biblio::ModBiblio( $record, $biblio->biblionumber ); @@ -733,7 +732,6 @@ subtest 'get_marc_notes() MARC21 tests' => sub { $cache->clear_from_cache("MarcStructure-0-"); $cache->clear_from_cache("MarcStructure-1-"); - $cache->clear_from_cache("default_value_for_mod_marc-"); $cache->clear_from_cache("MarcSubfieldStructure-"); $schema->storage->txn_rollback; diff --git a/t/db_dependent/Koha/Item.t b/t/db_dependent/Koha/Item.t index 86f24a2ceb..b112420d7a 100755 --- a/t/db_dependent/Koha/Item.t +++ b/t/db_dependent/Koha/Item.t @@ -1084,7 +1084,6 @@ subtest 'columns_to_str' => sub { my $cache = Koha::Caches->get_instance(); $cache->clear_from_cache("MarcStructure-0-"); $cache->clear_from_cache("MarcStructure-1-"); - $cache->clear_from_cache("default_value_for_mod_marc-"); $cache->clear_from_cache("MarcSubfieldStructure-"); # Creating subfields 'é', 'è' that are not linked with a kohafield @@ -1163,7 +1162,6 @@ subtest 'columns_to_str' => sub { $cache->clear_from_cache("MarcStructure-0-"); $cache->clear_from_cache("MarcStructure-1-"); - $cache->clear_from_cache("default_value_for_mod_marc-"); $cache->clear_from_cache("MarcSubfieldStructure-"); $schema->storage->txn_rollback; diff --git a/t/db_dependent/Koha/Item/Attributes.t b/t/db_dependent/Koha/Item/Attributes.t index 8a46b318fe..3f7d8abf2d 100755 --- a/t/db_dependent/Koha/Item/Attributes.t +++ b/t/db_dependent/Koha/Item/Attributes.t @@ -38,7 +38,6 @@ my $item = $builder->build_sample_item({ biblionumber => $biblio->biblionumber } my $cache = Koha::Caches->get_instance; $cache->clear_from_cache("MarcStructure-0-"); $cache->clear_from_cache("MarcStructure-1-"); -$cache->clear_from_cache("default_value_for_mod_marc-"); $cache->clear_from_cache("MarcSubfieldStructure-"); # 952 $x $é $y are not linked with a kohafield diff --git a/t/db_dependent/Koha/UI/Form/Builder/Item.t b/t/db_dependent/Koha/UI/Form/Builder/Item.t index 3be0647dc0..caa538b7cc 100755 --- a/t/db_dependent/Koha/UI/Form/Builder/Item.t +++ b/t/db_dependent/Koha/UI/Form/Builder/Item.t @@ -36,7 +36,6 @@ my $builder = t::lib::TestBuilder->new; my $cache = Koha::Caches->get_instance(); $cache->clear_from_cache("MarcStructure-0-"); $cache->clear_from_cache("MarcStructure-1-"); -$cache->clear_from_cache("default_value_for_mod_marc-"); $cache->clear_from_cache("MarcSubfieldStructure-"); # 952 $x $é are not linked with a kohafield @@ -350,7 +349,6 @@ subtest 'Fix subfill_with_default_values - no biblionumber passed' => sub { $cache->clear_from_cache("MarcStructure-0-"); $cache->clear_from_cache("MarcStructure-1-"); -$cache->clear_from_cache("default_value_for_mod_marc-"); $cache->clear_from_cache("MarcSubfieldStructure-"); sub setup_mss { diff --git a/t/db_dependent/Reserves.t b/t/db_dependent/Reserves.t index 4a33b9bf47..6b74f1dccf 100755 --- a/t/db_dependent/Reserves.t +++ b/t/db_dependent/Reserves.t @@ -66,7 +66,6 @@ $dbh->do("update marc_subfield_structure set kohafield='biblioitems.agerestricti my $cache = Koha::Caches->get_instance; $cache->clear_from_cache("MarcStructure-0-$frameworkcode"); $cache->clear_from_cache("MarcStructure-1-$frameworkcode"); -$cache->clear_from_cache("default_value_for_mod_marc-"); $cache->clear_from_cache("MarcSubfieldStructure-$frameworkcode"); ## Setup Test @@ -788,7 +787,6 @@ $dbh->do('DELETE FROM reserves', undef, ($bibnum)); $cache->clear_from_cache("MarcStructure-0-$frameworkcode"); $cache->clear_from_cache("MarcStructure-1-$frameworkcode"); -$cache->clear_from_cache("default_value_for_mod_marc-"); $cache->clear_from_cache("MarcSubfieldStructure-$frameworkcode"); subtest '_koha_notify_reserve() tests' => sub { -- 2.39.5