SF.net SVN: ledger-smb: [1290] trunk/LedgerSMB/PE.pm

[..hidden..]

Revision: 1290
          http://svn.sourceforge.net/ledger-smb/?rev=1290&view=rev
Author:   einhverfr
Date:     2007-06-21 11:31:22 -0700 (Thu, 21 Jun 2007)

Log Message:
-----------
Fixing placeholder error saving project

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

Modified: trunk/LedgerSMB/PE.pm
===================================================================
--- trunk/LedgerSMB/PE.pm	2007-06-21 18:29:25 UTC (rev 1289)
+++ trunk/LedgerSMB/PE.pm	2007-06-21 18:31:22 UTC (rev 1290)
@@ -236,6 +236,8 @@
     $sth->execute( $form->{projectnumber},
         $form->{description}, $startdate, $enddate, $form->{customer_id} )
       || $form->dberror($query);
+    $query = "SELECT currval('id')";
+    ($form->{id}) = $dbh->selectrow_array($query) || $form->dberror($query);
     $form->run_custom_queries( 'project', 'UPDATE' );
 
     $dbh->commit;


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