|
Lines 71-83
sub filter {
Link Here
|
| 71 |
return unless defined $record and ref($record) eq 'MARC::Record'; |
71 |
return unless defined $record and ref($record) eq 'MARC::Record'; |
| 72 |
|
72 |
|
| 73 |
my $items = $self->{params}->{options}->{items}; |
73 |
my $items = $self->{params}->{options}->{items}; |
| 74 |
my $mss = $self->{params}->{options}->{mss} |
|
|
| 75 |
// C4::Biblio::GetMarcSubfieldStructure( '', { unsafe => 1 } ); |
| 76 |
|
74 |
|
| 77 |
my @item_fields; |
75 |
my @item_fields; |
| 78 |
|
76 |
|
| 79 |
foreach my $item ( @{$items} ) { |
77 |
foreach my $item ( @{$items} ) { |
| 80 |
push @item_fields, $item->as_marc_field( { mss => $mss } ); |
78 |
push @item_fields, $item->as_marc_field; |
| 81 |
} |
79 |
} |
| 82 |
|
80 |
|
| 83 |
$record->append_fields(@item_fields); |
81 |
$record->append_fields(@item_fields); |
| 84 |
- |
|
|