summaryrefslogtreecommitdiffstats
path: root/drakwizard.pl
diff options
context:
space:
mode:
authorArnaud Desmons <adesmons@mandriva.com>2002-08-21 08:58:50 +0000
committerArnaud Desmons <adesmons@mandriva.com>2002-08-21 08:58:50 +0000
commitf7ae89a9b18d208f9852c4949e4067097d5344c9 (patch)
treebc1c65bd0565db56fedaa636ad9b011f7d61517f /drakwizard.pl
parent62bd947153efc08099d00db8187e30e7305b7851 (diff)
downloaddrakwizard-f7ae89a9b18d208f9852c4949e4067097d5344c9.tar
drakwizard-f7ae89a9b18d208f9852c4949e4067097d5344c9.tar.gz
drakwizard-f7ae89a9b18d208f9852c4949e4067097d5344c9.tar.bz2
drakwizard-f7ae89a9b18d208f9852c4949e4067097d5344c9.tar.xz
drakwizard-f7ae89a9b18d208f9852c4949e4067097d5344c9.zip
no previous on first page also when launched via the wizard chooser
Diffstat (limited to 'drakwizard.pl')
-rwxr-xr-xdrakwizard.pl5
1 files changed, 3 insertions, 2 deletions
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}) {