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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
index c8efb75..7a90289 100755 (executable)
--- 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;
 }