X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/4531a6c712b2529a01f31ddde2ef4d7045d173c7..a5315ec:/bin/mozilla/admin.pl

diff --git a/bin/mozilla/admin.pl b/bin/mozilla/admin.pl
index 9e34fba20..3254b9b85 100755
--- a/bin/mozilla/admin.pl
+++ b/bin/mozilla/admin.pl
@@ -418,7 +418,7 @@ sub edit_user_form {
   my $groups = [];
 
   if ($::form->{edit}) {
-    my $user_id    = $::auth->get_user_id($::form->{login});
+    my $user_id    = $::auth->get_user_id($user->{login});
     my $all_groups = $::auth->read_groups();
 
     for my $group (values %{ $all_groups }) {
@@ -476,7 +476,7 @@ sub save_user {
   $user->{templates} =~ s|.*/||;
   $user->{templates} =  $::lx_office_conf{paths}->{templates} . "/$user->{templates}";
 
-  my $myconfig = new User(id => $form->{id});
+  my $myconfig = new User(id => $user->{id});
 
   $::form->show_generic_error($::locale->text('Dataset missing!'))       unless $user->{dbname};
   $::form->show_generic_error($::locale->text('Database User missing!')) unless $user->{dbuser};