|
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 |
- |
|
|