From f55efe4e49699d74edcf7242a7215b8be090629a Mon Sep 17 00:00:00 2001
From: Florent Villard <warly@mandriva.com>
Date: Fri, 5 Sep 2003 11:51:47 +0000
Subject: *** empty log message ***

---
 drakwizard.pl | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

(limited to 'drakwizard.pl')

diff --git a/drakwizard.pl b/drakwizard.pl
index 2e3631cb..41481610 100755
--- a/drakwizard.pl
+++ b/drakwizard.pl
@@ -31,7 +31,7 @@ push @::textdomains, 'drakwizard';
 $::isWizard = 1;
 $::Wizard_no_previous = 1;
 $::Wizard_title = "Drakwizard";
-$::Wiz_dir = '__WIZ_HOME__';
+$::Wiz_dir = '/usr/share/wizards/';
 my $in = interactive->vnew;
 my $standalone = 1;
 		
@@ -67,7 +67,6 @@ if ($err) {
     $in->ask_okcancel("error", N($err));
     $in->exit;
 }
-
 wizard($wiz->{o});
 
 $in->exit;
@@ -76,6 +75,7 @@ sub wizard {
     my ($o) = @_;
     my $page = $o->{pages}{welcome};
     $::Wizard_title = $o->{name};
+    $::Wizard_pix_up = $o->{defaultimage};
     my $next = 'welcome';
     my @steps;
     check_rpm($o->{needed_rpm}) if $o->{needed_rpm};
@@ -91,7 +91,16 @@ sub wizard {
 	my $data2;
 	foreach my $d (@$data) {
 	    $d->{fixed_val} and $d->{val} = ${$d->{fixed_val}};
-	    push @{$data2}, $d
+	    $d->{fixed_list} and $d->{list} = ${$d->{fixed_list}};
+	    if (ref $d->{boolean_list} && ref ${$d->{boolean_list}}) { 
+		my $i;
+		foreach (@{${$d->{boolean_list}}}){ 
+		    push @{$data2},  { text => $_, type => 'bool', val => \${$d->{val}}->[$i], disabled => $d->{disabled} };
+		    $i++
+		}
+	    } else {
+		push @{$data2}, $d
+	    }
 	}
 	my $a = $in->ask_from($o->{name}, $page->{name}, $data2);
 	if ($a) {
-- 
cgit v1.2.1