+# If printing a page, send the account informations to the template
+if ($print eq "page") {
+ foreach my $accountline (@$accts) {
+ $accountline->{amount} = sprintf '%.2f', $accountline->{amount};
+ $accountline->{amountoutstanding} = sprintf '%.2f', $accountline->{amountoutstanding};
+
+ if ($accountline->{accounttype} ne 'F' && $accountline->{accounttype} ne 'FU'){
+ $accountline->{printtitle} = 1;
+ }
+ }
+ $template->param( accounts => $accts );
+}
+