From f7ae89a9b18d208f9852c4949e4067097d5344c9 Mon Sep 17 00:00:00 2001
From: Arnaud Desmons <adesmons@mandriva.com>
Date: Wed, 21 Aug 2002 08:58:50 +0000
Subject: no previous on first page also when launched via the wizard chooser

---
 drakwizard.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'drakwizard.pl')

diff --git a/drakwizard.pl b/drakwizard.pl
index 5d606c5e..3fb49513 100755
--- a/drakwizard.pl
+++ b/drakwizard.pl
@@ -20,7 +20,7 @@
 
 use lib qw(/usr/lib/libDrakX);
 #use strict;
-use vars qw($wizard_title $lib_script $perl_module %variable $in $rpm $bifield $chooser_hash $wpo);
+use vars qw($wizard_title $lib_script $perl_module %variable $in $rpm $bifield $chooser_hash $welcome);
 
 use XML::Parser;
 use standalone;
@@ -109,6 +109,7 @@ sub get_parameter {
 			       $ENV{$leaf->{shellVariable}} = $leaf->{defaultValue};
 			   },
 			   Page => sub {
+			       !$welcome and $welcome = $page;
 			       my $old_page = $page;
 			       push @$o, $page = { %$leaf };
 			       $old_page->{next_page} = $page;
@@ -167,7 +168,7 @@ sub find_page {
 sub display {
     my ($o, $page) = @_;
     
-    if ($page->{no_prev}) {
+    if ($page->{no_prev} || $page->{name} eq $welcome->{name}) {
 	$::Wizard_no_previous = 1;
     }
     if ($page->{finish}) {
-- 
cgit v1.2.1