summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-09-25 23:38:31 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-09-25 23:38:31 +0000
commitd922bf952a08442f542c6104f358952d81e8bedf (patch)
tree3064114806cfe379ee5dce44d093f178c13d02e5
parent1489d5f7873f95c363142cb2f4631c9dc4a2e2fb (diff)
Few minor fixes to DBObject.pm
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1660 4979c152-3d1c-0410-bac9-87ea11338e46
-rw-r--r--LedgerSMB/DBObject.pm10
1 files changed, 3 insertions, 7 deletions
diff --git a/LedgerSMB/DBObject.pm b/LedgerSMB/DBObject.pm
index c1d36d80..e337e66c 100644
--- a/LedgerSMB/DBObject.pm
+++ b/LedgerSMB/DBObject.pm
@@ -23,10 +23,6 @@ this way as is any information that is needed.
=item exec_method ($self, procname => $function_name, args => \@args)
-=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 @@ sub exec_method {
$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 @@ sub exec_method {
for (@in_args) { push @call_args, $_ } ;
$self->{call_args} = \@call_args;
$self->debug({file => '/tmp/dbobject'});
- $self->call_procedure( procname => $funcname, args => \@call_args );
+ return $self->call_procedure( procname => $funcname, args => \@call_args );
}
sub run_custom_queries {
@@ -237,7 +233,7 @@ sub run_custom_queries {
$self->merge( $ref, keys(%$ref) );
}
}
- @rc;
+ return @rc;
}
sub _parse_array {