From 6c7e9bdbfa12bc52da5272de610ff4956e35f715 Mon Sep 17 00:00:00 2001
From: Damien Chaumette <dchaumette@mandriva.com>
Date: Mon, 3 May 2004 14:29:28 +0000
Subject: take ISDN protocol into account for people outside Europe to use it
 (kind of lost in space before)

---
 perl-install/network/isdn.pm       | 1 +
 perl-install/network/netconnect.pm | 5 ++++-
 2 files changed, 5 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm
index 2c03cef31..e4f0ac49a 100644
--- a/perl-install/network/isdn.pm
+++ b/perl-install/network/isdn.pm
@@ -43,6 +43,7 @@ I4L_IO0="$isdn->{io0}"
 I4L_IO1="$isdn->{io1}"
 I4L_ID="HiSax"
 I4L_FIRMWARE="$isdn->{firmware}"
+I4L_PROTOCOL="$isdn->{protocol}"
 );
 
 	output "$::prefix/etc/ppp/ioptions",
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 76f7fbcc1..60651ae4c 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -424,7 +424,10 @@ If you have a PCMCIA card, you have to know the \"irq\" and \"io\" of your card.
                              { label => N("Protocol"), type => "list", val => \$isdn_type,
                                list => [ keys %isdn_protocols ], format => sub { $isdn_protocols{$_[0]} } }
                             ],
-                    next => "isdn_db",
+                    post => sub { 
+                        $isdn->{protocol} = $isdn_type; 
+                        return "isdn_db",
+                    }
                    },
 
 
-- 
cgit v1.2.1