diff options
Diffstat (limited to 'LedgerSMB/PE.pm')
| -rw-r--r-- | LedgerSMB/PE.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/LedgerSMB/PE.pm b/LedgerSMB/PE.pm index a9c733c5..d49c1cc3 100644 --- a/LedgerSMB/PE.pm +++ b/LedgerSMB/PE.pm @@ -236,8 +236,10 @@ 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); + if (!$form->{id}){ + $query = "SELECT currval('id')"; + ($form->{id}) = $dbh->selectrow_array($query) || $form->dberror($query); + } $form->run_custom_queries( 'project', 'UPDATE' ); $dbh->commit; |