From 7f81a1ec871ffd2a807cdead33bc4cb3dd626248 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Sun, 8 Aug 2004 23:46:32 +0000 Subject: (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) --- perl-install/standalone/drakperm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'perl-install') 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") }, -- cgit v1.2.1