]> wagnertech.de Git - mfinanz.git/blobdiff - SL/Form.pm
projects / mfinanz.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
kein use SL::DB::Object in SL::DB::Object
[mfinanz.git] / SL / Form.pm
diff --git a/SL/Form.pm b/SL/Form.pm
index 3e56b69fc8a6fc3d01b49fa6b43990d384de4d6e..d7e0cdae9db0487e921a3f4e6137d15566a06836 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -447,7 +447,6 @@ sub header {
   $::lxdebug->enter_sub;
 
   my ($self, %params) = @_;
   $::lxdebug->enter_sub;
 
   my ($self, %params) = @_;
-  my $db_charset = $::lx_office_conf{system}->{dbcharset} || Common::DEFAULT_CHARSET;
   my @header;
 
   $::lxdebug->leave_sub and return if !$ENV{HTTP_USER_AGENT} || $self->{header}++;
   my @header;
 
   $::lxdebug->leave_sub and return if !$ENV{HTTP_USER_AGENT} || $self->{header}++;
@@ -499,12 +498,12 @@ sub header {
   );
 
   # output
   );
 
   # output
-  print $self->create_http_response(content_type => 'text/html', charset => $db_charset);
+  print $self->create_http_response(content_type => 'text/html', charset => 'UTF-8');
   print $doctypes{$params{doctype} || 'transitional'}, $/;
   print <<EOT;
 <html>
  <head>
   print $doctypes{$params{doctype} || 'transitional'}, $/;
   print <<EOT;
 <html>
  <head>
-  <meta http-equiv="Content-Type" content="text/html; charset=$db_charset">
+  <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
   <title>$self->{titlebar}</title>
 EOT
   print "  $_\n" for @header;
   <title>$self->{titlebar}</title>
 EOT
   print "  $_\n" for @header;
@@ -543,8 +542,7 @@ sub ajax_response_header {
 
   my ($self) = @_;
 
 
   my ($self) = @_;
 
-  my $db_charset = $::lx_office_conf{system}->{dbcharset} || Common::DEFAULT_CHARSET;
-  my $output     = $::request->{cgi}->header('-charset' => $db_charset);
+  my $output = $::request->{cgi}->header('-charset' => 'UTF-8');
 
   $main::lxdebug->leave_sub();
 
 
   $main::lxdebug->leave_sub();
 
@@ -616,7 +614,6 @@ sub _prepare_html_template {
     map { $additional_params->{"myconfig_${_}"} = $main::myconfig{$_}; } keys %::myconfig;
   }
 
     map { $additional_params->{"myconfig_${_}"} = $main::myconfig{$_}; } keys %::myconfig;
   }
 
-  $additional_params->{"conf_dbcharset"}              = $::lx_office_conf{system}->{dbcharset};
   $additional_params->{"conf_webdav"}                 = $::lx_office_conf{features}->{webdav};
   $additional_params->{"conf_latex_templates"}        = $::lx_office_conf{print_templates}->{latex};
   $additional_params->{"conf_opendocument_templates"} = $::lx_office_conf{print_templates}->{opendocument};
   $additional_params->{"conf_webdav"}                 = $::lx_office_conf{features}->{webdav};
   $additional_params->{"conf_latex_templates"}        = $::lx_office_conf{print_templates}->{latex};
   $additional_params->{"conf_opendocument_templates"} = $::lx_office_conf{print_templates}->{opendocument};
@@ -1100,7 +1097,6 @@ sub parse_template {
 
       map { $mail->{$_} = $self->{$_} }
         qw(cc bcc subject message version format);
 
       map { $mail->{$_} = $self->{$_} }
         qw(cc bcc subject message version format);
-      $mail->{charset} = $::lx_office_conf{system}->{dbcharset} || Common::DEFAULT_CHARSET;
       $mail->{to} = $self->{EMAIL_RECIPIENT} ? $self->{EMAIL_RECIPIENT} : $self->{email};
       $mail->{from}   = qq|"$myconfig->{name}" <$myconfig->{email}>|;
       $mail->{fileid} = time() . '.' . $$ . '.';
       $mail->{to} = $self->{EMAIL_RECIPIENT} ? $self->{EMAIL_RECIPIENT} : $self->{email};
       $mail->{from}   = qq|"$myconfig->{name}" <$myconfig->{email}>|;
       $mail->{fileid} = time() . '.' . $$ . '.';
@@ -1421,18 +1417,18 @@ sub date_closed {
   my $sth = prepare_execute_query($self, $dbh, $query, conv_date($date));
 
   # Falls $date = '' - Fehlermeldung aus der Datenbank. Ich denke,
   my $sth = prepare_execute_query($self, $dbh, $query, conv_date($date));
 
   # Falls $date = '' - Fehlermeldung aus der Datenbank. Ich denke,
-  # es ist sicher ein conv_date vorher IMMER auszuführen.
-  # Testfälle ohne definiertes closedto:
+  # es ist sicher ein conv_date vorher IMMER auszuführen.
+  # Testfälle ohne definiertes closedto:
   #   Leere Datumseingabe i.O.
   #     SELECT 1 FROM defaults WHERE '' < closedto
   #   Leere Datumseingabe i.O.
   #     SELECT 1 FROM defaults WHERE '' < closedto
-  #   normale Zahlungsbuchung über Rechnungsmaske i.O.
+  #   normale Zahlungsbuchung über Rechnungsmaske i.O.
   #     SELECT 1 FROM defaults WHERE '10.05.2011' < closedto
   #     SELECT 1 FROM defaults WHERE '10.05.2011' < closedto
-  # Testfälle mit definiertem closedto (30.04.2011):
+  # Testfälle mit definiertem closedto (30.04.2011):
   #  Leere Datumseingabe i.O.
   #   SELECT 1 FROM defaults WHERE '' < closedto
   #  Leere Datumseingabe i.O.
   #   SELECT 1 FROM defaults WHERE '' < closedto
-  # normale Buchung im geschloßenem Zeitraum i.O.
+  # normale Buchung im geschloßenem Zeitraum i.O.
   #   SELECT 1 FROM defaults WHERE '21.04.2011' < closedto
   #   SELECT 1 FROM defaults WHERE '21.04.2011' < closedto
-  #     Fehlermeldung: Es können keine Zahlungen für abgeschlossene Bücher gebucht werden!
+  #     Fehlermeldung: Es können keine Zahlungen für abgeschlossene Bücher gebucht werden!
   # normale Buchung in aktiver Buchungsperiode i.O.
   #   SELECT 1 FROM defaults WHERE '01.05.2011' < closedto
 
   # normale Buchung in aktiver Buchungsperiode i.O.
   #   SELECT 1 FROM defaults WHERE '01.05.2011' < closedto
 
@@ -2496,9 +2492,9 @@ sub all_vc {
   $table = $table eq "customer" ? "customer" : "vendor";
 
   # build selection list
   $table = $table eq "customer" ? "customer" : "vendor";
 
   # build selection list
-  # Hotfix für Bug 1837 - Besser wäre es alte Buchungsbelege
+  # Hotfix für Bug 1837 - Besser wäre es alte Buchungsbelege
   # OHNE Auswahlliste (reines Textfeld) zu laden. Hilft aber auch
   # OHNE Auswahlliste (reines Textfeld) zu laden. Hilft aber auch
-  # nicht für veränderbare Belege (oe, do, ...)
+  # nicht für veränderbare Belege (oe, do, ...)
   my $obsolete = $self->{id} ? '' : "WHERE NOT obsolete";
   my $query = qq|SELECT count(*) FROM $table $obsolete|;
   my ($count) = selectrow_query($self, $dbh, $query);
   my $obsolete = $self->{id} ? '' : "WHERE NOT obsolete";
   my $query = qq|SELECT count(*) FROM $table $obsolete|;
   my ($count) = selectrow_query($self, $dbh, $query);
Unnamed repository; edit this file 'description' to name the repository.