Den Test, ob ein Artikel noch nicht benutzt wurde und deshalb gelöscht werden kann...

[kivitendo-erp.git] / SL / ReportGenerator.pm

diff --git a/SL/ReportGenerator.pm b/SL/ReportGenerator.pm
index 2e8bcf92d897f04f480b03b1f3fe328a53410a07..29e2d9480c89938d08f131abc57d0aed58e300ac 100644 (file)
--- a/SL/ReportGenerator.pm
+++ b/SL/ReportGenerator.pm
@@ -61,17 +61,18 @@ sub new {
 sub _init_escaped_strings_map {
   my $self = shift;
 
 sub _init_escaped_strings_map {
   my $self = shift;
 

-  $self->{escaped_strings_map} =
-    ('ä'  => 'ä',
-     'ö'  => 'ö',
-     'ü'  => 'ü',
-     'Ä'  => 'Ä',
-     'Ö'  => 'Ö',
-     'Ü'  => 'Ü',
-     'ß' => 'ß',
-     '>'    => '>',
+  $self->{escaped_strings_map} = {
+    'ä'  => 'ä',
+    'ö'  => 'ö',
+    'ü'  => 'ü',
+    'Ä'  => 'Ä',
+    'Ö'  => 'Ö',
+    'Ü'  => 'Ü',
+    'ß' => 'ß',
+    '>'    => '>',

      '&lt;'    => '<',
      '&lt;'    => '<',

-     '&quot;'  => '"');
+    '&quot;'  => '"',
+  };

 
   my $iconv = $main::locale->{iconv_iso8859};
 
 
   my $iconv = $main::locale->{iconv_iso8859};
 


@@ -521,7 +522,7 @@ sub unescape_string {
   my $self = shift;
   my $text = shift;
 
   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;
   }
 
     $text =~ s/\Q$key\E/$self->{escaped_strings_map}->{$key}/g;
   }