Font-Fallback auf serifenlosen Font, falls keiner der angegebenen Fonts installiert...

[mfinanz.git] / bin / mozilla / admin.pl

diff --git a/bin/mozilla/admin.pl b/bin/mozilla/admin.pl
index 9e34fba2040557e2b91ad0513c55065104becad1..3254b9b858050ee230e09b930f641e360392ba87 100755 (executable)
--- 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};