X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/f705775670d8312e716364f8fc12abc8417f72bc..ce3ce404919a3e39c4b966db7b7d02076cd8c7e5:/SL/User.pm

diff --git a/SL/User.pm b/SL/User.pm
index c563b9e87..a6005b092 100644
--- a/SL/User.pm
+++ b/SL/User.pm
@@ -411,11 +411,6 @@ sub dbcreate {
   my $filename = qq|sql/lx-office.sql|;
   $self->process_query($form, $dbh, $filename);
 
-  # load gifi
-  ($filename) = split /_/, $form->{chart};
-  $filename =~ s/_//;
-  $self->process_query($form, $dbh, "sql/${filename}-gifi.sql");
-
   # load chart of accounts
   $filename = qq|sql/$form->{chart}-chart.sql|;
   $self->process_query($form, $dbh, $filename);
@@ -764,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, | .