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

[<jcm...@us...>]

Revision: 623
Author:   jcmoraisjr
Date:     2006-02-23 08:55:26 -0800 (Thu, 23 Feb 2006)
ViewCVS:  http://svn.sourceforge.net/instantobjects?rev=623&view=rev

Log Message:
-----------
Fixed exception into D5 and IBX.InternalCommit and InternalRollback methods.

Modified Paths:
--------------
    trunk/Source/Brokers/IBX/InstantIBX.pas
Modified: trunk/Source/Brokers/IBX/InstantIBX.pas
===================================================================
--- trunk/Source/Brokers/IBX/InstantIBX.pas	2006-02-23 14:14:00 UTC (rev 622)
+++ trunk/Source/Brokers/IBX/InstantIBX.pas	2006-02-23 16:55:26 UTC (rev 623)
@@ -268,12 +268,14 @@
 
 procedure TInstantIBXConnector.InternalCommitTransaction;
 begin
-  Transaction.Commit;
+  if Transaction.InTransaction then
+    Transaction.Commit;
 end;
 
 procedure TInstantIBXConnector.InternalRollbackTransaction;
 begin
-  Transaction.Rollback;
+  if Transaction.InTransaction then
+    Transaction.Rollback;
 end;
 
 procedure TInstantIBXConnector.InternalStartTransaction;