From 4aa2ecefeca3b9b7580dc73106920b9c814efa6d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 11 May 2000 15:15:45 +0000 Subject: no_comment --- perl-install/install_steps_gtk.pm | 2 +- perl-install/install_steps_interactive.pm | 2 +- perl-install/pkgs.pm | 4 ++-- 3 files changed, 4 insertions(+), 4 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index b2f6f4a57..2169b8bb4 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -439,7 +439,7 @@ sub choosePackagesTree { pkgs::extractHeaders($o->{prefix}, [$p], $p->{medium}); $p->{header} or die; - my $ind = $o->{compssListLevels}{$o->{install_class}}; + my $ind = $o->{compssListLevels}{$o->{installClass}}; my $imp = translate($pkgs::compssListDesc{pkgs::packageFlagBase($p) ? 100 : round_down($p->{values}[$ind], 10)}); gtktext_insert($info_widget, $@ ? _("Bad package") : diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index a21f57d68..9beebdc99 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -740,7 +740,7 @@ sub addUser { sub createBootdisk { my ($o, $first_time) = @_; - return if $first_time && $::beginner; + return if $first_time && $::beginner || $o->{lnx4win}; my @l = detect_devices::floppies(); my %l = ( diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 49414b4b1..46c52c229 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -27,8 +27,8 @@ use c; 40 => __("interesting"), 30 => __("maybe"), 20 => __("maybe"), - 10 => __("useless"), - 0 => __("garbage"), + 10 => __("maybe"),#__("useless"), + 0 => __("maybe"),#__("garbage"), #- if the package requires locales-LANG and LANG is chosen, rating += 90 -10 => __("i18n (important)"), #- every install in the corresponding lang have these packages -20 => __("i18n (very nice)"), #- every beginner/custom install in the corresponding lang have theses packages -- cgit v1.2.1