diff options
| -rw-r--r-- | perl-install/install2.pm | 1 | ||||
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 13 |
2 files changed, 12 insertions, 2 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm index e6b6bf8d6..a8c60cab8 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -478,6 +478,7 @@ sub main { $o->{lnx4win} = 1 if $VERSION =~ /lnx4win/i; $o->{meta_class} = 'desktop' if $VERSION =~ /desktop/i; $o->{meta_class} = 'firewall' if $VERSION =~ /firewall/i; + $o->{meta_class} = 'server' if $VERSION =~ /server/i; if ($::oem) { $o->{partitioning}{use_existing_root} = 1; $o->{partitioning}{auto_allocate} = 1; diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index 9011b0fbd..d08dea1de 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -291,6 +291,15 @@ sub reallyChooseGroups { gtkpack($w->create_box_with_title(_("Package Group Selection")), gtkpack_(new Gtk::VBox(0,0), 1, gtkpack_(new Gtk::HBox(0,0), + $o->{meta_class} eq 'server' ? ( + 1, gtkpack(new Gtk::VBox(0,0), + $entries_in_path->('Server'), + ), + 1, gtkpack(new Gtk::VBox(0,0), + $entry->('Development|Development'), + $entry->('Development|Documentation'), + ), + ) : ( 1, gtkpack(new Gtk::VBox(0,0), $entries_in_path->('Workstation'), '', @@ -302,8 +311,8 @@ sub reallyChooseGroups { '', $entries_in_path->('Graphical Environment'), ), - ), - ), + ), + )), '', gtkadd(new Gtk::HBox(0,0), $w_size, |