Index: svn/Repository/CSPRepository.cls.xml
===================================================================
diff -u -r1573 -r1574
--- svn/Repository/CSPRepository.cls.xml	(.../CSPRepository.cls.xml)	(revision 1573)
+++ svn/Repository/CSPRepository.cls.xml	(.../CSPRepository.cls.xml)	(revision 1574)
@@ -23,13 +23,12 @@
 	
 	if Result set Result = ..GeefExtentie(InternalName)?1(1"csp",1"csr")
 	if Result set Result = ##class(TECH.StringUtils).StartsWith(InternalName,..Application)
-	
 	quit Result
 ]]></Implementation>
 </Method>
 
 <Method name="ExternalName">
-<FormalSpec>InternalName:%String</FormalSpec>
+<FormalSpec>InternalName:%String,FullPath:%Boolean=1</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	set InternalName = $extract(InternalName,2,$length(InternalName))
Index: svn/Repository.cls.xml
===================================================================
diff -u -r1573 -r1574
--- svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1573)
+++ svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1574)
@@ -28,6 +28,16 @@
 <Collection>list</Collection>
 </Property>
 
+<Property name="Username">
+<Type>%String</Type>
+<Transient>1</Transient>
+</Property>
+
+<Property name="Password">
+<Type>%String</Type>
+<Transient>1</Transient>
+</Property>
+
 <Method name="CheckOut">
 <FormalSpec>Revision:%String=""</FormalSpec>
 <Implementation><![CDATA[
@@ -106,8 +116,6 @@
 				}
 				set tCmdResult=svnCommand.Results.GetNext(.i)	
 			}
-		} else {
-		  
 		} 
 	}
 ]]></Implementation>
@@ -176,7 +184,7 @@
 
 <Method name="ExternalName">
 <Abstract>1</Abstract>
-<FormalSpec>InternalName:%String</FormalSpec>
+<FormalSpec>InternalName:%String,FullPath:%Boolean=1</FormalSpec>
 <ReturnType>%String</ReturnType>
 </Method>
 
Index: svn/Helper.cls.xml
===================================================================
diff -u -r1572 -r1574
--- svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1572)
+++ svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1574)
@@ -41,6 +41,14 @@
 <Type>%Boolean</Type>
 </Property>
 
+<Property name="Username">
+<Type>%String</Type>
+</Property>
+
+<Property name="Password">
+<Type>%String</Type>
+</Property>
+
 <Property name="Failed">
 <Type>%ListOfDataTypes</Type>
 </Property>
@@ -428,7 +436,7 @@
 When customizing this method, override the arguments with whatever variables and types you expect to receive from %New().
 For example, if you're going to call %New, passing 2 arguments, %OnNew's signature could be:
 <p>Method %OnNew(dob as %Date = "", name as %Name = "") as %Status]]></Description>
-<FormalSpec>initvalue:%CacheString</FormalSpec>
+<FormalSpec>Username:%String="",Password:%String=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -437,6 +445,10 @@
 	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>
@@ -479,7 +491,6 @@
 </Method>
 
 <Method name="VoerUitGetLatest">
-<Private>1</Private>
 <Implementation><![CDATA[
 	set ..IsGetLatestGefaald = 0
 	set ..IsCodeVeranderd = 0
@@ -488,7 +499,7 @@
 		set rsRepos = ##class(%ResultSet).%New("svn.Repository:Extent")
 		do rsRepos.Execute()
 		while rsRepos.Next() {
-			set Repo = ##class(svn.Repository).OpenId(rsRepos.Get("ID"))
+			set Repo = ..OpenRepository(rsRepos.Get("ID"))
 			do Repo.CheckOut()
 			do ##class(TECH.ListUtils).CopyListOfDataTypes(Repo.Failed,..Failed)
 			do ##class(TECH.ListUtils).CopyListOfDataTypes(Repo.ToCompile,..ToCompile.List)
@@ -564,16 +575,25 @@
 	set rsRepo = ##class(%ResultSet).%New("svn.Repository:Extent")
 	do rsRepo.Execute()
 	while ( rsRepo.Next() ) && ( '$IsObject(RepoToUse) ) {
-		set Repo = ##class(svn.Repository).OpenId(rsRepo.Get("ID"))
+		set Repo = ..OpenRepository(rsRepo.Get("ID"))
 		if Repo.HasToBeSynchronized(InternalName) set RepoToUse = Repo
 	}
 	
 	if RepoToUse = "" write !,"Skipping : "_InternalName
-	
-	
 	quit RepoToUse
 ]]></Implementation>
 </Method>
+
+<Method name="OpenRepository">
+<FormalSpec>RepoID:%String</FormalSpec>
+<ReturnType>svn.Repository</ReturnType>
+<Implementation><![CDATA[
+	set Repo = ##class(svn.Repository).OpenId(RepoID)
+	set Repo.Password = ..Password 
+	set Repo.Username = ..Username
+	quit Repo
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: svn/StudioHook.cls.xml
===================================================================
diff -u -r1572 -r1574
--- svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1572)
+++ svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1574)
@@ -354,7 +354,7 @@
 	set Action=0
 	set ..Cmd=0
 	write "Synchronisatie van de wijzigingen wordt uitgevoerd ",!
-	do ##class(svn.Helper).%New().ShortSync()
+	do ##class(svn.Helper).%New(..Name,..Password).ShortSync()
 	write "Synchronisatie afgelopen",!
 ]]></Implementation>
 </Method>
@@ -365,7 +365,7 @@
 	set Action=0
 	set ..Cmd=0
 	write "Synchronisatie wordt uitgevoerd ",!
-	do ##class(svn.Helper).%New().AutoSync()
+	do ##class(svn.Helper).%New(..Name,..Password).AutoSync()
 	write "Synchronisatie afgelopen",!
 ]]></Implementation>
 </Method>
@@ -733,18 +733,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Login">
-<Description><![CDATA[
-Login to SourceControl if needed<br>
-also, setup environment]]></Description>
-<FormalSpec>Name:%String,Password:%String</FormalSpec>
-<ReturnType>%Status</ReturnType>
+<Method name="IsStudioHookActive">
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	if '$IsObject(..svnHelper) set ..svnHelper = ##class(Helper).%New()
-
-	if ..Debug write !,"Fired Login() for '",Name,"'"
-	set tSC=$$$OK
- 	if '$d(^SYS("SourceControl",..#PRODUCT)) {
+	Set Active = 1
+	if '$d(^SYS("SourceControl",..#PRODUCT)) {
 		set tTxt(1)=" The "_..#PRODUCT_" is not initialized! "
 		set tTxt(2)=" use Subversion -> Settings menu to create "
 		set tTxt(3)=" project settings in Cache! "
@@ -758,16 +751,37 @@
 		for i=4 write !,"*" s tSpace=tLen-$l(tTxt(i))\2-1 s tTxt(i)=$j(" ",tSpace)_tTxt(i) s tSpace=tLen-$l(tTxt(i)) w tTxt(i)_$j(" ",tSpace),"*"
 		write ! for i=1:1:tLen+2 write "*"
 		
-	 	// set DISCONNECTED status
-	 	set ..IsDisconnected=1
-	 	quit $$$OK
- 	}
+	 	set Active=0
+	}
+	Quit Active
+]]></Implementation>
+</Method>
+
+<Method name="Login">
+<Description><![CDATA[
+Login to SourceControl if needed<br>
+also, setup environment]]></Description>
+<FormalSpec>Name:%String,Password:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	if ..Debug write !,"Fired Login() for '",Name,"'"
+
+ 	set ..Name=Name
+ 	set ..Password =Password
+	
+	if '$IsObject(..svnHelper) {
+		set ..svnHelper = ##class(Helper).%New(Name,Password)
+	}
+	
+	if '..IsStudioHookActive() {
+		set ..IsDisconnected = 1
+		quit $$$OK
+	}	
+	
+	
+	
+	set tSC=$$$OK
 	try {
-	 	set ..Name=Name
-	 	// DK +2.10
-	 	set ..Password=Password
-	 	// DK -2.10
-	 	// get TEMP (Windows) or HOME (Unix) environment variables
 	 	if $$$ISWINDOWS {
 		 	set tCmd="set TEMP"
 	 	} elseif $$$ISUNIX {
@@ -839,29 +853,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="OnAfterLoad">
-<FormalSpec>InternalName:%String,Object:%RegisteredObject=$$$NULLOREF</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	if ..Debug Write !,"Method 'OnAfterLoad' InternalName:"_InternalName
-	#dim tCmd as svn.Command
-	
-	set Repository = ..svnHelper.GeefRepository(InternalName)
-	
-	if $IsObject(Repository) {
-		do Repository.Status(InternalName)
-	}
-	
-	if ##class(TECH.SourceCodeUtils).Type(InternalName)="project" {
-		set ..ProjectNameOriginal=$p(InternalName,".",1)
-		set ..ProjectNameModified = ..svnHelper.ExternalName(InternalName,$$$FULLPATH)
-		set ..IsNewProject=0
-	}
-	
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
 <Method name="BranchGet">
 <CodeMode>expression</CodeMode>
 <ReturnType>%String</ReturnType>
@@ -1077,6 +1068,26 @@
 <Implementation><![CDATA[	do ##class(svn.Updater).Update()
 ]]></Implementation>
 </Method>
+
+<Method name="OnAfterLoad">
+<FormalSpec>InternalName:%String,Object:%RegisteredObject=$$$NULLOREF</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	if ..Debug Write !,"Method 'OnAfterLoad' InternalName:"_InternalName
+	set Repository = ..svnHelper.GeefRepository(InternalName)
+	if $IsObject(Repository) {
+		do Repository.Status(InternalName)
+	}
+	/*
+	if ##class(TECH.SourceCodeUtils).Type(InternalName)="project" {
+		set ..ProjectNameOriginal=$p(InternalName,".",1)
+		set ..ProjectNameModified = ..svnHelper.ExternalName(InternalName,$$$FULLPATH)
+		set ..IsNewProject=0
+	}
+	*/
+	quit $$$OK
+]]></Implementation>
+</Method>
 </Class>