From 40ed95089aab6167cb7da2e7038fc3351ec79932 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Fri, 25 Jul 2008 23:44:18 +0000
Subject: Fixing DBObject->new() to do a base copy before a list copy.

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

diff --git a/LedgerSMB/DBObject.pm b/LedgerSMB/DBObject.pm
index d2ce0fbb..f7f16c7d 100644
--- a/LedgerSMB/DBObject.pm
+++ b/LedgerSMB/DBObject.pm
@@ -76,6 +76,7 @@ sub new {
         $self->merge($base, keys => ['dbh', '_roles', '_user', '_locale']);
     }
     elsif (lc($mode) eq 'list'){
+        $self->merge($base, keys => ['dbh', '_roles', '_user', '_locale']);
         $self->merge($base, keys => \@mergelist);
     }
     else {
-- 
cgit v1.2.3