SF.net SVN: ledger-smb: [383] trunk/LedgerSMB/User.pm

[..hidden..]

Revision: 383
          http://svn.sourceforge.net/ledger-smb/?rev=383&view=rev
Author:   einhverfr
Date:     2006-10-29 21:20:17 -0800 (Sun, 29 Oct 2006)

Log Message:
-----------
Fixing scoping issue with employeenumber

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

Modified: trunk/LedgerSMB/User.pm
===================================================================
--- trunk/LedgerSMB/User.pm	2006-10-30 05:08:55 UTC (rev 382)
+++ trunk/LedgerSMB/User.pm	2006-10-30 05:20:17 UTC (rev 383)
@@ -782,6 +782,7 @@
 
 		my ($id) = $sth->fetchrow_array;
 		$sth->finish;
+		my $employeenumber;
 		if ($id) {
 
 			$query = qq|UPDATE employee SET
@@ -792,7 +793,7 @@
 
 		} else {
 
-			my ($employeenumber) = Form::update_defaults(
+			($employeenumber) = Form::update_defaults(
 				"", \%$self, "employeenumber", $dbh);
 			$query = qq|
 				INSERT INTO employee 


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