summaryrefslogtreecommitdiffstats
path: root/perl-install/network/isdn.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/network/isdn.pm')
-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") ]