diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-16 23:05:32 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-16 23:05:32 +0000 |
| commit | 29d030f53ece64b8be66c102f2b359b57136a611 (patch) | |
| tree | 2fe8e262b8e22b0dde66ebd7d8434b24c0e7300c /perl-install | |
| parent | 7d96e1c461b53d8f9ff6cf1f3e81e6e3fc08dcc1 (diff) | |
| download | drakx-29d030f53ece64b8be66c102f2b359b57136a611.tar drakx-29d030f53ece64b8be66c102f2b359b57136a611.tar.gz drakx-29d030f53ece64b8be66c102f2b359b57136a611.tar.bz2 drakx-29d030f53ece64b8be66c102f2b359b57136a611.tar.xz drakx-29d030f53ece64b8be66c102f2b359b57136a611.zip | |
- make a real step out of "manage multiple internet connections" case
- factorize and fix accessing to this step
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/network/netconnect.pm | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 0f113038c..fe0fde4f8 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -124,6 +124,15 @@ killall pppd my $need_to_ask = $modem->{device} || !$netc->{autodetect}{winmodem}; return $need_to_ask ? "ppp_choose" : "ppp_choose2"; }; + + my $handle_multiple_cnx = sub { + my $nb = keys %{$netc->{internet_cnx}}; + if (1 < $nb) { + } else { + $netc->{internet_cnx_choice} = (keys %{$netc->{internet_cnx}})[0] if $nb == 1; + return $::isInstall ? "network_on_boot" : "apply_settings" + } + }; # main wizard: my $wiz; @@ -711,7 +720,7 @@ You may also enter the IP address of the gateway if you have one."), return 1; } }, - next => "miscellaneous_choose", + post => $handle_multiple_cnx, }, dhcp_hostname => @@ -728,24 +737,15 @@ You may also enter the IP address of the gateway if you have one."), return 1; } }, - next => "miscellaneous_choose", + post => $handle_multiple_cnx, }, multiple_internet_cnx => { - pre => sub { - my $nb = keys %{$netc->{internet_cnx}}; - if ($nb > 1) { - # BUG: remember to remove reference to profiles in mcc if we do not restore this feature - $in->ask_from("", - N("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 => N("Internet connection"), val => \$netc->{internet_cnx_choice}, list => [ keys %{$netc->{internet_cnx}} ] } ] - ) or goto step_2; - } elsif ($nb == 1) { - $netc->{internet_cnx_choice} = (keys %{$netc->{internet_cnx}})[0]; - } - }, - post => sub { $::isInstall ? "miscellaneous_choose" : "apply_settings" }, + name => N("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"), + data => [ { label => N("Internet connection"), val => \$netc->{internet_cnx_choice}, + list => [ keys %{$netc->{internet_cnx}} ] } ], + post => sub { $::isInstall ? "network_on_boot" : "apply_settings" }, }, apply_settings => |