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