Index: BL/Legacy/HADWIZ.cls.xml
===================================================================
diff -u -r71473 -r71499
--- BL/Legacy/HADWIZ.cls.xml	(.../HADWIZ.cls.xml)	(revision 71473)
+++ BL/Legacy/HADWIZ.cls.xml	(.../HADWIZ.cls.xml)	(revision 71499)
@@ -205,11 +205,6 @@
 	
 	If ProductApi.BestaatProduct(ProductId) {
 		#dim IdentNummer As %String = ProductApi.GeefProduct(ProductId).GeefIdentNr()
-		;write !,"IdentNummer '"_$$$LCVT(IdentNummer)_"' ."
-		;write !," AES enc :"_$System.Encryption.AESCBCEncrypt(IdentNummer,AesKey)
-		;write !," AES CBC enc :"_ $System.Encryption.Base64Encode($System.Encryption.AESCBCEncrypt(IdentNummer,AesKey,""))
-		;write !," AES old enc :"_ $System.Encryption.Base64Encode($System.Encryption.AESEncode(IdentNummer,AesKey))
-		;write !!
 		#dim EncryptedValue As %String = $System.Encryption.Base64Encode($System.Encryption.AESCBCEncrypt(IdentNummer,AesKey,""))
 		Set ProductAlsUrlInput = $Translate(EncryptedValue, "/+=", "!_-")
 	}
@@ -220,40 +215,11 @@
 			"D" : "/de", 
 			 : "/nl")
 	Set SubFolder = SubFolder _ "/product/decrypt"
-
+	
 	Quit "https://www-test.vanhoecke.be" _ SubFolder _ "/" _ ProductAlsUrlInput
 ]]></Implementation>
 </Method>
 
-<Method name="GeefProductInfoUrlVhisie4xNoEncryption">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>ProductId:%String,Taal:%String="N"</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	Set:($$$Trim(Taal)="") Taal = "N"
-	
-	#dim ProductApi As DOM.PM.ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
-	#dim Korttekst As %String = ""
-	#dim KorttekstAlsUrlInput As %String = ""
-	
-	#dim SubFolder As %String = $Case(Taal, 
-			"N" : "/nl/producten", 
-			"F" : "/fr/produits", 
-			"E" : "/en/products", 
-			"D" : "/de/Produkte", 
-			 : "/nl/producten")
-			
-	If ProductApi.BestaatProduct(ProductId) {
-		Set Korttekst = ProductApi.GeefProduct(ProductId).GeefKorttekst()
-		Set KorttekstAlsUrlInput = $$$LCase($$$Trim(Korttekst))
-		Set KorttekstAlsUrlInput = ##class(TECH.StringUtils).Replace(KorttekstAlsUrlInput,"  "," ", , , $$$True)   ; Last param True to ensure all double (and triple) spaces are replaced by 1 space)
-		Set KorttekstAlsUrlInput = ##class(TECH.StringUtils).Replace(KorttekstAlsUrlInput," ","-")
-	}
-	
-	Quit "https://www.vanhoecke.be" _ SubFolder _ "/" _ KorttekstAlsUrlInput
-]]></Implementation>
-</Method>
-
 <Method name="IsInetpubFolderBeschikbaar">
 <Description>
 Bepaalt of de destination directory "inetpub-folder op FOP via netwerk-share" beschikbaar/bereikbaar is voor Kaderdeur pdf. </Description>