Lines 499-508
sub ModItemFromMarc {
Link Here
|
499 |
|
499 |
|
500 |
my $dbh = C4::Context->dbh; |
500 |
my $dbh = C4::Context->dbh; |
501 |
my $frameworkcode = GetFrameworkCode($biblionumber); |
501 |
my $frameworkcode = GetFrameworkCode($biblionumber); |
502 |
my ( $itemtag, $itemsubfield ) = GetMarcFromKohaField( "items.itemnumber", $frameworkcode ); |
502 |
my $itemFieldCodes = C4::Context->getItemFieldsForMARC($frameworkcode); |
503 |
|
503 |
|
504 |
my $localitemmarc = MARC::Record->new; |
504 |
my $localitemmarc = MARC::Record->new; |
505 |
$localitemmarc->append_fields( $item_marc->field($itemtag) ); |
505 |
foreach my $fieldCode (@$itemFieldCodes) { |
|
|
506 |
$localitemmarc->append_fields( $item_marc->field($fieldCode) ); |
507 |
} |
506 |
my $item = &TransformMarcToKoha( $dbh, $localitemmarc, $frameworkcode, 'items' ); |
508 |
my $item = &TransformMarcToKoha( $dbh, $localitemmarc, $frameworkcode, 'items' ); |
507 |
my $default_values = _build_default_values_for_mod_marc(); |
509 |
my $default_values = _build_default_values_for_mod_marc(); |
508 |
foreach my $item_field ( keys %$default_values ) { |
510 |
foreach my $item_field ( keys %$default_values ) { |
509 |
- |
|
|