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

(-)a/C4/Search.pm (-3 / +4 lines)
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
- 

Return to bug 5819