X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FUser.pm;h=62bc94f6d6b71290d82a9dbfaa6248359580937b;hb=7ec334735373f140fb8ab48d9cdbe8dedecd99d0;hp=24774db20b9a9662b25fa51efc2060fbf9253ebc;hpb=ae1b5cbad92eb30f55747d2aa986b9a0b7a433b5;p=kivitendo-erp.git

diff --git a/SL/User.pm b/SL/User.pm
index 24774db20..62bc94f6d 100644
--- 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();