From cce945fe2258238670591dda1ceb7350ce521c8e Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 13 Feb 2008 13:18:26 +0000 Subject: (node_state) just skip non existing packages (#36529) (eg: when rpmdrake download info.xml.lzma on demand when searching or browsing whereas the package was updated in the mean time, the info file references the newer package whereas urpmi database only know the older version) --- Rpmdrake/gui.pm | 24 +++++++++++++++++++++++- 1 file changed, 23 insertions(+), 1 deletion(-) (limited to 'Rpmdrake') diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm index fb712039..ea90bd43 100644 --- a/Rpmdrake/gui.pm +++ b/Rpmdrake/gui.pm @@ -209,8 +209,30 @@ sub format_pkg_info { } sub node_state { - my $pkg = $pkgs->{$_[0]}; + my ($name) = @_; + my $pkg = $pkgs->{$name}; my $urpm_obj = $pkg->{pkg}; + if (!$urpm_obj) { + my ($short_name) = split_fullname($name); + interactive_msg(N("Warning"), + join("\n", + N("The package \"%s\" was found.", $name), + N("However this package is not in the package list."), + N("You may want to update your urpmi database."), + '', + N("Matching packages:"), + '', + join("\n", sort map { + warn ">> $_ => $pkgs->{$_} $pkgs->{$_}{pkg}\n"; + #-PO: this is list fomatting: "- (medium: )" + #-PO: eg: "- rpmdrake (medium: "Main Release" + N("- %s (medium: %s)", $_, pkg2medium($pkgs->{$_}{pkg}, $urpm)->{name}); + } grep { /^$short_name/ } keys %$pkgs), + ), + scroll => 1, + ); + return 'XXX'; + } #- checks $_[0] -> hack for partial tree displaying $_[0] ? $pkg->{selected} ? ($urpm_obj->flag_installed ? ($urpm_obj->flag_upgrade ? 'to_install' : 'to_remove') : 'to_install') -- cgit v1.2.1