|
Lines 202-213
sub add_field {
Link Here
|
| 202 |
if ( $fieldName > 10 ) { |
202 |
if ( $fieldName > 10 ) { |
| 203 |
foreach my $value ( @values ) { |
203 |
foreach my $value ( @values ) { |
| 204 |
my $field = MARC::Field->new( $fieldName, '', '', "$subfieldName" => $value ); |
204 |
my $field = MARC::Field->new( $fieldName, '', '', "$subfieldName" => $value ); |
| 205 |
$record->append_fields( $field ); |
205 |
$record->insert_fields_ordered( $field ); |
| 206 |
} |
206 |
} |
| 207 |
} else { |
207 |
} else { |
| 208 |
foreach my $value ( @values ) { |
208 |
foreach my $value ( @values ) { |
| 209 |
my $field = MARC::Field->new( $fieldName, $value ); |
209 |
my $field = MARC::Field->new( $fieldName, $value ); |
| 210 |
$record->append_fields( $field ); |
210 |
$record->insert_fields_ordered( $field ); |
| 211 |
} |
211 |
} |
| 212 |
} |
212 |
} |
| 213 |
} |
213 |
} |
| 214 |
- |
|
|