summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xdrakwizard.pl6
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}`;
}