View | Details | Raw Unified | Return to bug 33100
Collapse All | Expand All

(-)a/C4/Heading/MARC21.pm (-2 / +1 lines)
Lines 404-410 sub _get_search_heading { Link Here
404
        my $code    = $subfields[$i]->[0];
404
        my $code    = $subfields[$i]->[0];
405
        my $code_re = quotemeta $code;
405
        my $code_re = quotemeta $code;
406
        my $value   = $subfields[$i]->[1];
406
        my $value   = $subfields[$i]->[1];
407
        $value =~ s/[\s]*[-,.:=;!%\/][\s]*$//;
407
        $value =~ s/[\s]*[-,.:=;!%\/]*[\s]*$//;
408
        next unless $subfields =~ qr/$code_re/;
408
        next unless $subfields =~ qr/$code_re/;
409
        if ($first) {
409
        if ($first) {
410
            $first   = 0;
410
            $first   = 0;
411
- 

Return to bug 33100