SF.net SVN: ledger-smb:[2222] trunk/LedgerSMB/DBObject.pm

[..hidden..]

Revision: 2222
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2222&view=rev
Author:   einhverfr
Date:     2008-07-25 23:44:18 +0000 (Fri, 25 Jul 2008)

Log Message:
-----------
Fixing DBObject->new() to do a base copy before a list copy.

Modified Paths:
--------------
    trunk/LedgerSMB/DBObject.pm

Modified: trunk/LedgerSMB/DBObject.pm
===================================================================
--- trunk/LedgerSMB/DBObject.pm	2008-07-25 22:24:06 UTC (rev 2221)
+++ trunk/LedgerSMB/DBObject.pm	2008-07-25 23:44:18 UTC (rev 2222)
@@ -76,6 +76,7 @@
         $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 => ..hidden..);
     }
     else {


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.