diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2004-08-13 08:08:55 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2004-08-13 08:08:55 +0000 |
commit | 29c6e4f818ae3b2a7717125105268bc8df154ff8 (patch) | |
tree | aed17983db265b3760bfbe366f0f1312284f2d01 /perl-install/install_steps.pm | |
parent | f2793bd866028a0692e721e3c1442076c46a3379 (diff) | |
download | drakx-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.pm | 6 |
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) = @_; } #------------------------------------------------------------------------------ |