# GNU General Public License for more details.
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
+# MA 02110-1335, USA.
#
#######################################################################
#
my $allrows = 0;
$allrows = 1 if $form->{report_generator_output_format} ne 'HTML' ;
-
+
# manual paginating
my $pages = {};
$pages->{per_page} = $::form->{per_page} || 15;
my $first_nr = ($page - 1) * $pages->{per_page};
my $last_nr = $first_nr + $pages->{per_page};
my $idx = 0;
-
+
foreach my $entry (@contents) {
$entry->{qty} = $form->format_amount_units('amount' => $entry->{qty},
'part_unit' => $entry->{partunit},
}
if ( $allrows || ($idx >= $first_nr && $idx < $last_nr )) {
- $report->add_data($row_set);
+ $report->add_data($row_set);
}
$idx++;
}