From 12eb8608ad517afff8c323e276f2f4f4e5405896 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Sun, 20 Aug 2000 15:31:03 +0000
Subject: updated isdn configuration

---
 perl-install/ChangeLog                    | 5 +++++
 perl-install/install_steps_interactive.pm | 4 ++--
 perl-install/modules.pm                   | 9 +++++----
 3 files changed, 12 insertions(+), 6 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog
index 03a79a4dc..0987eda0c 100644
--- a/perl-install/ChangeLog
+++ b/perl-install/ChangeLog
@@ -1,3 +1,8 @@
+2000-08-20  dam's  <damien@mandrakesoft.com>
+
+	* moved Netconnect.pm to netconnect.pm
+	* moved DrakFuck to drakfuck
+
 2000-08-18  dam's  <damien@mandrakesoft.com>
 
 	* modules.pm: added isdn type in @drivers_by_category. corrected
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 2804f3f19..ef5760094 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -23,7 +23,7 @@ use devices;
 use fsedit;
 use network;
 use raid;
-use Netconnect;
+use netconnect;
 use mouse;
 use modules;
 use lang;
@@ -497,7 +497,7 @@ such as ``mybox.mylab.myco.com''."),
     #- (dam's)
     if (!$::beginner && $o->ask_yesorno([ _("Modem Configuration") ],
 			_("Do you want to configure a ISDN connection for your system?"), 0)) {
-        Netconnect::isdn($o->{prefix}, $o->{isdn}, $o, bool($o->{pcmcia}));
+        Netconnect::detect_isdn($o->{prefix}, $o->{isdn}, $o, bool($o->{pcmcia}));
     }
 }
 
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 6bc3ac812..77091048d 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -96,7 +96,8 @@ arch() =~ /^sparc/ ? (
   "sunrpc" => "sunrpc",
 }],
 [ 'isdn', {
-  "hisax" => "hisax",
+   "hisax" => "hisax",
+   "b1pci" => "b1pci",
 }],
 [ 'scsi', {
 arch() =~ /^sparc/ ? (
@@ -538,9 +539,9 @@ sub load_thiskind {
 
 sub get_that_type {
     my ($type, $pcic) = @_;
-    
-    grep { 
-	my $l = $drivers{$_->{driver}}; 
+
+    grep {
+	my $l = $drivers{$_->{driver}};
 	$l && $l->{type} eq $type && detect_devices::check($_);
     } detect_devices::probeall('', $pcic);
 }
-- 
cgit v1.2.1