Index: BL/Prod/ImageLinkEdit.cls.xml
===================================================================
diff -u -r29059 -r74862
--- BL/Prod/ImageLinkEdit.cls.xml (.../ImageLinkEdit.cls.xml) (revision 29059)
+++ BL/Prod/ImageLinkEdit.cls.xml (.../ImageLinkEdit.cls.xml) (revision 74862)
@@ -20,10 +20,21 @@
PR
-
-\\notes01\Images
-
+
+
+
+
+
+1
+1
+%String
+
+
+
d ##class(BL.Prod.ImageLinkEdit).Scan()
@@ -72,7 +83,7 @@
. Set lbPaths=$LG(lbSearchDef,2)
. For pPath=1:1:$LL(lbPaths) Do Quit:Found
. . For pExt=1:1:$LL(lbExt) Do Quit:Found
- . . . Set FilePath=..#ImageShare_"\"_$LG(lbPaths,pPath)_"\"_FileName_"."_$LG(lbExt,pExt)
+ . . . Set FilePath=..GeefImageDir()_"\"_$LG(lbPaths,pPath)_"\"_FileName_"."_$LG(lbExt,pExt)
. . . Set Found=##class(%File).Exists(FilePath)
. . . ;w FilePath,":",##class(%File).Exists(FilePath),!
. . . Set:Found lbRes=$G(lbRes)_$LB($LB($LG(lbSearchDef,1),$LG(lbPaths,pPath),FileName,$LG(lbExt,pExt)))