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

[..hidden..]

Revision: 1660
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1660&view=rev
Author:   einhverfr
Date:     2007-09-25 16:38:31 -0700 (Tue, 25 Sep 2007)

Log Message:
-----------
Few minor fixes to DBObject.pm

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

Modified: trunk/LedgerSMB/DBObject.pm
===================================================================
--- trunk/LedgerSMB/DBObject.pm	2007-09-25 00:45:17 UTC (rev 1659)
+++ trunk/LedgerSMB/DBObject.pm	2007-09-25 23:38:31 UTC (rev 1660)
@@ -23,10 +23,6 @@
 
 =item exec_method ($self, procname => $function_name, args => ..hidden..)
 
-=item merge ($hashref, @attrs)
-
-copies @attrs from $hashref to $self.
-
 =item set (@attrs)
 
 Copies the given key=>vars to $self. Allows for finer control of 
@@ -122,7 +118,7 @@
         $args =~ s/\{(.*)\}/$1/;
         @proc_args = split /,/, $args if $args;
     }
-    if ( !$ref ) {    # no such function
+    if ( !$ref->{proname} ) {    # no such function
         $self->error( "No such function: ", $funcname );
         die;
     }
@@ -138,7 +134,7 @@
     for (@in_args) { push @call_args, $_ } ;
     $self->{call_args} = ..hidden..;
     $self->debug({file => '/tmp/dbobject'});
-    $self->call_procedure( procname => $funcname, args => ..hidden.. );
+    return $self->call_procedure( procname => $funcname, args => ..hidden.. );
 }
 
 sub run_custom_queries {
@@ -237,7 +233,7 @@
             $self->merge( $ref, keys(%$ref) );
         }
     }
-    @rc;
+    return @rc;
 }
 
 sub _parse_array {


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