Index: BL/Prod/ImageLinkImport/BlumImagesVoorAdminImporteerder.cls.xml
===================================================================
diff -u -r68302 -r68448
--- BL/Prod/ImageLinkImport/BlumImagesVoorAdminImporteerder.cls.xml	(.../BlumImagesVoorAdminImporteerder.cls.xml)	(revision 68302)
+++ BL/Prod/ImageLinkImport/BlumImagesVoorAdminImporteerder.cls.xml	(.../BlumImagesVoorAdminImporteerder.cls.xml)	(revision 68448)
@@ -144,15 +144,15 @@
 	#dim ObjType As %String =  ##class(BL.Prod.ImageLinkImport).#ObjType
 	#dim Oorsprong As %String = ""   ; Leeg is oké? 
 	
-	Do ..VerwijderOudeImagLinks(ObjType, ProductId, Oorsprong)
+	Do ..VerwijderOudeImageLinks(ObjType, ProductId, Oorsprong)
 	
 	Do ..VoegToeProductImageLinks(ObjType, ProductId, Oorsprong, ImageFileName)
 	
 	Do ..Logger.Info("VerwerkProductImage","Image-Link(s) aangemaakt voor product "_ProductIdentnummer_" ("_ProductId_") op basis van file '"_ImageFileName_"'.")
 ]]></Implementation>
 </Method>
 
-<Method name="VerwijderOudeImagLinks">
+<Method name="VerwijderOudeImageLinks">
 <FormalSpec>ObjType:%String,ObjRef:%String,Oorsprong:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[	Do ..ImageLinkImportUtil.OpkuisVorigeImages(ObjType, ObjRef, Oorsprong)
@@ -225,8 +225,8 @@
 	If ImageSubdir [ "NOTES01\IMAGES\" {
 		Set ImageSubdir = $Piece(ImageSubdir, "NOTES01\IMAGES\", 2)
 	}
-	If $E(ImageSubdir,*)="\" {
-		Set ImageSubdir = $E(ImageSubdir, 1, *-1)
+	If $Extract(ImageSubdir,*)="\" {
+		Set ImageSubdir = $Extract(ImageSubdir, 1, *-1)
 	}
 	
 	Do ImageLink.AddLink(VisueelType, ImageSubdir, BestandNaamZonderExtensie, , BestandExtensie, ImageSize)