diff options
| author | damien <damien@mandriva.com> | 2001-07-30 16:54:37 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-07-30 16:54:37 +0000 |
| commit | f8ab79fd6e8e4bd9f3c86942e14fb77464f35096 (patch) | |
| tree | 5e68458be7d7263e024183ff578be6caacc9365f /perl-install/network/netconnect.pm | |
| parent | dc0edc4cf99b00d943e2c601306682141afff174 (diff) | |
| download | drakx-backup-do-not-use-f8ab79fd6e8e4bd9f3c86942e14fb77464f35096.tar drakx-backup-do-not-use-f8ab79fd6e8e4bd9f3c86942e14fb77464f35096.tar.gz drakx-backup-do-not-use-f8ab79fd6e8e4bd9f3c86942e14fb77464f35096.tar.bz2 drakx-backup-do-not-use-f8ab79fd6e8e4bd9f3c86942e14fb77464f35096.tar.xz drakx-backup-do-not-use-f8ab79fd6e8e4bd9f3c86942e14fb77464f35096.zip | |
debug
Diffstat (limited to 'perl-install/network/netconnect.pm')
| -rw-r--r-- | perl-install/network/netconnect.pm | 11 |
1 files changed, 5 insertions, 6 deletions
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: |