From 706278f0f76ceb85627bac913e95ac5879e11c4d Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 10 Aug 2007 21:38:59 +0000 Subject: (get_updates_description) rpmdrake wants the medium name --- urpm.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'urpm.pm') diff --git a/urpm.pm b/urpm.pm index 0efe5769..b7ec2884 100644 --- a/urpm.pm +++ b/urpm.pm @@ -233,7 +233,8 @@ sub get_updates_description { @update_medias or @update_medias = grep { !$_->{ignore} && $_->{update} } @{$urpm->{media}}; - foreach (map { cat_utf8(urpm::media::statedir_descriptions($urpm, $_)), '%package dummy' } @update_medias) { + foreach my $medium (@update_medias) { + foreach (cat_utf8(urpm::media::statedir_descriptions($urpm, $medium)), '%package dummy') { /^%package (.+)/ and do { if (exists $cur->{importance} && $cur->{importance} ne "security" && $cur->{importance} ne "bugfix") { $cur->{importance} = 'normal'; @@ -241,6 +242,7 @@ sub get_updates_description { $update_descr{$_} = $cur foreach @{$cur->{pkgs}}; $cur = {}; $cur->{pkgs} = [ split /\s/, $1 ]; + $cur->{medium} = $medium->{name}; $section = 'pkg'; next; }; @@ -251,6 +253,7 @@ sub get_updates_description { $section eq 'pre' and $cur->{pre} .= $_; $section eq 'description' and $cur->{description} .= $_; } + } \%update_descr; } -- cgit v1.2.1