summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-04-21 12:42:57 +0000
committerFrancois Pons <fpons@mandriva.com>2000-04-21 12:42:57 +0000
commitf3b08d4d16cd2e89dc64f3d7025c413de6e2ea0e (patch)
treea59b7df249a766be1e1196fb6ecc8b62510f46c8 /perl-install/install_steps_interactive.pm
parent68025cc5c4127b2fbd5dad7be8a86ee0dc43fc8f (diff)
downloaddrakx-f3b08d4d16cd2e89dc64f3d7025c413de6e2ea0e.tar
drakx-f3b08d4d16cd2e89dc64f3d7025c413de6e2ea0e.tar.gz
drakx-f3b08d4d16cd2e89dc64f3d7025c413de6e2ea0e.tar.bz2
drakx-f3b08d4d16cd2e89dc64f3d7025c413de6e2ea0e.tar.xz
drakx-f3b08d4d16cd2e89dc64f3d7025c413de6e2ea0e.zip
*** empty log message ***
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 315bf1e2f..ac71b01b0 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -654,7 +654,7 @@ _("Use NIS") => { val => \$o->{authentication}{NIS}, type => 'bool', text => _("
sub addUser {
my ($o, $clicked) = @_;
my $u = $o->{user} ||= {};
- if ($::beginner || $o->{security} < 1) {
+ if ($o->{security} < 1) {
add2hash_($u, { name => "mandrake", password => "mandrake", realname => "default", icon => 'automagic' });
$o->{users} ||= [ $u ];
}
@@ -663,7 +663,7 @@ sub addUser {
my @fields = qw(realname name password password2);
my @shells = install_any::shells($o);
- if (($o->{security} >= 2 && !$::beginner || $clicked)) {
+ if (($o->{security} >= 1 || $clicked)) {
$u->{icon} = translate($u->{icon});
if ($o->ask_from_entries_refH(
[ _("Add user"), _("Accept user"), $o->{security} >= 4 && !@{$o->{users}} ? () : _("Done") ],