Index: BL/Prod/ImageLinkControle.cls.xml
===================================================================
diff -u -r1074 -r1884
--- BL/Prod/ImageLinkControle.cls.xml	(.../ImageLinkControle.cls.xml)	(revision 1074)
+++ BL/Prod/ImageLinkControle.cls.xml	(.../ImageLinkControle.cls.xml)	(revision 1884)
@@ -222,7 +222,7 @@
     . . Set IDVectorieel=arVectorieel("SelectID")_"||"_arVectorieel("SelectKey")
     . . Set ImgID=arVectorieel("SelectID")
     . . Set IMGNAME1=$P(URLVectorieel,"/",$L(URLVectorieel,"/"))
-    . . Set IMGNAME1=$Piece(IMGNAME1,".")
+    . . Set IMGNAME1=..StripExtensie(IMGNAME1)
     . ;web-afbeelding
     . If URLWeb="" Do
     . . Set IDWeb=IDOnbekend
@@ -232,7 +232,7 @@
     . . Set IDWeb=arWeb("SelectID")_"||"_arWeb("SelectKey")
     . . Set ImgID=arWeb("SelectID")
     . . Set IMGNAME2=$P(URLWeb,"/",$L(URLWeb,"/"))
-    . . Set IMGNAME2=$Piece(IMGNAME2,".")
+    . . Set IMGNAME2=..StripExtensie(IMGNAME2)
     . ;thumbnail-afbeelding
     . If URLThumbNail="" Do
     . . Set IDThumbNail=IDOnbekend
@@ -242,7 +242,7 @@
     . . Set IDThumbNail=arThumbNail("SelectID")_"||"_arThumbNail("SelectKey")
     . . Set ImgID=arThumbNail("SelectID")
     . . Set IMGNAME3=$P(URLThumbNail,"/",$L(URLThumbNail,"/"))
-    . . Set IMGNAME3=$Piece(IMGNAME3,".")
+    . . Set IMGNAME3=..StripExtensie(IMGNAME3)
     . Set lbImgNames=$LB(IMGNAME1,IMGNAME2,IMGNAME3)
     . Quit:pxCriteria.WithImagesOnly&(lbImgNames=$LB("","",""))  ; alleen producten tonen als er afbeelding bestaan
     . Set Goedgekeurd=$S(ImgID'=""&&(##class(Res.ImageLink).%OpenId(ImgID).ApprovedOn'=""):1,1:"")
@@ -289,11 +289,21 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set Bestand=$Piece(URL,"\",$L(URL,"\"))
-	Set Bestand=$Piece(Bestand,".")
+	Set Bestand=..StripExtensie(Bestand)
 	Quit Bestand
 ]]></Implementation>
 </Method>
 
+<Method name="StripExtensie">
+<FormalSpec>FilePad</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set pExt=$L(FilePad,".")
+	Quit:pExt=1 FilePad ; geen extensie
+	Quit $P(FilePad,".",1,$L(FilePad,".")-1)
+]]></Implementation>
+</Method>
+
 <Method name="Pad">
 <FormalSpec>URL</FormalSpec>
 <ReturnType>%String</ReturnType>