From 691ee80f97ed11706e21c3e2184460288f0fe700 Mon Sep 17 00:00:00 2001 From: Florent Villard Date: Tue, 21 Sep 2004 09:23:02 +0000 Subject: do not display workstation entries in corporate server --- perl-install/install_steps_gtk.pm | 22 +++++++++++++++------- 1 file changed, 15 insertions(+), 7 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index 77830100e..0b1e532ba 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -232,20 +232,28 @@ sub reallyChooseGroups { gtkpack_($w->create_box_with_title(N("Package Group Selection")), 1, gtkpack_(Gtk2::VBox->new(0, 0), 1, gtkpack_(Gtk2::HBox->new(0, 0), - $o->{meta_class} eq 'server' ? ( - 1, gtkpack(Gtk2::VBox->new(0, 0), - $entries_in_path->('Workstation'), - '', + $o->{meta_class} eq 'server' ? $::corporate ? ( + 1, gtkpack(Gtk2::VBox->new(0, 0), $entries_in_path->('Server'), ), 1, gtkpack(Gtk2::VBox->new(0, 0), - $entries_in_path->('Graphical Environment'), - '', $entries_in_path->('Development'), '', $entries_in_path->('Utilities'), ), - ) : $o->{meta_class} eq 'desktop' ? ( + ) : ( 1, gtkpack(Gtk2::VBox->new(0, 0), + $entries_in_path->('Workstation'), + '', + ), + 1, gtkpack(Gtk2::VBox->new(0, 0), + $entries_in_path->('Server'), + ), + 1, gtkpack(Gtk2::VBox->new(0, 0), + $entries_in_path->('Development'), + '', + $entries_in_path->('Utilities'), + ), + ) : $o->{meta_class} eq 'desktop' ? ( 1, gtkpack(Gtk2::VBox->new(0, 0), $entries_in_path->('Workstation'), ), -- cgit v1.2.1