Update of /cvsroot/instantobjects/Source/Core
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv439
Modified Files:
InstantPersistence.pas
Log Message:
Fix: PartAttribute must always be added in local method
AddPartAttributeParam
Index: InstantPersistence.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v
retrieving revision 1.38
retrieving revision 1.39
diff -C2 -d -r1.38 -r1.39
*** InstantPersistence.pas 10 May 2005 22:26:45 -0000 1.38
--- InstantPersistence.pas 13 Jun 2005 01:04:09 -0000 1.39
***************
*** 13093,13102 ****
begin
Part := Attribute as TInstantPart;
! if Part.HasValue then
! begin
! AddStringParam(Params, FieldName + InstantClassFieldName, Part.Value.ClassName);
! Part.Value.CheckId;
! AddIdParam(Params, FieldName + InstantIdFieldName, Part.Value.Id);
! end;
end
else
--- 13093,13099 ----
begin
Part := Attribute as TInstantPart;
! AddStringParam(Params, FieldName + InstantClassFieldName, Part.Value.ClassName);
! Part.Value.CheckId;
! AddIdParam(Params, FieldName + InstantIdFieldName, Part.Value.Id);
end
else
|
