From 9cac0d55f3a70f14a12f784ebf725ac4977d5ef6 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 3 Jan 2005 17:01:46 +0000
Subject: move and rename network::ethernet::get_eth_categories() into
 list_modules::ethernet_categories() (it's closer to the definition of the
 categories)

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

(limited to 'perl-install/network')

diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm
index ec037fff2..66562b5ed 100644
--- a/perl-install/network/ethernet.pm
+++ b/perl-install/network/ethernet.pm
@@ -8,10 +8,6 @@ use detect_devices;
 use common;
 use run_program;
 use network::tools;
-use vars qw(@ISA @EXPORT);
-
-@ISA = qw(Exporter);
-@EXPORT = qw(get_eth_categories);
 
 sub write_ether_conf {
     my ($in, $modules_conf, $netcnx, $netc, $intf) = @_;
@@ -37,10 +33,6 @@ sub mapIntfToDevice {
 }
 
 
-sub get_eth_categories() {
-    'network/main|gigabit|pcmcia|usb|wireless|firewire';
-}
-
 # return list of [ intf_name, module, device_description ] tuples such as:
 # [ "eth0", "3c59x", "3Com Corporation|3c905C-TX [Fast Etherlink]" ]
 #
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index c593d5045..56c08541f 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -22,7 +22,7 @@ sub detect {
              },
              lan => sub { # ethernet
                  require network::ethernet;
-                 modules::load_category($modules_conf, network::ethernet::get_eth_categories());
+                 modules::load_category($modules_conf, list_modules::ethernet_categories());
                  $auto_detect->{lan} = { map { $_->[0] => $_->[1] } network::ethernet::get_eth_cards($modules_conf) };
              },
              adsl => sub {
@@ -126,7 +126,7 @@ sub real_main {
       my $lan_detect = sub {
           detect($modules_conf, $netc->{autodetect}, 'lan');
           require network::ethernet;
-          modules::interactive::load_category($in, $modules_conf, network::ethernet::get_eth_categories(), !$::expert, 0);
+          modules::interactive::load_category($in, $modules_conf, list_modules::ethernet_categories(), !$::expert, 0);
           @all_cards = network::ethernet::get_eth_cards($modules_conf);
           %all_eth_intf = network::ethernet::get_eth_cards_names(@all_cards); #- needed not to loose GATEWAYDEV
           require list_modules; #- FIXME: check if useful
@@ -889,7 +889,7 @@ You can find a driver on http://eciadsl.flashtux.org/"),
                     post => sub {
                         if ($ntf_name eq "Manually load a driver") {
                             require network::ethernet;
-                            modules::interactive::load_category__prompt($in, $modules_conf, network::ethernet::get_eth_categories());
+                            modules::interactive::load_category__prompt($in, $modules_conf, list_modules::ethernet_categories());
                             return 'lan';
                         }
                         $ethntf = $intf->{$ntf_name} ||= { DEVICE => $ntf_name };
diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index ed5fa646d..cad6eb7d5 100644
--- a/perl-install/network/network.pm
+++ b/perl-install/network/network.pm
@@ -379,7 +379,7 @@ sub easy_dhcp {
 
     require modules;
     require network::ethernet;
-    modules::load_category($modules_conf, network::ethernet::get_eth_categories());
+    modules::load_category($modules_conf, list_modules::ethernet_categories());
     my @all_dev = sort map { $_->[0] } network::ethernet::get_eth_cards($modules_conf);
 
     #- only for a single ethernet network card
-- 
cgit v1.2.1