Index: svn/Helper.cls.xml
===================================================================
diff -u -r1547 -r1548
--- svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1547)
+++ svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1548)
@@ -100,6 +100,10 @@
 <Type>%GlobalCharacterStream</Type>
 </Property>
 
+<Property name="MustRunUnitTest">
+<Type>%Boolean</Type>
+</Property>
+
 <Method name="DebugGet">
 <Private>1</Private>
 <Implementation><![CDATA[	quit +$g($$$SVNGlobal("SourceControl","SVN","Debug"))
@@ -108,17 +112,28 @@
 
 <Method name="GetLatest">
 <ClassMethod>1</ClassMethod>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Try{
+		JOB ClassMethod^vhLib("svn.Helper","GetLatestJob")
+	}Catch E
+	{}
+	Quit "GetLatest() uitgevoerd op "_##class(TECH.DateTime).CurrentTimeStamp()
+]]></Implementation>
+</Method>
+
+<Method name="GetLatestJob">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Try{
 		If +$G($$$SVNGlobal("SourceControl","SVN","UnitTestInProcess")){
 			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kan geen GetLatest uitvoeren omdat er nog unit testen aan het lopen zijn."))
 		}
-		
 		Set SvnHelper = ##class(svn.Helper).%New()
 		Do SvnHelper.VoerUitGetLatest()	
 		If (SvnHelper.Failed.Count()>0){
 			Do SvnHelper.MailGefaaldeSvnCommands("GetLatest")
-		}Else{		
+		}ElseIf(SvnHelper.MustRunUnitTest){	
 			Do SvnHelper.VoerUitUnitTesten()		
 		}		
 		Do SvnHelper.Failed.Clear()
@@ -127,8 +142,8 @@
 		#dim From As %String =  $$$SystemMail($$$Server_" - Subversion")
 		#dim MailTo As %String = $listbuild($$$SVNGlobal("SourceControl","SVN","MailWhenFailed"))
 		Do SendMiniMailForced^vhLib.Mail(From,MailTo,"Subversion GetLatest() failed on ["_$$$Server_"]",Exception.ToString(),0) 
-		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
+	Set $$$SVNGlobal("SourceControl","SVN","UnitTestInProcess") = 0
 ]]></Implementation>
 </Method>
 
@@ -138,9 +153,10 @@
 	If (+$G($$$SVNGlobal("SourceControl","SVN","UnitTestNaGetLatest")) &&
 	(..Failed.Count() = 0)) {
 		Set $$$SVNGlobal("SourceControl","SVN","UnitTestInProcess") = 1
-		Do ##class(vhUnitTest.Manager).RunTest("","")
+		Do ##class(vhUnitTest.Manager).RunTest("/MailOnError=1")
 		Set $$$SVNGlobal("SourceControl","SVN","UnitTestInProcess") = 0		
 	}
+	Set ..MustRunUnitTest = 0
 ]]></Implementation>
 </Method>
 
@@ -466,6 +482,8 @@
 <Implementation><![CDATA[
 	kill mdSources
 	
+	Set ..MustRunUnitTest = (..ToCompile.List.Count() > 0)
+	
 	for i=1:1:..ToCompile.List.Count() {
 		set SourceCode = ..ToCompile.List.GetAt(i)
 		if $length(SourceCode) set mdSources(SourceCode)=""
@@ -1269,6 +1287,7 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Set ..MustRunUnitTest = 0
 	Set ..Feedback = ##class(%GlobalCharacterStream).%New()
 	set ..TECHCSPApplicatie = ##class(TECH.CSP.CSPApplicatie).Instance()
 	if ##class(svn.CompileList).%ExistsId(1) { set ..ToCompile = ##class(svn.CompileList).%OpenId(1) }
@@ -1829,6 +1848,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	set GetLatestFailed = 0
+	Set ..MustRunUnitTest = 0
 
 	if $get($$$SVNGlobal("SourceControl",$$$PRODUCT,"HasConflicts"))=1 {
 		Do ..Feedback.WriteLine()