X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/ca0556190d6b60e628d9b07b19f8af10960ba25f..a72bd579f8b200dba8518d0bff3e0826928a1493:/SL/User.pm?ds=sidebyside

diff --git a/SL/User.pm b/SL/User.pm
index 368a0a278..21c3689f9 100644
--- a/SL/User.pm
+++ b/SL/User.pm
@@ -398,6 +398,8 @@ sub dbcreate {
   do_query($form, $dbh, $query, $form->{profit_determination});
   $query = "UPDATE defaults SET inventory_system = ?";
   do_query($form, $dbh, $query, $form->{inventory_system});
+  $query = "UPDATE defaults SET curr = ?";
+  do_query($form, $dbh, $query, $form->{defaultcurrency});
 
   $dbh->disconnect;