X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/be3db7d1e68a317041a9556f2849c292334245ab..ff37d88c3b2942e7da84d89a7de78956b56f8a67:/SL/User.pm?ds=inline

diff --git a/SL/User.pm b/SL/User.pm
index d638220c2..75e7a38d0 100644
--- a/SL/User.pm
+++ b/SL/User.pm
@@ -404,6 +404,12 @@ sub dbcreate {
 
   $query = "UPDATE defaults SET coa = ?";
   do_query($form, $dbh, $query, $form->{chart});
+  $query = "UPDATE defaults SET accounting_method = ?";
+  do_query($form, $dbh, $query, $form->{accounting_method});
+  $query = "UPDATE defaults SET profit_determination = ?";
+  do_query($form, $dbh, $query, $form->{profit_determination});
+  $query = "UPDATE defaults SET inventory_system = ?";
+  do_query($form, $dbh, $query, $form->{inventory_system});
 
   $dbh->disconnect;