X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/22c021254b5dcf3367d95d48cea3e1f7412ef369..c6b2257945060625bcb86fa7e2efd27c737480ff:/SL/DBConnect.pm

diff --git a/SL/DBConnect.pm b/SL/DBConnect.pm
index fbcf1d5a1..8dc978758 100644
--- a/SL/DBConnect.pm
+++ b/SL/DBConnect.pm
@@ -12,7 +12,7 @@ sub connect {
   require Log::Log4perl;
   require DBIx::Log4perl;
 
-  my $filename =  $LXDebug::file_name;
+  my $filename =  $::lxdebug->file;
   my $config   =  $::lx_office_conf{debug}->{dbix_log4perl_config};
   $config      =~ s/LXDEBUGFILE/${filename}/g;
 
@@ -20,4 +20,14 @@ sub connect {
   return DBIx::Log4perl->connect(@_);
 }
 
+sub get_options {
+  my $self    = shift;
+  my $options = {
+    pg_enable_utf8 => $::locale->is_utf8,
+    @_
+  };
+
+  return $options;
+}
+
 1;