@@ -, +, @@ --- C4/Installer/PerlDependencies.pm | 4 ++-- C4/Search.pm | 11 +---------- 2 files changed, 3 insertions(+), 12 deletions(-) --- a/C4/Installer/PerlDependencies.pm +++ a/C4/Installer/PerlDependencies.pm @@ -462,7 +462,7 @@ our $PERL_DEPS = { 'MARC::Record' => { 'usage' => 'Core', 'required' => '1', - 'min_ver' => '2' + 'min_ver' => '2.0.6' }, 'Locale::Currency::Format' => { 'usage' => 'Core', @@ -487,7 +487,7 @@ our $PERL_DEPS = { 'MARC::File::XML' => { 'usage' => 'Core', 'required' => '1', - 'min_ver' => '0.88' + 'min_ver' => '1.0.1' }, 'XML::SAX::Writer' => { 'usage' => 'Core', --- a/C4/Search.pm +++ a/C4/Search.pm @@ -522,16 +522,7 @@ sub getRecords { my @fields = $marc_record->field($tag_num); foreach my $field (@fields) { - # TODO: Once as_string is capable of using a separator, use this - # my $data = $field->as_string( $subfield_letters, $facet->{sep} ); - - my @values = (); - foreach my $subfield (@subfields) { - push @values, $field->subfield( $subfield ) - if defined $field->subfield( $subfield ); - } - - my $data = join( $facet->{sep}, @values ); + my $data = $field->as_string( $subfield_letters, $facet->{sep} ); unless ( $data ~~ @used_datas ) { push @used_datas, $data; --