[lintian] 02/05: c/r-html-reports: Show number of groups with processing errors

[Niels Thykier <nthykier@moszumanska.debian.org>]

This is an automated email from the git hooks/post-receive script.

nthykier pushed a commit to branch master
in repository lintian.

commit cd1fbfebdc246e8d3680ed853deb607087c8d4c4
Author: Niels Thykier <niels@thykier.net>
Date:   Sun Feb 4 09:32:25 2018 +0000

    c/r-html-reports: Show number of groups with processing errors
    
    Signed-off-by: Niels Thykier <niels@thykier.net>
---
 commands/reporting-html-reports.pm | 7 +++++++
 reporting/templates/index.tmpl     | 1 +
 2 files changed, 8 insertions(+)

diff --git a/commands/reporting-html-reports.pm b/commands/reporting-html-reports.pm
index 49080e2..4f5f959 100644
--- a/commands/reporting-html-reports.pm
+++ b/commands/reporting-html-reports.pm
@@ -616,6 +616,13 @@ sub collect_statistics {
     $statistics{'groups-known'} = scalar(keys(%{$state_cache->{'groups'}}));
     $statistics{'groups-backlog'}
       = scalar(find_backlog($LINTIAN_VERSION,$state_cache));
+    my $pkgs_w_errors = 0;
+    for my $group_data (values(%{$state_cache->{'groups'}})) {
+        $pkgs_w_errors++
+          if exists($group_data->{'processing-errors'})
+          and $group_data->{'processing-errors'};
+    }
+    $statistics{'groups-with-errors'} = $pkgs_w_errors;
 
     for my $attr (@attrs) {
         my $old = $old_statistics->{$attr} || 0;
diff --git a/reporting/templates/index.tmpl b/reporting/templates/index.tmpl
index add58ae..e253ab8 100644
--- a/reporting/templates/index.tmpl
+++ b/reporting/templates/index.tmpl
@@ -76,6 +76,7 @@
       <tr><td>Maintainers:</td>      <td>{$delta{maintainers}}</td></tr>
       <tr><td>Package groups:</td>     <td>{$delta{'groups-known'}}</td></tr>
       <tr><td>Rescheduled groups:</td> <td>{$delta{'groups-backlog'}}</td></tr>
+      <tr><td>Groups with processing errors:</td> <td>{$delta{'groups-with-errors'}}</td></tr>
       <tr><td>Source packages:</td>  <td>{$delta{'source-packages'}}</td></tr>
       <tr><td>Binary packages:</td>  <td>{$delta{'binary-packages'}}</td></tr>
       <tr><td>&mu;deb packages:</td> <td>{$delta{'udeb-packages'}}</td></tr>

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/lintian/lintian.git