From 29c6e4f818ae3b2a7717125105268bc8df154ff8 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 13 Aug 2004 08:08:55 +0000
Subject: - don't use compssUsers anymore, use compssUsers.pl - code to display
 compssUsers choices is now in compssUsers.pl - {compssUsers} is now a list
 instead of a hash, and so drop {compssUsersSorted} - rename
 {compssUsersChoice} to {rpmsrate_flags_chosen} (better name) -
 i18n_compssUsers is no more needed, add share/compssUsers.pl* to ALLPMS

---
 perl-install/install_steps.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index fe54fff48..fb75f630a 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -310,7 +310,7 @@ sub choosePackages {
     #- for expert, as they may have done individual selection before.
     if ($first_time || !$::expert) {
 	exists $o->{compssListLevel}
-	  and pkgs::setSelectedFromCompssList($packages, $o->{compssUsersChoice}, $o->{compssListLevel}, $availableCorrected);
+	  and pkgs::setSelectedFromCompssList($packages, $o->{rpmsrate_flags_chosen}, $o->{compssListLevel}, $availableCorrected);
     }
     $availableCorrected;
 }
@@ -598,7 +598,7 @@ sub install_urpmi {
 				   $o->{method},
 				   $o->{packages},
 				   $o->{packages}{mediums});
-	pkgs::saveCompssUsers($o->{prefix}, $o->{packages}, $o->{compssUsers}, $o->{compssUsersSorted});
+	pkgs::saveCompssUsers($o->{prefix}, $o->{packages}, $o->{compssUsers});
     }
 }
 
@@ -689,7 +689,7 @@ sub summary {
 }
 
 sub summaryAfter {
-    my ($o) = @_;
+    my ($_o) = @_;
 }
 
 #------------------------------------------------------------------------------
-- 
cgit v1.2.1