From 5302a38eb5c738bbe8bd7b79f6f90a9ad24299cf Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
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(-)

(limited to 'perl-install')

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