* reporting/html_reports:

  + [FL] Mark the tag pages with the correct code.

diff --git a/debian/changelog b/debian/changelog
index 27c0d96..6645ddc 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -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.
 

diff --git a/reporting/html_reports b/reporting/html_reports
index ef275dd..fcf94a6 100755 (executable)
--- a/reporting/html_reports
+++ b/reporting/html_reports
@@ -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);