Index: TECH/CSP/CSPApplicatie.cls.xml
===================================================================
diff -u -r748 -r759
--- TECH/CSP/CSPApplicatie.cls.xml	(.../CSPApplicatie.cls.xml)	(revision 748)
+++ TECH/CSP/CSPApplicatie.cls.xml	(.../CSPApplicatie.cls.xml)	(revision 759)
@@ -1,8 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel) 5.0.21 (Build 6408)" ts="2011-01-31 13:03:04">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel) 5.0.21 (Build 6408)" ts="2011-02-01 09:55:23">
 <Class name="TECH.CSP.CSPApplicatie">
 <Super>%RegisteredObject</Super>
-<TimeChanged>62122,39425.779742</TimeChanged>
+<TimeChanged>62123,35721.46434</TimeChanged>
 <TimeCreated>62118,40201.147412</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -23,22 +23,33 @@
 ]]></Implementation>
 </Method>
 
-<Method name="IsCSP">
-<FormalSpec>CSPUrl:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	set Eerste5Karakters = $zconvert($extract(CSPUrl,1,5),"l")
-	set Result = Eerste5Karakters = "/csp/"
-	quit Result
-]]></Implementation>
-</Method>
+<UDLText name="T">
+<Content><![CDATA[
+// Code is vrij vanhoecke specifiek dus resultaat is zeker niet 100% betrouwbaar.
 
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+// We gaan er vanuit dat indien eerste deel van url /csp is de applicatie bestaat uit twee delen 
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+// anders is het enkel het eerste deel
+
+]]></Content>
+</UDLText>
+
 <Method name="GetApplicatieNaam">
 <FormalSpec>CSPUrl:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	set amPieces = $length(CSPUrl,"/")
-	set result = $piece(CSPUrl,"/",1,amPieces-1)
+	if $extract(CSPUrl,1,5)="/csp/" { set result = $piece(CSPUrl,"/",1,3) }
+	else { set result = $piece(CSPUrl,"/",1,2) }
 	quit result
 ]]></Implementation>
 </Method>
@@ -48,11 +59,8 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#if $system.Version.GetMajor()=5
-	
-	set IsBeschikbaar = 1
-	
+	set IsBeschikbaar = $data(^%SYS("CSP","Applications",ApplicatieNaam))
 	#else
-	
 	set HuidigeNamespace = $zutil(5)
 	znspace "%SYS"
 	set ApplicatieNaam = ..VervolledigApplicatieNaam(ApplicatieNaam)
@@ -66,12 +74,12 @@
 </Method>
 
 <Method name="GetNameSpace">
-<FormalSpec>ApplicatieNaam:%String</FormalSpec>
+<FormalSpec>CSPApplicatie:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#if $system.Version.GetMajor()=5
 	
-	set result = $zutil(5)
+	set result = $listget($get(^%SYS("CSP","Applications",CSPApplicatie)),9)
 	
 	#else
 		
@@ -80,10 +88,8 @@
 	znspace "%SYS"
 	
 	set result = ""
-	set qHandler = ##class(%ResultSet).%New()
-	set ApplicatieNaam = ..VervolledigApplicatieNaam(ApplicatieNaam)
-	
-	set Applicatie = ##class(Security.Applications).%OpenId(ApplicatieNaam)
+	set CSPApplicatie = ..VervolledigApplicatieNaam(CSPApplicatie)
+	set Applicatie = ##class(Security.Applications).%OpenId(CSPApplicatie)
 	if $IsObject(Applicatie) {
 		set result = Applicatie.NameSpace
 	}
@@ -95,6 +101,59 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Directory">
+<FormalSpec>CSPApplicatie:%String=""</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit $listget($get(^%SYS("CSP","Applications",CSPApplicatie)),2)
+]]></Implementation>
+</Method>
+
+<Method name="CSPApplicaties">
+<FormalSpec>Namespace:%String=""</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	set Namespace = $zconvert(Namespace,"U")
+	
+	#if $system.Version.GetMajor()=5
+
+	set listApplicaties = ##class(%ListOfDataTypes).%New()
+
+	set CSPApp = ""
+	for  { set CSPApp = $order(^%SYS("CSP","Applications",CSPApp))  
+		Quit:CSPApp=""
+		if $length(Namespace) { set IsValid = ..GetNameSpace(CSPApp)=Namespace }
+		else { set IsValid = 1 }
+		if IsValid do listApplicaties.Insert(CSPApp)
+	}
+	
+	#else
+
+	#endif
+
+	quit listApplicaties
+]]></Implementation>
+</Method>
+
+<Method name="CSPFiles">
+<FormalSpec>CSPApplicatie:%String=""</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	set listCSPFiles = ##class(%ListOfDataTypes).%New()
+	
+	set Directory = ..Directory(CSPApplicatie)
+	set listFiles = ##class(TECH.Files).%New().GetFileList(Directory,"*.*")
+	set itFiles = ##class(TECH.ListIterator).%New(listFiles)
+	while itFiles.HasNext() {
+		set FileInfo = itFiles.Next()
+		set Filename = ##class(TECH.StringUtils).Replace(FileInfo.Name,Directory,"")
+		set cspFile = CSPApplicatie _"/"_ $translate(Filename,"\","/")
+		do listCSPFiles.Insert(cspFile)
+	}
+	
+	quit listCSPFiles
+]]></Implementation>
+</Method>
+
 <Method name="GetPhysicalFilename">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>cspFile:%String</FormalSpec>
@@ -105,5 +164,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3020416657"/>
+<Checksum value="762627666"/>
 </Export>