diff options
-rwxr-xr-x | rpmdrake | 12 |
1 files changed, 12 insertions, 0 deletions
@@ -197,6 +197,18 @@ sub run_treeview_dialog { my $formatlistpkg = sub { myformatList(sort { uc($a) cmp uc($b) } @_) }; my $callback_choices = sub { my ($urpm, $db, $state, $choices) = @_; + foreach my $pkg (@$choices) { + foreach ($pkg->requires_nosense) { + /locales-/ or next; + foreach (keys %{$urpm->{provides}{$_} || {}}) { + $urpm->{depslist}[$_]->flag_selected or next; + return $pkg; + } + my $autochoice; + db->traverse_tag('name', [ $_ ], sub { $autochoice ||= $pkg }); + $autochoice and return $autochoice; + } + } $choices->[interactive_list(_("Please choose"), _("One of the following packages is needed:"), map { my_fullname($_) } @$choices)]; }; my $choices_auto; |