diff options
Diffstat (limited to 'LedgerSMB/PE.pm')
| -rw-r--r-- | LedgerSMB/PE.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/LedgerSMB/PE.pm b/LedgerSMB/PE.pm index 209f6767..a9c733c5 100644 --- a/LedgerSMB/PE.pm +++ b/LedgerSMB/PE.pm @@ -236,6 +236,8 @@ sub save_project { $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; |