Index: svn/Logger.cls.xml
===================================================================
diff -u -r1834 -r1839
--- svn/Logger.cls.xml	(.../Logger.cls.xml)	(revision 1834)
+++ svn/Logger.cls.xml	(.../Logger.cls.xml)	(revision 1839)
@@ -44,6 +44,10 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Username">
+<Type>%String</Type>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>BestandGenerator:APPS.common.Rapport.impl.BestandGenerator="",DateTimeApi:TECH.DateTime.DateTimeAPI="",FileApi:TECH.File.FileAPI="",FileWriter:TECH.File.FileWriter="",svnCommand:svn.Command=""</FormalSpec>
 <Private>1</Private>
@@ -79,11 +83,13 @@
 </Method>
 
 <Method name="LogGetLatest">
-<FormalSpec>Server:%String,Message:%String</FormalSpec>
+<FormalSpec>Server:%String,Message:%String,Username:%String</FormalSpec>
 <Implementation><![CDATA[
 	Quit:($$$Not(..MagGetLatestGelogdWordenVolgensServer(Server)))
 	Quit:($$$Not($IsObject(..SvnLogLocatieLijst)))
 	
+	Set ..Username = Username
+	
 	#dim Branch, Path, FullPath As %String
 	#dim IsBestaandBestand As %Boolean = $$$False
 	#dim SvnLogLocatie As svn.dto.SvnLogLocatie
@@ -127,15 +133,15 @@
 <FormalSpec>Server:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ##class(TECH.StringUtils).Contains(Server, "cache01","cacheaccept2010","cachetest2010")
+<Implementation><![CDATA[	Quit ##class(TECH.StringUtils).Contains($$$LCase(Server), "cache01","cacheaccept2010","cachetest2010")
 ]]></Implementation>
 </Method>
 
 <Method name="MagGetLatestGelogdWordenVolgensBranch">
 <FormalSpec>Branch:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ##class(TECH.StringUtils).Contains(Branch, "deploy2010")
+<Implementation><![CDATA[	Quit ##class(TECH.StringUtils).Contains($$$LCase(Branch), "deploy2010")
 ]]></Implementation>
 </Method>
 
@@ -192,7 +198,7 @@
 	Set HuidigGetLatestRapport = ##class(svn.dto.GetLatestRapport).%New()
 	Set HuidigGetLatestRapport.Timestamp = ..DateTimeApi.CurrentTimeStamp()
 	Set HuidigGetLatestRapport.Message = Message
-	Set HuidigGetLatestRapport.Uitvoerder = ..GetUsername()
+	Set HuidigGetLatestRapport.Uitvoerder = ..Username
 	
 	Quit HuidigGetLatestRapport
 ]]></Implementation>
@@ -255,7 +261,7 @@
 	Set ..svnCommand.File = ##class(TECH.Files).AppendFile(FullPath,..#Filename)
 	Set ..svnCommand.Message = "*** "_##class(TECH.StringUtils).ToUpper(Server)_": GetLatest met als resultaat: '"_Message_"'."
 	Set ..svnCommand.SubCommand = "commit"
-	Do ..svnCommand.GlobalOptions.SetAt(..GetUsername(),"--username")
+	Do ..svnCommand.GlobalOptions.SetAt(..Username,"--username")
 	Do ..svnCommand.GlobalOptions.SetAt("fixed","--password")
 	Do ..svnCommand.Execute()
 ]]></Implementation>
@@ -268,18 +274,11 @@
 	Set ..svnCommand.LocalWorkspace = FullPath
 	Set ..svnCommand.File = ##class(TECH.Files).AppendFile(FullPath,..#Filename)
 	Set ..svnCommand.SubCommand = "add"
-	Do ..svnCommand.GlobalOptions.SetAt(..GetUsername(),"--username")
+	Do ..svnCommand.GlobalOptions.SetAt(..Username,"--username")
 	Do ..svnCommand.GlobalOptions.SetAt("fixed","--password")
 	Do ..svnCommand.Execute()
 ]]></Implementation>
 </Method>
-
-<Method name="GetUsername">
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit $$$SVNGlobal("SourceControl","SVN", "Username")
-]]></Implementation>
-</Method>
 </Class>