Employee.pm is now working as advertised

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@872 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 4 insertions, 3 deletions

diff --git a/LedgerSMB/DBObject.pm b/LedgerSMB/DBObject.pm
index beb95fb2..54b34429 100644
--- a/LedgerSMB/DBObject.pm
+++ b/LedgerSMB/DBObject.pm
@@ -68,20 +68,21 @@ sub exec_method {
 		die;
 	}
 	my $m_name = $ref->{proname};
+	my @call_args;
 
 	if ($args){
 		for my $arg (@proc_args){
 			if ($arg =~ s/^in_//){
 				print "Arg: $arg\n";
-				push @proc_args, $self->{$arg};
+				push @call_args, $self->{$arg};
 			}
 		}
 	}
 	else {
-		@proc_args = @_;
+		@call_args = @_;
 	}
 	print "Arg2s: @_ \n";
-	$self->callproc($funcname, @proc_args);
+	$self->callproc($funcname, @call_args);
 }
 
 1;