From: Mike Taylor <mike@miketaylor.org.uk>
Date: Fri, 9 Apr 2010 11:23:54 +0000 (+0100)
Subject: Precache records using $rs->records()
X-Git-Tag: CPAN-v1.02~170
X-Git-Url: http://sru.miketaylor.org.uk/cgi-bin?a=commitdiff_plain;h=0b57258ec2d28940302af3bd7c721311810b2302;p=irspy-moved-to-github.git

Precache records using $rs->records()
---

diff --git a/web/htdocs/details/found.mc b/web/htdocs/details/found.mc
index 231f4d1..13143c6 100644
--- a/web/htdocs/details/found.mc
+++ b/web/htdocs/details/found.mc
@@ -72,6 +72,7 @@ if (!defined $conn) {
   OPEN:
     $conn = new ZOOM::Connection("localhost:8018/IR-Explain---1");
     $conn->option(elementSetName => "zeerex");
+    $conn->option(count => 20);
 }
 
 my $rs;
@@ -125,6 +126,7 @@ print_navlink(\%params, $last < $n, "Next", $skip+$count);
        <th></th>
       </tr>
 % my @ids;
+% $rs->records($first-1, $last-$first+1); ## Force pre-cache
 % foreach my $i ($first .. $last) {
 <%perl>
 my $xc = irspy_xpath_context($rs->record($i-1));