diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-01-06 17:07:15 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-01-06 17:07:15 +0000 |
| commit | dabe48195cab109ba9cb2bd179500ef481d53348 (patch) | |
| tree | aabb59ee38f421a9172b42d94706e4355c776ca0 /perl-install/standalone/adduserdrake | |
| parent | 937943b4502499a9afae32313f47a73352a21a41 (diff) | |
| download | drakx-backup-do-not-use-dabe48195cab109ba9cb2bd179500ef481d53348.tar drakx-backup-do-not-use-dabe48195cab109ba9cb2bd179500ef481d53348.tar.gz drakx-backup-do-not-use-dabe48195cab109ba9cb2bd179500ef481d53348.tar.bz2 drakx-backup-do-not-use-dabe48195cab109ba9cb2bd179500ef481d53348.tar.xz drakx-backup-do-not-use-dabe48195cab109ba9cb2bd179500ef481d53348.zip | |
ask_from_entries_refH parameter format has changed so change all accesses to it.
Diffstat (limited to 'perl-install/standalone/adduserdrake')
| -rwxr-xr-x | perl-install/standalone/adduserdrake | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/perl-install/standalone/adduserdrake b/perl-install/standalone/adduserdrake index c8fb8f2b6..18ee80c2b 100755 --- a/perl-install/standalone/adduserdrake +++ b/perl-install/standalone/adduserdrake @@ -36,15 +36,15 @@ if ($in->ask_from_entries_refH( [ _("Add user"), _("Accept user"), _("Done") ], _("Enter a user\n%s", $users ? _("(already added %s)", join(", ", map { $_->{realname} || $_->{name} } @users)) : ''), [ - _("Real name") => \$u->{realname}, - _("User name") => \$u->{name}, - $security < 2 ? () : ( - _("Password") => {val => \$u->{password}, hidden => 1}, - _("Password (again)") => {val => \$u->{password2}, hidden => 1}, - ), $::beginner ? () : ( - _("Shell") => {val => \$u->{shell}, list => \@shells, not_edit => !$::expert} - ), $security > 3 ? () : ( - _("Icon") => {val => \$u->{icon}, list => [ any::facesnames() ], icon2f => \&any::face2xpm }, + { label => _("Real name"), val => \$u->{realname} }, + { label => _("User name"), val => \$u->{name} }, + if_($security >= 2, + { label => _("Password"), val => \$u->{password}, hidden => 1 }, + { label => _("Password (again)"), val => \$u->{password2}, hidden => 1 }, + ), if_(!$::beginner, + { label => _("Shell"), val => \$u->{shell}, list => \@shells, not_edit => !$::expert } + ), if_($security <= 3, + { label => _("Icon"), val => \$u->{icon}, list => [ any::facesnames() ], icon2f => \&any::face2xpm }, ), ], focus_out => sub { |