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