r6182 - /scripts/qa/versioncheck.pl

[dmn at users.alioth.debian.org]

Author: dmn
Date: Tue Jul 31 11:27:10 2007
New Revision: 6182

URL: http://svn.debian.org/wsvn/?sc=1&rev=6182
Log:
Actually include the link itself

Modified:
    scripts/qa/versioncheck.pl

Modified: scripts/qa/versioncheck.pl
URL: http://svn.debian.org/wsvn/scripts/qa/versioncheck.pl?rev=6182&op=diff
==============================================================================
--- scripts/qa/versioncheck.pl (original)
+++ scripts/qa/versioncheck.pl Tue Jul 31 11:27:10 2007
@@ -699,13 +699,17 @@
         $archive_text = qq(<a href="http://packages.qa.debian.org/$pkg">$archive_text</a> <a style="font-size:smaller" href="http://bugs.debian.org/src:$pkg">bts</a>) if $in_archive or $in_experimental or $in_stable or $in_oldstable;
 
         print "<td>$archive_text</td>\n";
+
+        my $upstream_text = (
+            $upstream_is_cpan
+            ? "CPAN:&nbsp;$in_cpan"
+            : $upstream
+        );
+        $upstream_text = qq(<a href="$upstream_url">$upstream_text</a>) if $upstream_url;
+
         print(
             ($up_svn ne $upstream)
-            ? "<td class=\"upgrade\">".(
-                $upstream_is_cpan
-                ? "CPAN:&nbsp;$in_cpan"
-                : $upstream
-            )."</td>\n"
+            ? qq(<td class="upgrade">$upstream_text</td>\n)
             : "<td></td>\n"
         );
         print "</tr>\n";