Index: svn/Repository/CodeRepository.cls.xml
===================================================================
diff -u -r1575 -r1582
--- svn/Repository/CodeRepository.cls.xml	(.../CodeRepository.cls.xml)	(revision 1575)
+++ svn/Repository/CodeRepository.cls.xml	(.../CodeRepository.cls.xml)	(revision 1582)
@@ -33,19 +33,21 @@
 <FormalSpec>InternalName:%String,FullPath:%Boolean=1</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	set InternalType = ##class(TECH.SourceCodeUtils).Type(InternalName)
+	#dim InternalType As %String = ##class(TECH.SourceCodeUtils).Type(InternalName)
 	
-	set tLen=$length(InternalName,".")
+	if InternalType'="other" {
+		set tLen=$length(InternalName,".")
+		set tPath = $piece(InternalName,".",1,tLen-1)
+		set tPath = $translate(tPath,".","\")
+		set tType=$zconvert($piece(InternalName,".",tLen),"L")
+		set tExternal = tPath_"."_tType
+		if InternalType = "routine" { set tExternal=tExternal_".rou" }
+		else { set tExternal=tExternal_".xml" }
+	}
+	else {
+		set tExternal = $translate(InternalName,".","\")
+	}
 	
-	set tPath = $piece(InternalName,".",1,tLen-1)
-	set tPath = $translate(tPath,".","\")
-
-	set tType=$zconvert($piece(InternalName,".",tLen),"L")
-	
-	set tExternal = tPath_"."_tType
-	if InternalType = "routine" { set tExternal=tExternal_".rou" }
-	else { set tExternal=tExternal_".xml" }
-	
 	if FullPath {
 		set tExternal=..WorkspacePath(..Branch)_tExternal
 	}
Index: svn/Repository/CSPRepository.cls.xml
===================================================================
diff -u -r1575 -r1582
--- svn/Repository/CSPRepository.cls.xml	(.../CSPRepository.cls.xml)	(revision 1575)
+++ svn/Repository/CSPRepository.cls.xml	(.../CSPRepository.cls.xml)	(revision 1582)
@@ -33,9 +33,13 @@
 <Implementation><![CDATA[
 	#dim Applicatie As %String 
 	#dim tExternal As %String 
-	set tExternal = $translate($piece(InternalName,..Application,2),"/","\")
+	
+	#dim cspRoot = $translate(..Application,"/","\")
+	set InternalName = $translate(InternalName,"/","\")
+	set tExternal = $piece(InternalName,cspRoot,2)
+	
 	if FullPath {
-		set tExternal = ##class(TECH.Files).AppendFile($piece(..WorkspacePath(..Branch),$translate(..Application,"/","\"),1),tExternal)
+		set tExternal = ##class(TECH.Files).AppendFile(..WorkspacePath(..Branch),tExternal)
 	}
 	Quit tExternal
 ]]></Implementation>
Index: svn/Helper.cls.xml
===================================================================
diff -u -r1581 -r1582
--- svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1581)
+++ svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1582)
@@ -106,7 +106,7 @@
 			set Repo.Path = Path
 		 	set InternalName = Repo.InternalName(FileInfo.Name)
 		 	
-		 	if svnHelper.HasToBeIgnored(InternalName,IgnorePattern) {
+		 	if 'svnHelper.HasToBeIgnored(InternalName,IgnorePattern) {
 		 		if Extension?1"rou" { do Repo.ImportRoutine(FileInfo.Name,InternalName) }
 		 		if Extension?1"xml" { do Repo.ImportNonRoutine(FileInfo.Name) }
 		 		do ##class(svn.SourceCodeInfo).Update(InternalName,FileInfo.Name)
@@ -564,7 +564,7 @@
 	set ..IsGetLatestGefaald = 0
 	set ..IsCodeVeranderd = 0
 
-	do ..DisplayMessage("Getting Latest started",1)
+	do ..DisplayMessage("Getting Latest started")
 	
 	if ( '..Conflicten() )  && ( '..WerktOffline() ) {
 		set rsRepos = ##class(%ResultSet).%New("svn.Repository:Extent")
@@ -589,30 +589,31 @@
 				
 	if '..IsGetLatestGefaald {
 		if ..ToCompile.List.Count() {
-			w !!,"Hercompilatie voorgaande fouten",!
+			Do ..DisplayMessage("Starting compilation")
 			do ..CompileImportedSourceCode(1)
-			Do ..ShowFailed("Hercompilatie bij GetLatest")
+			Do ..DisplayMessage("Compilation Finished")
+			
+			Do ..ShowFailed("Compilation bij GetLatest")
 			set ..IsGetLatestGefaald = (..Failed.Count()>0)
 			do ..Failed.Clear()
 			}
 	}
 	
 	if '..IsGetLatestGefaald {
-		w !,"Starting deploy classes",!
+		do ..DisplayMessage("Starting deploy classes")
 		do ##class(svn.Deploy).Run()
-		w "Deploy classes finished",!
+		do ..DisplayMessage("Deploy classes finished")
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="DisplayMessage">
-<FormalSpec>Message:%String,flagBefore:%Boolean=0</FormalSpec>
+<FormalSpec>Message:%String</FormalSpec>
 <Implementation><![CDATA[
 	#dim Streepkes As %String ="" 
-	set $piece(Streepkes,"-",$length(Message))="-"
+	set $piece(Streepkes,"-",$length(Message)+4)="-"
 	
-	if flagBefore { write !,Message,!,Streepkes,! }
-	else { write !,Streepkes,!,Message,!}
+	write !,Streepkes,!,"| "_Message_" |",!,Streepkes,!
 	
 	quit
 ]]></Implementation>
Index: vhUnitTest/svn/Repository/CSPRepository.cls.xml
===================================================================
diff -u -r1570 -r1582
--- vhUnitTest/svn/Repository/CSPRepository.cls.xml	(.../CSPRepository.cls.xml)	(revision 1570)
+++ vhUnitTest/svn/Repository/CSPRepository.cls.xml	(.../CSPRepository.cls.xml)	(revision 1582)
@@ -15,8 +15,8 @@
 	do $$$AssertEquals(svnRepo.InternalName("c:\cache\csp\dev1\svn\test.csr"),"/csp/dev1/svn/test.csr")
 	do $$$AssertEquals(svnRepo.InternalName("c:\cache\csp\dev2\svn\test.csr"),"","foute filename")
 	
-	set svnRepo.Path = "c:\cache\csp\vhisie\tbx\"
-	set svnRepo.Application = "/vhisie"
+	set svnRepo.Path = "c:\cache\csp\vhisie\tbx"
+	set svnRepo.Application = "/vhisie/tbx"
 	
 	do $$$AssertEquals(svnRepo.InternalName("c:\cache\csp\vhisie\tbx\test.csp"),"/vhisie/tbx/test.csp")
 	do $$$AssertEquals(svnRepo.InternalName("c:\cache\csp\vhisie\tbx\svn\test.csp"),"/vhisie/tbx/svn/test.csp")
@@ -29,8 +29,9 @@
 <Method name="TestExternalName">
 <Implementation><![CDATA[
 	set svnRepo = ##class(svn.Repository.CSPRepository).%New()
-	set svnRepo.Path = "c:\cache\csp\vhisie\tbx\"
-	set svnRepo.Application = "/vhisie"
+	set svnRepo.Path = "c:\cache\csp\vhisie\tbx"
+	set svnRepo.Application = "/vhisie/tbx"
+
 	
 	do $$$AssertEquals(svnRepo.ExternalName("/vhisie/tbx/test.csp"),"c:\cache\csp\vhisie\tbx\test.csp")
 	do $$$AssertEquals(svnRepo.ExternalName("/vhisie/tbx/svn/test.csp"),"c:\cache\csp\vhisie\tbx\svn\test.csp")
@@ -42,8 +43,8 @@
 <Method name="TestHasToBeSynchronized">
 <Implementation><![CDATA[
 	set svnRepo = ##class(svn.Repository.CSPRepository).%New()
-	set svnRepo.Path = "c:\cache\csp\vhisie\tbx\"
-	set svnRepo.Application = "/vhisie"
+	set svnRepo.Path = "c:\cache\csp\vhisie\tbx"
+	set svnRepo.Application = "/vhisie/tbx"
 	
 	do $$$AssertTrue(svnRepo.HasToBeSynchronized("/vhisie/tbx/test.csp"))
 	do $$$AssertTrue(svnRepo.HasToBeSynchronized("/vhisie/tbx/test.csr"))