More debug info

Author: eduard93

MDX2JSON/REST.cls.xml

@@ -112,6 +112,11 @@ Test method, outputs <b>%request</b>, <b>%response</b> and <b>%session</b> objec
 		set obj.Namespace = $Namespace
 		set obj.Mappings = ..GetMappings()
 		set obj.Cache = $zv
+		set obj.Access = ##class(MDX2JSON.Users).GetAccess($Username)
+		set obj.SessionId = %session.SessionId
+		set obj.Request = %request
+		set obj.Response = %response
+		set obj.Session = %session
 	}
     do obj.%ToJSON()
     return $$$OK

MDX2JSON/Users.cls.xml

@@ -112,5 +112,23 @@ Get Current user favorites</Description>
 	return $$$OK
 ]]></Implementation>
 </Method>
+
+<Method name="GetAccess">
+<Description>
+Retums info about relevant user priveleges</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>User:%String=$Username</FormalSpec>
+<ReturnType>%ArrayOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set result = ##class(%ArrayOfDataTypes).%New()
+	
+	do result.SetAt($SYSTEM.SQL.CheckPriv(User,"9,MDX2JSON.ResolveText","e"),"MDX2JSON.ResolveText")
+	do result.SetAt($SYSTEM.SQL.CheckPriv(User,"9,MDX2JSON.IsItemVisible","e"),"MDX2JSON.IsItemVisible") 
+	do result.SetAt($SYSTEM.SQL.CheckPriv(User,"9,MDX2JSON.GetDashCover","e"),"MDX2JSON.GetDashCover") 
+	do result.SetAt($SYSTEM.SQL.CheckPriv(User,"1,%DeepSee_Dashboard.Definition","s"),"%DeepSee_Dashboard.Definition") 
+	
+	return result
+]]></Implementation>
+</Method>
 </Class>
 </Export>