Datenbankupgrade: In der Tabelle defaults wird jetzt auch der verwendete Kontenrahmen...

[mfinanz.git] / SL / User.pm

diff --git a/SL/User.pm b/SL/User.pm
index 24774db20b9a9662b25fa51efc2060fbf9253ebc..62bc94f6d6b71290d82a9dbfaa6248359580937b 100644 (file)
--- a/SL/User.pm
+++ b/SL/User.pm
@@ -388,6 +388,9 @@ sub dbcreate {
   $filename = qq|sql/$form->{chart}-chart.sql|;
   $self->process_query($form, $dbh, $filename);
 
+  $query = "UPDATE defaults SET coa = " . $dbh->quote($form->{"chart"});
+  $dbh->do($query) || $form->dberror($query);
+
   $dbh->disconnect;
 
   $main::lxdebug->leave_sub();