diff options
| author | Arnaud Desmons <adesmons@mandriva.com> | 2002-10-04 10:13:50 +0000 |
|---|---|---|
| committer | Arnaud Desmons <adesmons@mandriva.com> | 2002-10-04 10:13:50 +0000 |
| commit | 79cc2a3141217682321c18b459a75504c908c5e9 (patch) | |
| tree | 65c34067f077a3c351c262fc1f80d171d859ae68 | |
| parent | 9f321f9b699d8b24341c217f3f0ef2f66686d6b0 (diff) | |
| download | drakwizard-79cc2a3141217682321c18b459a75504c908c5e9.tar drakwizard-79cc2a3141217682321c18b459a75504c908c5e9.tar.gz drakwizard-79cc2a3141217682321c18b459a75504c908c5e9.tar.bz2 drakwizard-79cc2a3141217682321c18b459a75504c908c5e9.tar.xz drakwizard-79cc2a3141217682321c18b459a75504c908c5e9.zip | |
exec summaryFunc
| -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}; |