summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-04-05 22:28:34 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-04-05 22:28:34 +0000
commit035c70d7c10926a88aa0f24e74a04aae2775b069 (patch)
treecb6366609a0fe5a6d48d10d5b4e8322ca9c97a69 /perl-install
parent85e27c29d6c577a0f6aa9e05130d8a3c7c312775 (diff)
downloaddrakx-035c70d7c10926a88aa0f24e74a04aae2775b069.tar
drakx-035c70d7c10926a88aa0f24e74a04aae2775b069.tar.gz
drakx-035c70d7c10926a88aa0f24e74a04aae2775b069.tar.bz2
drakx-035c70d7c10926a88aa0f24e74a04aae2775b069.tar.xz
drakx-035c70d7c10926a88aa0f24e74a04aae2775b069.zip
(addUser): default autologin to first user in beginner
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_interactive.pm3
1 files changed, 3 insertions, 0 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 9d1e9cbc2..902fd4057 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -919,6 +919,9 @@ sub addUser {
any::ask_users($o->{prefix}, $o, $o->{users}, $o->{security});
}
any::get_autologin($o->{prefix}, $o);
+ if (!$::expert && !$clicked && $o->{users}) {
+ $o->{autologin} = $o->{users}[0]{name};
+ }
any::autologin($o->{prefix}, $o, $o);
install_steps::addUser($o);