diff options
| author | Pablo Saratxaga <pablo@mandriva.com> | 2003-08-21 11:15:34 +0000 |
|---|---|---|
| committer | Pablo Saratxaga <pablo@mandriva.com> | 2003-08-21 11:15:34 +0000 |
| commit | 4b58ba35b45f31d776bc66f84071c60fb2986482 (patch) | |
| tree | 5da95fe6ae8e966b807aba4815c0b2d2e9dfed7d /perl-install | |
| parent | d5d76ee4513b6f3b35f5d6297116e1c8fc48be82 (diff) | |
| download | drakx-backup-do-not-use-4b58ba35b45f31d776bc66f84071c60fb2986482.tar drakx-backup-do-not-use-4b58ba35b45f31d776bc66f84071c60fb2986482.tar.gz drakx-backup-do-not-use-4b58ba35b45f31d776bc66f84071c60fb2986482.tar.bz2 drakx-backup-do-not-use-4b58ba35b45f31d776bc66f84071c60fb2986482.tar.xz drakx-backup-do-not-use-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.pm | 8 | ||||
| -rwxr-xr-x | perl-install/standalone/logdrake | 2 |
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); |