summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakauth
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-07-20 09:23:32 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-07-20 09:23:32 +0000
commit1519afa63e057ab0260a7aebecf2abe8783ed799 (patch)
tree462ca18c59fa1c6c0cb4480aaf138f12417e5ee2 /perl-install/standalone/drakauth
parent7b37b87982e2e55fcd18dfdf116f46bbc4a0b833 (diff)
downloaddrakx-1519afa63e057ab0260a7aebecf2abe8783ed799.tar
drakx-1519afa63e057ab0260a7aebecf2abe8783ed799.tar.gz
drakx-1519afa63e057ab0260a7aebecf2abe8783ed799.tar.bz2
drakx-1519afa63e057ab0260a7aebecf2abe8783ed799.tar.xz
drakx-1519afa63e057ab0260a7aebecf2abe8783ed799.zip
better looking wizard
Diffstat (limited to 'perl-install/standalone/drakauth')
-rwxr-xr-xperl-install/standalone/drakauth4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/standalone/drakauth b/perl-install/standalone/drakauth
index 9006d01a6..d12d1e1ec 100755
--- a/perl-install/standalone/drakauth
+++ b/perl-install/standalone/drakauth
@@ -21,9 +21,9 @@ my $authentication = {}; # TODO
my $kind = authentication::to_kind($authentication);
main:
-$in->ask_from(N("Authentication"), join('', map { authentication::kind2description($_) } authentication::kinds()),
+$in->ask_from(N("Authentication"), authentication::kind2description($_),
[
- { label => N("Authentication"), val => \$kind, type => 'list' , list => [ authentication::kinds() ] },
+ { label => N("Authentication"), val => \$kind, type => 'list' , list => [ authentication::kinds() ], format => \&authentication::kind2name },
]) or $in->exit;
authentication::ask_parameters($in, $netc, $authentication, $kind) or goto main;