summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2003-02-20 15:36:32 +0000
committerFrancois Pons <fpons@mandriva.com>2003-02-20 15:36:32 +0000
commit19c994ff5934918a91f79f03ef0713164bf7d1cf (patch)
tree016c57f889b8b50fc6c5faabd4c38e8f13849274 /perl-install
parent1acaa26367259952562145588065252c4dcb38b3 (diff)
downloaddrakx-19c994ff5934918a91f79f03ef0713164bf7d1cf.tar
drakx-19c994ff5934918a91f79f03ef0713164bf7d1cf.tar.gz
drakx-19c994ff5934918a91f79f03ef0713164bf7d1cf.tar.bz2
drakx-19c994ff5934918a91f79f03ef0713164bf7d1cf.tar.xz
drakx-19c994ff5934918a91f79f03ef0713164bf7d1cf.zip
added wait message when building groups.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_interactive.pm3
1 files changed, 3 insertions, 0 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index ccb8cc961..49641703a 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -374,6 +374,7 @@ sub choosePackages {
#- selection of CD by user if using a cdrom.
$o->chooseCD($packages) if $o->{method} eq 'cdrom' && !$::oem;
+ my $w = $o->wait_message('', N("Looking for available packages..."));
my $availableC = install_steps::choosePackages(@_);
my $individual;
@@ -381,6 +382,7 @@ sub choosePackages {
my $min_size = pkgs::selectedSize($packages);
unless ($min_size < $availableC) {
+ $w = undef;
$o->ask_warn('', N("Your system does not have enough space left for installation or upgrade (%d > %d)",
$min_size, $availableC));
install_steps::rebootNeeded($o);
@@ -393,6 +395,7 @@ sub choosePackages {
my $max_size = pkgs::selectedSize($packages) + 1; #- avoid division by zero.
log::l("max size (level $min_mark) is : " . formatXiB($max_size));
pkgs::restoreSelected($b);
+ $w = undef;
chooseGroups:
$o->chooseGroups($packages, $compssUsers, $min_mark, \$individual, $max_size) if !$o->{isUpgrade} && !$::corporate;