From 4653f224b5349f1df241c4ec384e726786a29620 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 9 Sep 2005 09:02:29 +0000
Subject: pass around wait_message with progress bar capability

---
 perl-install/install_any.pm               |  6 ++----
 perl-install/install_steps_interactive.pm | 10 +++++++---
 2 files changed, 9 insertions(+), 7 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 72b84d3aa..bed17c314 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -661,7 +661,7 @@ sub setPackages {
 	put_in_hash($o->{rpmsrate_flags_chosen} ||= {}, rpmsrate_always_flags($o)); #- must be done before pkgs::read_rpmsrate()
 	load_rate_files($o);
 
-	copy_rpms_on_disk($o) if $copy_rpms_on_disk;
+	copy_rpms_on_disk($o, $wait_message) if $copy_rpms_on_disk;
 
 	set_rpmsrate_default_category_flags($o, $rpmsrate_flags_was_chosen);
 
@@ -745,7 +745,7 @@ sub cp_with_progress {
 }
 
 sub copy_rpms_on_disk {
-    my ($o) = @_;
+    my ($o, $wait_message) = @_;
     mkdir "$o->{prefix}/$_", 0755 foreach qw(var var/ftp var/ftp/pub var/ftp/pub/Mandrivalinux var/ftp/pub/Mandrivalinux/media);
     local *changeMedium = sub {
 	my ($method, $medium) = @_;
@@ -770,7 +770,6 @@ Please insert the Cd-Rom labelled \"%s\" in your drive and press Ok when done.",
 	my $m = install_medium::by_id($k, $o->{packages});
 	#- don't copy rpms of supplementary media
 	next if $m->is_suppl;
-	my ($wait_w, $wait_message) = $o->wait_message_with_progress_bar; #- nb, this is only called when interactive
 	$wait_message->(N("Copying in progress") . "\n($m->{descr})"); #- XXX to be translated
 	if ($k != $current_medium) {
 	    my $cd_k = $m->get_cd_number;
@@ -792,7 +791,6 @@ Please insert the Cd-Rom labelled \"%s\" in your drive and press Ok when done.",
 	$m->{prefix} = "$o->{prefix}/var/ftp/pub/Mandrivalinux";
 	$m->{method} = 'disk';
 	$m->{with_hdlist} = 'media_info/hdlist.cz'; #- for install_urpmi
-	undef $wait_w;
     }
     ejectCdrom() if $o->{method} eq "cdrom";
     #- now the install will continue as 'disk'
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index ea2e9d929..0b56615ea 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -401,9 +401,13 @@ sub formatMountPartitions {
 sub setPackages {
     my ($o) = @_;
 
-    my $w = $o->wait_message('', $o->{isUpgrade} ? N("Looking for available packages and rebuilding rpm database...") :
-			     N("Looking for available packages..."));
-    install_any::setPackages($o, sub { $w->set(@_) });
+    my ($w, $wait_message) = $o->wait_message_with_progress_bar;
+
+    $wait_message->($o->{isUpgrade} ? N("Looking for available packages and rebuilding rpm database...") :
+			              N("Looking for available packages..."));
+    install_any::setPackages($o, $wait_message);
+
+    undef $w; #- help perl
 }
 
 sub mirror2text { $crypto::mirrors{$_[0]} ? $crypto::mirrors{$_[0]}[0] . '|' . $_[0] : "-|URL" }
-- 
cgit v1.2.1