From 5819688952c34a09d1b2ed0a1525e0a0f0ca7163 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 15 Nov 2007 15:40:03 +0000
Subject: [PATCH] 1. Schreibfehler in Variablenname. 2. Hashreferenzen in
 Hashes speichern, nicht Hashes selber.

---
 SL/ReportGenerator.pm | 23 ++++++++++++-----------
 1 file changed, 12 insertions(+), 11 deletions(-)

diff --git a/SL/ReportGenerator.pm b/SL/ReportGenerator.pm
index 2e8bcf92d..29e2d9480 100644
--- a/SL/ReportGenerator.pm
+++ b/SL/ReportGenerator.pm
@@ -61,17 +61,18 @@ sub new {
 sub _init_escaped_strings_map {
   my $self = shift;
 
-  $self->{escaped_strings_map} =
-    ('&auml;'  => 'ä',
-     '&ouml;'  => 'ö',
-     '&uuml;'  => 'ü',
-     '&Auml;'  => 'Ä',
-     '&Ouml;'  => 'Ö',
-     '&Uuml;'  => 'Ü',
-     '&szlig;' => 'ß',
-     '&gt;'    => '>',
+  $self->{escaped_strings_map} = {
+    '&auml;'  => 'ä',
+    '&ouml;'  => 'ö',
+    '&uuml;'  => 'ü',
+    '&Auml;'  => 'Ä',
+    '&Ouml;'  => 'Ö',
+    '&Uuml;'  => 'Ü',
+    '&szlig;' => 'ß',
+    '&gt;'    => '>',
      '&lt;'    => '<',
-     '&quot;'  => '"');
+    '&quot;'  => '"',
+  };
 
   my $iconv = $main::locale->{iconv_iso8859};
 
@@ -521,7 +522,7 @@ sub unescape_string {
   my $self = shift;
   my $text = shift;
 
-  foreach my $key (keys %{ $self->{escaped_strigns_map} }) {
+  foreach my $key (keys %{ $self->{escaped_strings_map} }) {
     $text =~ s/\Q$key\E/$self->{escaped_strings_map}->{$key}/g;
   }
 
-- 
2.20.1