From fd82c0312a315599fb0d766fa5c6b7be4b211ba3 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 10 Sep 1999 09:15:24 +0000
Subject: no_comment

---
 perl-install/install_steps_interactive.pm | 24 ++++++++++++++++--------
 1 file changed, 16 insertions(+), 8 deletions(-)

(limited to 'perl-install/install_steps_interactive.pm')

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 70090a875..296441bb9 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -13,6 +13,7 @@ use vars qw(@ISA);
 use common qw(:common);
 use partition_table qw(:types);
 use install_steps;
+use pci_probing::main;
 use install_any;
 use detect_devices;
 use timezone;
@@ -591,15 +592,22 @@ sub setup_thiskind {
     my @l = $o->load_thiskind($type);
     return if $auto && (@l || !$at_least_one);
     while (1) {
-	@l ?
-	  $o->ask_yesorno('', 
-			  [ _("Found %s %s interfaces", join(", ", map { $_->[0] } @l), $type),
-			    _("Do you have another one?") ], "No") :
-			      $o->ask_yesorno('', _("Do you have an %s interface?", $type), "No") or return;
+	my $msg = @l ?
+	  [ _("Found %s %s interfaces", join(", ", map { $_->[0] } @l), $type), 
+	    _("Do you have another one?") ] :
+	  _("Do you have an %s interface?", $type);
 	    
-	my @r = $o->loadModule($type) or return;
-	push @l, \@r;
-	}
+	my $opt = [ __("Yes"), __("No") ];
+	push @$opt, __("See hardware info") if $::expert;
+	my $r = $o->ask_from_list_('', $msg, $opt);
+	$r eq "No" and return;
+	if ($r eq "Yes") {
+	    my @r = $o->loadModule($type) or return;
+	    push @l, \@r;
+	} else {
+	     $o->ask_warn('', [ pci_probing::main::list() ]);
+	 }
+    }
 }
 
 
-- 
cgit v1.2.1