summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPablo Saratxaga <pablo@mandriva.com>2003-08-21 11:15:34 +0000
committerPablo Saratxaga <pablo@mandriva.com>2003-08-21 11:15:34 +0000
commit4b58ba35b45f31d776bc66f84071c60fb2986482 (patch)
tree5da95fe6ae8e966b807aba4815c0b2d2e9dfed7d /perl-install
parentd5d76ee4513b6f3b35f5d6297116e1c8fc48be82 (diff)
downloaddrakx-4b58ba35b45f31d776bc66f84071c60fb2986482.tar
drakx-4b58ba35b45f31d776bc66f84071c60fb2986482.tar.gz
drakx-4b58ba35b45f31d776bc66f84071c60fb2986482.tar.bz2
drakx-4b58ba35b45f31d776bc66f84071c60fb2986482.tar.xz
drakx-4b58ba35b45f31d776bc66f84071c60fb2986482.zip
definition and use of an NC() function (translation with context, kde like)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/common.pm8
-rwxr-xr-xperl-install/standalone/logdrake2
2 files changed, 9 insertions, 1 deletions
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);