Index: BL/Blum/Cataloog/ImportPDF.cls.xml
===================================================================
diff -u -r29059 -r74862
--- BL/Blum/Cataloog/ImportPDF.cls.xml	(.../ImportPDF.cls.xml)	(revision 29059)
+++ BL/Blum/Cataloog/ImportPDF.cls.xml	(.../ImportPDF.cls.xml)	(revision 74862)
@@ -41,11 +41,13 @@
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
-<Property name="RootDirPDFs">
-<Type>%String</Type>
-<Parameter name="TRUNCATE" value="1"/>
-</Property>
+<UDLText name="T">
+<Content><![CDATA[
+// Property RootDirPDFs As %String(TRUNCATE = 1);
 
+]]></Content>
+</UDLText>
+
 <Property name="BlumIndexFilePath">
 <Type>%String</Type>
 <Parameter name="TRUNCATE" value="1"/>
@@ -65,7 +67,8 @@
 	Kill ^BlumCat("P"_Language)
 	
 	Set filePrefix = $CASE($Get(Language),"N":"nl_","F":"fr_",:"input error")
-	Set RootDirPDFs="\\Notes01\Images\Blum\CA"_$S($Get(Language)="N":"N",1:"F")
+	Set RootDirPDFs=##class(TECH.Config.ConfigMgr).Instance().GeefString("ImagesDirectory","\\Notes01\Images")
+	Set RootDirPDFs=RootDirPDFs _"\Blum\CA"_$S($Get(Language)="N":"N",1:"F")
 	d WL^vhDBG("prefix : "_filePrefix)
 	
 	if (##class(%File).DirectoryExists(RootDirPDFs)) Do
@@ -123,7 +126,8 @@
 	. Kill ^BlumCat("I"_"F")
 	Else  Do
 	. Kill ^BlumCat("I"_Language)
-
+	
+	// TODO : dfs equivalent hiervoor
 	Set BlumIndexFilePath="\\notes01\shared\P V\BlumIndex2008.txt"
 	
 	Quit:'(##class(%File).Exists(BlumIndexFilePath))