From 5302a38eb5c738bbe8bd7b79f6f90a9ad24299cf Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Tue, 23 Sep 2008 17:20:02 +0000 Subject: move rpmsrate values in variables --- perl-install/install/steps.pm | 2 +- perl-install/install/steps_gtk.pm | 2 +- perl-install/install/steps_interactive.pm | 2 +- perl-install/pkgs.pm | 2 ++ 4 files changed, 5 insertions(+), 3 deletions(-) diff --git a/perl-install/install/steps.pm b/perl-install/install/steps.pm index 3dd0682f2..53db56997 100644 --- a/perl-install/install/steps.pm +++ b/perl-install/install/steps.pm @@ -273,7 +273,7 @@ sub choosePackages { my $availableCorrected = install::pkgs::invCorrectSize($available / sqr(1024)) * sqr(1024); log::l(sprintf "available size %s (corrected %s)", formatXiB($available), formatXiB($availableCorrected)); - add2hash_($o, { compssListLevel => 5 }) if !$::auto_install; + add2hash_($o, { compssListLevel => $pkgs::rpmsrate_rate_max }) if !$::auto_install; #- !! destroying user selection of packages (they may have done individual selection before) exists $o->{compssListLevel} diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm index 136c49dee..75002e07f 100644 --- a/perl-install/install/steps_gtk.pm +++ b/perl-install/install/steps_gtk.pm @@ -494,7 +494,7 @@ sub choosePackagesTree { code => sub { install::any::unselectMostPackages($o); - install::pkgs::setSelectedFromCompssList($packages, { SYSTEM => 1 }, 4, $availableCorrected); + install::pkgs::setSelectedFromCompssList($packages, { SYSTEM => 1 }, $pkgs::rpmsrate_rate_default, $availableCorrected); 1; } }), ], diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm index e3640bddb..4729a717a 100644 --- a/perl-install/install/steps_interactive.pm +++ b/perl-install/install/steps_interactive.pm @@ -417,7 +417,7 @@ sub choosePackages { install::steps::rebootNeeded($o); } - my $min_mark = 4; + my $min_mark = $pkgs::rpmsrate_rate_default; my ($individual, $chooseGroups); if (!$o->{isUpgrade}) { diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 3d1a959aa..2372a576f 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -7,6 +7,8 @@ use run_program; use detect_devices; use log; +our $rpmsrate_rate_max = 5; # also defined in perl-URPM +our $rpmsrate_rate_default = 4; sub read_rpmsrate_raw { my ($file) = @_; -- cgit v1.2.1