diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-01-23 12:43:45 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-01-23 12:43:45 +0000 |
| commit | dfc9f2bfee33fb1e1a9b5333ee9f53c0f1da136c (patch) | |
| tree | ce4f04831955922d221aa1a18ed189851cef70dc /perl-install | |
| parent | 40471cedde0ea37f1a8b1816546ae36b4e9ada71 (diff) | |
| download | drakx-dfc9f2bfee33fb1e1a9b5333ee9f53c0f1da136c.tar drakx-dfc9f2bfee33fb1e1a9b5333ee9f53c0f1da136c.tar.gz drakx-dfc9f2bfee33fb1e1a9b5333ee9f53c0f1da136c.tar.bz2 drakx-dfc9f2bfee33fb1e1a9b5333ee9f53c0f1da136c.tar.xz drakx-dfc9f2bfee33fb1e1a9b5333ee9f53c0f1da136c.zip | |
(load_category__prompt_for_more): cleanup, propose "See hardware info" in any case
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/modules/interactive.pm | 5 |
1 files changed, 2 insertions, 3 deletions
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; |