|
Lines 1108-1115
subtest 'tests for GetMarcItemFields' => sub {
Link Here
|
| 1108 |
$item2_marc->field($itemtag)->delete_subfield(code => $item_num_subfield); #because it won't match |
1108 |
$item2_marc->field($itemtag)->delete_subfield(code => $item_num_subfield); #because it won't match |
| 1109 |
|
1109 |
|
| 1110 |
#Testing with hidden items |
1110 |
#Testing with hidden items |
| 1111 |
my $opachiddenitems = " |
1111 |
my $opachiddenitems = "withdrawn: [1]\n"; |
| 1112 |
withdrawn: [1]"; |
|
|
| 1113 |
my $hidingrules = YAML::Load($opachiddenitems); |
1112 |
my $hidingrules = YAML::Load($opachiddenitems); |
| 1114 |
my $marc_items = C4::Items::GetMarcItemFields( $biblio->{biblionumber}, [], $hidingrules ); |
1113 |
my $marc_items = C4::Items::GetMarcItemFields( $biblio->{biblionumber}, [], $hidingrules ); |
| 1115 |
@$marc_items[0]->delete_subfield(code => $item_num_subfield); |
1114 |
@$marc_items[0]->delete_subfield(code => $item_num_subfield); |
| 1116 |
- |
|
|