diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 22 |
1 files changed, 15 insertions, 7 deletions
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'), ), |