Index: TECH/CSP/CSPApplicatie.cls.xml
===================================================================
diff -u -r2193 -r2194
--- TECH/CSP/CSPApplicatie.cls.xml	(.../CSPApplicatie.cls.xml)	(revision 2193)
+++ TECH/CSP/CSPApplicatie.cls.xml	(.../CSPApplicatie.cls.xml)	(revision 2194)
@@ -167,26 +167,25 @@
 <Method name="GenereerVolledigeURL">
 <Description>
 Geeft de volledige url terug :  http://server/csp-dir/csp-naam?querystringparams 
-vertrekkende van de gegeven cspKlasseNaam. 
-De QueryStringParameterLijst is een list bvb.  item1 : "key=value"  , item2 : "key2=value2"  , ... </Description>
+vertrekkende van de gegeven CspClassName. 
+De QueryStringParameterList is een list bvb.  item1 : "key=value"  , item2 : "key2=value2"  , ... </Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>CspClassName:%String,QueryStringParameterLijst:%ListOfDataTypes=""</FormalSpec>
+<FormalSpec>CspClassName:%String,QueryStringParameterList:%ListOfDataTypes=""</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	If $$$Not(##class(%CacheFileBridge.Project).DerivesFrom(CspClassName,"%CSP.Page")) {
+	If $$$Not(##class(TECH.ClassUtils).ClassDerivesFrom(CspClassName,"%CSP.Page")) {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De klasse "_CspClassName_" is geen CSP-klasse"))
 	}
-
+	
 	Set Server=$$$LCase($$$Server)
 	Set CspClassURL=##class(TECH.ClassUtils).GetClassParameterValue(CspClassName,"CSPURL")
 	
 	Set QueryString=""
-	If $IsObject(QueryStringParameterLijst) {
-		Set ParamsIterator=##class(TECH.ListIterator).%New(QueryStringParameterLijst)
+	If $IsObject(QueryStringParameterList) {
+		Set ParamsIterator=##class(TECH.ListIterator).%New(QueryStringParameterList)
 		While ParamsIterator.HasNext() {
 			Set KeyValuePair=ParamsIterator.Next()
 			Set QueryString=QueryString_$S($L(QueryString):"&",1:"")_KeyValuePair
-			;Set mdQueryString($P(KeyValuePair,"=",1))=$P(KeyValuePair,"=",2)
 		}
 	}