Merge branch 'master' of github.com:kivitendo/kivitendo-erp

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

index 8f9594b..d7e0cda 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -447,7 +447,6 @@ sub header {
    $::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}++;
@@ -499,12 +498,12 @@ sub header {
    );
  
    # 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>
-  <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;
@@ -543,8 +542,7 @@ sub ajax_response_header {
  
    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();
  
@@ -616,7 +614,6 @@ sub _prepare_html_template {
      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};
@@ -1100,7 +1097,6 @@ sub parse_template {
  
        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() . '.' . $$ . '.';
@@ -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,
-  # 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
-  #   normale Zahlungsbuchung über Rechnungsmaske i.O.
+  #   normale Zahlungsbuchung über Rechnungsmaske i.O.
    #     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
-  # 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
-  #     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
  
@@ -1633,7 +1629,6 @@ sub get_all_currencies {
    my $self     = shift;
    my $myconfig = shift || \%::myconfig;
    my $dbh      = $self->get_standard_dbh($myconfig);
-  my @currencies =();
  
    my $query = qq|SELECT name FROM currencies|;
    my @currencies = map { $_->{name} } selectall_hashref_query($self, $dbh, $query);
@@ -2497,9 +2492,9 @@ sub all_vc {
    $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
-  # 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);