diff options
| author | Arnaud Desmons <adesmons@mandriva.com> | 2002-08-22 13:13:09 +0000 |
|---|---|---|
| committer | Arnaud Desmons <adesmons@mandriva.com> | 2002-08-22 13:13:09 +0000 |
| commit | a1d8bf4af2c547c06d40058eacc8ca51956de77c (patch) | |
| tree | 4e9b375922c4e8be668aa1d1d1befe88b0c43045 /drakwizard.pl | |
| parent | ec62470078b826ac961e6aaddb3a4f02da67f667 (diff) | |
| download | drakwizard-a1d8bf4af2c547c06d40058eacc8ca51956de77c.tar drakwizard-a1d8bf4af2c547c06d40058eacc8ca51956de77c.tar.gz drakwizard-a1d8bf4af2c547c06d40058eacc8ca51956de77c.tar.bz2 drakwizard-a1d8bf4af2c547c06d40058eacc8ca51956de77c.tar.xz drakwizard-a1d8bf4af2c547c06d40058eacc8ca51956de77c.zip | |
$::Wizard_pix_up
Diffstat (limited to 'drakwizard.pl')
| -rwxr-xr-x | drakwizard.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/drakwizard.pl b/drakwizard.pl index 330c1904..7ea8d0df 100755 --- a/drakwizard.pl +++ b/drakwizard.pl @@ -91,7 +91,7 @@ sub get_parameter { my $common_freetext_chooser; my %actions = ( Wizard => sub { - ($Wizard_title, $lib_script, $perl_module, $rpm) = @{$leaf}{qw(wizardTitle libScript perlModule rpm)}; + ($Wizard_title, $lib_script, $perl_module, $rpm, $::Wizard_pix_up) = @{$leaf}{qw(wizardTitle libScript perlModule rpm defaultImage)}; if ($perl_module) { ($::perl_module_name) = ($perl_module =~ /.*\/(.*)\.pm/); require $perl_module; @@ -125,9 +125,9 @@ sub get_parameter { $leaf->{helpText} = translate($leaf->{helpText}); if ($leaf->{fontName} eq "Monospaced") { chomp($leaf->{helpText}); - $leaf->{helpText} = "\n".$leaf->{helpText}; + $leaf->{helpText} = $leaf->{helpText} ? "$leaf->{helpText}\n$leaf->{helpText}" : "$leaf->{helpText}\n"; } - $page->{info} = $leaf->{helpText} ? "$page->{info} $leaf->{helpText}" : "$page->{info}\n"; + $page->{info} = $leaf->{helpText} ? "$page->{info}\n$leaf->{helpText}" : "$page->{info}\n"; if ($leaf->{fillScript}) { $page->{info} .= `source $lib_script; $leaf->{fillScript}`; } |