Merge pull request #90 from intersystems-community/stage

update saving event

Author: nsolov

module.xml

@@ -5,7 +5,7 @@
       <Name>zpm-registry</Name>
       <ExternalName>ZPM Registry</ExternalName>
       <Description>Registry server for ZPM</Description>
-      <Version>1.1.16</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()
     }
 }