- my $i = $state->{next_to_fetch}++;
- my $rec = $rs->record($i);
- print($conn->option("host"), ": pre-fetch: record $i is ",
- render_record($rec), "\n");
+sub request_records {
+ my($conn, $rs, $state, $count) = @_;
+
+ my $i = $state->{next_to_fetch};
+ ZOOM::Log::log("appl", "requesting $count records from $i");
+ $rs->records($i, $count, 0);
+ $state->{next_to_fetch} += $count;