From 2463c5f275f404f8cd10227531f9f6cebfaac013 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 3 Mar 2010 16:21:41 +0000
Subject: (get_url_link) split it out of format_pkg_simplifiedinfo()

---
 Rpmdrake/gui.pm | 29 ++++++++++++++++++-----------
 1 file changed, 18 insertions(+), 11 deletions(-)

diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm
index e172e7e1..29883fd0 100644
--- a/Rpmdrake/gui.pm
+++ b/Rpmdrake/gui.pm
@@ -210,6 +210,23 @@ sub get_new_deps {
     @a;
 }
 
+sub get_url_link {
+    my ($upkg, $pkg, $details_txt) = @_;
+
+    my $url = $upkg->url || $pkg->{url};
+
+    if (!$url) {
+        open_rpm_db()->traverse_tag('name', [ $upkg->name ], sub { $url = $_[0]->url });
+    }
+
+    return if !$url;
+
+    push @$details_txt,
+      @{ ugtk2::markup_to_TextView_format(format_field("\n$spacing" . N("URL: "))) },
+        [ my $link = gtkshow(Gtk2::LinkButton->new($url, $url)) ];
+    $link->set_uri_hook(\&run_help_callback);
+}
+
 sub format_pkg_simplifiedinfo {
     my ($pkgs, $key, $urpm, $descriptions) = @_;
     my ($name) = split_fullname($key);
@@ -231,17 +248,7 @@ sub format_pkg_simplifiedinfo {
 
     my $details_txt = get_details($key, $upkg, $installed_version, $raw_medium);
 
-    my $url = $upkg->url || $pkg->{url};
-    if (!$url) {
-        open_rpm_db()->traverse_tag('name', [ $upkg->name ], sub { $url = $_[0]->url });
-    }
-
-    if ($url) {
-        push @$details_txt,
-          @{ ugtk2::markup_to_TextView_format(format_field("\n$spacing" . N("URL: "))) },
-          [ my $link = gtkshow(Gtk2::LinkButton->new($url, $url)) ];
-        $link->set_uri_hook(\&run_help_callback);
-    }
+    get_url_link($upkg, $pkg, $details_txt);
 
     push @$s, [ gtkadd(gtkshow(my $exp0 = Gtk2::Expander->new(format_field(N("Details:")))),
                        gtknew('TextView', text => $details_txt)) ];
-- 
cgit v1.2.1