fix isowner

nsolov · nsolov · commit d3daf651f7fb · 2023-03-27T17:38:28.000+04:00
diff --git a/src/cls/ZPM/Owner.cls b/src/cls/ZPM/Owner.cls
@@ -13,7 +13,7 @@ ClassMethod IsAuth() As %Status
 ClassMethod IsOwner(packageName As %String, action As %String = "") As %Status
 {
     Set owner = ""
-    &sql(SELECT TOP 1 owner INTO :owner FROM ZPM.Package WHERE name = :packageName ORDER BY publishTS)
+    &sql(SELECT TOP 1 owner INTO :owner FROM ZPM.Package WHERE name = :packageName ORDER BY publishTS DESC)
     If ( (owner'="") && (owner '= $Username) ){
         Return $$$ERROR($$$GeneralError, "Invalid package owner")
     }

Original file line number	Diff line number	Diff line change
`@@ -13,7 +13,7 @@ ClassMethod IsAuth() As %Status`
`13`	`13`	`ClassMethod IsOwner(packageName As %String, action As %String = "") As %Status`
`14`	`14`	`{`
`15`	`15`	`Set owner = ""`
`16`		`- &sql(SELECT TOP 1 owner INTO :owner FROM ZPM.Package WHERE name = :packageName ORDER BY publishTS)`
	`16`	`+ &sql(SELECT TOP 1 owner INTO :owner FROM ZPM.Package WHERE name = :packageName ORDER BY publishTS DESC)`
`17`	`17`	`If ( (owner'="") && (owner '= $Username) ){`
`18`	`18`	`Return $$$ERROR($$$GeneralError, "Invalid package owner")`
`19`	`19`	`}`