From 6d98bc58ae555d5d4487e7ee90c6ce8b2a49cbe6 Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Sun, 6 Jan 2013 19:28:46 -0500
Subject: Correct sorting of output in trial balance report.

---
 contrib/non-profit-audit-reports/summary-reports.plx | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'contrib')

diff --git a/contrib/non-profit-audit-reports/summary-reports.plx b/contrib/non-profit-audit-reports/summary-reports.plx
index bbe83c88..e9e1a3b8 100755
--- a/contrib/non-profit-audit-reports/summary-reports.plx
+++ b/contrib/non-profit-audit-reports/summary-reports.plx
@@ -430,10 +430,13 @@ my $curOn = 'Assets';
 foreach my $account (sort preferredAccountSorting keys %fullAccountList) {
   # Blank lines right
   if ($account !~ /^$curOn/) {
-    print TRIAL "\n";
+    print TRIAL "pagebreak\n";
     $curOn = $account;
-    $curOn =~ s/^([^:]+):.*$/$1/;
-    print "CurOn now: $curOn\n";
+    if ($curOn =~ /(Accrued:[^:]+):.*$/) {
+      $curOn = $1;
+    } else {
+      $curOn =~ s/^([^:]+):.*$/$1/;
+    }
   }
   if ($account =~ /^Assets|Liabilities|Accrued|Unearned Income/) {
     foreach my $id (qw/totalBeginFY totalEndFY amountInYear/) {
-- 
cgit v1.2.3