diff options
Diffstat (limited to 'drakwizard.pl')
| -rwxr-xr-x | drakwizard.pl | 15 |
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) { |