[FIX] xml extension bug

Author: gevorg95

cls/sc/diff/gitLocal.cls

@@ -27,7 +27,7 @@ ClassMethod buildDiff(repo As %String, sha1 As %String, sha2 As %String, Output
 		set status = $e($piece(element, $c(9)))
 		set file = $piece(element, $c(9), 2)
 
-		if ($l(file,"src/") '= 2) continue
+		if ($l(file,"src/") < 2) continue
 
 		set isRelevantFile = ##class(sc.diff.utils).isRelevantFile(file)
 		if ((element="") || ('isRelevantFile))	continue
@@ -42,7 +42,7 @@ ClassMethod buildDiff(repo As %String, sha1 As %String, sha2 As %String, Output
 		}elseif $length(element, $c(9))=3 
 		{
 			set file = $piece(element, $c(9), 3)
-			if ($l(file,"src/") '= 2) continue
+			if ($l(file,"src/") < 2) continue
 			if ((status="C") || (status="R")) 
 			{
 				do ##class(sc.diff.utils).ToCacheName(.newFile)

cls/sc/diff/utils.cls

@@ -3,17 +3,18 @@ Class sc.diff.utils
 
 Parameter TRACKEDEXT As List = {$lb("xml", "cls", "csp", "csr", "mac", "int", "bas", "inc", "gbl", "prj", "obj", "pkg", "gof", "dfi", "pivot", "dashboard")};
 
-ClassMethod ToCacheName(ByRef FileName)
+ClassMethod ToCacheName(ByRef filename)
 {
-	set:$L(FileName,".xml")'=1 FileName = $extract(FileName,1,*-4)
-	set str = $Select($L(FileName,"cls/")>1:$Replace($P(FileName,"cls/",2),"/","."),
-	    $L(FileName,"csp/")>1:$Replace($P(FileName,"csp/",2),"/","."),
-	    $L(FileName,"dfi/")>1:$Replace($P(FileName,"dfi/",2),"/","-"),
-	    $L(FileName,"inc/")>1:$Replace($P(FileName,"inc/",2),"/","."),
-	    $L(FileName,"web/")>1:$Replace($P(FileName,"web/",2),"/","."),
-	    1:$Replace(FileName,"/",".")
+	do:$L(filename,".xml")>1 ..getExtension(.filename)
+	set str = $Select(
+		$L(filename,"cls/")>1:$Replace($P(filename,"cls/",2),"/","."),
+	    $L(filename,"csp/")>1:$Replace($P(filename,"csp/",2),"/","."),
+	    $L(filename,"dfi/")>1:$Replace($P(filename,"dfi/",2),"/","-"),
+	    $L(filename,"inc/")>1:$Replace($P(filename,"inc/",2),"/","."),
+	    $L(filename,"web/")>1:$Replace($P(filename,"web/",2),"/","."),
+	    1:$Replace(filename,"/",".")
 	   )
-	set FileName = $P(str,".",1,*-1)_"."_ $ZCVT($P(str,".",*),"U")
+	set filename = $P(str,".",1,*-1)_"."_ $ZCVT($P(str,".",*),"U")
 }
 
 ClassMethod isRelevantFile(file As %String) As %Boolean
@@ -22,5 +23,14 @@ ClassMethod isRelevantFile(file As %String) As %Boolean
 	quit $lf(..#TRACKEDEXT, ext)>0
 }
 
+ClassMethod getExtension(ByRef filename)
+{
+	if ($L(filename,"dfi/") > 1) {
+		set filename = $extract(filename,1,*-4)_".DFI"
+	}elseif ($L(filename,"cls/") > 1) {
+		set filename = $extract(filename,1,*-4)_".CLS"
+	}
+}
+
 }