From 5a32168a9094568de147786f171e70e8587ca478 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Fri, 28 May 2010 22:14:36 +0100
Subject: [PATCH 1/1] more work on stats report

---
 innduct-stats-report | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/innduct-stats-report b/innduct-stats-report
index 653a8f7..391dac1 100755
--- a/innduct-stats-report
+++ b/innduct-stats-report
@@ -50,13 +50,14 @@ while (<>) {
 	    die "$_ // $strs ?";
 	}
     }
-    
+ 
 #    print "$site|";
 #    foreach my $k (sort keys %$c) { printf " %s=%d", $k, $c->{$k}; }
 #    print "\n";
-#print Dumper(\%counts);;
 }
 
+#print STDERR Dumper(\%counts);;
+
 our $cwr;
 our $site;
 
@@ -83,12 +84,12 @@ format STDOUT_TOP =
 offrd acctd unwtd rejtd ac% rj% nochk nc% 
 .
 format STDOUT =
-@>>>> @>>>> @>>>> @>>>> ^## ^## @>>>> ^## @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+@>>>> @>>>> @>>>> @>>>> ^## ^## @>>>> ^## @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<...
 { (map { amt($cwr->{$_}) } qw(offered accepted unwanted rejected)),
   (map { pct($cwr->{$_}, $cwr->{offered}) } qw(accepted rejected)),
   ($cwr->{offered_nc} ? (amt($cwr->{offered_nc}),
 			 pct($cwr->{offered_nc}, $cwr->{offered}))
-                      : '',undef),
-  ($site);
+                      : ('',undef)),
+  ($site)
   }
 .
-- 
2.30.2