From 71c5cbfb3b7b04d92a5d0dc7af7520e38e0021f5 Mon Sep 17 00:00:00 2001 From: Shuheng Liu Date: Mon, 29 Jul 2024 15:45:45 -0400 Subject: [PATCH] fix: ignore case when checking for file existence --- src/cls/IPM/ResourceProcessor/Default/Document.cls | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/cls/IPM/ResourceProcessor/Default/Document.cls b/src/cls/IPM/ResourceProcessor/Default/Document.cls index 783922e9..e4f649d0 100644 --- a/src/cls/IPM/ResourceProcessor/Default/Document.cls +++ b/src/cls/IPM/ResourceProcessor/Default/Document.cls @@ -151,19 +151,19 @@ Method OnPhase(pPhase As %String, ByRef pParams, Output pResourceHandled As %Boo Set tResourcePath = tResourcePath _ tFileExtension - If ($$$lcase(tFileExtension)'=".xml")&&('##class(%File).Exists(tResourcePath)) { + If ($$$lcase(tFileExtension)'=".xml")&&('##class(%IPM.Utils.File).Exists(tResourcePath)) { Set tResourcePathXML = tResourcePath Set $PIECE(tResourcePath, ".", *) = "xml" - If (##class(%File).Exists(tResourcePathXML)) { + If (##class(%IPM.Utils.File).Exists(tResourcePathXML)) { Set tResourcePath = tResourcePathXML Set ..Format = "XML" } } - If ($$$lcase(tFileExtension)=".mac")&&('##class(%File).Exists(tResourcePath)) { + If ($$$lcase(tFileExtension)=".mac")&&('##class(%IPM.Utils.File).Exists(tResourcePath)) { Set tResourcePathRTN = tResourcePath Set $Piece(tResourcePathRTN, ".", *) = "rtn" - If (##class(%File).Exists(tResourcePathRTN)) { + If (##class(%IPM.Utils.File).Exists(tResourcePathRTN)) { Set tResourcePath = tResourcePathRTN } }