|
Lines 976-983
subtest 'tests for GetMarcItemFields' => sub {
Link Here
|
| 976 |
$item2_marc->field($itemtag)->delete_subfield(code => $item_num_subfield); #because it won't match |
976 |
$item2_marc->field($itemtag)->delete_subfield(code => $item_num_subfield); #because it won't match |
| 977 |
|
977 |
|
| 978 |
#Testing with hidden items |
978 |
#Testing with hidden items |
| 979 |
my $opachiddenitems = " |
979 |
my $opachiddenitems = "withdrawn: [1]\n"; |
| 980 |
withdrawn: [1]"; |
|
|
| 981 |
my $hidingrules = YAML::Load($opachiddenitems); |
980 |
my $hidingrules = YAML::Load($opachiddenitems); |
| 982 |
my $marc_items = C4::Items::GetMarcItemFields( $biblio->{biblionumber}, [], $hidingrules ); |
981 |
my $marc_items = C4::Items::GetMarcItemFields( $biblio->{biblionumber}, [], $hidingrules ); |
| 983 |
@$marc_items[0]->delete_subfield(code => $item_num_subfield); |
982 |
@$marc_items[0]->delete_subfield(code => $item_num_subfield); |
| 984 |
- |
|
|