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 $
On Wednesday June 9 2004 10:12 am, you wrote:
> On Wed, 9 Jun 2004, Greg Jetter wrote:
> > get_data_callback returned something that isn't an array ref! You must
> > return from get_data_callback in the format [ [ $col1, $col2], [ $col1,
> > $col2] ] or [ { NAME => value ... }, { NAME => value ...
On Wed, 9 Jun 2004, Greg Jetter wrote:
> get_data_callback returned something that isn't an array ref! You must return
> from get_data_callback in the format [ [ $col1, $col2], [ $col1, $col2] ] or
> [ { NAME => value ... }, { NAME => value ...} ]. at
> /usr/lib/perl5/site_perl/5.8.0/HTML/Pager.p
On Tuesday June 8 2004 8:27 pm, Sam Tregar wrote:
> On Tue, 8 Jun 2004, Greg Jetter wrote:
> > Could someone enlighten me on the proper way to pass an array ref to
> > this part of the new() call ?
> >
> > I've tried persist_vars => [EMAIL PROTECTED] ]
> >
> > WHERE :
> >
> > @array = ("PostalCod
There's a new test for the case too.
--- JIT/Base.pm Wed Jun 9 15:31:15 2004
+++ JIT/Base.pm Wed Jun 9 15:34:32 2004
@@ -75,7 +75,7 @@
foreach my $row (@$array) {
croak("Bad param settings - found non hash-ref for loop row in loop $loop_name!")
- unless ref $row eq 'HASH';
+
