Index: svn/Repository.cls.xml
===================================================================
diff -u -r1578 -r1580
--- svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1578)
+++ svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1580)
@@ -501,7 +501,7 @@
 		set itExternalNames = ##class(TECH.ListIterator).%New(listExternalNames)
 		while itExternalNames.HasNext() {
 			set ExternalName = itExternalNames.Next()
-			write ExternalName,!
+			write "info :",ExternalName,!
 			do ..SVNImport(ExternalName)
 			do ..ToCompile.Insert(..InternalName(ExternalName))
 		}
Index: svn/Updater.cls.xml
===================================================================
diff -u -r1515 -r1580
--- svn/Updater.cls.xml	(.../Updater.cls.xml)	(revision 1515)
+++ svn/Updater.cls.xml	(.../Updater.cls.xml)	(revision 1580)
@@ -9,7 +9,7 @@
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
 	set svnHelper = ##class(svn.Helper).%New()
-	set Path = $get(^SYS("SourceControl","SVN","LocalSourceControlWorkspace"))
+	#dim Path = $get(^SYS("SourceControl","SVN","LocalSourceControlWorkspace"))
 	
 	if ('$length(Path))!('##class(%File).DirectoryExists(Path)) {
 		write !,Path_" bestaat niet ",!
@@ -22,7 +22,8 @@
 		set Cmd.Revision= "" 
 		set Cmd.File=svnHelper.NormalizePath(Path)
 		do Cmd.Execute()
-		do svnHelper.ImportDirectory(Path,Path)	
+		#dim IgnorePattern As %String = "vhUnitTest.svn*"
+		do svnHelper.ImportDirectory(Path,Path,IgnorePattern)	
 	}
 		
 	quit $$$OK
Index: svn/Helper.cls.xml
===================================================================
diff -u -r1579 -r1580
--- svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1579)
+++ svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1580)
@@ -85,8 +85,10 @@
 </Property>
 
 <Method name="ImportDirectory">
+<Description>
+IgnorePattern ; delimeted string</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Path:%String,WorkSpacePath:%String</FormalSpec>
+<FormalSpec>Path:%String,WorkSpacePath:%String,IgnorePattern:%String=""</FormalSpec>
 <Implementation><![CDATA[
 	set Path = ##class(%File).NormalizeDirectory(Path)
 	set WorkSpacePath = ##class(%File).NormalizeDirectory(WorkSpacePath)
@@ -103,16 +105,37 @@
 			set Repo = ##class(svn.Repository.CodeRepository).%New()
 			set Repo.Path = Path
 		 	set InternalName = Repo.InternalName(FileInfo.Name)
-		 	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)
-		 	do svnHelper.ToCompile.List.Insert(InternalName)
+		 	
+		 	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)
+		 		do svnHelper.ToCompile.List.Insert(InternalName)
+		 	}
 		}
 	}
 	do svnHelper.CompileImportedSourceCode()
 ]]></Implementation>
 </Method>
 
+<Method name="HasToBeIgnored">
+<FormalSpec>InternalName:%String,IgnorePattern:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim HasToBeIgnored As %Boolean = 0
+	
+	if $length(IgnorePattern) {
+		set itPieces = ##class(TECH.PiecesIterator).%New(IgnorePattern,";")
+		while ( itPieces.HasNext()) && ('HasToBeIgnored) {
+			#dim Piece As %String = itPieces.Next()
+			if ##class(TECH.StringUtils).MatchesPattern(InternalName,Piece) { 
+				set HasToBeIgnored = 1
+			}
+		}
+	}
+	quit HasToBeIgnored
+]]></Implementation>
+</Method>
+
 <Method name="GeefServerNaam">
 <ClassMethod>1</ClassMethod>
 <ReturnType>%String</ReturnType>