From 73e9459062f85bca8adef6976df8d4a6f2dbbbe0 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 1 Sep 2008 16:13:40 +0000
Subject: - keep in $o->{previous_release} the info about upgraded
 /etc/release,   and pass "reason" and version to urpmi.addmedia

- we also parse {version} field out of /etc/release
---
 perl-install/install/NEWS                 | 2 ++
 perl-install/install/steps.pm             | 1 +
 perl-install/install/steps_interactive.pm | 3 ++-
 3 files changed, 5 insertions(+), 1 deletion(-)

(limited to 'perl-install/install')

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 550fd6016..d518dfa85 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- keep in $o->{previous_release} the info about upgraded /etc/release,
+  and pass "reason" and version to urpmi.addmedia
 - 2009.0 RC 1 logo
 - hack /tmp/.X11-unix to allow accessing X in chroot
 - if network access, configure urpmi with --mirrorlist --distrib,
diff --git a/perl-install/install/steps.pm b/perl-install/install/steps.pm
index e669a3790..518ef8d18 100644
--- a/perl-install/install/steps.pm
+++ b/perl-install/install/steps.pm
@@ -175,6 +175,7 @@ sub selectInstallClass {
 	# either one root is defined (and all is ok), or we take the first one we find
 	my $p = fs::get::root_($o->{fstab}) || (first(install::any::find_root_parts($o->{fstab}, $::prefix)) || die)->{part};
 	$o->{migrate_device_names} = install::any::use_root_part($o->{all_hds}, $p);
+	$o->{previous_release} = $p if $o->{isUpgrade};
     } 
 }
 
diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm
index 231c3960a..84fc58889 100644
--- a/perl-install/install/steps_interactive.pm
+++ b/perl-install/install/steps_interactive.pm
@@ -171,6 +171,7 @@ sub selectInstallClass {
 				  hidden => 1, val => \$_->{encrypt_key} } ]);
 	    }
 
+	    $o->{previous_release} = $p;
 	    $o->{isUpgrade} = (find { $p->{release_file} =~ /$_/ } 'mandriva', 'mandrake', 'conectiva', 'redhat') || 'unknown';
 	    $o->{upgrade_by_removing_pkgs_matching} ||= {
 		conectiva => 'cl',
@@ -761,7 +762,7 @@ Do you want to install the updates?")),
     #- bring all interface up for installing updates packages.
     install::interactive::upNetwork($o);
 
-    if (any::urpmi_add_all_media($o)) {
+    if (any::urpmi_add_all_media($o, $o->{previous_release})) {
 	my $binary = find { whereis_binary($_, $::prefix) } 'gurpmi2', 'urpmi' or return;
 	run_program::rooted($::prefix, $binary, '--auto-select', '--update');
     }
-- 
cgit v1.2.1