SF.net SVN: ledger-smb: [872] trunk

[..hidden..]

Revision: 872
          http://svn.sourceforge.net/ledger-smb/?rev=872&view=rev
Author:   einhverfr
Date:     2007-03-09 15:44:20 -0800 (Fri, 09 Mar 2007)

Log Message:
-----------
Employee.pm is now working as advertised

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

Modified: trunk/LedgerSMB/DBObject.pm
===================================================================
--- trunk/LedgerSMB/DBObject.pm	2007-03-09 23:15:56 UTC (rev 871)
+++ trunk/LedgerSMB/DBObject.pm	2007-03-09 23:44:20 UTC (rev 872)
@@ -68,20 +68,21 @@
 		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;

Modified: trunk/LedgerSMB/Employee.pm
===================================================================
--- trunk/LedgerSMB/Employee.pm	2007-03-09 23:15:56 UTC (rev 871)
+++ trunk/LedgerSMB/Employee.pm	2007-03-09 23:44:20 UTC (rev 872)
@@ -35,10 +35,10 @@
 
 our @ISA = qw(LedgerSMB::DBObject);
 
-
 sub AUTOLOAD {
 	my $self = shift;
-	my $procname = "employee_$LedgerSMB::Employee::Autoload";
+	$AUTOLOAD =~ s/^.*:://;
+	my $procname = "employee_$AUTOLOAD";
 	$self->exec_method($procname, @_);
 }
 

Modified: trunk/LedgerSMB.pm
===================================================================
--- trunk/LedgerSMB.pm	2007-03-09 23:15:56 UTC (rev 871)
+++ trunk/LedgerSMB.pm	2007-03-09 23:44:20 UTC (rev 872)
@@ -525,6 +525,9 @@
 }
 
 sub callproc {
+	for my $arg (@_){
+		print "Callproc arg: $arg\n";
+	}
 	my $self = shift @_;
 	my $procname = shift @_;
 	my $argstr = "";


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