diff options
| author | Arnaud Desmons <adesmons@mandriva.com> | 2002-08-21 08:58:50 +0000 |
|---|---|---|
| committer | Arnaud Desmons <adesmons@mandriva.com> | 2002-08-21 08:58:50 +0000 |
| commit | f7ae89a9b18d208f9852c4949e4067097d5344c9 (patch) | |
| tree | bc1c65bd0565db56fedaa636ad9b011f7d61517f | |
| parent | 62bd947153efc08099d00db8187e30e7305b7851 (diff) | |
| download | drakwizard-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
| -rwxr-xr-x | drakwizard.pl | 5 |
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}) { |