From f8ab79fd6e8e4bd9f3c86942e14fb77464f35096 Mon Sep 17 00:00:00 2001 From: damien Date: Mon, 30 Jul 2001 16:54:37 +0000 Subject: debug --- perl-install/network/netconnect.pm | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'perl-install') diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 72098b3fb..044357413 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -177,15 +177,14 @@ ifdown eth0 if (keys %{$netc->{internet_cnx}} > 1) { $in->ask_from_entries_refH(_("Network Configuration Wizard"), - _("You have configured multiple ways to connect to the Internet.\nChoose the one you want to use.\n\n" . if_(!$::isStandalone, "You may want to configure some profiles after the installation, in the Mandrake Control Center")), - [ - { label => _("Internet connection"), val => [$netc->{internet_cnx_choice}], list => [ keys %{$netc->{internet_cnx}}]}, - ] - ) or goto step_2; + _("You have configured multiple ways to connect to the Internet.\nChoose the one you want to use.\n\n" . if_(!$::isStandalone, "You may want to configure some profiles after the installation, in the Mandrake Control Center")), + [ + { label => _("Internet connection"), val => \$netc->{internet_cnx_choice}, list => [ keys %{$netc->{internet_cnx}} ]} + ] + ) or goto step_2; } elsif (keys %{$netc->{internet_cnx}} == 1) { $netc->{internet_cnx_choice} = $netc->{internet_cnx}[1]; } - print " - --------- -- - -------\n" . $netc->{internet_cnx_choice} . "------------\n"; $netc->{internet_cnx_choice} and write_cnx_script($netc); step_3: -- cgit v1.2.1