From 1519afa63e057ab0260a7aebecf2abe8783ed799 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 20 Jul 2004 09:23:32 +0000 Subject: better looking wizard --- perl-install/standalone/drakauth | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/standalone/drakauth') 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; -- cgit v1.2.1