From 79cc2a3141217682321c18b459a75504c908c5e9 Mon Sep 17 00:00:00 2001
From: Arnaud Desmons <adesmons@mandriva.com>
Date: Fri, 4 Oct 2002 10:13:50 +0000
Subject: exec summaryFunc

---
 drakwizard.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'drakwizard.pl')

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};
-- 
cgit v1.2.1