Änderungen zur Unterstützung von anderen Zeichensätzen als ISO-8859-1(5) implementier...

[mfinanz.git] / SL / Form.pm
diff --git a/SL/Form.pm b/SL/Form.pm

index 61e5f68fad9286183fb6955a9087e3f75f111e6d..d59adeece6462348dee36e387311efd8efa51b32 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -45,6 +45,7 @@ use CGI::Ajax;
  use SL::DBUtils;
  use SL::Menu;
  use SL::User;
  use SL::DBUtils;
  use SL::Menu;
  use SL::User;
+use SL::Common;
  use CGI;
  
  sub _input_to_hash {
  use CGI;
  
  sub _input_to_hash {
@@ -352,7 +353,7 @@ sub header {
      return;
    }
  
      return;
    }
  
-  my ($stylesheet, $favicon, $charset);
+  my ($stylesheet, $favicon);
  
    if ($ENV{HTTP_USER_AGENT}) {
  
  
    if ($ENV{HTTP_USER_AGENT}) {
  
@@ -370,11 +371,8 @@ sub header {
    |;
      }
  
    |;
      }
  
-    if ($self->{charset}) {
-      $charset =
-        qq|<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=$self->{charset}">
-  |;
-    }
+    my $db_charset = $main::dbcharset ? $main::dbcharset : Common::DEFAULT_CHARSET;
+
      if ($self->{landscape}) {
        $pagelayout = qq|<style type="text/css">
                          \@page { size:landscape; }
      if ($self->{landscape}) {
        $pagelayout = qq|<style type="text/css">
                          \@page { size:landscape; }
@@ -404,7 +402,7 @@ sub header {
      foreach $item (@ { $self->{AJAX} }) {
        $ajax .= $item->show_javascript();
      }
      foreach $item (@ { $self->{AJAX} }) {
        $ajax .= $item->show_javascript();
      }
-    print qq|Content-Type: text/html; charset=$self->{charset};
+    print qq|Content-Type: text/html; charset=${db_charset};
  
  <html>
  <head>
  
  <html>
  <head>
@@ -412,7 +410,7 @@ sub header {
    $stylesheet
    $pagelayout
    $favicon
    $stylesheet
    $pagelayout
    $favicon
-  $charset
+  <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=${db_charset}">
    $jsscript
    $ajax
  
    $jsscript
    $ajax
  
@@ -803,7 +801,8 @@ sub parse_template {
        my $mail = new Mailer;
  
        map { $mail->{$_} = $self->{$_} }
        my $mail = new Mailer;
  
        map { $mail->{$_} = $self->{$_} }
-        qw(cc bcc subject message version format charset);
+        qw(cc bcc subject message version format);
+      $mail->{charset} = $main::dbcharset ? $main::dbcharset : Common::DEFAULT_CHARSET;
        $mail->{to} = $self->{EMAIL_RECIPIENT} ? $self->{EMAIL_RECIPIENT} : $self->{email};
        $mail->{from}   = qq|"$myconfig->{name}" <$myconfig->{email}>|;
        $mail->{fileid} = "$fileid.";
        $mail->{to} = $self->{EMAIL_RECIPIENT} ? $self->{EMAIL_RECIPIENT} : $self->{email};
        $mail->{from}   = qq|"$myconfig->{name}" <$myconfig->{email}>|;
        $mail->{fileid} = "$fileid.";