Index: svn/Synchronizer.cls.xml =================================================================== diff -u -r1846 -r1847 --- svn/Synchronizer.cls.xml (.../Synchronizer.cls.xml) (revision 1846) +++ svn/Synchronizer.cls.xml (.../Synchronizer.cls.xml) (revision 1847) @@ -66,7 +66,7 @@ Do ##class(TECH.BackgroundProcess.impl.Starter).StartProcessMetDto(ClassName, "MailShowSynchronizeActions", Params) } catch { #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() - #dim Message As %String = "Het achtergrondproces voor MailShowSynchronizeActionsAsync heeft een fout gemeld." _$$$CRLF + #dim Message As %String = "Het achtergrondproces voor MailShowSynchronizeActionsAsync heeft een fout gemeld." _ $$$CRLF Set Message = Message _Exception.GeefOmschrijving() Do ##class(vhLib.Logger).%New("SVN").Warning("svn.Synchronizer","Bij het uitvoeren van MailShowSynchronizeActionsAsync heeft er zich een fout voorgedaan: " _ $$$CRLF _ Message) } @@ -84,11 +84,9 @@ IsVoorMail:%Boolean=0 %Library.GlobalCharacterStream @@ -166,10 +164,12 @@ -ActionsStream:%Library.GlobalCharacterStream,IsVoorMail:%Boolean=0 +IsVoorMail:%Boolean=0 1 %Library.GlobalCharacterStream " @@ -180,11 +180,11 @@ #dim SyncStatus As svn.SyncStatus = itList.Next() #dim InternalName As %String = SyncStatus.InternalName - Do:SyncStatus.ImportNeeded ActionsStream.WriteLine(NieuweLijn _ "Import "_InternalName) - Do:SyncStatus.DeleteNeeded ActionsStream.WriteLine(NieuweLijn _ "Delete "_InternalName) + Do:SyncStatus.ImportNeeded ShowActionsAlsStream.WriteLine(NieuweLijn _ "Import " _ InternalName) + Do:SyncStatus.DeleteNeeded ShowActionsAlsStream.WriteLine(NieuweLijn _ "Delete " _ InternalName) } - Quit ActionsStream + Quit ShowActionsAlsStream ]]>