From eb7630f4d7a0143522273ff9a8024e30d1ee670a Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Fri, 7 Mar 2008 18:19:38 +0000
Subject: Correcting error on dbobject::parse_array() using nested arrays

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2101 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/DBObject.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'LedgerSMB')

diff --git a/LedgerSMB/DBObject.pm b/LedgerSMB/DBObject.pm
index 7a2415c8..40d621c5 100644
--- a/LedgerSMB/DBObject.pm
+++ b/LedgerSMB/DBObject.pm
@@ -258,6 +258,7 @@ sub _parse_array {
 
         } elsif ($value =~ /^{({+)/){
             my $open_braces = $1;
+            $next = [];
             my $close_braces = $open_braces;
             $close_braces =~ s/{/}/g;
             $value =~ /^{($open_braces[^}]*$close_braces)/;
-- 
cgit v1.2.3