[Instantobjects-cvscommit] Source/Core InstantPersistence.pas,1.12,1.13

[Andrea P. <and...@us...>]

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

Modified Files:
	InstantPersistence.pas 
Log Message:
Bug on TInstantSQLResolver.AddAttributeParams

Index: InstantPersistence.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** InstantPersistence.pas	30 Sep 2004 17:49:56 -0000	1.12
--- InstantPersistence.pas	11 Oct 2004 07:47:32 -0000	1.13
***************
*** 12938,12945 ****
  var
    I: Integer;
  begin
    if Assigned(Params) and Assigned(AObject) and Assigned(Map) then
      for I := 0 to Pred(Map.Count) do
!       AddAttributeParam(AObject.AttributeByName(Map[I].Name), Params);
  end;
  
--- 12938,12950 ----
  var
    I: Integer;
+   Attribute: TInstantAttribute;
  begin
    if Assigned(Params) and Assigned(AObject) and Assigned(Map) then
      for I := 0 to Pred(Map.Count) do
!     begin
!       Attribute := AObject.AttributeByName(Map[I].Name); 
!       if Attribute.Metadata.IsExternal = ceNo then
!         AddAttributeParam(Attribute, Params);
!     end;
  end;