summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-12-21 17:46:26 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-12-21 17:46:26 +0000
commitebbec40725eb566c91ca183f7677cc6526215a61 (patch)
treeecafc2f82ddc4bd029e1e0136ac9e4588c84aa90
parent7c3cf8706543cd8f1b7582e41c336a1235936ce8 (diff)
downloaddrakx-ebbec40725eb566c91ca183f7677cc6526215a61.tar
drakx-ebbec40725eb566c91ca183f7677cc6526215a61.tar.gz
drakx-ebbec40725eb566c91ca183f7677cc6526215a61.tar.bz2
drakx-ebbec40725eb566c91ca183f7677cc6526215a61.tar.xz
drakx-ebbec40725eb566c91ca183f7677cc6526215a61.zip
let a step name be a callback in order to be able to generate dynamic
messages (in the past gettext was called at step time, but now it's called at wizard data structure compile time)
-rw-r--r--perl-install/wizards.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/wizards.pm b/perl-install/wizards.pm
index a9dd3b19c..9fefb5011 100644
--- a/perl-install/wizards.pm
+++ b/perl-install/wizards.pm
@@ -121,7 +121,8 @@ sub process {
push @$data2, $d
}
}
- my $a = $in->ask_from($o->{name}, $page->{name}, $data2, complete => $page->{complete} || sub { 0 });
+ my $name = ref($page->{name}) ? $page->{name}->() : $page->{name};
+ my $a = $in->ask_from($o->{name}, $name, $data2, complete => $page->{complete} || sub { 0 });
if ($a) {
# step forward:
push @steps, $next if !$page->{ignore} && $steps[-1] ne $next;