From f5524ba0ac03c8a9d0c8d7f302c465a1f9314b3b Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Mon, 24 Sep 2001 15:36:51 +0000
Subject: type assignation bug fix

---
 perl-install/network/isdn.pm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'perl-install/network/isdn.pm')

diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm
index c08f2dd5b..5646ca01f 100644
--- a/perl-install/network/isdn.pm
+++ b/perl-install/network/isdn.pm
@@ -23,12 +23,12 @@ sub configure {
 			       ) or return;
     if ($e =~ /card/) {
       intern_pci:
-	$netcnx->{type}='isdn_internal';
+	$netc->{isdntype}='isdn_internal';
 	$netcnx->{isdn_internal}={};
 	$netcnx->{isdn_internal}{$_} = $netc->{autodetect}{isdn}{$_} foreach ('description', 'vendor', 'id', 'driver', 'card_type', 'type');
 	isdn_detect($netcnx->{isdn_internal}, $netc) or return;
     } else {
-	$netcnx->{type}='isdn_external';
+	$netc->{isdntype}='isdn_external';
 	$netcnx->{isdn_external}={};
 	$netcnx->{isdn_external}{device}=$netc->{autodetect}{modem};
 	$netcnx->{isdn_external}{special_command}='AT&F&O2B40';
@@ -62,12 +62,13 @@ We recommand the light configuration.
     run_program::rooted($prefix, "rpm", "-e", "$rmpackage");
     $in->do_pkgs->install($instpackage, if_($isdn->{speed} =~ /128/, 'ibod'), 'isdn4k-utils');
     my $light = $e =~ /light/ ? 1 : 0;
-    isdn_write_config_backend($isdn, $light, $netc, $netcnx);
+    isdn_write_config_backend($isdn, $light, $netc);
     1;
 }
 
 sub isdn_write_config_backend {
     my ($isdn, $light, $netc, $netcnx) = @_;
+    defined $netcnx and $netc->{isdntype} = $netcnx->{type};
     if ($light) {
 	modules::mergein_conf("$prefix/etc/modules.conf");
 	if ($isdn->{id}) {
@@ -145,7 +146,7 @@ defaultroute
 "/sbin/isdnctrl hangup ippp0
 /sbin/ifdown ippp0
 "  . if_($isdn->{speed} =~ /128/, "service ibod stop
-"), $netcnx->{type});
+"), $netc->{isdntype});
     1;
 }
 
-- 
cgit v1.2.1