* Fix link to pseudopackages

[debbugs.git] / cgi / bugreport.cgi

diff --git a/cgi/bugreport.cgi b/cgi/bugreport.cgi
index 5711e1b1028998f2ff57ecdcfa7f3f7aed0e5763..456bd69e9091d7264dc0de750e3bc0b36b50d8e3 100755 (executable)
--- a/cgi/bugreport.cgi
+++ b/cgi/bugreport.cgi
@@ -71,6 +71,19 @@ my $archive = $param{'archive'} eq 'yes';
 my $repeatmerged = $param{'repeatmerged'} eq 'yes';
 
 my $buglog = buglog($ref);
+if (not defined $buglog) {
+     print $q->header(-status => "404 No such bug",
+                     -type => "text/html",
+                     -charset => 'utf-8',
+                    );
+     print fill_in_template(template=>'cgi/no_such_bug',
+                           variables => {modify_time => strftime('%a, %e %b %Y %T UTC', gmtime),
+                                         bug_num     => $ref,
+                                        },
+                          );
+     exit 0;
+}
+
 my @stat = stat $buglog;
 my $mtime = '';
 if (@stat) {
@@ -246,7 +259,7 @@ my @packages = splitpackages($status{package});
 
 foreach my $pkg (@packages) {
      $package{$pkg} = {maintainer => exists($maintainer{$pkg}) ? $maintainer{$pkg} : '(unknown)',
-                      source     => exists($pkgsrc{$pkg}) ? $pkgsrc{$pkg} : '(unknown)',
+                      exists($pkgsrc{$pkg}) ? (source => $pkgsrc{$pkg}) : (),
                       package    => $pkg,
                      };
 }
@@ -324,5 +337,6 @@ print fill_in_template(template => 'cgi/bugreport',
                                     '&version_url'   => \&Debbugs::CGI::version_url,
                                     '&bug_url'       => \&Debbugs::CGI::bug_url,
                                     '&strftime'      => \&POSIX::strftime,
-                                   }
+                                    '&maybelink'     => \&Debbugs::CGI::maybelink,
+                                   },
                      );