X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/ae1b5cbad92eb30f55747d2aa986b9a0b7a433b5..89c9d0aafa8b2a1ae33bc590c8dafb0edc9a428c:/SL/User.pm

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();