- my $toggle="white";
- my @loop;
- for (my $i=$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){
- my %row = ( printername => $results->[$i]{'printername'},
- printqueue => $results->[$i]{'printqueue'},
- printtype => $results->[$i]{'printtype'},
- toggle => $toggle);
- push @loop, \%row;
- $toggle = ($toggle eq 'white') ? '#ffffcc' : 'white';
- }
+ my $max = ($offset+$pagesize < $count) ? $offset+$pagesize : $count;
+ my @loop = (@$results)[$offset..$max];