From e6130219b179aaca8b8cf52a0c95f51b9c567455 Mon Sep 17 00:00:00 2001 From: erickson Date: Mon, 11 Dec 2006 15:28:01 +0000 Subject: [PATCH] stripping chars below hex 9 (tab), mainly to remove NULL (hex 0) chars git-svn-id: svn://svn.open-ils.org/ILS/trunk@6672 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm index c8efb75a7e..7a90289f86 100755 --- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm @@ -301,6 +301,10 @@ sub entityize { } $stuff =~ s/([\x{0080}-\x{fffd}])/sprintf('&#x%X;',ord($1))/sgoe; + + # strip some other unfriendly chars that may leak in + $stuff =~ s/([\x{0000}-\x{0008}])//sgoe; + return $stuff; } -- 2.11.0