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