From dfc9f2bfee33fb1e1a9b5333ee9f53c0f1da136c Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 23 Jan 2003 12:43:45 +0000 Subject: (load_category__prompt_for_more): cleanup, propose "See hardware info" in any case --- perl-install/modules/interactive.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'perl-install/modules/interactive.pm') diff --git a/perl-install/modules/interactive.pm b/perl-install/modules/interactive.pm index f8da8b561..add2f5ccd 100644 --- a/perl-install/modules/interactive.pm +++ b/perl-install/modules/interactive.pm @@ -58,9 +58,8 @@ sub load_category__prompt_for_more { N("Do you have another one?") ] : N("Do you have any %s interfaces?", $msg_type); - my $opt = [ N_("Yes"), N_("No") ]; - push @$opt, N_("See hardware info") if $::expert; - my $r = $in->ask_from_list_('', $msg, $opt, "No") or return; + my $r = 'No'; + $in->ask_from('', $msg, [ { list => [ N_("Yes"), N_("No"), N_("See hardware info") ], val => \$r, type => 'list' } ]); if ($r eq "No") { return @l } if ($r eq "Yes") { push @l, load_category__prompt($in, $category) || next; -- cgit v1.2.1