diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2001-09-19 16:42:18 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2001-09-19 16:42:18 +0000 |
commit | 4ba41be7ed4ab9eaeaf35913059671bc458107c6 (patch) | |
tree | 105ce76f9db6abd88f701bc052ca96029def704c /perl-install | |
parent | dcc8ce0c2edcc5ee9f271e985e8e2792e193fedb (diff) | |
download | drakx-backup-do-not-use-4ba41be7ed4ab9eaeaf35913059671bc458107c6.tar drakx-backup-do-not-use-4ba41be7ed4ab9eaeaf35913059671bc458107c6.tar.gz drakx-backup-do-not-use-4ba41be7ed4ab9eaeaf35913059671bc458107c6.tar.bz2 drakx-backup-do-not-use-4ba41be7ed4ab9eaeaf35913059671bc458107c6.tar.xz drakx-backup-do-not-use-4ba41be7ed4ab9eaeaf35913059671bc458107c6.zip |
initial support for server install
Diffstat (limited to 'perl-install')
-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, |