diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-07-25 23:44:18 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-07-25 23:44:18 +0000 |
| commit | 40ed95089aab6167cb7da2e7038fc3351ec79932 (patch) | |
| tree | 4d487c6553bb6cb9368ae1ab261045ca9a66af56 | |
| parent | f9661818f7f77d88ad9b36f6b9dce0e9482977d4 (diff) | |
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
| -rw-r--r-- | LedgerSMB/DBObject.pm | 1 |
1 files changed, 1 insertions, 0 deletions
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 { |