diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-04-14 23:59:01 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-04-14 23:59:01 +0000 |
| commit | a4299593feb14ed8317da49980b8c06e59688aa2 (patch) | |
| tree | cf2fea27a2884a3205a95d5c3042cdae91be7c66 /perl-install/install_steps_interactive.pm | |
| parent | 21066f8c4d8d136cca65f7138cabb25d4b4cfe8c (diff) | |
| download | drakx-backup-do-not-use-a4299593feb14ed8317da49980b8c06e59688aa2.tar drakx-backup-do-not-use-a4299593feb14ed8317da49980b8c06e59688aa2.tar.gz drakx-backup-do-not-use-a4299593feb14ed8317da49980b8c06e59688aa2.tar.bz2 drakx-backup-do-not-use-a4299593feb14ed8317da49980b8c06e59688aa2.tar.xz drakx-backup-do-not-use-a4299593feb14ed8317da49980b8c06e59688aa2.zip | |
no_comment
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 58b64a4dd..aa8f6b5ad 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -658,7 +658,7 @@ sub addUser { my ($o, $clicked) = @_; my $u = $o->{user} ||= {}; if ($::beginner || $o->{security} < 1) { - add2hash_($u, { name => "mandrake", password => "mandrake", realname => "default", icon => translate('automagic') }); + add2hash_($u, { name => "mandrake", password => "mandrake", realname => "default", icon => 'automagic' }); $o->{users} ||= [ $u ]; } $u->{password2} ||= $u->{password} ||= ""; @@ -666,7 +666,9 @@ sub addUser { my @fields = qw(realname name password password2); my @shells = install_any::shells($o); - if (($o->{security} >= 2 && !$::beginner || $clicked) && $o->ask_from_entries_refH( + if (($o->{security} >= 2 && !$::beginner || $clicked)) { + $u->{icon} = translate($u->{icon}); + if ($o->ask_from_entries_refH( [ _("Add user"), _("Accept user"), $o->{security} >= 4 && !@{$o->{users}} ? () : _("Done") ], _("Enter a user\n%s", $o->{users} ? _("(already added %s)", join(", ", map { $_->{realname} || $_->{name} } @{$o->{users}})) : ''), [ @@ -696,9 +698,10 @@ sub addUser { return 0; }, )) { - push @{$o->{users}}, $o->{user}; - $o->{user} = {}; - goto &addUser; + push @{$o->{users}}, $o->{user}; + $o->{user} = {}; + goto &addUser; + } } install_steps::addUser($o); } |