From 035c70d7c10926a88aa0f24e74a04aae2775b069 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 5 Apr 2001 22:28:34 +0000
Subject: (addUser): default autologin to first user in beginner

---
 perl-install/install_steps_interactive.pm | 3 +++
 1 file changed, 3 insertions(+)

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);
-- 
cgit v1.2.1