sg-report-host-history: Cache report_run_getinfo

No logical change.

Signed-off-by: Ian Jackson <ian.jackson@eu.citrix.com>

diff --git a/sg-report-host-history b/sg-report-host-history
index efe652bba6df803db1a467536e547ab050c9b12b..a814ef3707bc793e2003ecf75b36e291280bdab4 100755 (executable)
--- a/sg-report-host-history
+++ b/sg-report-host-history
@@ -266,7 +266,9 @@ END
 
        print H "<td><a href=\"$url\">$jr->{job}</td>\n";
 
-       my $ri = report_run_getinfo({ %$jr, %$ir });
+       my $ri = cacheable_fn($jr, 'rri', sub {
+            report_run_getinfo({ %$jr, %$ir })
+       });
        print H "<td $ri->{ColourAttr}>$ri->{Content}</td>\n";
 
        my $powers = cacheable_fn($jr, 'b', sub {