From 1520d34f29096a47d88fc93901d1605123a5cbcc Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 22 Jul 2003 21:56:16 +0000
Subject: fix going backward in the wizard at deepest stages

---
 perl-install/standalone/drakgw | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'perl-install')

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;
-- 
cgit v1.2.1