[Instantobjects-cvscommit] SF.net SVN: instantobjects: [573] trunk/Source/Brokers/IBX/InstantIBX.pas

[<fas...@us...>]

Revision: 573
Author:   fastbike2
Date:     2006-02-02 17:24:03 -0800 (Thu, 02 Feb 2006)
ViewCVS:  http://svn.sourceforge.net/instantobjects?rev=573&view=rev

Log Message:
-----------
Internal transaction now AutoCommits.  Fix for bug 1402383 "Hanging Transactions".

Modified Paths:
--------------
    trunk/Source/Brokers/IBX/InstantIBX.pas
Modified: trunk/Source/Brokers/IBX/InstantIBX.pas
===================================================================
--- trunk/Source/Brokers/IBX/InstantIBX.pas	2006-02-02 02:23:34 UTC (rev 572)
+++ trunk/Source/Brokers/IBX/InstantIBX.pas	2006-02-03 01:24:03 UTC (rev 573)
@@ -244,8 +244,9 @@
     try
       FTransaction.DefaultDatabase := Connection;
       FTransaction.Params.Add('read_committed');
+      FTransaction.AutoStopAction := saCommit;
     except
-      FTransaction.Free;
+      FreeAndNil(FTransaction);
       raise;
     end
   end;