Lines 1996-2001
sub TransformKohaToMarc {
Link Here
|
1996 |
my $db_to_marc = C4::Context->marcfromkohafield; |
1996 |
my $db_to_marc = C4::Context->marcfromkohafield; |
1997 |
while ( my ($name, $value) = each %$hash ) { |
1997 |
while ( my ($name, $value) = each %$hash ) { |
1998 |
next unless my $dtm = $db_to_marc->{''}->{$name}; |
1998 |
next unless my $dtm = $db_to_marc->{''}->{$name}; |
|
|
1999 |
next unless ( scalar( @$dtm ) ); |
1999 |
my ($tag, $letter) = @$dtm; |
2000 |
my ($tag, $letter) = @$dtm; |
2000 |
foreach my $value ( split(/\s?\|\s?/, $value, -1) ) { |
2001 |
foreach my $value ( split(/\s?\|\s?/, $value, -1) ) { |
2001 |
if ( my $field = $record->field($tag) ) { |
2002 |
if ( my $field = $record->field($tag) ) { |
2002 |
- |
|
|