From f6489bb8bd002ad8fc34b583f76fdc988a0f3af1 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 29 Dec 2002 12:34:35 +0000
Subject: move any::load_category() to network::interactive::load_category()
 (and a few other functions which are only used by load_category())

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

(limited to 'perl-install/network')

diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm
index f9d97e00c..69135e363 100644
--- a/perl-install/network/ethernet.pm
+++ b/perl-install/network/ethernet.pm
@@ -2,7 +2,7 @@ package network::ethernet;
 
 use network::network;
 use modules;
-use any;
+use modules::interactive;
 use detect_devices;
 use common;
 use run_program;
@@ -82,7 +82,7 @@ qq(
 sub conf_network_card {
     my ($netc, $intf, $type, $ipadr, $netadr) = @_;
     #-type =static or dhcp
-    any::load_category($in, 'network/main|usb', !$::expert, 1);
+    modules::interactive::load_category($in, 'network/main|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.
@@ -172,7 +172,7 @@ sub go_ethernet {
 sub configureNetwork {
     my ($netc, $intf, $_first_time) = @_;
     local $_;
-    any::load_category($in, 'network/main|usb|pcmcia', !$::expert, 1) or return;
+    modules::interactive::load_category($in, 'network/main|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);
 
-- 
cgit v1.2.1