diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-04-05 22:28:34 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-04-05 22:28:34 +0000 |
| commit | 035c70d7c10926a88aa0f24e74a04aae2775b069 (patch) | |
| tree | cb6366609a0fe5a6d48d10d5b4e8322ca9c97a69 /perl-install | |
| parent | 85e27c29d6c577a0f6aa9e05130d8a3c7c312775 (diff) | |
| download | drakx-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.pm | 3 |
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); |