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;
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)
}
.