From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Fri, 27 Apr 2007 12:02:04 +0000 (+0000)
Subject: Damit dbupgrade2_tool.pl nicht mehrmals eine Datenbankverbindung aufbauen muss.
X-Git-Tag: release-2.4.3^2~423
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=81b82d22247e25c60a90db3d23f67a7a2121c8d6;p=kivitendo-erp.git

Damit dbupgrade2_tool.pl nicht mehrmals eine Datenbankverbindung aufbauen muss.
---

diff --git a/SL/User.pm b/SL/User.pm
index 9e1afb80f..a6005b092 100644
--- a/SL/User.pm
+++ b/SL/User.pm
@@ -759,6 +759,7 @@ sub create_schema_info_table {
 
   my $query = "SELECT tag FROM schema_info LIMIT 1";
   if (!$dbh->do($query)) {
+    $dbh->rollback();
     $query =
       qq|CREATE TABLE schema_info (| .
       qq|  tag text, | .