From 72bdefdb1c6cadc4481d9c15f7e1408dc8aaf041 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 14 Dec 2000 11:41:12 +0000
Subject: move from compssList to rpmsrate

---
 perl-install/install_steps_gtk.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'perl-install/install_steps_gtk.pm')

diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 5b50b75a8..5042f14e5 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -346,9 +346,8 @@ sub choosePackagesTree {
 	pkgs::extractHeaders($o->{prefix}, [$p], pkgs::packageMedium($p));
 	pkgs::packageHeader($p) or die;
 
-	my $ind = $o->{compssListLevels}{$o->{installClass}};
 	my $imp = translate($pkgs::compssListDesc{pkgs::packageFlagBase($p) ?
-						  100 : round_down(pkgs::packageValues($p)->[$ind], 10)});
+						  5 : pkgs::packageRate($p)});
 
 	gtktext_insert($info_widget, $@ ? _("Bad package") :
 		       _("Name: %s\n", pkgs::packageName($p)) .
-- 
cgit v1.2.1