From 969469b7c94f420adda2705769f44fe0c3abd47e Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 19 Sep 2000 13:20:57 +0000 Subject: no_comment --- perl-install/install2.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'perl-install/install2.pm') diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 5cf71174b..4d3a78092 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -211,11 +211,11 @@ sub selectLanguage { #------------------------------------------------------------------------------ sub selectMouse { $::live and return; - my ($clicked) = $_[0]; + my ($first_time) = $_[1] == 1; - add2hash($o->{mouse} ||= {}, mouse::read($o->{prefix})) if $o->{isUpgrade} && !$clicked; + add2hash($o->{mouse} ||= {}, mouse::read($o->{prefix})) if $o->{isUpgrade} && $first_time; - $o->selectMouse($clicked); + $o->selectMouse(!$first_time); addToBeDone { mouse::write($o->{prefix}, $o->{mouse}) } 'installPackages'; } @@ -352,7 +352,7 @@ sub miscellaneous { CLASS => $::expert && "expert" || $::beginner && "beginner" || "medium", TYPE => $o->{installClass}, SECURITY => $o->{security}, - LITTLE_OIGNONS_WELL_FRIED => 'PowerPack', # Desktop + META_CLASS => $o->{meta_class} || 'PowerPack', }); my $f = "$o->{prefix}/etc/sysconfig/usb"; -- cgit v1.2.1