From fe57c63558450228ca52c6f3302910372be6ebb4 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 13 Feb 2003 14:35:52 +0000 Subject: - set_help is deprecated - it is replaced by interactive_help_id on each ask_* - many set_help do not have any correspondance in help.pm (drakxid-*), those are commented for now --- perl-install/network/ethernet.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/network/ethernet.pm') diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm index fc87f5b3a..0d62c68ba 100644 --- a/perl-install/network/ethernet.pm +++ b/perl-install/network/ethernet.pm @@ -17,7 +17,7 @@ use MDK::Common::Globals "network", qw($in $prefix); sub configure_cable { my ($netcnx, $netc, $intf, $first_time) = @_; - $::isInstall and $in->set_help('configureNetworkCable'); +# $::isInstall and $in->set_help('configureNetworkCable'); $netcnx->{type} = 'cable'; if ($::expert) { @@ -54,7 +54,7 @@ qq( sub configure_lan { my ($netcnx, $netc, $intf, $first_time) = @_; - $::isInstall and $in->set_help('configureNetworkIP'); +# $::isInstall and $in->set_help('configureNetworkIP'); configureNetwork($netc, $intf, $first_time) or return; configureNetwork2($in, $prefix, $netc, $intf); $netc->{NETWORKING} = "yes"; @@ -183,7 +183,7 @@ sub configureNetwork { if ($last->{BOOTPROTO} !~ /static/) { $netc->{minus_one} = 1; - $::isInstall and $in->set_help('configureNetworkHostDHCP'); +# $::isInstall and $in->set_help('configureNetworkHostDHCP'); $in->ask_from(N("Configuring network"), N("Please enter your host name if you know it. Some DHCP servers require the hostname to work. -- cgit v1.2.1