From 1ebf6242bfbbe356cb8cb0e61395ba675afc0e75 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 27 Apr 2000 22:16:23 +0000
Subject: no_comment

---
 perl-install/install_steps_gtk.pm | 7 +++----
 1 file changed, 3 insertions(+), 4 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 a9d4984d9..8df4840fb 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -165,6 +165,8 @@ sub selectInstallClass1 {
     $w->main;
 
     mapn { $verif->($_[1]) if $_[0]->active } \@radios, $l;
+    create_steps_window($o);
+
     $w->{retval};
 }
 
@@ -752,10 +754,7 @@ sub create_steps_window {
 			$reachableSteps{$_} = $b if $step->{reachable};
 			$b;
 		    } grep {
-			local $_ = $o->{steps}{$_}{hidden};
-			/^$/ or $o->{installClass} and !/!expert/ || $::expert
-			                           and !/beginner/ || !$::beginner 
-			                           and !/!corporate/ || $::corporate;
+			!eval $o->{steps}{$_}{hidden};
 		    } @{$o->{orderedSteps}}),
 		    0, gtkpack(new Gtk::HBox(0,0), map {
 			my $t = $_;
-- 
cgit v1.2.1