diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-07-22 21:56:16 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-07-22 21:56:16 +0000 |
commit | 1520d34f29096a47d88fc93901d1605123a5cbcc (patch) | |
tree | d79ab25b8ccb10d4146c19979761274ba0777d75 | |
parent | d06c1901948c0e49f92771c178a88109c060ae28 (diff) | |
download | drakx-backup-do-not-use-1520d34f29096a47d88fc93901d1605123a5cbcc.tar drakx-backup-do-not-use-1520d34f29096a47d88fc93901d1605123a5cbcc.tar.gz drakx-backup-do-not-use-1520d34f29096a47d88fc93901d1605123a5cbcc.tar.bz2 drakx-backup-do-not-use-1520d34f29096a47d88fc93901d1605123a5cbcc.tar.xz drakx-backup-do-not-use-1520d34f29096a47d88fc93901d1605123a5cbcc.zip |
fix going backward in the wizard at deepest stages
-rwxr-xr-x | perl-install/standalone/drakgw | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/standalone/drakgw b/perl-install/standalone/drakgw index f4389b3e3..56e2e1db0 100755 --- a/perl-install/standalone/drakgw +++ b/perl-install/standalone/drakgw @@ -227,6 +227,7 @@ my $format = sub { #- setup the network interface we shall use +step_interface_choice: my $device; if (!@cards) { @@ -242,13 +243,13 @@ N("There is only one configured network adapter on your system: %s -I am about to setup your Local Area Network with that adapter.", $format->($device)), 1) or goto step_ask_confirm; +I am about to setup your Local Area Network with that adapter.", $format->($device)), 1) or goto step_detectsetup; } else { $device = $in->ask_from_listf(N("Choose the network interface"), N("Please choose what network adapter will be connected to your Local Area Network."), $format, \@cards, - ) or goto step_ask_confirm; + ) or goto step_detectsetup; defined $device or quit_global($in, 0); } log::explanations("Choosing network device: $device"); @@ -285,7 +286,7 @@ You can do it manually but you need to know what you're doing.", $device), Network: %s IP address: %s IP attribution: %s -Driver: %s", $device, $conf->{NETWORK}, $conf->{IPADDR}, $conf->{BOOTPROTO}, $aliased_devices{$device} || '(unknown)')) } } ]) or goto step_detectsetup; +Driver: %s", $device, $conf->{NETWORK}, $conf->{IPADDR}, $conf->{BOOTPROTO}, $aliased_devices{$device} || '(unknown)')) } } ]) or goto step_interface_choice; if ($auto ne N("Yes")) { $reconf_dhcp_server_intf = 0; |