From 8ce4083085a6ef59b4b9f8e11b3bb2285e3aed4d Mon Sep 17 00:00:00 2001 From: Arnaud Desmons Date: Thu, 1 Aug 2002 08:11:47 +0000 Subject: mismateched parenthesis --- drakwizard.pl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'drakwizard.pl') diff --git a/drakwizard.pl b/drakwizard.pl index 089f37ec..57ca28a5 100755 --- a/drakwizard.pl +++ b/drakwizard.pl @@ -121,8 +121,8 @@ sub display { val => \$ENV{$variable{$_->{variableName}}}, type => $_->{main_order} } : ($_->{main_order} eq 'bool') ? { val => \$ENV{$variable{$_->{variableName}}}, type => $_->{main_order}, text => translate($_->{helpText}, advanced => 1) } - : { label => translate($_->{helpText}), val => \$ENV{$variable{$_->{variableName}}}}, - list => [@liste, ""], type => $_->{main_order} }; + : { label => translate($_->{helpText}), val => \$ENV{$variable{$_->{variableName}}}, + list => [@liste, ""], type => $_->{main_order} }; } @{$page->{freetext}}; if($page->{executionLevel} eq 'NORMAL'){ $in->ask_from(translate($page->{name}), translate($page->{info}), @@ -146,6 +146,7 @@ sub navigation { if (defined $perl_module_name && $page->{func}) { @func_arg = split(/\s/, $page->{func}); $modStatus = $::{$perl_module_name."::"}{"$func_arg[0]"}->($func_arg[1]); + if ($page->{Target}->{jumpIndex}) { find_page($o, $page->{Target}->{jumpIndex}->{int($modStatus)}), $page; } -- cgit v1.2.1