|
Lines 1069-1076
subtest 'tests for GetMarcItemFields' => sub {
Link Here
|
| 1069 |
$item2_marc->field($itemtag)->delete_subfield(code => $item_num_subfield); #because it won't match |
1069 |
$item2_marc->field($itemtag)->delete_subfield(code => $item_num_subfield); #because it won't match |
| 1070 |
|
1070 |
|
| 1071 |
#Testing with hidden items |
1071 |
#Testing with hidden items |
| 1072 |
my $opachiddenitems = " |
1072 |
my $opachiddenitems = "withdrawn: [1]\n"; |
| 1073 |
withdrawn: [1]"; |
|
|
| 1074 |
my $hidingrules = YAML::Load($opachiddenitems); |
1073 |
my $hidingrules = YAML::Load($opachiddenitems); |
| 1075 |
my $marc_items = C4::Items::GetMarcItemFields( $biblio->{biblionumber}, [], $hidingrules ); |
1074 |
my $marc_items = C4::Items::GetMarcItemFields( $biblio->{biblionumber}, [], $hidingrules ); |
| 1076 |
@$marc_items[0]->delete_subfield(code => $item_num_subfield); |
1075 |
@$marc_items[0]->delete_subfield(code => $item_num_subfield); |
| 1077 |
- |
|
|