summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-12-19 09:36:27 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-12-19 09:36:27 +0000
commit51df87b298ca9f84eaa7e3a61a31abda1ace7abd (patch)
tree64cb0081f28c18ad82e646304cb79ad4b928c741
parent9b84ebd2dbadac46b74598e67dbef15a5f8dcfc8 (diff)
downloaddrakx-51df87b298ca9f84eaa7e3a61a31abda1ace7abd.tar
drakx-51df87b298ca9f84eaa7e3a61a31abda1ace7abd.tar.gz
drakx-51df87b298ca9f84eaa7e3a61a31abda1ace7abd.tar.bz2
drakx-51df87b298ca9f84eaa7e3a61a31abda1ace7abd.tar.xz
drakx-51df87b298ca9f84eaa7e3a61a31abda1ace7abd.zip
(process) add val_ref and list_ref support to ease data manipulation
(as wizard data structure is built early at compile time, ref on single values aren't any more valid when values are setted)
-rw-r--r--perl-install/wizards.pm2
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/wizards.pm b/perl-install/wizards.pm
index 7442074b1..a9dd3b19c 100644
--- a/perl-install/wizards.pm
+++ b/perl-install/wizards.pm
@@ -109,6 +109,8 @@ sub process {
my $data = defined $page->{data} ? ref $page->{data} ? $page->{data} : [ { label => '' } ] : [ { label => '' } ];
my $data2;
foreach my $d (@$data) {
+ $d->{val} = ${$d->{val_ref}} if $d->{val_ref};
+ $d->{list} = $d->{list_ref} if $d->{list_ref};
if ($d->{boolean_list}) {
my $i;
foreach (@{$d->{boolean_list}}) {