summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-03-11 16:39:47 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-03-11 16:39:47 +0000
commit7b43c904049d75d23fedcbab5086553f65b17cd8 (patch)
tree504a46b2a3557f6d48e94c970690ef39c5d7ad53 /perl-install
parentb73db70b58914e1d37821ad2ed1c393bc5ba9be3 (diff)
downloaddrakx-7b43c904049d75d23fedcbab5086553f65b17cd8.tar
drakx-7b43c904049d75d23fedcbab5086553f65b17cd8.tar.gz
drakx-7b43c904049d75d23fedcbab5086553f65b17cd8.tar.bz2
drakx-7b43c904049d75d23fedcbab5086553f65b17cd8.tar.xz
drakx-7b43c904049d75d23fedcbab5086553f65b17cd8.zip
Don't stack information windows on top of another
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 27704407f..1ecee8748 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -625,6 +625,7 @@ sub setPackages {
sub copy_rpms_on_disk {
my ($o) = @_;
mkdir "$o->{prefix}/$_", 0755 foreach qw(var var/ftp var/ftp/pub var/ftp/pub/Mandrakelinux var/ftp/pub/Mandrakelinux/media);
+ my $wait_w;
local *changeMedium = sub {
my ($method, $medium) = @_;
my $name = pkgs::mediumDescr($o->{packages}, $medium);
@@ -636,8 +637,10 @@ sub copy_rpms_on_disk {
cat_("/proc/mounts") =~ m,(/dev/\S+)\s+(/mnt/cdrom|/tmp/image),
and ($cdrom, my $mountpoint) = ($1, $2);
ejectCdrom($cdrom, $mountpoint);
+ undef $wait_w;
$r = $o->ask_okcancel('', N("Change your Cd-Rom!
Please insert the Cd-Rom labelled \"%s\" in your drive and press Ok when done.", $name), 1);
+ $wait_w = $o->wait_message(N("Please wait"), N("Copying in progress"));
}
return $r;
} else {
@@ -653,7 +656,7 @@ Please insert the Cd-Rom labelled \"%s\" in your drive and press Ok when done.",
#- display the progress bar only for non-cdrom installation methods
$pid = fork();
if (!$pid && defined $pid) { #- child
- my ($wait_w, $wait_message) = fs::format::wait_message($o); #- nb, this is only called when interactive
+ ($wait_w, my $wait_message) = fs::format::wait_message($o); #- nb, this is only called when interactive
$wait_message->(N("Copying in progress"));
#- from commands.pm. TODO: factorize, possibly in MDK::Common.
my $f; $f = sub {
@@ -683,7 +686,6 @@ Please insert the Cd-Rom labelled \"%s\" in your drive and press Ok when done.",
$current_medium = $k;
}
log::l("copying /tmp/image/$m->{rpmsdir} to $o->{prefix}/var/ftp/pub/Mandrakelinux/media");
- my $wait_w;
unless ($copy_has_progress_bar) { $wait_w = $o->wait_message(N("Please wait"), N("Copying in progress")) }
eval {
cp_af("/tmp/image/$m->{rpmsdir}", "$o->{prefix}/var/ftp/pub/Mandrakelinux/media");