diff options
| author | Francois Pons <fpons@mandriva.com> | 2000-04-05 17:24:05 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2000-04-05 17:24:05 +0000 |
| commit | c3de4c115afa51c96bdd3684644cae2176f015b4 (patch) | |
| tree | 98eebc1de911977e1861bafaa2fb3515ce5b1b2e /perl-install/install_steps_interactive.pm | |
| parent | debc157ddf436583fd777e33829c8609a65e0c67 (diff) | |
| download | drakx-c3de4c115afa51c96bdd3684644cae2176f015b4.tar drakx-c3de4c115afa51c96bdd3684644cae2176f015b4.tar.gz drakx-c3de4c115afa51c96bdd3684644cae2176f015b4.tar.bz2 drakx-c3de4c115afa51c96bdd3684644cae2176f015b4.tar.xz drakx-c3de4c115afa51c96bdd3684644cae2176f015b4.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 5304ea647..d089797c1 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -519,7 +519,7 @@ sub installCrypto { } elsif ($o->{modem}) { run_program::rooted($o->{prefix}, "ifup", "ppp0"); } else { - return; + $::testing or return; } is_empty_hash_ref($u) and $o->ask_yesorno('', @@ -558,12 +558,16 @@ USA")) || return; }; return if $@; - my @packages = do { + my @packages = sort { pkgs::packageHeaderFile($a) cmp pkgs::packageHeaderFile($b) } do { my $w = $o->wait_message('', _("Contacting the mirror to get the list of available packages")); - crypto::packages($u->{mirror}); + crypto::getPackages($o->{prefix}, $o->{packages}, $u->{mirror}); #- make sure $o->{packages} is defined when testing }; - $o->ask_many_from_list_ref('', _("Which packages do you want to install"), \@packages, [ map { \$u->{packages}{$_} } @packages ]) or return; + map { $u->{packages}{pkgs::packageName($_)} = { pkg => $_, selected => 0 } } @packages; + + $o->ask_many_from_list_ref('', _("Which packages do you want to install"), + [ map { pkgs::packageHeaderFile($_) } @packages ], + [ map { \$u->{packages}{pkgs::packageName($_)}{selected} } @packages ]) or return; my $w = $o->wait_message('', _("Downloading cryptographic packages")); install_steps::installCrypto($o); |