r6188 - /scripts/qa/versioncheck.pl

gregoa-guest at users.alioth.debian.org gregoa-guest at users.alioth.debian.org
Tue Jul 31 17:05:47 UTC 2007


Author: gregoa-guest
Date: Tue Jul 31 17:05:47 2007
New Revision: 6188

URL: http://svn.debian.org/wsvn/?sc=1&rev=6188
Log:
& -> & in html output

Modified:
    scripts/qa/versioncheck.pl

Modified: scripts/qa/versioncheck.pl
URL: http://svn.debian.org/wsvn/scripts/qa/versioncheck.pl?rev=6188&op=diff
==============================================================================
--- scripts/qa/versioncheck.pl (original)
+++ scripts/qa/versioncheck.pl Tue Jul 31 17:05:47 2007
@@ -641,7 +641,7 @@
     {
         $upstream ||= (
             ( $in_svn =~ /-.+$/ )
-            ? qq(Invalid <a href="http://svn.debian.org/wsvn/pkg-perl/trunk/$pkg/debian/watch?op=file&rev=0&sc=0">debian/watch</a>)
+            ? qq(Invalid <a href="http://svn.debian.org/wsvn/pkg-perl/trunk/$pkg/debian/watch?op=file&amp;rev=0&amp;sc=0">debian/watch</a>)
             : $in_svn # native package
         );
     }
@@ -666,7 +666,7 @@
         print "<tr>\n";
         print "<td>$pkg</td>\n";
 
-        my $in_svn_text = qq(<a href="http://svn.debian.org/wsvn/pkg-perl/trunk/$pkg/debian/changelog?op=file&rev=0&sc=0" title="$svn_changer\n$svn_date">$in_svn</a>);
+        my $in_svn_text = qq(<a href="http://svn.debian.org/wsvn/pkg-perl/trunk/$pkg/debian/changelog?op=file&amp;rev=0&amp;sc=0" title="$svn_changer\n$svn_date">$in_svn</a>);
         print "<td".(
             ($in_svn ne $in_archive)
             ? ' class="upload"'
@@ -703,7 +703,7 @@
             ),
         );
 
-        $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;
+        $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";
 




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