summaryrefslogtreecommitdiffstats
path: root/drakwizard.pl
diff options
context:
space:
mode:
Diffstat (limited to 'drakwizard.pl')
-rwxr-xr-xdrakwizard.pl15
1 files changed, 12 insertions, 3 deletions
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) {