From adf16ea75a2bd9fd1742f397eb23bed89255623a Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 31 Mar 2005 14:40:48 +0000 Subject: don't display description for non proposed authentication kinds --- perl-install/standalone/drakauth | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'perl-install/standalone/drakauth') diff --git a/perl-install/standalone/drakauth b/perl-install/standalone/drakauth index 276ecd287..6a43a2f87 100755 --- a/perl-install/standalone/drakauth +++ b/perl-install/standalone/drakauth @@ -18,11 +18,12 @@ my $authentication = {}; # TODO my $kind = authentication::to_kind($authentication); my $meta_class = { getVarsFromSh("/etc/sysconfig/system") }->{META_CLASS}; +my @kinds = authentication::kinds($in->do_pkgs, $meta_class); main: -$in->ask_from(N("Authentication"), authentication::kind2description(), +$in->ask_from(N("Authentication"), authentication::kind2description(@kinds), [ - { label => N("Authentication"), val => \$kind, type => 'list' , list => [ authentication::kinds($in->do_pkgs, $meta_class) ], format => \&authentication::kind2name }, + { label => N("Authentication"), val => \$kind, type => 'list' , list => \@kinds, format => \&authentication::kind2name }, ]) or $in->exit; authentication::ask_parameters($in, $netc, $authentication, $kind) or goto main; -- cgit v1.2.1