summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-04-05 17:24:05 +0000
committerFrancois Pons <fpons@mandriva.com>2000-04-05 17:24:05 +0000
commitc3de4c115afa51c96bdd3684644cae2176f015b4 (patch)
tree98eebc1de911977e1861bafaa2fb3515ce5b1b2e /perl-install/install_steps_interactive.pm
parentdebc157ddf436583fd777e33829c8609a65e0c67 (diff)
downloaddrakx-backup-do-not-use-c3de4c115afa51c96bdd3684644cae2176f015b4.tar
drakx-backup-do-not-use-c3de4c115afa51c96bdd3684644cae2176f015b4.tar.gz
drakx-backup-do-not-use-c3de4c115afa51c96bdd3684644cae2176f015b4.tar.bz2
drakx-backup-do-not-use-c3de4c115afa51c96bdd3684644cae2176f015b4.tar.xz
drakx-backup-do-not-use-c3de4c115afa51c96bdd3684644cae2176f015b4.zip
*** empty log message ***
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm12
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);