From 7125d7793927520e8dff0b6b3a02def0fbeda408 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 11 Jan 2001 20:12:34 +0000 Subject: (addUser): fix --- perl-install/install_steps_interactive.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index d8af12044..911875063 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -786,16 +786,18 @@ sub setRootPassword { sub addUser { my ($o, $clicked) = @_; $o->{users} ||= []; + if ($o->{security} < 1) { push @{$o->{users}}, { password => 'mandrake', realname => 'default', icon => 'automagic' } if !member('mandrake', map { $_->{name} } @{$o->{users}}); } if (($o->{security} >= 1 || $clicked)) { - any::ask_users($o->{prefix}, $o, $o->{users}, $o->{security}); + any::ask_users($o->{prefix}, $o->{users}, $o->{security}); } install_steps::addUser($o); } +# any::get_autologin($o->{prefix}, $o); -- cgit v1.2.1