From dec2882ea7fe42948cc596907f7a340bcd3bc65f Mon Sep 17 00:00:00 2001 From: Thierry Vignaud 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(+) (limited to 'perl-install') 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