Damit dbupgrade2_tool.pl nicht mehrmals eine Datenbankverbindung aufbauen muss.

[mfinanz.git] / SL / User.pm

diff --git a/SL/User.pm b/SL/User.pm
index 9e1afb80f7e765fb7e51e444e96d0cbd7388387e..a6005b09229086700317fb436d205bf107d085b7 100644 (file)
--- 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)) {
 
   my $query = "SELECT tag FROM schema_info LIMIT 1";
   if (!$dbh->do($query)) {

+    $dbh->rollback();

     $query =
       qq|CREATE TABLE schema_info (| .
       qq|  tag text, | .
     $query =
       qq|CREATE TABLE schema_info (| .
       qq|  tag text, | .