From: Richard B. <rb...@us...> - 2005-03-14 03:21:58
|
Update of /cvsroot/jcframework/dotnet In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26902 Modified Files: CInjectedObject.vb Log Message: Fix dirty flag checking for subclasses where only attributes in parents were changed. Index: CInjectedObject.vb =================================================================== RCS file: /cvsroot/jcframework/dotnet/CInjectedObject.vb,v retrieving revision 1.16 retrieving revision 1.17 diff -u -d -r1.16 -r1.17 --- CInjectedObject.vb 11 Mar 2005 04:40:55 -0000 1.16 +++ CInjectedObject.vb 14 Mar 2005 03:21:48 -0000 1.17 @@ -76,8 +76,7 @@ End If Dim f, fields() As FieldInfo Dim value As Object - Dim t, iListType, iDicType As Type - Try + Dim t, iListType, iDicType As Type Try t = sourceObject.GetType While Not t Is Nothing fields = t.GetFields(BindingFlags.Instance Or BindingFlags.NonPublic Or BindingFlags.Public) @@ -97,8 +96,7 @@ t = Nothing End If End While - CPersistenceBroker.CopyCollections(sourceObject, targetObject) - Catch ex As Exception + CPersistenceBroker.CopyCollections(sourceObject, targetObject) Catch ex As Exception Debug.WriteLine(ex.Message) End Try End Sub @@ -310,7 +308,7 @@ 'Everything else is ignorable since it's only the database mapped fields 'that are important While Not cmap Is Nothing - For Each att As CAttributeMap In m_classmap.AttributeMaps + For Each att As CAttributeMap In cmap.AttributeMaps If Not att.ColumnMap Is Nothing Then value = getValueByAttribute(att.Name) value1 = getOriginalValueByAttribute(att.Name) |