Lines 2497-2504
sub z3950_search_args {
Link Here
|
2497 |
my $array = []; |
2497 |
my $array = []; |
2498 |
for my $field (qw/ lccn isbn issn title author dewey subject /) |
2498 |
for my $field (qw/ lccn isbn issn title author dewey subject /) |
2499 |
{ |
2499 |
{ |
2500 |
my $encvalue = URI::Escape::uri_escape_utf8($bibrec->{$field}); |
2500 |
my $val = $bibrec->{$field}; |
2501 |
push @$array, { name=>$field, value=>$bibrec->{$field}, encvalue=>$encvalue } if defined $bibrec->{$field}; |
2501 |
$val =~ s/["']/\$1/g; |
|
|
2502 |
my $encvalue = URI::Escape::uri_escape_utf8($val); |
2503 |
push @$array, { name=>$field, value=>$val, encvalue=>$encvalue } if defined $bibrec->{$field}; |
2502 |
} |
2504 |
} |
2503 |
return $array; |
2505 |
return $array; |
2504 |
} |
2506 |
} |
2505 |
- |
|
|