cAFA11	;Algemene functies ; cAFA11
	;
YZ	Q
	;
HTMLTR(R,DIR)	; speciale html karakters vertalen naar html codes
	; R   : string om te vertanel
	; DIR : van tekst naar html (0 of "") of van html naar tekst (1)
	S $ZT="TRAP^cAN000"	
	N I3 S DIR=$G(DIR)
	D S1^cAFE1
	S D="\",I3=0  F  S I3=$O(^MAIL(0,"HTML.TR",I3)) Q:I3=""  S R=$$REPL^cAFA10(R,$P(^(I3,0),D,DIR+1),$P(^(0),D,2-DIR))
	D S2^cAFE1
HTMLTRZ	Q R
	;
ZZ	; 29.08.07 - 10 u 22 * V8.09