From 16978c16fbb3dfe2c7cc7508e7085f2d0cd68d14 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Tue, 27 Aug 2002 14:44:02 +0000
Subject: added warn about packages to remove.

---
 perl-install/install_any.pm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index ae0281d51..9dc5b573d 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -434,6 +434,19 @@ Do you really want to install these servers?
     }
 }
 
+sub warnAboutRemovedPackages {
+    my ($o, $packages) = @_;
+    my @removedPackages = keys %{$packages->{state}{ask_remove} || {}} or return;
+    if (!$o->ask_yesorno('', 
+formatAlaTeX(_("The following packages will be removed to allow upgrading your system: %s
+
+
+Do you really want to remove these packages?
+", join(", ", @removedPackages))), 1)) {
+	$packages->{state}{ask_remove} = {};
+    }
+}
+
 sub addToBeDone(&$) {
     my ($f, $step) = @_;
 
-- 
cgit v1.2.1