* reporting/html_reports:
authorFrank Lichtenheld <djpig@debian.org>
Thu, 19 Jun 2008 00:16:27 +0000 (00:16 +0000)
committerFrank Lichtenheld <djpig@debian.org>
Thu, 19 Jun 2008 00:16:27 +0000 (00:16 +0000)
  + [FL] Mark the tag pages with the correct code.

debian/changelog
reporting/html_reports

index 27c0d96..6645ddc 100644 (file)
@@ -35,6 +35,8 @@ lintian (1.24.2) unstable; urgency=low
   * lib/Lintian/Collect/Binary.pm:
     + [FL] Add support for file-info file.
   
+  * reporting/html_reports:
+    + [FL] Mark the tag pages with the correct code.
   * reporting/templates/tag.tmpl:
     + [FL] Mark overridden tags.
 
index ef275dd..fcf94a6 100755 (executable)
@@ -402,10 +402,17 @@ for my $tag (sort keys %by_tag) {
     } else {
         $description = "    <p>Can't find description of tag $tag.</p>";
     }
+    my $code = 'O';
+    foreach (@{$by_tag{$tag}}) {
+        if ($_->{code} ne 'O') {
+            $code = $_->{code};
+            last;
+        }
+    }
     my %data = (
         description => $description,
         tag         => html_quote ($tag),
-        code        => $by_tag{$tag}[0]->{code},
+        code        => $code,
         tags        => $by_tag{$tag},
     );
     output_template ("tags/$tag.html", $templates{tag}, \%data);