Index: WS/VisiDot/OperatorServer.cls.xml
===================================================================
diff -u -r1861 -r1866
--- WS/VisiDot/OperatorServer.cls.xml	(.../OperatorServer.cls.xml)	(revision 1861)
+++ WS/VisiDot/OperatorServer.cls.xml	(.../OperatorServer.cls.xml)	(revision 1866)
@@ -60,24 +60,7 @@
     Set CaptureString = CaptureInfo.Read(32000)
     Do CaptureInfo.Rewind()
 	Do ##class(vhLib.Logger).%New("WS.VisiDot").Info("CaptureInfo IN", "["_ComputerNaam_"] "_ActionType_" -> "_CaptureString)
-	
-	/*
- 	Set String = CaptureInfo
-	Set Prefix = "&"
-	Set Suffix = ";"
-	Set Aantal = $Length(String,Prefix)
-	Set Find = 1
-	For i = 1:1:Aantal-1
-	{
-		Set Gevonden = $Piece($Piece($Extract(String,Find,$Length(String)),Prefix,2),Suffix)
-		Set Find = $Find(String,Prefix,Find)
-		If ($Extract(String,Find+$Length(Gevonden),Find+$Length(Gevonden)) = Suffix)
-		{
-			Set Found = $Extract(String,Find,Find+$Length(Gevonden)-1)
-			Set $Extract(String,Find,Find+$Length(Gevonden)-1) = ##class(TECH.StringUtils).HTMLEntities(Found)
-		}
-	}
-	*/		
+		
 	Set XMLReader = ##class(%XML.Reader).%New()
 	Do XMLReader.OpenStream(CaptureInfo)
 	Do XMLReader.Correlate("Capture_Info","APPS.VisiDot.dto.CaptureInfo") 
@@ -94,18 +77,21 @@
 	
 	/// XML-object omzetten naar Stream
 	Set ProcessedData = ##class(%GlobalCharacterStream).%New()
-	Set Status = ProcessedDataObject.XMLExportToStream(ProcessedData,,"literal,indent")
+	Set ProcessedDataStream = ##class(%GlobalCharacterStream).%New()
 	
-	/*
-	/// In stream HTML Entities omzetten
+	Set Status = ProcessedDataObject.XMLExportToStream(ProcessedDataStream,,"literal,indent")
+	
+	
+	/// In stream HTML Entities omzetten van de ToolTip 
+	/// 
 omzetten naar 

 	While (ProcessedDataStream.AtEnd = 0) {
         Set Data = ProcessedDataStream.Read(10000)
-        Set Data = ##class(TECH.StringUtils).HTMLEntities(Data)
+        Set Data = ##class(TECH.StringUtils).HTMLEntitiesDecode(Data)
         Do ProcessedData.Write(Data)
     }
     Do ProcessedData.Flush()
-    */
     
+    
     Set ProcesseDataString = ProcessedData.Read(32000)
     Do ProcessedData.Rewind()
 	Do ##class(vhLib.Logger).%New("WS.VisiDot").Info("ProcessedData OUT", "["_ComputerNaam_"] "_ActionType_" -> "_ProcesseDataString)