summaryrefslogtreecommitdiffstats
path: root/perl-install/network/netconnect.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/network/netconnect.pm')
-rw-r--r--perl-install/network/netconnect.pm3
1 files changed, 3 insertions, 0 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 044357413..b1c74ed2f 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -175,6 +175,7 @@ ifdown eth0
$conf{cable} and do { require network::ethernet; network::ethernet::configure_cable($netcnx, $netc, $intf, $first_time) or goto step_2 };
$conf{lan} and do { require network::ethernet; network::ethernet::configure_lan($netcnx, $netc, $intf, $first_time) or goto step_2 };
+ step_2_1:
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")),
@@ -187,6 +188,8 @@ ifdown eth0
}
$netc->{internet_cnx_choice} and write_cnx_script($netc);
+ $::isStandalone and ask_connect_now() or goto step_2_1;
+
step_3:
my $m = _("Congratulation, The network and internet configuration is finished.