From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 1 Feb 2010 17:23:20 +0000 (-0800)
Subject: Fix links to PTS pages for src packages (closes: #566089). Thanks to
X-Git-Tag: release/2.6.0~428^2~7
X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=commitdiff_plain;h=8e1a4412aaae391ff8ef27ae90cd5fe53e685d19

Fix links to PTS pages for src packages (closes: #566089). Thanks to
Sandro Tosi.
---

diff --git a/Debbugs/CGI/Pkgreport.pm b/Debbugs/CGI/Pkgreport.pm
index 57d1cc4..d047aff 100644
--- a/Debbugs/CGI/Pkgreport.pm
+++ b/Debbugs/CGI/Pkgreport.pm
@@ -74,7 +74,7 @@ sub generate_package_info{
 			       spec  => {binary => {type => BOOLEAN,
 						    default => 1,
 						   },
-					 package => {type => SCALAR|ARRAYREF,
+					 package => {type => SCALAR,#|ARRAYREF,
 						    },
 					 options => {type => HASHREF,
 						    },
@@ -142,6 +142,8 @@ sub generate_package_info{
 	  if (defined $config{subscription_domain} and
 	      length $config{subscription_domain}) {
 	       my $ptslink = $param{binary} ? $srcforpkg : $package;
+	       # the pts only wants the source, and doesn't care about src: (#566089)
+	       $ptslink =~ s/^src://;
 	       push @references, q(to the <a href="http://).html_escape("$config{subscription_domain}/$ptslink").q(">Package Tracking System</a>);
 	  }
 	  # Only output this if the source listing is non-trivial.
diff --git a/debian/changelog b/debian/changelog
index 4618e6e..56ac6cc 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -10,6 +10,8 @@ debbugs (2.4.2~exp1) experimental; urgency=low
     (closes: #565981). Thanks to Mike Hommey
   * Allow type to be text as well as text/(something not html)
     (closes: #566068). Thanks to Mike Hommey.
+  * Fix links to PTS pages for src packages (closes: #566089). Thanks to
+    Sandro Tosi.
 
  -- Don Armstrong <don@debian.org>  Wed, 26 Aug 2009 21:32:53 -0700