From cb3586c3db76b6c2495ea7133d0f8b9611299485 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Mon, 9 May 2005 02:41:57 +0000
Subject: Add descriptions to the list of rpms to be installed in gurpmi (bug
 15496)

---
 gurpmi | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'gurpmi')

diff --git a/gurpmi b/gurpmi
index afcf8aef..66140279 100644
--- a/gurpmi
+++ b/gurpmi
@@ -35,6 +35,10 @@ $mainw->set_modal(0);
 $mainbox = Gtk2::VBox->new(0, 5);
 $mainw->add($mainbox);
 
+sub all_descriptions {
+    join '', qx(rpm -qp --qf '%{name}-%{version}-%{release}: %{summary}\\n' @_);
+}
+
 #- Ask question: save or install ?
 #- change depending on the number of rpms, and on the presence of srpms
 ($srpms, $rpms) = partition { /\.src\.rpm$/ } @all_rpms;
@@ -53,12 +57,12 @@ What would you like to do?", $srpms->[0])
 
 %s
 
-You may prefer to just save it. What is your choice?", $rpms->[0])
+You may prefer to just save it. What is your choice?", all_descriptions($rpms->[0]))
 	: N("You are about to install the following software packages on your computer:
 
 %s
 
-Proceed?", join "\n", @all_rpms)
+Proceed?", all_descriptions(@all_rpms))
     );
     $mainbox->pack_start(new_label($msg), 1, 1, 0);
 }
-- 
cgit v1.2.1