our $jqcachemisses = 0;
our $jqtotal = 0;
-sub jobquery ($$$) {
+sub cacheable_query ($$$) {
my ($q, $jr, $cachekey) = @_;
$jqtotal++;
$cachekey = '%'.$cachekey;
$cachehits++;
}
- my $endedrow = jobquery($endedq, $jr, 'e');
+ my $endedrow = cacheable_query($endedq, $jr, 'e');
if (!$endedrow) {
#print DEBUG "no-finished\n";
next;
}
#print DEBUG "JR $jr->{flight}.$jr->{job}\n";
- my $ir = jobquery($infoq, $jr, 'i');
- my $ar = jobquery($allocdq, $jr, 'a');
+ my $ir = cacheable_query($infoq, $jr, 'i');
+ my $ar = cacheable_query($allocdq, $jr, 'a');
my $ident = $jr->{name};
my $altcolour = report_altcolour($alternate);