Index: svn/Helper.cls.xml
===================================================================
diff -u -r1812 -r1824
--- svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1812)
+++ svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1824)
@@ -76,6 +76,11 @@
 <Type>%Boolean</Type>
 </Property>
 
+<Property name="SvnLogger">
+<Type>svn.Logger</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="ImportDirectory">
 <Description>
 IgnorePattern ; delimeted string</Description>
@@ -426,11 +431,13 @@
 </Method>
 
 <Method name="%OnNew">
-<FormalSpec>Username:%String="",Password:%String=""</FormalSpec>
+<FormalSpec>Username:%String="",Password:%String="",SvnLogger:svn.Logger=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Set ..SvnLogger = $$$Inject(SvnLogger, ##class(svn.Logger).%New())
+	
 	Set ..IsCodeVeranderd = 0
 	set ..TECHCSPApplicatie = ##class(TECH.CSP.CSPApplicatie).Instance()
 	if ##class(svn.CompileList).%ExistsId(1) { set ..ToCompile = ##class(svn.CompileList).%OpenId(1) }
@@ -578,24 +585,48 @@
 	Set ..IsGetLatestGefaald = 0
 	Set ..IsCodeVeranderd = 0
 	Set ..IsStopBackgroundJobsGefaald = 0
-
+	
 	Do ..DisplayMessage("Getting Latest started")
 	Do ..DisplayMessage("Pause backgroundjobs: "_##class(svn.Setting).PauseBackgroundJobs())
 	
 	#dim VoerUitGetLatest As %Boolean = (('..Conflicten() )  && ( '..WerktOffline()))
 	#dim StopBackgroundJobsStatus As %Status = $$$OK
+	#dim IsSvnLoggingUitTeVoeren As %Boolean = $$$False
+	
 	If VoerUitGetLatest {
 		Set StopBackgroundJobsStatus = ..VoerUitStopBackgroundJobs()
 		If $$$ISOK(StopBackgroundJobsStatus){
-			set rsRepos = ##class(%ResultSet).%New("svn.Repository:Extent")
-			do rsRepos.Execute()
-			while rsRepos.Next() {
+			#dim Server As %String = ..GeefServerNaam()
+			#dim Namespace As %String = ..GeefNamespace()
+			#dim Branch As %String = ""
+			#dim Path As %String = ""
+			Set SvnLogLocatieLijst = ##class(%ListOfDataTypes).%New()
+			Set rsRepos = ##class(%ResultSet).%New("svn.Repository:Extent")
+			Do rsRepos.Execute()
+			While rsRepos.Next() {
+				#dim MoetInSvnGelogdWorden As %Boolean = $$$False
 				#dim Repo As svn.Repository = ..OpenRepository(rsRepos.Get("ID"))
-				do Repo.CheckOut()
-				if Repo.IsCodeVeranderd set ..IsCodeVeranderd = 1
-				do ##class(TECH.ListUtils).CopyListOfDataTypes(Repo.Failed,..Failed)
-				do ##class(TECH.ListUtils).CopyListOfDataTypes(Repo.ToCompile,..ToCompile.List)
-			
+				Do Repo.CheckOut()
+				If Repo.IsCodeVeranderd set ..IsCodeVeranderd = 1
+				Do ##class(TECH.ListUtils).CopyListOfDataTypes(Repo.Failed,..Failed)
+				Do ##class(TECH.ListUtils).CopyListOfDataTypes(Repo.ToCompile,..ToCompile.List)
+				
+				Set Branch = Repo.Branch
+				Set MoetInSvnGelogdWorden = (##class(TECH.StringUtils).Contains(Server, "cache01","cacheaccept2010","cachetest2010"))
+				Set MoetInSvnGelogdWorden = (##class(TECH.StringUtils).Contains(Branch, "deploy2010"))
+				
+				If MoetInSvnGelogdWorden {
+					Set Path = Repo.Path
+					Set SvnLogLocatie = ##class(svn.dto.SvnLogLocatie).%New()
+					Set SvnLogLocatie.Branch = Branch
+					Set SvnLogLocatie.Namespace = Namespace
+					Set SvnLogLocatie.Path = Path
+					Set SvnLogLocatie.Repository = Repo
+					Set SvnLogLocatie.Server = Server
+					
+					Do SvnLogLocatieLijst.Insert(SvnLogLocatie)
+					Set IsSvnLoggingUitTeVoeren = $$$True
+				}
 	 		}
 		}
 	}
@@ -629,9 +660,31 @@
 		Set Message ="Starting Backgroundjobs **FAILED**"
 		Do ..DisplayMessage(Message)				
 	}
+	
+	If IsSvnLoggingUitTeVoeren {
+		try {
+			;Do ..LogInSvnLog(SvnLogLocatieLijst, Message)
+		} catch {
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		}
+	}
 ]]></Implementation>
 </Method>
 
+<Method name="LogInSvnLog">
+<FormalSpec>SvnLogLocatieLijst:%ListOfDataTypes,Message:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim SvnLogLocatie As svn.dto.SvnLogLocatie
+	Set SvnLogLocatieLijstIterator = ##class(TECH.ListIterator).%New(SvnLogLocatieLijst)
+	
+	While SvnLogLocatieLijstIterator.HasNext() {
+		Set SvnLogLocatie = SvnLogLocatieLijstIterator.Next()
+		Do ..SvnLogger.LogGetLatest(SvnLogLocatie, Message)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="VoerUitCompile">
 <Private>1</Private>
 <Implementation><![CDATA[