From 9ced337e4366f3cb775b59a790f0efce8e2b52ad Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@chiark.greenend.org.uk>
Date: Tue, 1 Jun 2010 12:08:34 +0100
Subject: [PATCH] innduct-stats-report shows deferral

---
 innduct-stats-report | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/innduct-stats-report b/innduct-stats-report
index e6a7dcb..ebcae74 100755
--- a/innduct-stats-report
+++ b/innduct-stats-report
@@ -64,9 +64,11 @@ while (<>) {
 
 our $cwr;
 our $site;
+our $processed;
 
 foreach $site (sort keys %counts) {
     $cwr= $counts{$site};
+    $processed= $cwr->{offered} - $cwr->{deferred};
     write;
 }
 
@@ -85,14 +87,15 @@ sub amt ($) {
 }
 
 format STDOUT_TOP =
-offrd acctd unwtd rejtd ac% rj% nochk nc% 
+offrd defer acctd unwtd rejtd df% ac% rj% nochk nc% 
 .
 format STDOUT =
-@>>>> @>>>> @>>>> @>>>> ^## ^## @>>>> ^## @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<...
-{ (map { amt($cwr->{$_}) } qw(offered accepted unwanted rejected)),
-  (map { pct($cwr->{$_}, $cwr->{offered}) } qw(accepted rejected)),
+@>>>> @>>>> @>>>> @>>>> @>>>> ^## ^## ^## @>>>> ^## @<<<<<<<<<<<<<<<<<<<<<<<...
+{ (map { amt($cwr->{$_}) } qw(offered deferred accepted unwanted rejected)),
+  (pct($cwr->{deferred}, $cwr->{offered})),
+  (map { pct($cwr->{$_}, $processed) } qw(accepted rejected)),
   ($cwr->{offered_nc} ? (amt($cwr->{offered_nc}),
-			 pct($cwr->{offered_nc}, $cwr->{offered}))
+			 pct($cwr->{offered_nc}, $processed))
                       : ('',undef)),
   ($site)
   }
-- 
2.30.2