Lines 2194-2202
sub TransformKohaToMarc {
Link Here
|
2194 |
while ( my ($name, $value) = each %$hash ) { |
2194 |
while ( my ($name, $value) = each %$hash ) { |
2195 |
next unless my $dtm = $db_to_marc->{''}->{$name}; |
2195 |
next unless my $dtm = $db_to_marc->{''}->{$name}; |
2196 |
next unless ( scalar( @$dtm ) ); |
2196 |
next unless ( scalar( @$dtm ) ); |
2197 |
my ($tag, $letter) = @$dtm; $tag .= ''; |
2197 |
my ($tag, $letter) = @$dtm; |
|
|
2198 |
$tag .= ''; |
2198 |
foreach my $value ( split(/\s?\|\s?/, $value, -1) ) { |
2199 |
foreach my $value ( split(/\s?\|\s?/, $value, -1) ) { |
2199 |
$value eq '' && next; |
2200 |
next if $value eq ''; |
2200 |
$tag_hr->{$tag} //= []; |
2201 |
$tag_hr->{$tag} //= []; |
2201 |
push @{$tag_hr->{$tag}}, [($letter, $value)]; |
2202 |
push @{$tag_hr->{$tag}}, [($letter, $value)]; |
2202 |
} |
2203 |
} |
2203 |
- |
|
|