Index: BL/Prod/ImageLinkControle.cls.xml
===================================================================
diff -u -r29059 -r74862
--- BL/Prod/ImageLinkControle.cls.xml	(.../ImageLinkControle.cls.xml)	(revision 29059)
+++ BL/Prod/ImageLinkControle.cls.xml	(.../ImageLinkControle.cls.xml)	(revision 74862)
@@ -111,11 +111,19 @@
 ]]></Content>
 </UDLText>
 
+<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="Test">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-  ; Do ..Instantiate().LijstOverbodigeFiles("\\notes01\images\Orgalux")
-   Do ..Instantiate().LijstDeadLinks("\\notes01\images\blum")
+   ;Do ..Instantiate().LijstOverbodigeFiles(..GeefImageDir() _ "\Orgalux")
+   Do ..Instantiate().LijstDeadLinks(..GeefImageDir() _ "\blum")
 ]]></Implementation>
 </Method>
 
@@ -310,7 +318,7 @@
 <FormalSpec>URL</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Set Pad=$Piece(URL,"\\Notes01\Images\",2)
+	Set Pad=$Piece(URL,..GeefImageDir() _ "\",2)
 	Set Pad=$Piece(Pad,"\",1,$L(Pad,"\")-1)
 	Quit Pad
 ]]></Implementation>