From a3e9623b76721d37d1ed4d5153a848c2027b73f8 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. --- admin/biblio_framework.pl | 2 -- admin/koha2marclinks.pl | 5 +---- 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(+), 24 deletions(-) diff --git a/admin/biblio_framework.pl b/admin/biblio_framework.pl index 4712f0ea728..d8988e0ecd1 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 f644ed517ba..769422bcf33 100755 --- a/admin/koha2marclinks.pl +++ b/admin/koha2marclinks.pl @@ -66,10 +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- | ) { - warn "clear $_"; - $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 a492e5c568f..e9819d759a9 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 3514baca938..fbb955db410 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 811b7ee632c..0d310a7275f 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 36593268305..f844af9a311 100755 --- a/t/db_dependent/Items.t +++ b/t/db_dependent/Items.t @@ -442,7 +442,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; @@ -473,7 +472,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 61e6100362e..60507a478ad 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(); @@ -341,6 +340,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 df9dffe0bd4..b0bdca6033d 100755 --- a/t/db_dependent/Koha/Biblio.t +++ b/t/db_dependent/Koha/Biblio.t @@ -715,7 +715,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 ); @@ -740,7 +739,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 b13fe57e68b..99edf186c4f 100755 --- a/t/db_dependent/Koha/Item.t +++ b/t/db_dependent/Koha/Item.t @@ -1276,7 +1276,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 @@ -1355,7 +1354,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 8a46b318fee..3f7d8abf2dd 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 369f9b03989..380edf9f24a 100755 --- a/t/db_dependent/Koha/UI/Form/Builder/Item.t +++ b/t/db_dependent/Koha/UI/Form/Builder/Item.t @@ -35,7 +35,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 @@ -301,7 +300,6 @@ subtest 'subfields_to_allow & ignore_not_allowed_subfields' => 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 eeb2176df35..21ae0434a23 100755 --- a/t/db_dependent/Reserves.t +++ b/t/db_dependent/Reserves.t @@ -67,7 +67,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 @@ -790,7 +789,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.25.1