SF.net SVN: ledger-smb:[2451] trunk/LedgerSMB/AM.pm

[..hidden..]

Revision: 2451
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2451&view=rev
Author:   einhverfr
Date:     2009-02-13 23:01:48 +0000 (Fri, 13 Feb 2009)

Log Message:
-----------
Correcting db queries for yearend

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

Modified: trunk/LedgerSMB/AM.pm
===================================================================
--- trunk/LedgerSMB/AM.pm	2009-02-13 18:35:42 UTC (rev 2450)
+++ trunk/LedgerSMB/AM.pm	2009-02-13 23:01:48 UTC (rev 2451)
@@ -2308,11 +2308,10 @@
     $uid .= "$$";
 
     $query = qq|
-		INSERT INTO gl (reference, employee_id)
-		     VALUES (?, (SELECT id FROM employee
-		                  WHERE login = ?))|;
+		INSERT INTO gl (reference, person_id)
+		     VALUES (?, (SELECT id FROM person WHERE entity_id = (select entity_id from users where username = current_user)))|;
 
-    $dbh->prepare($query)->execute( $uid, $form->{login} )
+    $dbh->prepare($query)->execute( $uid)
       || $form->dberror($query);
 
     $query = qq|


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