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

[..hidden..]

Revision: 3664
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3664&view=rev
Author:   einhverfr
Date:     2011-08-17 03:29:34 +0000 (Wed, 17 Aug 2011)

Log Message:
-----------
correcting bug 3387893

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

Modified: trunk/LedgerSMB/AM.pm
===================================================================
--- trunk/LedgerSMB/AM.pm	2011-08-16 23:32:45 UTC (rev 3663)
+++ trunk/LedgerSMB/AM.pm	2011-08-17 03:29:34 UTC (rev 3664)
@@ -776,9 +776,11 @@
     }
 
     $dbh->prepare($query)->execute(@queryargs) || $form->dberror($query);
-    my $sth = $dbh->prepare("SELECT currval('business_id_seq')");
-    $sth->execute();
-    ($form->{id}) = $sth->fetchrow_array;
+    if (!$form->{id}){
+        my $sth = $dbh->prepare("SELECT currval('business_id_seq')");
+        $sth->execute();
+        ($form->{id}) = $sth->fetchrow_array;
+    }
     $dbh->commit;
 
 }


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