From db492067befe56305dc4d81c1210687ebc7b8753 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 11 Mar 2002 11:49:42 +0000 Subject: - remove the hack for not displaying Utilities in classic meta_class - new compssUsers groups for the server meta_class --- perl-install/install_steps_gtk.pm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index bca6ed4c1..f801a6fde 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -285,7 +285,7 @@ sub reallyChooseGroups { }; my $entries_in_path = sub { my ($path) = @_; - translate($path), map { $entry->($_) } grep { !/Utilities/ && $o->{compssUsers}{$_}{path} eq $path } @{$o->{compssUsersSorted}}; + translate($path), map { $entry->($_) } grep { $o->{compssUsers}{$_}{path} eq $path } @{$o->{compssUsersSorted}}; }; gtkadd($w->{window}, gtkpack($w->create_box_with_title(_("Package Group Selection")), @@ -296,10 +296,11 @@ sub reallyChooseGroups { $entries_in_path->('Server'), ), 1, gtkpack(new Gtk::VBox(0,0), - $entry->('Development|Development'), - $entry->('Development|Documentation'), - '', $entries_in_path->('Graphical Environment'), + '', + $entries_in_path->('Development'), + '', + $entries_in_path->('Utilities'), ), ) : ( 1, gtkpack(new Gtk::VBox(0,0), -- cgit v1.2.1