summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-01-06 17:07:15 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-01-06 17:07:15 +0000
commitdabe48195cab109ba9cb2bd179500ef481d53348 (patch)
treeaabb59ee38f421a9172b42d94706e4355c776ca0 /perl-install/standalone
parent937943b4502499a9afae32313f47a73352a21a41 (diff)
downloaddrakx-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')
-rwxr-xr-xperl-install/standalone/adduserdrake18
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 {