From 29efd345f07a38ba6347feea96abe90607709758 Mon Sep 17 00:00:00 2001 From: Frederic Lepied Date: Tue, 4 Mar 2003 21:54:00 +0000 Subject: corrected isdn-light choice --- perl-install/network/isdn.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'perl-install/network/isdn.pm') diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm index 3f7d206f0..3bb656894 100644 --- a/perl-install/network/isdn.pm +++ b/perl-install/network/isdn.pm @@ -41,7 +41,11 @@ We recommand the light configuration. $netc->{isdntype} = 'isdn_internal'; $netcnx->{isdn_internal} = isdn_read_config($isdn); $netcnx->{isdn_internal}{$_} = $netc->{autodetect}{isdn}{$_} foreach 'description', 'vendor', 'id', 'driver', 'card_type', 'type', 'is_light'; - $netc->{autodetect}{isdn} and $isdn->{is_light} = 1; + if (defined $netc->{autodetect}{isdn}{id}) { + $netcnx->{isdn_internal}{is_light} = 1; + } else { + $netcnx->{isdn_internal}{is_light} = $netc->{autodetect}{isdn}{is_light}; + } isdn_detect($netcnx->{isdn_internal}, $netc) or return; } else { $netc->{isdntype} = 'isdn_external'; -- cgit v1.2.1