Re: [htmltmpl] HTML::Pager persist_var

[Sam T. <sa...@tr...>]

I do see one potential problem:

>      for (my $x = 0; $x < $rows; $x++) {
>         push(@return_array,  $data_record[$offset + $x] );

That will push on 'undef' values on your last page.  Maybe change that
to:

          push(@return_array,  $data_record[$offset + $x] )
              if exists $data_record[$offset + $x];

Another idea would be to add this just before you return from your
callback:

       use Data::Dumper;
       print STDERR Dumper(\@return_array);

If everything is working you should see an array-ref containing a
single hash in your error logs when you view the last page.

-sam