summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorArnaud Desmons <adesmons@mandriva.com>2002-10-04 10:13:50 +0000
committerArnaud Desmons <adesmons@mandriva.com>2002-10-04 10:13:50 +0000
commit79cc2a3141217682321c18b459a75504c908c5e9 (patch)
tree65c34067f077a3c351c262fc1f80d171d859ae68
parent9f321f9b699d8b24341c217f3f0ef2f66686d6b0 (diff)
downloaddrakwizard-79cc2a3141217682321c18b459a75504c908c5e9.tar
drakwizard-79cc2a3141217682321c18b459a75504c908c5e9.tar.gz
drakwizard-79cc2a3141217682321c18b459a75504c908c5e9.tar.bz2
drakwizard-79cc2a3141217682321c18b459a75504c908c5e9.tar.xz
drakwizard-79cc2a3141217682321c18b459a75504c908c5e9.zip
exec summaryFunc
-rwxr-xr-xdrakwizard.pl5
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};