From 889c6b16de253297237ced45155f95218410288a Mon Sep 17 00:00:00 2001
From: Mystery Man 553 <uid553@mandriva.org>
Date: Mon, 12 Feb 2001 18:24:49 +0000
Subject: (ask_from_entries_refH_powered_normalize): advanced_label defaults to
 _("Advanced")

---
 perl-install/interactive.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/interactive.pm')

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 } });
-- 
cgit v1.2.1