From 9095dad4f0e93f3074ccd8323c6e61e05dad80b3 Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Fri, 2 Dec 2011 07:23:35 -0500
Subject: [PATCH] Fixed sorting to make sure Assets are first, and that
 Liabilities will come right after that.

---
 general-ledger-report.plx | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/general-ledger-report.plx b/general-ledger-report.plx
index 95fa4a1..fea66e4 100755
--- a/general-ledger-report.plx
+++ b/general-ledger-report.plx
@@ -69,7 +69,9 @@ foreach my $acct (
                   # Proper sorting for a chart of accounts
                   sort {
                     if ($a =~ /^Assets/ and $b !~ /^Assets/) {
-                      return 1;
+                      return -1;
+                    elsif ($a =~ /^Liabilities/ and $b !~ /^Liabilitie/) {
+                      return -1;
                     } else {
                       return $a cmp $b;
                     }