diff options
| -rw-r--r-- | perl-install/network/isdn.pm | 10 |
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") ] |