summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-08-08 23:46:32 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-08-08 23:46:32 +0000
commit7f81a1ec871ffd2a807cdead33bc4cb3dd626248 (patch)
treeb77141df75d85401db275a96b9f2b1a96b19f5f8 /perl-install
parent847b53bbde4ec1dcae1bf72b8a1f72bc90586988 (diff)
downloaddrakx-backup-do-not-use-7f81a1ec871ffd2a807cdead33bc4cb3dd626248.tar
drakx-backup-do-not-use-7f81a1ec871ffd2a807cdead33bc4cb3dd626248.tar.gz
drakx-backup-do-not-use-7f81a1ec871ffd2a807cdead33bc4cb3dd626248.tar.bz2
drakx-backup-do-not-use-7f81a1ec871ffd2a807cdead33bc4cb3dd626248.tar.xz
drakx-backup-do-not-use-7f81a1ec871ffd2a807cdead33bc4cb3dd626248.zip
(row_setting_dialog) enable translators to print a fully translated strings
(though we should probably just pregenerate and fill pos with all the strings b/c of inflections and mutations that occur in some languages)
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakperm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index a56307ef6..894011632 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -247,21 +247,21 @@ sub row_setting_dialog {
my ($other, $group, $user, $s) = reverse(split(//, $model->get($iter, 4))) if $iter;
my @bits = qw(sticky gid suid);
my @rights = qw(read write execute);
- my @owners = qw(user group other);
+ my @owners = (N_("user"), N_("group"), N_("other"));
my %rights = (user => $user, group => $group, other => $other);
my %rights_labels = (user => N("User"), group => N("Group"), other => N("Other"));
my %checks = ('read' => {
label => N("Read"),
- tip => { map { $_ => N("Enable \"%s\" to read the file", $_) } keys %rights },
+ tip => { map { $_ => N("Enable \"%s\" to read the file", translate($_)) } keys %rights },
},
'write' => {
label => N("Write"),
- tip => { map { $_ => N("Enable \"%s\" to write the file", $_) } keys %rights },
+ tip => { map { $_ => N("Enable \"%s\" to write the file", translate($_)) } keys %rights },
},
'execute' => {
label => N("Execute"),
- tip => { map { $_ => N("Enable \"%s\" to execute the file", $_) } keys %rights },
+ tip => { map { $_ => N("Enable \"%s\" to execute the file", translate($_)) } keys %rights },
},
sticky => { label => N("Sticky-bit"), tip => N("Used for directory:\n only owner of directory or file in this directory can delete it") },
suid => { label => N("Set-UID"), tip => N("Use owner id for execution") },