|
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 |
- |
|
|