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

diff --git a/SL/DB.pm b/SL/DB.pm
index 67888ef59..38441aabf 100644
--- a/SL/DB.pm
+++ b/SL/DB.pm
@@ -16,17 +16,7 @@ my (%_db_registered, %_initial_sql_executed);
 sub dbi_connect {
   shift;
 
-  return DBI->connect(@_) unless $::lx_office_conf{debug} && $::lx_office_conf{debug}->{dbix_log4perl};
-
-  require Log::Log4perl;
-  require DBIx::Log4perl;
-
-  my $filename =  $LXDebug::file_name;
-  my $config   =  $::lx_office_conf{debug}->{dbix_log4perl_config};
-  $config      =~ s/LXDEBUGFILE/${filename}/g;
-
-  Log::Log4perl->init(\$config);
-  return DBIx::Log4perl->connect(@_);
+  return SL::DBConnect->connect(@_);
 }
 
 sub create {