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