From 363aab7a71a0b505c780b763b22bcd5131995382 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 5 Apr 2000 20:59:42 +0000 Subject: no_comment --- perl-install/install_steps_interactive.pm | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) (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 d089797c1..746f4ac66 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -651,10 +651,13 @@ _("Use NIS") => { val => \$o->{authentication}{NIS}, type => 'bool', text => _(" #------------------------------------------------------------------------------ sub addUser { my ($o, $clicked) = @_; - my $u = $o->{user} ||= $o->{security} < 1 ? { name => "mandrake", password => "mandrake", realname => "default" } : {}; + my $u = $o->{user} ||= {}; + if ($::beginner || $o->{security} < 1) { + add2hash_($u, { name => "mandrake", password => "mandrake", realname => "default" }); + $o->{users} ||= [ $u ]; + } $u->{password2} ||= $u->{password} ||= ""; $u->{shell} ||= "/bin/bash"; - $u->{icon} ||= translate('default'); my @fields = qw(realname name password password2); my @shells = install_any::shells($o); @@ -929,9 +932,11 @@ _("Removable media automounting") => { val => \$o->{useSupermount}, type => 'boo $::expert ? ( _("Clean /tmp at each boot") => { val => \$u->{CLEAN_TMP}, type => 'bool' }, ) : (), - $u->{numlock} ? ( + $o->{pcmcia} ? ( +_("Enable multi profiles") => { val => \$u->{profiles}, type => 'bool' }, + ) : ( _("Enable num lock at startup") => { val => \$u->{numlock}, type => 'bool' }, - ) : (), + ), ], complete => sub { !$u->{memsize} || $u->{memsize} =~ s/^(\d+)M?$/$1M/i or $o->ask_warn('', _("Give the ram size in Mb")), return 1; my %m = reverse %l; $ENV{SECURE_LEVEL} = $o->{security} = $m{$s}; -- cgit v1.2.1