[Instantobjects-cvscommit] SF.net SVN: instantobjects: [691] trunk/Source/Brokers/ZeosDBO

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

Revision: 691
Author:   jcmoraisjr
Date:     2006-07-30 07:25:35 -0700 (Sun, 30 Jul 2006)
ViewCVS:  http://svn.sourceforge.net/instantobjects?rev=691&view=rev

Log Message:
-----------
- Fixed [1473942] Boolean attributes cause error

Modified Paths:
--------------
    trunk/Source/Brokers/ZeosDBO/InstantZeosDBO.pas
    trunk/Source/Brokers/ZeosDBO/InstantZeosDBOCatalog.pas
Modified: trunk/Source/Brokers/ZeosDBO/InstantZeosDBO.pas
===================================================================
--- trunk/Source/Brokers/ZeosDBO/InstantZeosDBO.pas	2006-07-22 22:43:16 UTC (rev 690)
+++ trunk/Source/Brokers/ZeosDBO/InstantZeosDBO.pas	2006-07-30 14:25:35 UTC (rev 691)
@@ -1122,7 +1122,7 @@
 
 function TInstantZeosDBOMySQLBroker.UseBooleanFields: Boolean;
 begin
-  Result := True;
+  Result := False;
 end;
 {$ENDIF}
 

Modified: trunk/Source/Brokers/ZeosDBO/InstantZeosDBOCatalog.pas
===================================================================
--- trunk/Source/Brokers/ZeosDBO/InstantZeosDBOCatalog.pas	2006-07-22 22:43:16 UTC (rev 690)
+++ trunk/Source/Brokers/ZeosDBO/InstantZeosDBOCatalog.pas	2006-07-30 14:25:35 UTC (rev 691)
@@ -24,6 +24,7 @@
  * the Initial Developer. All Rights Reserved.
  *
  * Contributor(s):
+ * Joao Morais
  *
  * ***** END LICENSE BLOCK ***** *)
 
@@ -219,13 +220,12 @@
     stString,
       stUnicodeString: DataType := dtString;
     stBoolean: DataType := dtBoolean;
-    stShort:
+    stShort, stByte:
       begin
         DataType := dtBoolean;
         Include(AlternateDataTypes, dtInteger);
       end;
-    stByte,
-      stInteger,
+    stInteger,
       stLong: DataType := dtInteger;
     stFloat,
       stDouble: