r7448 - /scripts/qa/versioncheck2.pl

gregoa-guest at users.alioth.debian.org gregoa-guest at users.alioth.debian.org
Tue Sep 11 16:06:53 UTC 2007


Author: gregoa-guest
Date: Tue Sep 11 16:06:53 2007
New Revision: 7448

URL: http://svn.debian.org/wsvn/?sc=1&rev=7448
Log:
make package name a link to the QA page (if package is in unstable) -- this time the other script

Modified:
    scripts/qa/versioncheck2.pl

Modified: scripts/qa/versioncheck2.pl
URL: http://svn.debian.org/wsvn/scripts/qa/versioncheck2.pl?rev=7448&op=diff
==============================================================================
--- scripts/qa/versioncheck2.pl (original)
+++ scripts/qa/versioncheck2.pl Tue Sep 11 16:06:53 2007
@@ -877,7 +877,11 @@
     );
     $total_shown++;
     my $text = "<tr>\n";
-    $text .= "<td>$spkg</td>\n";
+    $text .= "<td>".(
+        ($packages{$spkg})
+        ? qq(<a href="http://packages.qa.debian.org/$spkg">$spkg</a>)
+        : qq($spkg)
+        )."</td>\n";
 
     $text .= "<td".(
         (! $packages{$spkg} or $pkgd->{chl_ver} ne $packages{$spkg})




More information about the Pkg-perl-cvs-commits mailing list