Fixing multi-sheet output

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1671 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 11 insertions, 3 deletions

diff --git a/LedgerSMB/Template/ODS.pm b/LedgerSMB/Template/ODS.pm
index 144762e8..414e732a 100644
--- a/LedgerSMB/Template/ODS.pm
+++ b/LedgerSMB/Template/ODS.pm
@@ -81,8 +81,17 @@ sub preprocess {
 sub _worksheet_handler {
 	$rowcount = -1;
 	$currcol = 0;
-	my $sheet = $ods->getTable(0, $_->{att}->{rows}, $_->{att}->{columns});
-	$ods->renameTable($sheet, $_->{att}->{name});
+	my $rows = $_->{att}->{rows};
+	my $columns = $_->{att}->{columns};
+	$rows ||= 1000;
+	$columns ||= 52;
+	my $sheet;
+	if ($_->is_first_child) {
+		$sheet = $ods->getTable(0, $rows, $columns);
+		$ods->renameTable($sheet, $_->{att}->{name});
+	} else {
+		$sheet = $ods->appendTable($_->{att}->{name}, $rows, $columns);
+	}
 }
 
 sub _row_handler {
@@ -727,7 +736,6 @@ sub _format_handler {
 sub _format_cleanup_handler {
 	my ($t, $format) = @_;
 	shift @style_stack;
-	$t->purge;
 }
 
 sub _ods_process {