diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2000-05-11 15:15:45 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2000-05-11 15:15:45 +0000 |
commit | 4aa2ecefeca3b9b7580dc73106920b9c814efa6d (patch) | |
tree | cf3ed11e9d185c52ab26e9b3f44354f97f7bbcd3 /perl-install | |
parent | 156f8a0b71f9efd3269276d335c11b747cf8cf9a (diff) | |
download | drakx-4aa2ecefeca3b9b7580dc73106920b9c814efa6d.tar drakx-4aa2ecefeca3b9b7580dc73106920b9c814efa6d.tar.gz drakx-4aa2ecefeca3b9b7580dc73106920b9c814efa6d.tar.bz2 drakx-4aa2ecefeca3b9b7580dc73106920b9c814efa6d.tar.xz drakx-4aa2ecefeca3b9b7580dc73106920b9c814efa6d.zip |
no_comment
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/install_steps_gtk.pm | 2 | ||||
-rw-r--r-- | perl-install/install_steps_interactive.pm | 2 | ||||
-rw-r--r-- | perl-install/pkgs.pm | 4 |
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 |