[SCM] Debian package checker branch, master, updated. 1.24.4-124-gcf36c56

["Adam D. Barratt" <adam@adam-barratt.org.uk>]

The following commit has been merged in the master branch:
commit cf36c56cad0d0138a2fe4ff7f44e69cacf836f62
Author: Adam D. Barratt <adam@adam-barratt.org.uk>
Date:   Sat Sep 13 18:56:49 2008 +0100

    If a package only has I/X tags, don't include it on the main page summary
    
    * reporting/templates/maintainer.tmpl:
      + Don't list packages in the summary at the top of the main
        report page if all of the issues reported for the package were
        "info" or "experimental".  (Closes: #498617)

diff --git a/debian/changelog b/debian/changelog
index 50fedab..ec723e6 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -140,6 +140,11 @@ lintian (2.0.0~rc1) experimental; urgency=low
   * man/lintian.1:
     + [FL] Document udeb support in description for --packages-file.
   
+  * reporting/templates/maintainer.tmpl:
+    + [ADB] Don't list packages in the summary at the top of the main
+      report page if all of the issues reported for the package were
+      "info" or "experimental".  (Closes: #498617)
+
   * t/runtests:
     + [FL] Copy the changes to testset/runtests from JP's branch.
     + [FL] Remove global tests that were duplicated from testset/runtests,
diff --git a/reporting/templates/maintainer.tmpl b/reporting/templates/maintainer.tmpl
index d16b3a7..b3a169d 100644
--- a/reporting/templates/maintainer.tmpl
+++ b/reporting/templates/maintainer.tmpl
@@ -26,7 +26,29 @@
     if ($num_packages > 1 and $num_packages < 20) {
         $OUT .= qq(  <div id="summary">\n    <ul>\n);
         foreach $source (sort(keys(%packages), keys(%uploads))) {
-            $OUT .= qq(      <li><a href="#$source">$source</a></li>\n);
+            # Only display a link for the package if either we're
+            # displaying the full report, or the package has error
+            # or warning tags
+            my $interesting = 0;
+            if ($errors) {
+                $interesting = 1;
+            } else {
+                my $versions = $by_maint{$maintainer}{$source}
+                    || $by_uploader{$maintainer}{$source};
+                for my $version (keys %$versions) {
+                    my $tags = $versions->{$version};
+                    for my $tag (@$tags) {
+                        if (($tag->{code} ne 'E') and ($tag->{code} ne 'W')) {
+                            $interesting = 1;
+                            last;
+                        }
+                    }
+                }
+            }
+
+            if ($interesting) {
+                $OUT .= qq(      <li><a href="#$source">$source</a></li>\n);
+            }
         }
         $OUT .= "    </ul>\n  </div>\n";
     }

-- 
Debian package checker