lintian: r1399 - in trunk: debian reporting

[djpig@debian.org]

Author: djpig
Date: 2008-06-19 02:16:27 +0200 (Thu, 19 Jun 2008)
New Revision: 1399

Modified:
   trunk/debian/changelog
   trunk/reporting/html_reports
Log:
* reporting/html_reports:
  + [FL] Mark the tag pages with the correct code.


Modified: trunk/debian/changelog
===================================================================
--- trunk/debian/changelog	2008-06-19 00:14:58 UTC (rev 1398)
+++ trunk/debian/changelog	2008-06-19 00:16:27 UTC (rev 1399)
@@ -35,6 +35,8 @@
   * 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.
 

Modified: trunk/reporting/html_reports
===================================================================
--- trunk/reporting/html_reports	2008-06-19 00:14:58 UTC (rev 1398)
+++ trunk/reporting/html_reports	2008-06-19 00:16:27 UTC (rev 1399)
@@ -402,10 +402,17 @@
     } 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);