From 4b58ba35b45f31d776bc66f84071c60fb2986482 Mon Sep 17 00:00:00 2001 From: Pablo Saratxaga Date: Thu, 21 Aug 2003 11:15:34 +0000 Subject: definition and use of an NC() function (translation with context, kde like) --- perl-install/common.pm | 8 ++++++++ perl-install/standalone/logdrake | 2 +- 2 files changed, 9 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/common.pm b/perl-install/common.pm index f7d4bc15c..9133aad47 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -41,6 +41,14 @@ sub N { } sub N_ { $_[0] } +# translation with context, kde-like +sub NC { + my ($s) = N(@_); + $s =~ s/_:.*\n//; + $s; +} + + sub salt { my ($nb) = @_; require devices; diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake index a738e15b7..8d766b34a 100755 --- a/perl-install/standalone/logdrake +++ b/perl-install/standalone/logdrake @@ -432,7 +432,7 @@ my $initdir = "/etc/init.d"; N("You will receive an alert if the load is higher than this value"), [ - { label => N("Load"), val => \$load, type => 'range', min => 1, max => 50 }, + { label => NC("_: load here is a noun, the load of the system\nLoad"), val => \$load, type => 'range', min => 1, max => 50 }, ]) or goto step_service; $cron .= sprintf(<<'EOF', $load); -- cgit v1.2.1