Merge pull request #21 from SergeyMi37/master

evshvarov · web-flow · commit ba7e532f4675 · 2022-09-23T17:11:12.000+04:00
fixed mistakes
diff --git a/src/dev/FileManExtension.cls b/src/dev/FileManExtension.cls
@@ -154,7 +154,7 @@ Method OnAfterDelete(InternalName As %String) As %Status
 	
 	set dir = ##class(%File).ParentDirectoryName(fileName)
 	
-	while dir '= workdir
+	while dir '= ..workdir()
 	{
 		set rs = ##class(%File).FileSetFunc(dir, , , 1)
 		quit:rs.%Next()=1
diff --git a/src/dev/code.cls b/src/dev/code.cls
@@ -226,7 +226,7 @@ ClassMethod exportGlobals(mask = "") As %Status
 	#include %occInclude
 	set statement=##class(%SQL.Statement).%New()
  	set sc=statement.%PrepareClassQuery("%SYS.GlobalQuery","NameSpaceListChui")
- 	if $$$ISERR(sc) { do $system.OBJ.DisplayError(status) }
+ 	if $$$ISERR(sc) { do $system.OBJ.DisplayError(sc) }
  	set resultset=statement.%Execute($namespace)
 	while resultset.%Next() 
 	{

Original file line number	Diff line number	Diff line change
`@@ -154,7 +154,7 @@ Method OnAfterDelete(InternalName As %String) As %Status`
`154`	`154`
`155`	`155`	`set dir = ##class(%File).ParentDirectoryName(fileName)`
`156`	`156`
`157`		`- while dir '= workdir`
	`157`	`+ while dir '= ..workdir()`
`158`	`158`	`{`
`159`	`159`	`set rs = ##class(%File).FileSetFunc(dir, , , 1)`
`160`	`160`	`quit:rs.%Next()=1`
Original file line number	Diff line number	Diff line change
`@@ -226,7 +226,7 @@ ClassMethod exportGlobals(mask = "") As %Status`
`226`	`226`	`#include %occInclude`
`227`	`227`	`set statement=##class(%SQL.Statement).%New()`
`228`	`228`	`set sc=statement.%PrepareClassQuery("%SYS.GlobalQuery","NameSpaceListChui")`
`229`		`- if $$$ISERR(sc) { do $system.OBJ.DisplayError(status) }`
	`229`	`+ if $$$ISERR(sc) { do $system.OBJ.DisplayError(sc) }`
`230`	`230`	`set resultset=statement.%Execute($namespace)`
`231`	`231`	`while resultset.%Next()`
`232`	`232`	`{`