update owner

Author: nsolov

src/cls/ZPM/Owner.cls

@@ -23,8 +23,9 @@ ClassMethod IsOwner(packageName As %String) As %Status
 ClassMethod SaveOwner(packageName, packageVersion) As %Status
 {
     Set owner = $Username
-    &sql(UPDATE ZPM.Package SET owner = :owner WHERE name = :packageName AND version = :packageVersion)
-    Return $$$OK
+    Set package = ##class(ZPM.Package).NameVersionOpen(packageName, packageVersion)
+    Set package.owner = owner
+    Return package.%Save()
 }
 
 }

src/cls/ZPM/Registry.cls

@@ -212,7 +212,7 @@ ClassMethod PublishPackage() As %Status
       Return ..ReportHttpStatusCode(..#HTTP403FORBIDDEN, tSC)
     }
     If (##class(ZPM.Package).IsDeleted(name, version)) {
-      Return ..ReportHttpStatusCode(..#HTTP403FORBIDDEN, $$$ERROR(5001,"This version was deleted, change version number"))
+      Return ..ReportHttpStatusCode(..#HTTP500INTERNALSERVERERROR, $$$ERROR(5001,"This version was deleted, change version number"))
     }
 
     If (%request.ContentType '= ..#CONTENTTYPEJSON) {