Index: BL/Prod/ImageLinkImport/BlumImagesVoorAdminImporteerder.cls.xml
===================================================================
diff -u -r68089 -r68090
--- BL/Prod/ImageLinkImport/BlumImagesVoorAdminImporteerder.cls.xml	(.../BlumImagesVoorAdminImporteerder.cls.xml)	(revision 68089)
+++ BL/Prod/ImageLinkImport/BlumImagesVoorAdminImporteerder.cls.xml	(.../BlumImagesVoorAdminImporteerder.cls.xml)	(revision 68090)
@@ -58,7 +58,6 @@
 <Implementation><![CDATA[
 	If ($$$Trim(BestandVolledigeNaam) = "") {
 		Set BestandVolledigeNaam = "\\notes01\shared\W V\Images\import_AX_blum_MVX_2022-06-03.csv"
-		;Set BestandVolledigeNaam = "E:\CacheExport\2010v2\ADMIN1\W V\Images\import_AX_blum_MVX_2022-06-03_kort.csv"
 		;Set BestandVolledigeNaam = "\\notes01\shared\W V\Images\import_AX_blum_MVX_2022-06-03_kort.csv"
 	}
 	
@@ -155,23 +154,14 @@
 	
 	#dim WebImageFileName As %String = ImageFileName
 	Set VisueelType = "W"   ; Web 
-	Do ..AddLink(ImageLink, VisueelType, WebImageFileName, ImageSize, )
+	Do ..AddLink(ImageLink, VisueelType, WebImageFileName, ImageSize, $$$True)
 	
 	#dim ThumbnailImageFileName As %String = ##class(TECH.StringUtils).Replace(ImageFileName, "\W\", "\T\")
 	If ..FileUtils.FileExists(ThumbnailImageFileName) {
 		Set VisueelType = "T"   ; Thumbnail
 		Do ..AddLink(ImageLink, VisueelType, ThumbnailImageFileName, ImageSize, $$$False)
 	}
 	
-	/*
-	Set VisueelType = "P"   ; Printed
-	#dim IsVectorieel As %Boolean = $$$UCase($Extract(ImageFileName,$L(ImageFileName)-2,$L(ImageFileName)))="SVG"
-	If IsVectorieel {
-		Set VisueelType = "V"   ; Vectorieel
-	}
-	Do ..AddLink(ImageLink, VisueelType, ImageFileName, ImageSize, )
-	*/
-	
 	#dim SaveStatus As %Status = ImageLink.%Save()
 	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SaveStatus, "Het bewaren van ImageLink voor Product ID '"_ObjRef_"' en image '"_ImageFileName_"' is niet gelukt.")
 ]]></Implementation>