diff options
Diffstat (limited to 'LedgerSMB/DBObject.pm')
-rw-r--r-- | LedgerSMB/DBObject.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/LedgerSMB/DBObject.pm b/LedgerSMB/DBObject.pm index 07b2b0a6..d2ce0fbb 100644 --- a/LedgerSMB/DBObject.pm +++ b/LedgerSMB/DBObject.pm @@ -73,10 +73,10 @@ sub new { my $attr; if (lc($mode) eq 'base'){ - $self->merge($base, 'dbh', '_roles'); + $self->merge($base, keys => ['dbh', '_roles', '_user', '_locale']); } elsif (lc($mode) eq 'list'){ - $self->merge($base, @mergelist); + $self->merge($base, keys => \@mergelist); } else { $self->merge($base); |