summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-07-22 21:56:16 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-07-22 21:56:16 +0000
commit1520d34f29096a47d88fc93901d1605123a5cbcc (patch)
treed79ab25b8ccb10d4146c19979761274ba0777d75 /perl-install
parentd06c1901948c0e49f92771c178a88109c060ae28 (diff)
downloaddrakx-1520d34f29096a47d88fc93901d1605123a5cbcc.tar
drakx-1520d34f29096a47d88fc93901d1605123a5cbcc.tar.gz
drakx-1520d34f29096a47d88fc93901d1605123a5cbcc.tar.bz2
drakx-1520d34f29096a47d88fc93901d1605123a5cbcc.tar.xz
drakx-1520d34f29096a47d88fc93901d1605123a5cbcc.zip
fix going backward in the wizard at deepest stages
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakgw7
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;