diff options
Diffstat (limited to 'drakwizard.pl')
| -rwxr-xr-x | drakwizard.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/drakwizard.pl b/drakwizard.pl index 5e9cd572..17c442da 100755 --- a/drakwizard.pl +++ b/drakwizard.pl @@ -77,9 +77,10 @@ local $_ = join '', @ARGV; $::isWizard = 1; if (/-summary/) { + $::Wizard_finished = 1; get_summary($o, $xmltree); my $data = map_freetext($summary->{freetext}); - $in->ask_from("summary", "info", $data); + $in->ask_from("summary", "info", $data) && $::{$perl_module_name."::"}{"$summary_func"}->(); } else { get_parameter($o, $xmltree); @@ -328,7 +329,7 @@ sub get_summary { my $common_freetext_chooser; my %actions = ( Wizard => sub { - load_wizard(@{$leaf}{qw(wizardTitle libScript perlModule rpm defaultImage summary_func)}) }, + load_wizard(@{$leaf}{qw(wizardTitle libScript perlModule rpm defaultImage summaryFunc)}) }, Variable => sub { $variable{$leaf->{name}} = $leaf->{shellVariable}; $ENV{$variable{$leaf->{name}}} = $leaf->{defaultValue}; |