merge changes from dla source

diff --git a/cgi/pkgreport.cgi b/cgi/pkgreport.cgi
index 673a2db9cba1891976b0c3c2c8de0f2b8b4a226a..78b4dc20fa8c0d1a31edaf91ac25f7639b856ce5 100755 (executable)
--- a/cgi/pkgreport.cgi
+++ b/cgi/pkgreport.cgi
@@ -445,7 +445,7 @@ sub output_package_info{
         }
         if (defined $gSubscriptionDomain) {
              my $ptslink = $package ? $srcforpkg : $src;
-             push @references, "to the <a href=\"http://$gSubscriptionDomain/$ptslink\">Package Tracking System</a>";
+             push @references, q(to the <a href="http://).html_escape("$gSubscriptionDomain/$ptslink").q(">Package Tracking System</a>);
         }
         # Only output this if the source listing is non-trivial.
         if ($srcorbin eq 'binary' and $srcforpkg) {