Index: BL/Prod/ImageLinkImport.cls.xml
===================================================================
diff -u -r69313 -r74862
--- BL/Prod/ImageLinkImport.cls.xml	(.../ImageLinkImport.cls.xml)	(revision 69313)
+++ BL/Prod/ImageLinkImport.cls.xml	(.../ImageLinkImport.cls.xml)	(revision 74862)
@@ -1153,12 +1153,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefImageDir">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.Config.ConfigMgr).Instance().GeefString("ImagesDirectory","\\Notes01\Images")
+]]></Implementation>
+</Method>
+
 <Method name="ImportOneOrgalux">
 <FormalSpec>PRNr:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#define OLPath "Orgalux\"
-	#define OLRoot "\\notes01\images\"
+	#define OLRoot ..GeefImageDir() _ "\"
 	#define OLGroep "OL"
 	Do ..RemoveOldImages(..#OLObjType,PRNr,..#OLOorsprong)
 	Set blMulti=##class(BL.Kenm.ProdMulti).Create($$$OLGroep)
@@ -1237,7 +1245,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	If $G(CheckLink,1) Do
-	. Set FullPath="//Notes01/Images/"_Image
+	. Set FullPath=..GeefImageDir()_"/"_Image
 	. Set Exist=##class(%File).Exists(FullPath)
 	. If $$$Not(Exist) Write:(..OutputToScreen) "Bestand bestaat niet "_FullPath,!   ; Image
 	Set Image=$Tr(Image,"/","\")
@@ -1419,10 +1427,10 @@
 Routine laten lopen vóór method AddSVG !!!!
 D ##class(BL.Prod.ImageLinkImport).%New().ReplaceWithVHImage()</Description>
 <Implementation><![CDATA[
-	Set Dir("P")="//Notes01/Images/Blum/P/"
-	Set Dir("V")="//Notes01/Images/Blum/P/"
-	Set Dir("W")="//Notes01/Images/Blum/W/"
-	Set Dir("T")="//Notes01/Images/Blum/T/"
+	Set Dir("P")=..GeefImageDir()_"/Blum/P/"
+	Set Dir("V")=..GeefImageDir()_"/Blum/P/"
+	Set Dir("W")=..GeefImageDir()_"/Blum/W/"
+	Set Dir("T")=..GeefImageDir()_"/Blum/T/"
 	
 	#include %occStatus
 	Kill Cache