X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FCGI%2FPkgreport.pm;fp=Debbugs%2FCGI%2FPkgreport.pm;h=078fecaa69844f0fe3fbcd5ea803d14be7eb2c2c;hb=5cd697c78080765e1194b5b1ae3ee0f24ee6b853;hp=074ae9fe34ead239093bdc117cd6281867f35472;hpb=bf759cfd4fbfe4a1a6e84b81a7e56ab38de1391e;p=debbugs.git

diff --git a/Debbugs/CGI/Pkgreport.pm b/Debbugs/CGI/Pkgreport.pm
index 074ae9f..078feca 100644
--- a/Debbugs/CGI/Pkgreport.pm
+++ b/Debbugs/CGI/Pkgreport.pm
@@ -301,6 +301,9 @@ sub pkg_htmlizebugs {
 					  dist     => {type => SCALAR,
 						       optional => 1,
 						      },
+					  schema   => {type => OBJECT,
+						       optional => 1,
+						      },
 					 }
 			      );
      my @bugs = @{$param{bugs}};
@@ -351,10 +354,10 @@ sub pkg_htmlizebugs {
      }
 
      foreach my $bug (@bugs) {
-	  my %status = %{get_bug_status(bug=>$bug,
-					(exists $param{dist}?(dist => $param{dist}):()),
-					bugusertags => $param{bugusertags},
-					(exists $param{version}?(version => $param{version}):()),
+	 my %status = %{get_bug_status(bug=>$bug,
+				       (map {exists $param{$_}?($_,$param{$_}):()}
+					qw(dist version schema bugusertags)
+				       ),
 					(exists $param{arch}?(arch => $param{arch}):(arch => $config{default_architectures})),
 				       )};
 	  next unless %status;