- urpmi

  o display a message "Package foo is already installed" when asking 
    "urpmi foo bar" and only installing bar (#41593)
    (requires perl-URPM 3.16)

1 files changed, 17 insertions, 0 deletions

diff --git a/urpm/select.pm b/urpm/select.pm
index cf176b52..f04d3bff 100644
--- a/urpm/select.pm
+++ b/urpm/select.pm
@@ -514,6 +514,22 @@ sub unselected_packages {
     grep { $state->{rejected}{$_}{backtrack} } keys %{$state->{rejected} || {}};
 }
 
+#- misc functions to help finding ask_unselect and ask_remove elements with their reasons translated.
+sub already_installed {
+    my ($state) = @_;
+    grep { $state->{rejected}{$_}{installed} } keys %{$state->{rejected} || {}};
+}
+
+sub translate_already_installed {
+    my ($state) = @_;
+
+    my @l = already_installed($state) or return;
+
+    @l == 1 ?
+      N("Package %s is already installed", join(', ', @l)) :
+      N("Packages %s are already installed", join(', ', @l));
+}
+
 sub translate_why_unselected {
     my ($urpm, $state, @fullnames) = @_;
 
@@ -539,6 +555,7 @@ sub translate_why_unselected_one {
 	} @unsatisfied)),
 	$rb->{promote} && !$rb->{keep} ? N("trying to promote %s", join(", ", @{$rb->{promote}})) : (),
 	$rb->{keep} ? N("in order to keep %s", join(", ", @{$rb->{keep}})) : (),
+	$rb->{installed} ? "already installed" : (),
     );
     $fullname . ($s ? " ($s)" : '');
 }