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)))