From 4ba41be7ed4ab9eaeaf35913059671bc458107c6 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 19 Sep 2001 16:42:18 +0000
Subject: initial support for server install

---
 perl-install/install_steps_gtk.pm | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

(limited to 'perl-install/install_steps_gtk.pm')

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,
-- 
cgit v1.2.1