fix uppercase CLS

isc-etamarch · isc-etamarch · commit 82e144472110 · 2024-11-11T11:13:10.000-05:00
diff --git a/cls/SourceControl/Git/Utils.cls b/cls/SourceControl/Git/Utils.cls
@@ -2504,6 +2504,7 @@ ClassMethod NameToInternalName(Name, IgnorePercent = 1, IgnoreNonexistent = 1, V
         if (InternalName="") {
             //take our best guess based on the document extension mapped to that subdirectory
             set nam=$piece(nam,".",1,*-1)
+            set fileExt = $ZCONVERT(fileExt, "l")
             if (fileExt = "cls" || fileExt = "rtn" || fileExt = "inc") {
                 set nam=$replace(nam, ..PercentClassReplace(), "%")
             }

Original file line number	Diff line number	Diff line change
`@@ -2504,6 +2504,7 @@ ClassMethod NameToInternalName(Name, IgnorePercent = 1, IgnoreNonexistent = 1, V`
`2504`	`2504`	`if (InternalName="") {`
`2505`	`2505`	`//take our best guess based on the document extension mapped to that subdirectory`
`2506`	`2506`	`set nam=$piece(nam,".",1,*-1)`
	`2507`	`+ set fileExt = $ZCONVERT(fileExt, "l")`
`2507`	`2508`	`if (fileExt = "cls" \|\| fileExt = "rtn" \|\| fileExt = "inc") {`
`2508`	`2509`	`set nam=$replace(nam, ..PercentClassReplace(), "%")`
`2509`	`2510`	`}`