From 08d567a0efb1d95c5d7608bf89ec9f2f256beb7a Mon Sep 17 00:00:00 2001
From: Antoine Ginies <aginies@mandriva.com>
Date: Wed, 7 Sep 2005 08:59:04 +0000
Subject: fix next/back pb, banner

---
 dhcp_wizard/Dhcp.pm | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

(limited to 'dhcp_wizard')

diff --git a/dhcp_wizard/Dhcp.pm b/dhcp_wizard/Dhcp.pm
index c850bc9c..f92a2c81 100755
--- a/dhcp_wizard/Dhcp.pm
+++ b/dhcp_wizard/Dhcp.pm
@@ -47,12 +47,12 @@ my $o = {
 	 needed_rpm => [ 'dhcp-server' ],
 	 defaultimage => "/usr/share/wizards/dhcp_wizard/images/DHCP.png"
 	};
-
+$::Wizard_pix_up = "/usr/share/mcc/themes/default/dhcp_server-mdk.png";
 $o->{pages} = {
 	       welcome => {
 			   name => N("DHCP Wizard") . "\n\n\n" . N("DHCP is a service that automatically assigns networking addresses to your workstations.") . "\n\n\n" . N("This wizard will help you configuring the DHCP services of your server."),
 			   no_back => 1,
-			   next => 'interface'
+			   next => 'interface', no_back => 1,
 			  },
 	       interface => {
 			     name => N("Interface the dhcp server must listen to"),
@@ -66,7 +66,7 @@ $o->{pages} = {
 			     data => [
 				      { list => [ keys %{$wiz->{net}{itf}} ],  val => \$o->{var}{interface} },
 				     ],
-			     next => 'ip_range'
+			     next => 'ip_range', no_back => 1,
 			    },
 	       ip_range => {
 			    name => N("Range of addresses used by DHCP") . "\n\n\n" . N("Select the range of addresses assigned to the workstations by the DHCP service; unless you have special needs, you can safely accept the proposed values. (ie: 192.168.100.20 192.168.100.40)") . "\n\n" . N("If you want to enable PXE in your dhcp server please check the box (Pre-boot eXecution Environment, a protocol that allows computers to boot through the network)."),
@@ -84,27 +84,27 @@ $o->{pages} = {
 				     { label => N("Gateway IP address:"), val => \$o->{var}{gateway} },
 				     { label => N("Enable PXE:"), type => 'bool', val => \$o->{var}{pxe} },
 				    ],
-			    next => 'summary'
+			    next => 'summary',
 			   },
 	       dhcp_warning => {
 		name => N("Warning") . "\n\n" . N("You are in dhcp, server may not work with your configuration."),
 		ignore => 1,
-	        next => 'ip_range'
+	        next => 'ip_range',
 	      },
 	      ip_range_error => {
 		name => N("Error") . "\n\n" . N("The IP range specified is not correct."),
 		ignore => 1,
-	        next => 'ip_range'
+	        next => 'ip_range',
 	      },
 	      ip_range_warning => {
 		name => N("Warning") . "\n\n" . N("The IP range specified is not in server address range."),
 		ignore => 1,
-	        next => 'summary'
+	        next => 'summary',
 	      },
 	      server_in_range => {
 		name => N("Error") . "\n\n" . N("The IP of the server must not be in range."),
 		ignore => 1,
-	        next => 'ip_range'
+	        next => 'ip_range',
 	      },
 	      summary => {
 			  name => N("Configuring the DHCP server") . "\n\n" . N("The wizard collected the following parameters needed to configure your DHCP service:"),
@@ -119,12 +119,12 @@ $o->{pages} = {
 				   { label => N("Enable PXE:"), fixed_val => \$o->{var}{pxeornot} },
 				  ],
 			  post => \&do_it,
-			  next => 'end'
+			  next => 'end',
 			 },
 	       end => {
 		       name => N("Congratulations") . "\n\n" . N("The wizard successfully configured the DHCP services."),
 		       end => 1,
-		       next => 0
+		       next => 0, no_back => 1,
 		      },
 	       error_end => {
 			     name => N("Failed"),
-- 
cgit v1.2.1