summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorDamien Chaumette <dchaumette@mandriva.com>2002-09-06 21:25:11 +0000
committerDamien Chaumette <dchaumette@mandriva.com>2002-09-06 21:25:11 +0000
commit56d1654a189bd13e269603cd1cd6be771a792297 (patch)
treeb1b79a3cc2395f4824d70a218898949b4091472e /perl-install
parenta2491c8a1e821c463a1cec91cd4506cab2159114 (diff)
downloaddrakx-backup-do-not-use-56d1654a189bd13e269603cd1cd6be771a792297.tar
drakx-backup-do-not-use-56d1654a189bd13e269603cd1cd6be771a792297.tar.gz
drakx-backup-do-not-use-56d1654a189bd13e269603cd1cd6be771a792297.tar.bz2
drakx-backup-do-not-use-56d1654a189bd13e269603cd1cd6be771a792297.tar.xz
drakx-backup-do-not-use-56d1654a189bd13e269603cd1cd6be771a792297.zip
- add new screen for ISND detected device. Still have to get back in Expert mode to choose by hand.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/isdn.pm10
1 files changed, 9 insertions, 1 deletions
diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm
index ade002537..d595b1ab0 100644
--- a/perl-install/network/isdn.pm
+++ b/perl-install/network/isdn.pm
@@ -194,7 +194,15 @@ sub isdn_ask_protocol {
sub isdn_ask {
my ($isdn, $netc, $label) = @_;
- isdn_ask_step_1:
+
+ #- ISDN card already detected
+ if (!$::Expert && defined $netc->{autodetect}{isdn}{card_type}) {
+ $in->ask_yesorno(_("ISDN Configuration"), _("Found \"$netc->{autodetect}{isdn}{description}\" interface do you want to use it ?"), 1) or return;
+ $isdn->{$_} = $netc->{autodetect}{isdn}{$_} foreach qw(description vendor id card_type driver type mem io io0 io1 irq firmware);
+ goto isdn_ask_step_3;
+ }
+
+ isdn_ask_step_1:
my $e = $in->ask_from_list_(_("ISDN Configuration"),
$label . "\n" . _("What kind of card do you have?"),
[ __("ISA / PCMCIA"), __("PCI"), __("I don't know") ]