Index: svn/Helper.cls.xml
===================================================================
diff -u -r1549 -r1551
--- svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1549)
+++ svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1551)
@@ -100,7 +100,7 @@
 <Type>%GlobalCharacterStream</Type>
 </Property>
 
-<Property name="MustRunUnitTest">
+<Property name="IsCodeVeranderd">
 <Type>%Boolean</Type>
 </Property>
 
@@ -115,15 +115,28 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Try{
-		JOB ClassMethod^vhLib("svn.Helper","GetLatestJob")
+		JOB ClassMethod^vhLib("svn.Helper","GetLatestJob",1,0)
 	}Catch E
 	{}
 	Quit "GetLatest() uitgevoerd op "_##class(TECH.DateTime).CurrentTimeStamp()
 ]]></Implementation>
 </Method>
 
+<Method name="GetLatestEnUnitTest">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Try{
+		JOB ClassMethod^vhLib("svn.Helper","GetLatestJob",1,1)
+	}Catch E
+	{}
+	Quit "GetLatest() uitgevoerd op "_##class(TECH.DateTime).CurrentTimeStamp()_"."_$C(13,10)_"UnitTesten gestart."
+]]></Implementation>
+</Method>
+
 <Method name="GetLatestJob">
 <ClassMethod>1</ClassMethod>
+<FormalSpec>UitvoerenUnitTesten:%Boolean</FormalSpec>
 <Implementation><![CDATA[
 	Try{
 		If +$G($$$SVNGlobal("SourceControl","SVN","UnitTestInProcess")){
@@ -133,16 +146,17 @@
 		Do SvnHelper.VoerUitGetLatest()	
 		If (SvnHelper.Failed.Count()>0){
 			Do SvnHelper.MailGefaaldeSvnCommands("GetLatest")
-		}ElseIf(SvnHelper.MustRunUnitTest){	
+		}ElseIf(UitvoerenUnitTesten && SvnHelper.IsCodeVeranderd){	
 			Do SvnHelper.VoerUitUnitTesten()		
 		}		
 		Do SvnHelper.Failed.Clear()
 	}Catch E{
-		#dim ServerNaam As %String = ##class(TECH.Context.RuntimeContext).Instance().GeefNamespace()
+		#dim ServerNaam As %String = ##class(TECH.Context.RuntimeContext).Instance().GeefServerNaam()
+		#dim Namespace As %String = ##class(TECH.Context.RuntimeContext).Instance().GeefNamespace()
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		#dim From As %String =  $$$SystemMail(ServerNaam_" - Subversion")
 		#dim MailTo As %String = $listbuild($$$SVNGlobal("SourceControl","SVN","MailWhenFailed"))
-		Do SendMiniMailForced^vhLib.Mail(From,MailTo,"Subversion GetLatest() failed on ["_ServerNaam_"]",Exception.ToString(),0) 
+		Do SendMiniMailForced^vhLib.Mail(From,MailTo,"Subversion GetLatest() failed on ["_ServerNaam_" => "_Namespace_"]",Exception.ToString(),0) 
 	}
 	Set $$$SVNGlobal("SourceControl","SVN","UnitTestInProcess") = 0
 ]]></Implementation>
@@ -157,7 +171,6 @@
 		Do ##class(vhUnitTest.Manager).RunTest("/MailOnError=1")
 		Set $$$SVNGlobal("SourceControl","SVN","UnitTestInProcess") = 0		
 	}
-	Set ..MustRunUnitTest = 0
 ]]></Implementation>
 </Method>
 
@@ -166,14 +179,13 @@
 <Implementation><![CDATA[
 	If ..Failed.Count() > 0 
 	{
-		Set FeedbackStream = ##class(%GlobalCharacterStream).%New()
-		Do FeedbackStream.WriteLine("Server : "_##class(TECH.Context.RuntimeContext).Instance().GeefServerNaam())
-		Do FeedbackStream.WriteLine("Namespace : "_##class(TECH.Context.RuntimeContext).Instance().GeefNamespace())
-		Do FeedbackStream.WriteLine()
-		Do FeedbackStream.CopyFrom(..GeefFailedCharacterStream(Actie))
-		#dim From As %String =  $$$SystemMail($$$Server_" - Subversion")
+		#dim FeedbackStream As %CharacterStream = ..GeefFailedCharacterStream(Actie)
+		
+		#dim ServerNaam As %String = ##class(TECH.Context.RuntimeContext).Instance().GeefServerNaam()
+		#dim Namespace As %String = ##class(TECH.Context.RuntimeContext).Instance().GeefNamespace()
+		#dim From As %String =  $$$SystemMail(ServerNaam_" - Subversion")
 		#dim MailTo As %String = $listbuild($$$SVNGlobal("SourceControl","SVN","MailWhenFailed"))
-		Do SendMiniMailForced^vhLib.Mail(From,MailTo,"Subversion failed on ["_$$$Server_"]",FeedbackStream,1)
+		Do SendMiniMailForced^vhLib.Mail(From,MailTo,"Subversion failed on ["_ServerNaam_" => "_Namespace_"]",FeedbackStream,1)
 	}
 ]]></Implementation>
 </Method>
@@ -483,7 +495,7 @@
 <Implementation><![CDATA[
 	kill mdSources
 	
-	Set ..MustRunUnitTest = (..ToCompile.List.Count() > 0)
+	Set ..IsCodeVeranderd = (..ToCompile.List.Count() > 0)
 	
 	for i=1:1:..ToCompile.List.Count() {
 		set SourceCode = ..ToCompile.List.GetAt(i)
@@ -1288,7 +1300,7 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..MustRunUnitTest = 0
+	Set ..IsCodeVeranderd = 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) }
@@ -1849,7 +1861,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	set GetLatestFailed = 0
-	Set ..MustRunUnitTest = 0
+	Set ..IsCodeVeranderd = 0
 
 	if $get($$$SVNGlobal("SourceControl",$$$PRODUCT,"HasConflicts"))=1 {
 		Do ..Feedback.WriteLine()
Index: WS/Svn/SvnService.cls.xml
===================================================================
diff -u -r1544 -r1551
--- WS/Svn/SvnService.cls.xml	(.../SvnService.cls.xml)	(revision 1544)
+++ WS/Svn/SvnService.cls.xml	(.../SvnService.cls.xml)	(revision 1551)
@@ -21,6 +21,13 @@
 <Implementation><![CDATA[	Quit ##class(svn.Helper).%New().GetLatest()
 ]]></Implementation>
 </Method>
+
+<Method name="GetLatestEnUnitTest">
+<ReturnType>%String</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ##class(svn.Helper).%New().GetLatestEnUnitTest()
+]]></Implementation>
+</Method>
 </Class>