Merge pull request #87 from intersystems-community/updateAnalytics

Update analytics

Author: nsolov

Dockerfile

@@ -1,4 +1,4 @@
-FROM containers.intersystems.com/intersystems/iris-community:2022.2.0.311.0
+FROM intersystems/iris-community:2022.2.0.345.0
 
 WORKDIR /opt/registry
 

README.md

@@ -1,4 +1,6 @@
 # intersystems zpm-registry
+[![Quality Gate Status](https://community.objectscriptquality.com/api/project_badges/measure?project=intersystems_iris_community%2Fzpm-registry&metric=alert_status)](https://community.objectscriptquality.com/dashboard?id=intersystems_iris_community%2Fzpm-registry) 
+
 ZPM Registry is a a server part of ObjectScript Package Manager.
 
 ZPM Registry hosts ZPM packages and publishes API to publish, list and deploy packages.

module.xml

@@ -5,7 +5,7 @@
       <Name>zpm-registry</Name>
       <ExternalName>ZPM Registry</ExternalName>
       <Description>Registry server for ZPM</Description>
-      <Version>1.1.9</Version>
+      <Version>1.1.17</Version>
       <Packaging>module</Packaging>
       <Dependencies>
         <ModuleReference>

src/cls/ZPM/Analytics/Event.cls

@@ -46,14 +46,15 @@ ClassMethod SaveEvent(action As %String, ip As %String = "", json As %DynamicObj
         Set event = ..%New()
         Set event.Action = action
         Set event.IP = ip
+        Do event.%JSONImport(json)
+        $$$ThrowOnError(event.%Save())
         If ##class(%Dictionary.CompiledClass).%ExistsId("ZPM.Analytics.IP") {
             Do ##class(ZPM.Analytics.IP).SetGeo(event, ip)
         }
-        DO event.%JSONImport(json)
         $$$ThrowOnError(event.%Save())
         Return $$$OK
     } Catch ex {
-        do ex.Log()
+        Do ex.Log()
         Return ex.AsStatus()
     }
 }

src/cls/ZPM/UpLink.cls

@@ -370,6 +370,7 @@ ClassMethod SaveUplinks(joUplinks As %DynamicObject, filemodificationTS As %Stri
         Do ..AddUplink(key, joOneUplink.url, joOneUplink."allow_packages", position)
     }
     Set ^zpmregistry("filemodified") = filemodificationTS
+    quit $$$OK
 }
 
 ClassMethod IsDefaultConfig(obj As %DynamicObject) As %Boolean