summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-08-13 08:08:55 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-08-13 08:08:55 +0000
commit29c6e4f818ae3b2a7717125105268bc8df154ff8 (patch)
treeaed17983db265b3760bfbe366f0f1312284f2d01 /perl-install/install_steps.pm
parentf2793bd866028a0692e721e3c1442076c46a3379 (diff)
downloaddrakx-29c6e4f818ae3b2a7717125105268bc8df154ff8.tar
drakx-29c6e4f818ae3b2a7717125105268bc8df154ff8.tar.gz
drakx-29c6e4f818ae3b2a7717125105268bc8df154ff8.tar.bz2
drakx-29c6e4f818ae3b2a7717125105268bc8df154ff8.tar.xz
drakx-29c6e4f818ae3b2a7717125105268bc8df154ff8.zip
- 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
Diffstat (limited to 'perl-install/install_steps.pm')
-rw-r--r--perl-install/install_steps.pm6
1 files changed, 3 insertions, 3 deletions
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) = @_;
}
#------------------------------------------------------------------------------