Index: vhPowerTools/APPS/PM/Product/LangTekstControleKarakterCorrigeerder.cls.xml
===================================================================
diff -u -r33591 -r33592
--- vhPowerTools/APPS/PM/Product/LangTekstControleKarakterCorrigeerder.cls.xml	(.../LangTekstControleKarakterCorrigeerder.cls.xml)	(revision 33591)
+++ vhPowerTools/APPS/PM/Product/LangTekstControleKarakterCorrigeerder.cls.xml	(.../LangTekstControleKarakterCorrigeerder.cls.xml)	(revision 33592)
@@ -19,7 +19,6 @@
 	#dim LangtekstTypesIterator As TECH.ListIterator = ##class(APPS.PM.BulkActie.enu.LangtekstTypes).ValueListIterator()
 	While (LangtekstTypesIterator.HasNext()) {
 		#dim LangtekstType As %String = LangtekstTypesIterator.Next()
-		;#dim LangtekstType As %String = "N"    ; ##class(APPS.PM.BulkActie.enu.LangtekstTypes).Bestelreferentie())
 		Do ..CorrigeerLangtekstTaal(ProductID, LangtekstType)
 	}
 ]]></Implementation>
@@ -29,9 +28,7 @@
 <FormalSpec>ProductID:%String,LangtekstType:APPS.PM.BulkActie.enu.LangtekstTypes</FormalSpec>
 <Implementation><![CDATA[
 	#dim OorspronkelijkeLangtekst As %String = ..GeefOorspronkelijkeLangtekst(ProductID,LangtekstType,"~")
-	;write !!,"Oorspr:",!,OorspronkelijkeLangtekst
 	#dim NieuwLangtekst As %String = ..GeefGecorrigeerdeLangtekst(OorspronkelijkeLangtekst)
-	;write !!,"Nieuwe:",!,NieuwLangtekst
 	
 	Set LangtekstBewaarder = ##class(DOM.PM.LangtekstBewaarder).%New(ProductID)
 	Do LangtekstBewaarder.BewaarVoorTaal(NieuwLangtekst,LangtekstType)
@@ -61,24 +58,6 @@
 	Quit Nieuwe
 ]]></Implementation>
 </Method>
-
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Method CorrigeerViaBPA(ProductID As %String) [ Private ]
-{
-	set BulkActie = ##class(APPS.PM.BulkActie.Acties.WijzigLangtekst).%New("DummyFactor","LangTekstControleKarakterCorrigeerder")
-	set ActieParameters = ##class(%ListOfDataTypes).%New()
-	do ActieParameters.Insert("N")   ; ##class(APPS.PM.BulkActie.enu.LangtekstTypes).Bestelreferentie())
-	do ActieParameters.Insert($C(10))
-	do ActieParameters.Insert("~")
-	
-	#dim Resultaat As APPS.PM.BulkActie.dto.ActieResultaat = BulkActie.VoerUit(ProductID,ActieParameters)
-	;Write Resultaat.IsSuccesvol
-}
-*/
-]]></Content>
-</UDLText>
 </Class>