Index: svn/Helper.cls.xml
===================================================================
diff -u -r1812 -r1831
--- svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1812)
+++ svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1831)
@@ -76,6 +76,31 @@
 <Type>%Boolean</Type>
 </Property>
 
+<Property name="SvnLogger">
+<Type>svn.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<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) }
+	else { set ..ToCompile = ##class(svn.CompileList).%New() }
+	
+	set ..Username = Username
+	set ..Password = Password
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="ImportDirectory">
 <Description>
 IgnorePattern ; delimeted string</Description>
@@ -425,24 +450,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="%OnNew">
-<FormalSpec>Username:%String="",Password:%String=""</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set ..IsCodeVeranderd = 0
-	set ..TECHCSPApplicatie = ##class(TECH.CSP.CSPApplicatie).Instance()
-	if ##class(svn.CompileList).%ExistsId(1) { set ..ToCompile = ##class(svn.CompileList).%OpenId(1) }
-	else { set ..ToCompile = ##class(svn.CompileList).%New() }
-	
-	set ..Username = Username
-	set ..Password = Password
-	
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
 <Method name="SVNExport">
 <FormalSpec>InternalName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -578,24 +585,25 @@
 	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
+	
 	If VoerUitGetLatest {
 		Set StopBackgroundJobsStatus = ..VoerUitStopBackgroundJobs()
 		If $$$ISOK(StopBackgroundJobsStatus){
-			set rsRepos = ##class(%ResultSet).%New("svn.Repository:Extent")
-			do rsRepos.Execute()
-			while rsRepos.Next() {
+			Set rsRepos = ##class(%ResultSet).%New("svn.Repository:Extent")
+			Do rsRepos.Execute()
+			While rsRepos.Next() {
 				#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)
+				Do ..SvnLogger.VoegToeTeLoggenRepository(Repo)
 	 		}
 		}
 	}
@@ -629,6 +637,13 @@
 		Set Message ="Starting Backgroundjobs **FAILED**"
 		Do ..DisplayMessage(Message)				
 	}
+	
+	try {
+		Do ..SvnLogger.LogGetLatest(..GeefServerNaam(), Message)
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ..LogMessage("Het loggen van GetLatest op SvnLogging is mislukt omwille van deze reden: "_Exception)
+	}
 ]]></Implementation>
 </Method>