From c5b9c52a2e49c0d109d72b87c8adda657cf5ee1a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 8 Jul 2004 05:04:23 +0000
Subject: when adding users during install, suggest the user names found in
 /home

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

(limited to 'perl-install/install_steps_interactive.pm')

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 9be687103..c269ff682 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -1181,7 +1181,8 @@ sub addUser {
 	  if !member('mandrake', map { $_->{name} } @{$o->{users}});
     }
     if ($o->{security} >= 1 || $clicked) {
-	any::ask_users($o, $o->{users}, $o->{security});
+	my @suggested_names = @{$o->{users}} ? () : all("$::prefix/home");
+	any::ask_users($o, $o->{users}, $o->{security}, \@suggested_names);
     }
     add2hash($o, any::get_autologin());
     any::autologin($o, $o);
-- 
cgit v1.2.1