From 144146a4fdfea33d8d6b6d704235260cdb1cadc6 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 30 Jan 2003 22:35:37 +0000
Subject: adapt to new category network/gigabit (which used to be in
 network/main)

---
 perl-install/network/ethernet.pm   | 6 +++---
 perl-install/network/netconnect.pm | 4 ++--
 perl-install/network/network.pm    | 2 +-
 3 files changed, 6 insertions(+), 6 deletions(-)

(limited to 'perl-install/network')

diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm
index db95c1a17..9127a03c7 100644
--- a/perl-install/network/ethernet.pm
+++ b/perl-install/network/ethernet.pm
@@ -77,7 +77,7 @@ qq(
 sub conf_network_card {
     my ($netc, $intf, $type, $ipadr, $netadr) = @_;
     #-type =static or dhcp
-    modules::interactive::load_category($in, 'network/main|usb', !$::expert, 1);
+    modules::interactive::load_category($in, 'network/main|gigabit|usb', !$::expert, 1);
     my @all_cards = conf_network_card_backend($netc, $intf, $type, undef, $ipadr, $netadr);
     my $interface;
     @all_cards == () and $in->ask_warn('', N("No ethernet network adapter has been detected on your system.
@@ -99,7 +99,7 @@ I cannot set up this connection type.")) and return;
     1;
 }
 
-#- conf_network_card_backend : configure the network cards and return the list of them, or configure one specified interface : WARNING, you have to setup the ethernet cards, by calling load_category($in, 'network/main|usb', !$::expert, 1) or load_category_backend before calling this function. Basically, you call this function in 2 times.
+#- conf_network_card_backend : configure the network cards and return the list of them, or configure one specified interface : WARNING, you have to setup the ethernet cards, by calling load_category($in, 'network/main|gigabit|usb', !$::expert, 1) or load_category_backend before calling this function. Basically, you call this function in 2 times.
 #- input
 #-  $prefix
 #-  $netc
@@ -166,7 +166,7 @@ sub go_ethernet {
 sub configureNetwork {
     my ($netc, $intf, $_first_time) = @_;
     local $_;
-    modules::interactive::load_category($in, 'network/main|usb|pcmcia', !$::expert, 1) or return;
+    modules::interactive::load_category($in, 'network/main|gigabit|usb|pcmcia', !$::expert, 1) or return;
     my @l = detect_devices::getNet() or die N("no network card found");
     my @all_cards = conf_network_card_backend($netc, $intf, undef, undef, undef, undef);
 
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index ff9c73c71..a2bc40aba 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -59,7 +59,7 @@ sub detect {
     $auto_detect->{isdn}{$_} = $isdn->{$_} foreach qw(description vendor id driver card_type type);
     $auto_detect->{isdn}{description} =~ s/.*\|//;
 
-    modules::load_category('network/main|usb');
+    modules::load_category('network/main|gigabit|usb');
     require network::ethernet;
     network::ethernet->import;
     my @all_cards = conf_network_card_backend(undef, undef, undef, undef, undef, undef);
@@ -325,7 +325,7 @@ sub save_conf {
     $netcnx->{type} =~ /adsl/ and $adsl = $netcnx->{$netcnx->{type}};
     $netcnx->{type} eq 'isdn_external' || $netcnx->{type} eq 'modem' and $modem = $netcnx->{$netcnx->{type}};
     $netcnx->{type} eq 'isdn_internal' and $isdn = $netcnx->{$netcnx->{type}};
-    modules::load_category('network/main|usb');
+    modules::load_category('network/main|gigabit|usb');
     require network::ethernet;
     network::ethernet->import;
     my @_all_cards = conf_network_card_backend($netc, $intf, undef, undef, undef, undef);
diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index a48562214..cd8234fb9 100644
--- a/perl-install/network/network.pm
+++ b/perl-install/network/network.pm
@@ -437,7 +437,7 @@ sub easy_dhcp {
 
     require modules;
     require network::ethernet;
-    modules::load_category('network/main|usb');
+    modules::load_category('network/main|gigabit|usb');
     my @all_cards = network::ethernet::conf_network_card_backend();
 
     #- only for a single network card
-- 
cgit v1.2.1