From dec2882ea7fe42948cc596907f7a340bcd3bc65f Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 10 Feb 2004 13:59:55 +0000
Subject: do not allow to step forward if no network card was found (workaround
 #7672). we'd better be able to manually add an unsupported network card
 though.

---
 perl-install/network/netconnect.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index bb6a7d8e6..8b199f30e 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -737,6 +737,12 @@ You can find a driver on http://eciadsl.flashtux.org/"),
                         [ { label => N("Net Device"), type => "list", val => \$ntf_name, list => [ sort keys %eth_intf ], 
                             allow_empty_list => 1, format => sub { $eth_intf{$_[0]} } } ];
                     },
+                    complete => sub { 
+                        if (!keys %eth_intf) {
+                            $in->ask_warn(N("Error"), N("No network adapter on your system!"));
+                            return 1;
+                        };
+                    },
                     post => sub {
                         $ethntf = $intf->{$ntf_name} ||= { DEVICE => $ntf_name };
                         $::isInstall && $netc->{NET_DEVICE} eq $ethntf->{DEVICE} ? 'lan_alrd_cfg' : 'lan_protocol';
-- 
cgit v1.2.1