From 940c3448ce23ab79a27f5f7aa3b4ade436004f71 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 13 Sep 2000 23:38:31 +0000
Subject: no_comment

---
 perl-install/install_steps_gtk.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index ed254b816..bafee482e 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -381,7 +381,10 @@ sub choosePackagesTree {
 		return $o->ask_warn('', _("You can't select this package as there is not enough space left to install it"));
 	    }
 
-	    @l > @_ && !$auto_deps and $o->ask_okcancel('', [ _("The following packages are going to be installed/removed"), join(", ", sort @l) ], 1) || return;
+	    @l > @_ && !$auto_deps and $o->ask_okcancel('', [ $isSelection ? 
+							      _("The following packages are going to be installed") :
+							      _("The following packages are going to be removed"),
+							      join(", ", sort @l) ], 1) || return;
 	    $isSelection ? pkgs::selectPackage($packages, $_) : pkgs::unselectPackage($packages, $_) foreach @_;
 	    foreach (@l) {
 		my $p = $packages->[0]{$_};
-- 
cgit v1.2.1