From 56d1654a189bd13e269603cd1cd6be771a792297 Mon Sep 17 00:00:00 2001 From: Damien Chaumette Date: Fri, 6 Sep 2002 21:25:11 +0000 Subject: - add new screen for ISND detected device. Still have to get back in Expert mode to choose by hand. --- perl-install/network/isdn.pm | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'perl-install') 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") ] -- cgit v1.2.1