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

[..hidden..]

Revision: 2338
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2338&view=rev
Author:   einhverfr
Date:     2008-09-23 21:06:27 +0000 (Tue, 23 Sep 2008)

Log Message:
-----------
Fixing dbobject handling to avoid deprecation messages

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

Modified: trunk/LedgerSMB/DBObject.pm
===================================================================
--- trunk/LedgerSMB/DBObject.pm	2008-09-23 20:47:03 UTC (rev 2337)
+++ trunk/LedgerSMB/DBObject.pm	2008-09-23 21:06:27 UTC (rev 2338)
@@ -131,7 +131,7 @@
     }
     $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) {


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