Index: svn/Repository/CodeRepository.cls.xml
===================================================================
diff -u -r1571 -r1575
--- svn/Repository/CodeRepository.cls.xml	(.../CodeRepository.cls.xml)	(revision 1571)
+++ svn/Repository/CodeRepository.cls.xml	(.../CodeRepository.cls.xml)	(revision 1575)
@@ -110,7 +110,6 @@
 	set Result = ##super(InternalName)
 	
 	if Result set Result = InternalName'["/"
-	
 	quit Result
 ]]></Implementation>
 </Method>
Index: svn/Helper.cls.xml
===================================================================
diff -u -r1574 -r1575
--- svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1574)
+++ svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1575)
@@ -454,18 +454,18 @@
 </Method>
 
 <Method name="SVNExport">
-<FormalSpec>InternalName</FormalSpec>
+<FormalSpec>InternalName:%String</FormalSpec>
 <Implementation><![CDATA[
-	set Repository = ..GeefRepository(InternalName)
+	#dim Repository As svn.Repository = ..GeefRepository(InternalName)
 	if $isObject(Repository) do Repository.SVNExport(InternalName)
 	quit
 ]]></Implementation>
 </Method>
 
 <Method name="SVNDelete">
-<FormalSpec>InternalName</FormalSpec>
+<FormalSpec>InternalName:%String</FormalSpec>
 <Implementation><![CDATA[
-	set Repository = ..GeefRepository(InternalName)
+	#dim Repository As svn.Repository = ..GeefRepository(InternalName)
 	if $isObject(Repository) do Repository.SVNDelete(InternalName)
 	quit
 ]]></Implementation>
@@ -474,7 +474,7 @@
 <Method name="RemovePackageFromArray">
 <FormalSpec>arrInternalNames:%ArrayOfDataTypes,Package:%String</FormalSpec>
 <Implementation><![CDATA[
-	set InternalName = ""
+	#dim InternalName As %String = ""
 	for  { set InternalName = arrInternalNames.Next(InternalName) quit:InternalName=""
 		if ##class(TECH.StringUtils).StartsWith(InternalName,Package_".") {
 			do arrInternalNames.RemoveAt(InternalName)
Index: svn/Repository.cls.xml
===================================================================
diff -u -r1574 -r1575
--- svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1574)
+++ svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1575)
@@ -62,6 +62,82 @@
 ]]></Implementation>
 </Method>
 
+<Method name="SVNDelete">
+<FormalSpec>InternalName:%String</FormalSpec>
+<Implementation><![CDATA[
+	if ..AllreadyAdded(InternalName) {
+		set tCmd=##class(svn.Command).%New($lb(..WorkspacePath(..Branch)))
+		set tCmd.File=..ExternalName(InternalName)
+		set tCmd.SubCommand="delete"
+		do tCmd.Options.SetAt("","--force")
+		do tCmd.Execute()
+		do ..VerwerkResultaat(tCmd)
+		do ..OnSVNDelete(InternalName)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="OnSVNDelete">
+<FormalSpec>InternalName:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim ExternalName As %String = ..ExternalName(InternalName)
+	Do ..DeleteEmptyDirectory(ExternalName)
+	Do ##class(svn.SourceCodeInfo).Update(InternalName,ExternalName)
+	
+    if ##class(TECH.SourceCodeUtils).Type(InternalName) = "class" {
+	 	#dim Classname As %String = ##class(TECH.SourceCodeUtils).StripExtension(InternalName)
+	 	do ##class(%ExtentMgr.Util).DeleteExtent(Classname)   
+    }
+]]></Implementation>
+</Method>
+
+<Method name="DeleteEmptyDirectory">
+<FormalSpec>tFile:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	//Bovenliggende map verwijderen
+	Set ParentDir = ##class(%File).GetDirectory(tFile)
+	
+	Set rset = ##class(%ResultSet).%New()
+	Set rset.ClassName = "%File"
+	Set rset.QueryName = "FileSet"
+
+	Do rset.Execute(ParentDir, "","",1)
+	
+	Set Root = ..WorkspacePath(..Branch)
+	Set Teller = 0
+	 
+	 
+	While (..CanDeleteDirectory(rset) && (ParentDir '= Root) && (Teller < 50)) 
+	 {		
+		Do ##class(%File).RemoveDirectoryTree(ParentDir)
+		w "Delete: ", ParentDir,!
+		#define DIRECTORY 	1
+		Do ..SVNDelete(ParentDir,$$$DIRECTORY)
+	
+		Set ParentDir = ##class(%File).ParentDirectoryName(ParentDir)
+		Do rset.Execute(ParentDir, "","",1)
+		Set Teller = Teller + 1
+	 }	
+	 
+	 Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="CanDeleteDirectory">
+<FormalSpec>rset:%ResultSet</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set CanDelete = 1
+	While ((rset.Next(.sc))) && ( CanDelete ) {
+	  	if (rset.Data("ItemName") '= ".svn") { 	
+	  		Set CanDelete = 0 }
+	}
+	Quit CanDelete
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkResultaat">
 <FormalSpec>svnCommand:svn.Command</FormalSpec>
 <Implementation><![CDATA[
@@ -210,6 +286,10 @@
 ]]></Implementation>
 </Method>
 
+<Method name="SVNExport">
+<FormalSpec>InternalName:%String</FormalSpec>
+</Method>
+
 <Method name="SVNImport">
 <FormalSpec>Filename:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -326,7 +406,7 @@
 <Method name="GeefExtentie">
 <FormalSpec>InternalName:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit $piece(InternalName,".",$length(InternalName,"."))
+<Implementation><![CDATA[	quit $zconvert($piece(InternalName,".",$length(InternalName,".")),"l")
 ]]></Implementation>
 </Method>
 
Index: svn/StudioHook.cls.xml
===================================================================
diff -u -r1574 -r1575
--- svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1574)
+++ svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1575)
@@ -916,109 +916,22 @@
 <FormalSpec>InternalName:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	
-	write "InternalName : "_InternalName ,!
-	
+	if ..Debug write "OnAfterDelete : "_InternalName ,!
 	// item deleted
-	Set tFile = ..DeleteFromSVN(InternalName)
-	Do ..DeleteEmptyDirectory(tFile)
+	do ..svnHelper.SVNDelete(InternalName)
 	
-	set ExternalName = ..svnHelper.ExternalName(InternalName)
-	Do ##class(svn.SourceCodeInfo).Update(InternalName,ExternalName)
-	
-    if ##class(TECH.SourceCodeUtils).Type(InternalName) = "class" {
-	 	set Classname = ##class(TECH.SourceCodeUtils).StripExtension(InternalName)
-	 	do ##class(%ExtentMgr.Util).DeleteExtent(Classname)   
-    }
-	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="DeleteEmptyDirectory">
-<FormalSpec>tFile:%String</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	//Bovenliggende map verwijderen
-	Set ParentDir = ##class(%File).GetDirectory(tFile)
-	
-	Set rset = ##class(%ResultSet).%New()
-	Set rset.ClassName = "%File"
-	Set rset.QueryName = "FileSet"
-
-	Do rset.Execute(ParentDir, "","",1)
-	
-	Set Root = ..svnHelper.LocalWorkspacePath(..svnHelper.Branch)
-	Set Teller = 0
-	 
-	 
-	While (..CanDeleteDirectory(rset) && (ParentDir '= Root) && (Teller < 50)) 
-	 {		
-		Do ##class(%File).RemoveDirectoryTree(ParentDir)
-		w "Delete: ", ParentDir,!
-		#define DIRECTORY 	1
-		Do ..DeleteFromSVN(ParentDir,$$$DIRECTORY)
-	
-		Set ParentDir = ##class(%File).ParentDirectoryName(ParentDir)
-		Do rset.Execute(ParentDir, "","",1)
-		Set Teller = Teller + 1
-	 }	
-	 
-	 Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="CanDeleteDirectory">
-<FormalSpec>rset:%ResultSet</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	Set CanDelete = 1
-	While ((rset.Next(.sc))) && ( CanDelete ) {
-	  	if (rset.Data("ItemName") '= ".svn") { 	
-	  		Set CanDelete = 0 }
-	}
-	Quit CanDelete
-]]></Implementation>
-</Method>
-
-<Method name="DeleteFromSVN">
-<FormalSpec>File:%String,isDirectory:%Boolean=0</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	set tFile = File
-	if 'isDirectory Set tFile = ..svnHelper.ExternalName(File,$$$FULLPATH)
-	
-	set tCmd=##class(svn.Command).%New($lb(..svnHelper.LocalWorkspacePath(..svnHelper.Branch)))
-	set tCmd.File=tFile
-	set tCmd.SubCommand="delete"
-	do tCmd.Options.SetAt("","--force")
-	do tCmd.Execute()
-	if $$$CMDAUTODELETECOMMIT {
-		set tCmd=$$$NULLOREF
-		set tCmd=##class(svn.Command).%New($lb(..svnHelper.LocalWorkspacePath(..svnHelper.Branch)))
-		set tCmd.File=tFile
-		set tCmd.SubCommand="commit"
-		do tCmd.Options.SetAt("deleted by user","-m")
-		do tCmd.Execute()
-		if 'isDirectory {
-			Set ..IsDisconnected = ..svnHelper.PostProcessing(tCmd)
-		}
-	} else {
-		write !," *** Studio: please commit to propagate deletion to repository. ***"
-	}
-	
-	Quit tFile
-]]></Implementation>
-</Method>
-
 <Method name="OnAfterCompile">
 <Description>
 Called after the compile of the item is done.</Description>
 <FormalSpec>InternalName:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	if ..Debug write "OnAfterCompile : "_InternalName ,!
+
 	set InternalName = ..svnHelper.NormalizeInternalName(InternalName)
 	do ..svnHelper.SVNExport(InternalName)
 
Index: svn/Repository/CSPRepository.cls.xml
===================================================================
diff -u -r1574 -r1575
--- svn/Repository/CSPRepository.cls.xml	(.../CSPRepository.cls.xml)	(revision 1574)
+++ svn/Repository/CSPRepository.cls.xml	(.../CSPRepository.cls.xml)	(revision 1575)
@@ -21,7 +21,7 @@
 <Implementation><![CDATA[
 	set Result = ##super(InternalName)
 	
-	if Result set Result = ..GeefExtentie(InternalName)?1(1"csp",1"csr")
+	if Result set Result = ..GeefExtentie(InternalName)?1(1"csp",1"csr",1"css",1"js")
 	if Result set Result = ##class(TECH.StringUtils).StartsWith(InternalName,..Application)
 	quit Result
 ]]></Implementation>
@@ -31,10 +31,12 @@
 <FormalSpec>InternalName:%String,FullPath:%Boolean=1</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	set InternalName = $extract(InternalName,2,$length(InternalName))
-	set Applicatie = $translate(..Application,"/","\")
-	set tExternal = $piece(..WorkspacePath(..Branch),Applicatie,1)_"\"_InternalName
-	set tExternal=$translate(tExternal,"/","\")
+	#dim Applicatie As %String 
+	#dim tExternal As %String 
+	set tExternal = $translate($piece(InternalName,..Application,2),"/","\")
+	if FullPath {
+		set tExternal = ##class(TECH.Files).AppendFile($piece(..WorkspacePath(..Branch),$translate(..Application,"/","\"),1),tExternal)
+	}
 	Quit tExternal
 ]]></Implementation>
 </Method>
@@ -58,6 +60,33 @@
 ]]></Implementation>
 </Method>
 
+<Method name="SVNExport">
+<FormalSpec>InternalName:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	set ExternalName = ..ExternalName(InternalName)
+	
+	set SVNFile = ..GetSVNAddFilename(ExternalName)
+		
+	do ..Export(.ExternalName,InternalName)
+		
+	if '..AllreadyAdded(InternalName) {
+		set svnCommand = ##class(svn.Command).%New($listbuild(..WorkspacePath(..Branch)))
+		set svnCommand.SubCommand="add"
+		set svnCommand.File = SVNFile
+		do svnCommand.Execute()
+		
+		write "Added to SVN : "_InternalName_" --> "_ExternalName, !
+	}
+	
+	do ##class(svn.SourceCodeInfo).Update(InternalName,ExternalName)
+	
+	
+	
+	quit
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DefaultData>CSPRepositoryDefaultData</DefaultData>