message_ok und message_error CSS-Styles eingefügt. Msg-Ausgabe etwas repariert. Hat...

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

index 6ad6a920875f4446b27efdf24e14cbd3a36b360e..20acf122c35646132eb6633c24e804ef36a7e680 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -466,13 +466,13 @@ 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>
+    
+</body>
      |;
  
    } else {
@@ -1547,15 +1547,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
@@ -1574,9 +1580,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