[Instantobjects-cvscommit] Source/Core InstantPersistence.pas,1.49,1.50

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Core
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22455

Modified Files:
	InstantPersistence.pas 
Log Message:
Fix for Field attribute options initialisation in
TInstantModelCatalog.InitTableMetadatas().

Index: InstantPersistence.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v
retrieving revision 1.49
retrieving revision 1.50
diff -C2 -d -r1.49 -r1.50
*** InstantPersistence.pas	24 Jul 2005 16:34:55 -0000	1.49
--- InstantPersistence.pas	26 Jul 2005 07:54:34 -0000	1.50
***************
*** 15239,15242 ****
--- 15239,15243 ----
        for I := 0 to Pred(Map.Count) do
        begin
+         Options := [];
          AttributeMetadata := Map[I];
          if AttributeMetadata.AttributeType = atReference then
***************
*** 15276,15283 ****
              IndexMetadatas.AddIndexMetadata(Map.Name +
                AttributeMetadata.FieldName, AttributeMetadata.FieldName, []);
!             Options := [foIndexed];
            end
!           else
!             Options := [];
            FieldMetadatas.AddFieldMetadata(AttributeMetadata.FieldName,
              Scheme.AttributeTypeToDataType(AttributeMetadata.AttributeType),
--- 15277,15286 ----
              IndexMetadatas.AddIndexMetadata(Map.Name +
                AttributeMetadata.FieldName, AttributeMetadata.FieldName, []);
!             Options := Options + [foIndexed];
            end
!           else if AttributeMetadata.IsRequired then
!           begin
!             Options := Options + [foRequired];
!           end;
            FieldMetadatas.AddFieldMetadata(AttributeMetadata.FieldName,
              Scheme.AttributeTypeToDataType(AttributeMetadata.AttributeType),