From 2d83725d04a3bae1c64fbb234f161d9ff37a8236 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 18 May 2005 06:09:03 +0000 Subject: (selectCountry) only speak about other countries if needed --- perl-install/any.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl-install/any.pm b/perl-install/any.pm index b909ad6aa..e7a972a0e 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -794,8 +794,8 @@ sub selectCountry { { title => N("Country / Region"), messages => N("Please choose your country."), interactive_help_id => 'selectCountry', - advanced_messages => N("Here is the full list of available countries"), - advanced_label => N("Other Countries"), + if_(@best, advanced_messages => N("Here is the full list of available countries")), + advanced_label => @best ? N("Other Countries") : N("Advanced"), advanced_state => $ext_country && scalar(@best), callbacks => { changed => sub { $_[0] != 2 and $other = $_[0] == 1 } }, }, -- cgit v1.2.1