From 75d8cd0b15bde3504b5d2d1b66fae04344e1ed2b Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 8 Jul 2008 18:56:50 +0000 Subject: migrate to urpm::get_pkgs::selected2local_and_blists() --- urpmq | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/urpmq b/urpmq index b76919a8..19d4045e 100755 --- a/urpmq +++ b/urpmq @@ -375,17 +375,16 @@ if ($options{list_aliases}) { if ($options{sources} || %need_xml_info) { - my ($local_sources, $list) = urpm::get_pkgs::selected2list($urpm, $state->{selected}); + my ($local_sources, $blists) = urpm::get_pkgs::selected2local_and_blists($urpm, $state->{selected}); my %xml_info_pkgs; if (%need_xml_info) { # get descriptions of update sources my $updates_descr = urpm::get_updates_description($urpm); - my @selected = uniq(map { keys %$_ } @$list); - - foreach my $medium (@{$urpm->{media} || []}) { - my @l = grep { $medium->{start} <= $_ && $_ <= $medium->{end} } @selected or next; + foreach my $blist (@$blists) { + my $medium = $blist->{medium}; + my @l = keys %{$blist->{list}}; my @pkgs = map { $urpm->{depslist}[$_] } @l or next; if (my $dir = urpm::file_from_local_url($medium->{url})) { @@ -479,7 +478,7 @@ if ($options{list_aliases}) { } } elsif ($options{sources}) { print "$_\n" foreach values %$local_sources; - print "$_\n" foreach map { values %$_ } @$list; + print "$_\n" foreach map { values %{$_->{list}} } @$blists; } exit 0; } elsif ($options{summary}) { -- cgit v1.2.1