Lines 1991-1997
sub TransformKohaToMarc {
Link Here
|
1991 |
my $tagfield = $fld->{tagfield}; |
1991 |
my $tagfield = $fld->{tagfield}; |
1992 |
my $tagsubfield = $fld->{tagsubfield}; |
1992 |
my $tagsubfield = $fld->{tagsubfield}; |
1993 |
next if !$tagfield; |
1993 |
next if !$tagfield; |
1994 |
my @values = $params->{no_split} |
1994 |
|
|
|
1995 |
# BZ 21800: split value if field is repeatable; NOTE that this also |
1996 |
# depends on the Default framework. |
1997 |
my @values = $params->{no_split} || !$fld->{repeatable} |
1995 |
? ( $value ) |
1998 |
? ( $value ) |
1996 |
: split(/\s?\|\s?/, $value, -1); |
1999 |
: split(/\s?\|\s?/, $value, -1); |
1997 |
foreach my $value ( @values ) { |
2000 |
foreach my $value ( @values ) { |
1998 |
- |
|
|