From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 11 Dec 2006 15:28:01 +0000 (+0000)
Subject: stripping chars below hex 9 (tab), mainly to remove NULL (hex 0) chars
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=ecec34870937b8daafaabe4a7d3cc72adac3cbe2;p=Evergreen.git

stripping chars below hex 9 (tab), mainly to remove NULL (hex 0) chars


git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_0@6672 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

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