From fedfcc676894b8dc44f74b97cb53ed6e3d97f748 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Tue, 23 Jan 2007 13:24:08 +0000
Subject: [PATCH] Weitere Sonderzeichen escapen.

---
 SL/Template.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/SL/Template.pm b/SL/Template.pm
index 18b44d069..e4e940ba2 100644
--- a/SL/Template.pm
+++ b/SL/Template.pm
@@ -91,7 +91,7 @@ sub format_string {
                  '<pagebreak>',
                  '&', quotemeta("\n"),
                  '"', '\$', '%', '_', '#', quotemeta('^'),
-                 '{', '}',  '<', '>', '£', "\r", '±',
+                 '{', '}',  '<', '>', '£', "\r", '±', '\xe1',
                  ],
      quotemeta("\\") => '\\textbackslash ',
      '<pagebreak>'   => '',
@@ -108,6 +108,7 @@ sub format_string {
      '£'             => '\pounds ',
      "\r"            => "",
      '±'             => '$\pm$',
+     '\xe1'          => '$\bullet$',
      quotemeta('^')  => '\^\\',
      quotemeta("\n") => '\newline '
      );
@@ -125,6 +126,8 @@ sub format_string {
     $variable =~ s/\$\<\$${key}\$\>\$(.*?)\$<\$\/${key}\$>\$/\\${new}\{$1\}/gi;
   }
 
+  $variable =~ s/[\x00-\x1f]//g;
+
   return $variable;
 }
 
-- 
2.20.1