(format_pkg_simplifiedinfo) display a URL button on security advisory

1 files changed, 12 insertions, 4 deletions

diff --git a/rpmdrake b/rpmdrake
index 7585207c..914eb545 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -642,10 +642,18 @@ sub format_pkg_simplifiedinfo {
 	  format_field(N("Importance: ")) . escape_text_for_TextView_markup_format($descriptions->{$name}{importance}),
 	  format_field(N("Reason for update: ")) . escape_text_for_TextView_markup_format(rpm_description($descriptions->{$name}{pre})),
       ),
-      '', # extra empty line
-      (escape_text_for_TextView_markup_format($pkgs->{$key}{description} || $descriptions->{$name}{description}) || '<i>' . N("No description") . '</i>'),
-    ));
-    push @$s, [ "\n\n" ];
+      '')); # extra empty line
+    if ($update_descr) {
+        push @$s, [ my $link = gtkshow(Gtk2::LinkButton->new($descriptions->{$name}{URL}, N("Security advisory"))) ];
+        $link->set_uri_hook(sub {
+            my (undef, $url) = @_;
+            run_program::raw({ detach => 1 }, 'www-browser', $url);
+        });
+      }
+
+    push @$s, @{ ugtk2::markup_to_TextView_format(join("\n",
+      (escape_text_for_TextView_markup_format($pkgs->{$key}{description} || $descriptions->{$name}{description}) || '<i>' . N("No description") . '</i>')
+    )) };
     push @$s, [ gtkadd(gtkshow(my $exp = Gtk2::Expander->new(format_field(N("Files:")))),
                        gtktext_insert(Gtk2::TextView->new,
                                       exists $pkgs->{$key}{files} ?