[Instantobjects-cvscommit] SF.net SVN: instantobjects: [692] branches/2.0/Source/Brokers/ZeosDBO

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

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

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

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

Modified: branches/2.0/Source/Brokers/ZeosDBO/InstantZeosDBOCatalog.pas
===================================================================
--- branches/2.0/Source/Brokers/ZeosDBO/InstantZeosDBOCatalog.pas	2006-07-30 14:25:35 UTC (rev 691)
+++ branches/2.0/Source/Brokers/ZeosDBO/InstantZeosDBOCatalog.pas	2006-07-30 15:08:43 UTC (rev 692)
@@ -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: