r7446 - /scripts/qa/versioncheck.pl

[gregoa-guest at users.alioth.debian.org]

Author: gregoa-guest
Date: Tue Sep 11 15:40:56 2007
New Revision: 7446

URL: http://svn.debian.org/wsvn/?sc=1&rev=7446
Log:
make package name a link to the QA page (if package is in the archive)

Modified:
    scripts/qa/versioncheck.pl

Modified: scripts/qa/versioncheck.pl
URL: http://svn.debian.org/wsvn/scripts/qa/versioncheck.pl?rev=7446&op=diff
==============================================================================
--- scripts/qa/versioncheck.pl (original)
+++ scripts/qa/versioncheck.pl Tue Sep 11 15:40:56 2007
@@ -713,7 +713,12 @@
     )
     {
         print "<tr>\n";
-        print "<td>$pkg</td>\n";
+        print "<td>".(
+            ($in_archive)
+            ? qq(<a href="http://packages.qa.debian.org/$pkg">$pkg</a>)
+            : qq($pkg)
+            
+        )."</td>\n";
 
         my $in_svn_text = qq(<a href="http://svn.debian.org/wsvn/pkg-perl/trunk/$dir/debian/changelog?op=file&amp;rev=0&amp;sc=0" title="$svn_changer\n$svn_date">$in_svn</a>);
         print "<td".(