summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_gtk.pm2
-rw-r--r--perl-install/install_steps_interactive.pm2
-rw-r--r--perl-install/pkgs.pm4
3 files changed, 4 insertions, 4 deletions
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