|
Lines 510-516
sub ModItemFromMarc {
Link Here
|
| 510 |
my $localitemmarc = MARC::Record->new; |
510 |
my $localitemmarc = MARC::Record->new; |
| 511 |
$localitemmarc->append_fields( $item_marc->field($itemtag) ); |
511 |
$localitemmarc->append_fields( $item_marc->field($itemtag) ); |
| 512 |
my $item = &TransformMarcToKoha( $localitemmarc, $frameworkcode, 'items' ); |
512 |
my $item = &TransformMarcToKoha( $localitemmarc, $frameworkcode, 'items' ); |
| 513 |
my $default_values = _build_default_values_for_mod_marc(); |
513 |
my $default_values = _build_default_values_for_mod_marc($frameworkcode); |
| 514 |
foreach my $item_field ( keys %$default_values ) { |
514 |
foreach my $item_field ( keys %$default_values ) { |
| 515 |
$item->{$item_field} = $default_values->{$item_field} |
515 |
$item->{$item_field} = $default_values->{$item_field} |
| 516 |
unless exists $item->{$item_field}; |
516 |
unless exists $item->{$item_field}; |
| 517 |
- |
|
|