From 16fa3698b6f7077ec145520a21de055f0083c39b Mon Sep 17 00:00:00 2001 From: Pascal Rigaux 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