[Instantobjects-cvscommit] SF.net SVN: instantobjects: [762] trunk/Source/Core/InstantBrokers.pas

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

Revision: 762
          http://svn.sourceforge.net/instantobjects/revision/?rev=762&view=rev
Author:   jcmoraisjr
Date:     2007-02-24 11:41:55 -0800 (Sat, 24 Feb 2007)

Log Message:
-----------
Moved the LogStatement call to the AcquireDataSet method in order to log all db statements.

Modified Paths:
--------------
    trunk/Source/Core/InstantBrokers.pas

Modified: trunk/Source/Core/InstantBrokers.pas
===================================================================
--- trunk/Source/Core/InstantBrokers.pas	2007-02-24 19:37:18 UTC (rev 761)
+++ trunk/Source/Core/InstantBrokers.pas	2007-02-24 19:41:55 UTC (rev 762)
@@ -1294,6 +1294,9 @@
 var
   CachedStatement: TInstantStatement;
 begin
+  {$IFDEF IO_STATEMENT_LOGGING}
+  InstantLogStatement('Before: ', AStatement, AParams);
+  {$ENDIF}
   Result := nil;
   if FStatementCacheCapacity <> 0 then
   begin
@@ -2855,9 +2858,6 @@
 var
   TransError: Exception;
 begin
-  {$IFDEF IO_STATEMENT_LOGGING}
-  InstantLogStatement('Before: ', AStatement, AParams);
-  {$ENDIF}
   try
     Result := Broker.Execute(AStatement, AParams);
     Info.Success := Result >= 1;