From 9937eb3c4ef04f15ceb7cd1106d6bffb10304355 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Tue, 23 Sep 2008 21:06:27 +0000
Subject: 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
---
 LedgerSMB/DBObject.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'LedgerSMB')

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) {
-- 
cgit v1.2.3