add reason of package not selected (or unselected).

1 files changed, 17 insertions, 0 deletions

diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 07b654c16..a732bb306 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -348,9 +348,11 @@ sub choosePackagesTree {
 				my @n = map { pkgs::packageByName($packages, $_) } @_;
 				my %l;
 				my $isSelection = !$n[0]->flag_selected;
+				my $i = 0;
                                 foreach (@n) {
                                     #pkgs::togglePackageSelection($packages, $_, my $l = {});
                                     #@l{grep {$l->{$_}} keys %$l} = ();
+				    $i++; log::l("$i:toggle of $_");
                                     pkgs::togglePackageSelection($packages, $_, \%l);
                                 }
 				if (my @l = map { $packages->{depslist}[$_]->name } keys %l) {
@@ -380,6 +382,21 @@ sub choosePackagesTree {
 				    }
 				} else {
 				    $o->ask_warn('', N("You can't select/unselect this package"));
+				    my @ask_unselect = grep { $packages->{state}{rejected}{$_}{backtrack} }
+				      keys %{$packages->{state}{rejected} || {}};
+				    my @l = map { my $rb = $packages->{state}->{rejected}{$_}{backtrack};
+						  my @froms = keys %{$rb->{closure} || {}};
+						  my @unsatisfied = @{$rb->{unsatisfied} || []};
+						  my $s = join ", ", ((map { sprintf("due to missing %s", $_) } @froms),
+								      (map { sprintf("due to unsatisfied %s", $_) } @unsatisfied),
+								      $rb->{promote} && !$rb->{keep} ? sprintf("trying to promote %s", join(", ", @{$rb->{promote}})) : @{[]},
+								      $rb->{keep} ? sprintf("in order to keep %s", join(", ", @{$rb->{keep}})) : @{[]},
+								     );
+						  $_ . ($s ? " ($s)" : '');
+					      } sort @ask_unselect;
+
+				    @ask_unselect and log::l("package cannot be selected or unselected for the following reason:",
+							     map { "\n    $_" } @l);
 				}
 			    },
 			    grep_allowed_to_toggle => sub {