diff options
| author | Florent Villard <warly@mandriva.com> | 2004-09-21 09:23:02 +0000 |
|---|---|---|
| committer | Florent Villard <warly@mandriva.com> | 2004-09-21 09:23:02 +0000 |
| commit | 691ee80f97ed11706e21c3e2184460288f0fe700 (patch) | |
| tree | dc7cb85d3b986b42ba26c7c39dcba3ce1e4bdb0e /perl-install/install_steps_gtk.pm | |
| parent | 707a033ff2a56113ab8e7dd2f4a9f7ca6df1d45c (diff) | |
| download | drakx-backup-do-not-use-691ee80f97ed11706e21c3e2184460288f0fe700.tar drakx-backup-do-not-use-691ee80f97ed11706e21c3e2184460288f0fe700.tar.gz drakx-backup-do-not-use-691ee80f97ed11706e21c3e2184460288f0fe700.tar.bz2 drakx-backup-do-not-use-691ee80f97ed11706e21c3e2184460288f0fe700.tar.xz drakx-backup-do-not-use-691ee80f97ed11706e21c3e2184460288f0fe700.zip | |
do not display workstation entries in corporate server
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
| -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'), ), |