Index: svn/Helper.cls.xml
===================================================================
diff -u -r1824 -r1831
--- svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1824)
+++ svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1831)
@@ -81,6 +81,26 @@
 <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>
@@ -430,26 +450,6 @@
 ]]></Implementation>
 </Method>
 
-<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="SVNExport">
 <FormalSpec>InternalName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -591,42 +591,19 @@
 	
 	#dim VoerUitGetLatest As %Boolean = (('..Conflicten() )  && ( '..WerktOffline()))
 	#dim StopBackgroundJobsStatus As %Status = $$$OK
-	#dim IsSvnLoggingUitTeVoeren As %Boolean = $$$False
 	
 	If VoerUitGetLatest {
 		Set StopBackgroundJobsStatus = ..VoerUitStopBackgroundJobs()
 		If $$$ISOK(StopBackgroundJobsStatus){
-			#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)
-				
-				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
-				}
+				Do ..SvnLogger.VoegToeTeLoggenRepository(Repo)
 	 		}
 		}
 	}
@@ -661,30 +638,15 @@
 		Do ..DisplayMessage(Message)				
 	}
 	
-	If IsSvnLoggingUitTeVoeren {
-		try {
-			;Do ..LogInSvnLog(SvnLogLocatieLijst, Message)
-		} catch {
-			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		}
+	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>
 
-<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[