Update of /cvsroot/instantobjects/Source/Core
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27614
Modified Files:
InstantPersistence.pas
Log Message:
Bugs fixed:
1. Links an object to its owner in TInstantParts.InternalAdd().
2. Change ReadPartsAttribute local procedure in
TInstantSQLResolver.ReadAttribute() to retrieve data properly,
independent of the class (IO retrieves all properties from all tables).
Index: InstantPersistence.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v
retrieving revision 1.32
retrieving revision 1.33
diff -C2 -d -r1.32 -r1.33
*** InstantPersistence.pas 4 Apr 2005 22:12:48 -0000 1.32
--- InstantPersistence.pas 5 Apr 2005 00:45:14 -0000 1.33
***************
*** 6528,6531 ****
--- 6528,6532 ----
try
Result := ObjectReferenceList.Add(Ref);
+ SetOwnerContext(AObject);
except
Ref.Free;
***************
*** 13973,13977 ****
begin
RefObject := TInstantObjectReference.Create(nil, True);
! RefObject.ReferenceObject(Metadata.ObjectClass, DataSet.Fields[1].AsString);
(Attribute as TInstantParts).ObjectReferenceList.Add(RefObject);
{PartObject := AttributeMetadata.ObjectClass.Retrieve(Fields[1].AsString, False, False, AObject.Connector);
--- 13974,13978 ----
begin
RefObject := TInstantObjectReference.Create(nil, True);
! RefObject.ReferenceObject(DataSet.Fields[0].AsString, DataSet.Fields[1].AsString);
(Attribute as TInstantParts).ObjectReferenceList.Add(RefObject);
{PartObject := AttributeMetadata.ObjectClass.Retrieve(Fields[1].AsString, False, False, AObject.Connector);
|
