summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
authorMystery Man 553 <uid553@mandriva.org>2001-02-12 18:24:49 +0000
committerMystery Man 553 <uid553@mandriva.org>2001-02-12 18:24:49 +0000
commit889c6b16de253297237ced45155f95218410288a (patch)
tree2d14639384f21da40eb6390b5df887a06715117e /perl-install/interactive.pm
parent19baac40bc5c229b51de78545e1a53885e471f43 (diff)
downloaddrakx-889c6b16de253297237ced45155f95218410288a.tar
drakx-889c6b16de253297237ced45155f95218410288a.tar.gz
drakx-889c6b16de253297237ced45155f95218410288a.tar.bz2
drakx-889c6b16de253297237ced45155f95218410288a.tar.xz
drakx-889c6b16de253297237ced45155f95218410288a.zip
(ask_from_entries_refH_powered_normalize): advanced_label defaults to
_("Advanced")
Diffstat (limited to 'perl-install/interactive.pm')
-rw-r--r--perl-install/interactive.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 96f46898e..f14efcfe7 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -230,6 +230,7 @@ sub ask_from_entries_refH_powered_normalize {
#- don't display empty lists
@$l = grep { !($_->{list} && @{$_->{list}} == () && $_->{not_edit}) } @$l;
+ $common->{advanced_label} ||= _("Advanced");
$common->{$_} = [ deref($common->{$_}) ] foreach qw(messages advanced_messages);
add2hash_($common, { ok => _("Ok"), cancel => _("Cancel") }) if !exists $common->{ok};
add2hash_($common->{callbacks} ||= {}, { changed => sub {}, focus_out => sub {}, complete => sub { 0 }, canceled => sub { 0 } });