Index: svn/Synchronizer.cls.xml
===================================================================
diff -u -r1781 -r1847
--- svn/Synchronizer.cls.xml	(.../Synchronizer.cls.xml)	(revision 1781)
+++ svn/Synchronizer.cls.xml	(.../Synchronizer.cls.xml)	(revision 1847)
@@ -8,6 +8,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="MailApi">
+<Type>TECH.Mail.MailAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="SynchronizeList">
 <Type>svn.SyncStatus</Type>
 <Collection>array</Collection>
@@ -33,30 +38,117 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Console:TECH.Console.Console,Username:%String="",Password:%String=""</FormalSpec>
+<FormalSpec>Console:TECH.Console.Console,Username:%String="",Password:%String="",MailApi:TECH.Mail.MailAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	set ..Console = $$$Inject(Console,##class(TECH.Context).Instance().GeefConsoleAPI())
+	Set ..Console = $$$Inject(Console,##class(TECH.Context).Instance().GeefConsoleAPI())
+	Set ..MailApi = $$$Inject(MailApi, ##class(TECH.Mail.impl.MailAPI).%New())
 	
-	set ..Username = Username
-	set ..Password = Password
+	Set ..Username = Username
+	Set ..Password = Password
 	
-	set ..svnHelper = ##class(svn.Helper).%New(Username,Password)
-	set ..SynchHasBeenValidated = ##class(TECH.ArrayOfDataTypesOnDisk).%New()
+	Set ..svnHelper = ##class(svn.Helper).%New(Username,Password)
+	Set ..SynchHasBeenValidated = ##class(TECH.ArrayOfDataTypesOnDisk).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="MailShowSynchronizeActionsAsync">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Params:svn.dto.ShowSynchronizeActionsAsync</FormalSpec>
+<Implementation><![CDATA[
+	try {
+		Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
+		#dim ClassName AS %String = ##class(svn.Synchronizer).%ClassName(1)
+		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
+		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)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="ShowSynchronizeActions">
 <Implementation><![CDATA[
 	do ..BuildSynchronizeList()
 	do ..ShowActions()
 ]]></Implementation>
 </Method>
 
+<Method name="GeefShowSynchronizeActionsAlsStream">
+<FormalSpec>IsVoorMail:%Boolean=0</FormalSpec>
+<ReturnType>%Library.GlobalCharacterStream</ReturnType>
+<Implementation><![CDATA[
+	Do ..BuildSynchronizeList()
+	
+	Quit ..GeefShowActionsAlsStream(IsVoorMail)
+]]></Implementation>
+</Method>
+
+<Method name="MailShowSynchronizeActions">
+<FormalSpec>Params:svn.dto.ShowSynchronizeActionsAsync</FormalSpec>
+<Implementation><![CDATA[
+	#dim ServerNaam As %String = Params.ServerNaam
+	#dim MagAutoGetLatestServerSSADoen As %Boolean = Params.MagAutoGetLatestServerSSAADoen
+	
+	If ..MagShowSynchronizeActionsVolgensServer(ServerNaam, MagAutoGetLatestServerSSADoen) {
+		#dim IsVoorMail As %Boolean = Params.IsVoorMail
+		#dim Username As %String = Params.Username
+		#dim UserId As %Integer = $$USERID^vhUSER(Username)
+		#dim MailTo As %String = ##class(TECH.StringUtils).ToLower($Piece(^vhUSER("D",UserId,"M"),"\",13))
+		
+		#dim ShowSynchronizeActionsStream As %Library.GlobalCharacterStream = ..GeefShowSynchronizeActionsAlsStream(IsVoorMail)
+		
+		#dim Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMail()
+		Do Mail.ZetIsHTML($$$True)
+		Do Mail.ZetVerzender($$$SystemMail("ShowSynchronizeActions"))
+		Do Mail.VoegToeOntvanger(MailTo)
+		If ..MagIctMeldingenInCCVolgensServer(ServerNaam) {
+			Do Mail.VoegToeOntvangerCC("ICT_Meldingen@vanhoecke.be")
+		}
+		Do Mail.ZetOnderwerp("ShowSynchronizeActions op " _ ServerNaam _ " door " _ Username)
+		Do Mail.ZetInhoudStream(ShowSynchronizeActionsStream)
+		Do ..MailApi.VerstuurMail(Mail)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MagShowSynchronizeActionsVolgensServer">
+<FormalSpec>Server:%String,MagAutoGetLatestServerSSADoen:%Boolean</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim MagShowSynchronizeActionsVolgensServer As %Boolean = $$$True
+	
+	If (($$$Not(MagAutoGetLatestServerSSADoen)) && ..IsAutoGetLatestServer(Server)) {
+		Set MagShowSynchronizeActionsVolgensServer = $$$False
+	}
+	
+	Quit MagShowSynchronizeActionsVolgensServer
+]]></Implementation>
+</Method>
+
+<Method name="IsAutoGetLatestServer">
+<FormalSpec>Server:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (##class(TECH.StringUtils).Contains($$$LCase(Server), "cachedevut2010","cachebuild2010","cachedevut04"))
+]]></Implementation>
+</Method>
+
+<Method name="MagIctMeldingenInCCVolgensServer">
+<FormalSpec>Server:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.StringUtils).Contains($$$LCase(Server), "cache01","cacheaccept2010","cachetest2010")
+]]></Implementation>
+</Method>
+
 <Method name="ShowActions">
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -71,6 +163,31 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefShowActionsAlsStream">
+<FormalSpec>IsVoorMail:%Boolean=0</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Library.GlobalCharacterStream</ReturnType>
+<Implementation><![CDATA[
+	Set ShowActionsAlsStream = ##class(%Library.GlobalCharacterStream).%New()
+	
+	#dim NieuweLijn As %String = $$$CRLF
+	If IsVoorMail {
+		Set NieuweLijn = "<br/>"
+	}
+	
+	Set itList = ##class(TECH.ListIterator).%New(..SynchronizeList)
+	While itList.HasNext() {
+		#dim SyncStatus As svn.SyncStatus = itList.Next()
+		#dim InternalName As %String = SyncStatus.InternalName
+		
+		Do:SyncStatus.ImportNeeded ShowActionsAlsStream.WriteLine(NieuweLijn _ "Import " _ InternalName)
+		Do:SyncStatus.DeleteNeeded ShowActionsAlsStream.WriteLine(NieuweLijn _ "Delete " _ InternalName)
+	}
+	
+	Quit ShowActionsAlsStream
+]]></Implementation>
+</Method>
+
 <Method name="SynchronizeAll">
 <Implementation><![CDATA[
 	do ..BuildSynchronizeList()