[Instantobjects-cvscommit] Source/Core InstantPersistence.pas,1.20,1.21

[Nando D. <na...@us...>]

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

Modified Files:
	InstantPersistence.pas 
Log Message:
external part fixes (on behalf of Andrea Vaccari)

Index: InstantPersistence.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -d -r1.20 -r1.21
*** InstantPersistence.pas	11 Feb 2005 14:38:15 -0000	1.20
--- InstantPersistence.pas	13 Feb 2005 18:46:47 -0000	1.21
***************
*** 12846,12850 ****
    FieldStr, WhereStr: string;
  begin
!   FieldStr := '%s, %s';
    WhereStr := Format('%s = :%s AND %s = :%s',
      [EmbraceField(InstantClassFieldName), InstantClassFieldName,
--- 12846,12850 ----
    FieldStr, WhereStr: string;
  begin
!   FieldStr := Format('%s, %s', [EmbraceField('%s'), EmbraceField('%s')]);
    WhereStr := Format('%s = :%s AND %s = :%s',
      [EmbraceField(InstantClassFieldName), InstantClassFieldName,
***************
*** 13573,13577 ****
                [AttributeMetadata.FieldName + InstantClassFieldName,
                 AttributeMetadata.FieldName + InstantIdFieldName,
!                AObject.Metadata.TableName]);
              AddStringParam(SelectParams, InstantClassFieldName, AObject.ClassName);
              AddIdParam(SelectParams, InstantIdFieldName, AObject.Id);
--- 13573,13577 ----
                [AttributeMetadata.FieldName + InstantClassFieldName,
                 AttributeMetadata.FieldName + InstantIdFieldName,
!                AttributeMetadata.ClassMetadata.TableName]);
              AddStringParam(SelectParams, InstantClassFieldName, AObject.ClassName);
              AddIdParam(SelectParams, InstantIdFieldName, AObject.Id);
***************
*** 13967,13971 ****
                  [AttributeMetadata.FieldName + InstantClassFieldName,
                   AttributeMetadata.FieldName + InstantIdFieldName,
!                  AObject.Metadata.TableName]);
                AddStringParam(SelectParams, InstantClassFieldName, AObject.ClassName);
                AddIdParam(SelectParams, InstantIdFieldName, AObject.Id);
--- 13967,13971 ----
                  [AttributeMetadata.FieldName + InstantClassFieldName,
                   AttributeMetadata.FieldName + InstantIdFieldName,
!                  AttributeMetadata.ClassMetadata.TableName]);
                AddStringParam(SelectParams, InstantClassFieldName, AObject.ClassName);
                AddIdParam(SelectParams, InstantIdFieldName, AObject.Id);