diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-09-23 21:06:27 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-09-23 21:06:27 +0000 |
| commit | 9937eb3c4ef04f15ceb7cd1106d6bffb10304355 (patch) | |
| tree | 1a243b0b137a59f58a57c3d30f5d68140bf324a1 /LedgerSMB | |
| parent | c4cac7299fe6a00a68fa576e25273145d8be8967 (diff) | |
Fixing dbobject handling to avoid deprecation messages
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2338 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 dc3ebd92..57f5ac6f 100644 --- a/LedgerSMB/DBObject.pm +++ b/LedgerSMB/DBObject.pm @@ -131,7 +131,7 @@ sub exec_method { } $ref->{pronargs} = 0 unless defined $ref->{pronargs}; # If the user provided args.. - if (!defined @in_args) { + if (!defined $args{args}) { @proc_args = $self->_parse_array($args); if (@proc_args) { for my $arg (@proc_args) { |