gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

MT 2116, Follow-up : Fix subfield separator

This commit is contained in:
Matthias Meusburger 2010-03-05 17:25:37 +01:00 committed by Henri-Damien LAURENT
parent 3cfbcb63ce
commit 29e5fa7ca2
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
C4/Record.pm
View File

@ -517,8 +517,19 @@ sub marcrecord2csv {
foreach (@fields) {
my $value;
# Getting authorised value
$value = defined $authvalues->{$_->as_string} ? $authvalues->{$_->as_string} : $_->as_string;
# If it is a control field
if ($_->is_control_field) {
$value = defined $authvalues->{$_->as_string} ? $authvalues->{$_->as_string} : $_->as_string;
} else {
# If it is a field, we gather all subfields, joined by the subfield separator
my @subvaluesarray;
my @subfields = $_->subfields;
foreach my $subfield (@subfields) {
push (@subvaluesarray, defined $authvalues->{$subfield->[1]} ? $authvalues->{$subfield->[1]} : $subfield->[1]);
}
$value = join ($subfieldseparator, @subvaluesarray);
}
# Field processing
eval $fieldprocessing if ($fieldprocessing);