Index: WV.mac.rou
===================================================================
diff -u -r948 -r1030
--- WV.mac.rou	(.../WV.mac.rou)	(revision 948)
+++ WV.mac.rou	(.../WV.mac.rou)	(revision 1030)
@@ -1155,6 +1155,17 @@
 	.  
 	. ;d WL^vhDBG("Key="_Key_":")
 	. 
+	. 
+	. // (Added by WimV on 07/04/2011) 
+	. Set SkipThisKey=0
+	. If $G(%CheckFotoSleutelsOnly,1)=1 Do
+	. . // Controleren dat Key voorkomt als FotoSleutel (i.e. kenmerk "InfoSleutel"),  anders is Key enkel nodig voor TekstSleutel, dan niet meer invullen van de Foto als VertalingLink  
+	. . Set FotoSleutelExists=$D(^Prod.Ken.DataIndexD("OL","InfoSleutel",Key))
+	. . Set SkipThisKey=(FotoSleutelExists=0)
+	. 
+	. Quit:(SkipThisKey)   ; EARLY QUIT - CONTINU with next key !!! 
+	. 
+	. 
 	. // Fill in when vertaling EMPTY:  Key="<BX5060GR>"  -->  "ViaSleutelK/BX5060GR.jpg"
 	. ; Extract ImageName from Key 
 	. Set ImgName=$TR($$$Trim(Key),"<>","")