Lines 1973-1978
sub TransformKohaToMarc {
Link Here
|
1973 |
my $db_to_marc = C4::Context->marcfromkohafield; |
1973 |
my $db_to_marc = C4::Context->marcfromkohafield; |
1974 |
while ( my ($name, $value) = each %$hash ) { |
1974 |
while ( my ($name, $value) = each %$hash ) { |
1975 |
next unless my $dtm = $db_to_marc->{''}->{$name}; |
1975 |
next unless my $dtm = $db_to_marc->{''}->{$name}; |
|
|
1976 |
next unless ( scalar( @$dtm ) ); |
1976 |
my ($tag, $letter) = @$dtm; |
1977 |
my ($tag, $letter) = @$dtm; |
1977 |
foreach my $value ( split(/\s?\|\s?/, $value, -1) ) { |
1978 |
foreach my $value ( split(/\s?\|\s?/, $value, -1) ) { |
1978 |
if ( my $field = $record->field($tag) ) { |
1979 |
if ( my $field = $record->field($tag) ) { |
1979 |
- |
|
|