Revert "Kosmetik und Anmeldung mit "en" ermöglicht"

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

index 29d293077bbe4a1a3ac24adfd3fee213c56b383b..707540ed7928358ef2fc072e280ddc3de8c667f0 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -257,16 +257,10 @@ sub new {
    my $db_charset   = $main::dbcharset;
    $db_charset    ||= Common::DEFAULT_CHARSET;
  
-  if ($self->{INPUT_ENCODING}) {
-    if (lc $self->{INPUT_ENCODING} ne lc $db_charset) {
-      require Text::Iconv;
-      my $iconv = Text::Iconv->new($self->{INPUT_ENCODING}, $db_charset);
+  my $encoding     = $self->{INPUT_ENCODING} || $db_charset;
+  delete $self->{INPUT_ENCODING};
  
-      _recode_recursively($iconv, $self);
-    }
-
-    delete $self->{INPUT_ENCODING};
-  }
+  _recode_recursively(SL::Iconv->new($encoding, $db_charset), $self);
  
    $self->{action}  =  lc $self->{action};
    $self->{action}  =~ s/( |-|,|\#)/_/g;
@@ -472,13 +466,19 @@ sub info {
  
      if (!$self->{header}) {
        $self->header;
-      print qq|
-      <body>|;
+      print qq|<body>|;
      }
  
      print qq|
-
-    <p><b>$msg</b>
+    <p class="message_ok"><b>$msg</b></p>
+    
+    <script type="text/javascript">
+    <!--
+    setTimeout("parent.frames.main_window.location.href='login.pl?action=company_logo'",1000);
+    //-->
+    </script>
+    
+</body>
      |;
  
    } else {
@@ -1553,15 +1553,21 @@ sub datetonum {
  
  # Database routines used throughout
  
+sub _dbconnect_options {
+  my $self    = shift;
+  my $options = { pg_enable_utf8 => $::locale->is_utf8,
+                  @_ };
+
+  return $options;
+}
+
  sub dbconnect {
    $main::lxdebug->enter_sub(2);
  
    my ($self, $myconfig) = @_;
  
    # connect to database
-  my $dbh =
-    DBI->connect($myconfig->{dbconnect},
-                 $myconfig->{dbuser}, $myconfig->{dbpasswd})
+  my $dbh = DBI->connect($myconfig->{dbconnect}, $myconfig->{dbuser}, $myconfig->{dbpasswd}, $self->_dbconnect_options)
      or $self->dberror;
  
    # set db options
@@ -1580,9 +1586,7 @@ sub dbconnect_noauto {
    my ($self, $myconfig) = @_;
  
    # connect to database
-  my $dbh =
-    DBI->connect($myconfig->{dbconnect}, $myconfig->{dbuser},
-                 $myconfig->{dbpasswd}, { AutoCommit => 0 })
+  my $dbh = DBI->connect($myconfig->{dbconnect}, $myconfig->{dbuser}, $myconfig->{dbpasswd}, $self->_dbconnect_options(AutoCommit => 0))
      or $self->dberror;
  
    # set db options