diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-11-14 19:37:36 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-11-14 19:37:36 +0000 |
| commit | 5d995fd5de1d4ae1201a3d49b75c7e1f11f95a67 (patch) | |
| tree | 27fc069d65284c432843cedd1e5bbac483ae763d /LedgerSMB | |
| parent | db6d65ea85fb62d3399ec073ecb2fb88eb097567 (diff) | |
Correcting compound array handling in DBObect.pm
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2399 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB')
| -rw-r--r-- | LedgerSMB/DBObject.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/LedgerSMB/DBObject.pm b/LedgerSMB/DBObject.pm index 6e7abfd4..5bd6741d 100644 --- a/LedgerSMB/DBObject.pm +++ b/LedgerSMB/DBObject.pm @@ -272,7 +272,7 @@ sub _parse_array { $close_braces =~ s/{/}/g; $value =~ /^{($open_braces[^}]*$close_braces)/; my $parse_next = $1; - $value =~ s/^{$parse_next/{/; + $value =~ s/^{$parse_next,?/{/; @$next = $self->_parse_array($parse_next); } else { |