Parser für besondere Zeichen in special_chars umgeschrieben.

[mfinanz.git] / SL / ReportGenerator.pm

diff --git a/SL/ReportGenerator.pm b/SL/ReportGenerator.pm
index 2034fefbfd1dba33411af9b6f970081b6c8a19b5..988d295e68f2e5eb2c6ca4d00269e8b5523742e7 100644 (file)
--- a/SL/ReportGenerator.pm
+++ b/SL/ReportGenerator.pm
@@ -60,34 +60,9 @@ sub new {
 
   $self->set_options(@_) if (@_);
 
 
   $self->set_options(@_) if (@_);
 

-  $self->_init_escaped_strings_map();
-

   return $self;
 }
 
   return $self;
 }
 

-sub _init_escaped_strings_map {
-  my $self = shift;
-
-  $self->{escaped_strings_map} = {
-    'ä'  => 'ä',
-    'ö'  => 'ö',
-    'ü'  => 'ü',
-    'Ä'  => 'Ä',
-    'Ö'  => 'Ö',
-    'Ü'  => 'Ü',
-    'ß' => 'ß',
-    '>'    => '>',
-     '&lt;'    => '<',
-    '&quot;'  => '"',
-  };
-
-  my $iconv = $main::locale->{iconv_iso8859};
-
-  if ($iconv) {
-    map { $self->{escaped_strings_map}->{$_} = $iconv->convert($self->{escaped_strings_map}->{$_}) } keys %{ $self->{escaped_strings_map} };
-  }
-}
-

 sub set_columns {
   my $self    = shift;
   my %columns = @_;
 sub set_columns {
   my $self    = shift;
   my %columns = @_;


@@ -277,7 +252,7 @@ sub html_format {
   my $self  = shift;
   my $value = shift;
 
   my $self  = shift;
   my $value = shift;
 

-  $value =  $self->{form}->quote_html($value);
+  $value =  $main::locale->quote_special_chars('HTML', $value);

   $value =~ s/\r//g;
   $value =~ s/\n/<br>/g;
 
   $value =~ s/\r//g;
   $value =~ s/\n/<br>/g;
 


@@ -767,14 +742,12 @@ sub generate_pdf_content {
 }
 
 sub unescape_string {
 }
 
 sub unescape_string {

-  my $self = shift;
-  my $text = shift;
-
-  foreach my $key (keys %{ $self->{escaped_strings_map} }) {
-    $text =~ s/\Q$key\E/$self->{escaped_strings_map}->{$key}/g;
-  }
+  my $self  = shift;
+  my $text  = shift;
+  my $iconv = $main::locale->{iconv};

 
 

-  $text =~ s/\Q&amp;\E/&/g;
+  $text     = $main::locale->unquote_special_chars('HTML', $text);
+  $text     = $main::locale->{iconv}->convert($text) if ($main::locale->{iconv});

 
   return $text;
 }
 
   return $text;
 }