Lines 21-26
use Test::More tests => 16;
Link Here
|
21 |
|
21 |
|
22 |
use C4::Biblio qw( AddBiblio ModBiblio ); |
22 |
use C4::Biblio qw( AddBiblio ModBiblio ); |
23 |
use Koha::Database; |
23 |
use Koha::Database; |
|
|
24 |
use Koha::Caches; |
24 |
use Koha::Acquisition::Orders; |
25 |
use Koha::Acquisition::Orders; |
25 |
use Koha::AuthorisedValueCategories; |
26 |
use Koha::AuthorisedValueCategories; |
26 |
use Koha::AuthorisedValues; |
27 |
use Koha::AuthorisedValues; |
Lines 605-610
subtest 'get_marc_notes() MARC21 tests' => sub {
Link Here
|
605 |
my $mss = Koha::MarcSubfieldStructures->find({tagfield => "590", tagsubfield => "a", frameworkcode => $biblio->frameworkcode }); |
606 |
my $mss = Koha::MarcSubfieldStructures->find({tagfield => "590", tagsubfield => "a", frameworkcode => $biblio->frameworkcode }); |
606 |
$mss->update({ authorised_value => "TEST" }); |
607 |
$mss->update({ authorised_value => "TEST" }); |
607 |
|
608 |
|
|
|
609 |
my $cache = Koha::Caches->get_instance; |
610 |
$cache->clear_from_cache("MarcStructure-0-"); |
611 |
$cache->clear_from_cache("MarcStructure-1-"); |
612 |
$cache->clear_from_cache("default_value_for_mod_marc-"); |
613 |
$cache->clear_from_cache("MarcSubfieldStructure-"); |
614 |
|
608 |
C4::Biblio::ModBiblio( $record, $biblio->biblionumber ); |
615 |
C4::Biblio::ModBiblio( $record, $biblio->biblionumber ); |
609 |
$biblio = Koha::Biblios->find( $biblio->biblionumber); |
616 |
$biblio = Koha::Biblios->find( $biblio->biblionumber); |
610 |
|
617 |
|
Lines 624-629
subtest 'get_marc_notes() MARC21 tests' => sub {
Link Here
|
624 |
is( $notes->[4]->{marcnote}, 'Description should show OPAC', 'Authorised value is correctly parsed for OPAC to show description rather than code' ); |
631 |
is( $notes->[4]->{marcnote}, 'Description should show OPAC', 'Authorised value is correctly parsed for OPAC to show description rather than code' ); |
625 |
is( @$notes, 5, 'No more notes' ); |
632 |
is( @$notes, 5, 'No more notes' ); |
626 |
|
633 |
|
|
|
634 |
$cache->clear_from_cache("MarcStructure-0-"); |
635 |
$cache->clear_from_cache("MarcStructure-1-"); |
636 |
$cache->clear_from_cache("default_value_for_mod_marc-"); |
637 |
$cache->clear_from_cache("MarcSubfieldStructure-"); |
638 |
|
627 |
$schema->storage->txn_rollback; |
639 |
$schema->storage->txn_rollback; |
628 |
}; |
640 |
}; |
629 |
|
641 |
|
630 |
- |
|
|