From d3218e0694c12a50fabeb595ef6eb853b0029656 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 4 Aug 2004 02:16:34 +0000 Subject: - upcase fields values (and btw reduce the number of strings to translate :-)) - simplify translating --- perl-install/standalone/draksec | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec index f93ac2840..4ca353089 100755 --- a/perl-install/standalone/draksec +++ b/perl-install/standalone/draksec @@ -41,8 +41,16 @@ use security::l10n; my ($w, %fields); ############################ I18N ################################### -my %inv_translations = map { translate($_) => $_ } N_("ALL"), N_("LOCAL"), N_("NONE"), N_("default"), N_("default"), N_("ignore"), N_("no"), N_("yes"); -my %translations = reverse %inv_translations; +my %translations = ( + 'ALL' => N("ALL"), + 'LOCAL' => N("LOCAL"), + 'NONE' => N("NONE"), + 'default' => N("Default"), + 'ignore' => N("Ignore"), + 'no' => N("No"), + 'yes' => N("Yes"), +); +my %inv_translations = reverse %translations; sub to_i18n { map { $translations{$_} || $_ } @_ } sub from_i18n { $inv_translations{$_[0]} || $_[0] } -- cgit v1.2.1