[Instantobjects-cvscommit] Source/Core InstantPersistence.pas,1.38,1.39

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

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