From 16fa3698b6f7077ec145520a21de055f0083c39b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 15 Apr 2001 21:31:07 +0000
Subject: (reallyChooseGroups): translate path (eg: Workstation, Server) to
 make gg happy

---
 perl-install/install_steps_gtk.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 58be4621c..4847fdb7d 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -279,7 +279,7 @@ sub reallyChooseGroups {
     };
     my $entries_in_path = sub {
 	my ($path) = @_;
-	$path, map { $entry->($_) } grep { !/Utilities/ && $o->{compssUsers}{$_}{path} eq $path } @{$o->{compssUsersSorted}};
+	translate($path), map { $entry->($_) } grep { !/Utilities/ && $o->{compssUsers}{$_}{path} eq $path } @{$o->{compssUsersSorted}};
     };
     gtkadd($w->{window},
 	   gtkpack($w->create_box_with_title(_("Package Group Selection")),
-- 
cgit v1.2.1