Update REST.cls

New end point and corresponding method for intersystems-community/DeepSeeWeb#121

Method simply return json containing data sources

Author: Frisle

MDX2JSON/REST.cls

@@ -66,6 +66,7 @@ XData UrlMap
 
    <!-- Get info about pivot-->
    <Route Url="/DataSource" Method="POST" Call="GetDataSource" />
+   <Route Url="/DataSourceList" Method="POST" Call="GetListDataSources" />
 
    <!-- Get info about pivot-->
    <Route Url="/TermList" Method="POST" Call="GetTermList" />
@@ -132,6 +133,41 @@ ClassMethod Test() As %Status
 	return $$$OK
 }
 
+
+/// Get all data sources including "pivot", "kpi", "worksheets","metrics"
+ClassMethod GetListDataSources() As %Status
+{
+	set st = $$$OK
+	
+	Set tProvider = ##class(%ZEN.Auxiliary.jsonMDXProvider).%New()
+
+	if $$$R("dataSource") = "pivot"
+	{
+		Set tSC = ##class(%DeepSee.Utils).%GetPivotListArray(.tParms,.pMetaData,.pData)
+		Quit tSC
+	}
+	elseif $$$R("dataSource") = "kpi"
+	{
+		Set tSC = ##class(%DeepSee.Utils).%GetKPIListArray(.tParms,.pMetaData,.pData)
+		Quit tSC
+	}
+	elseif $$$R("dataSource") = "worksheets"
+	{
+		Set tSC = ##class(%DeepSee.Utils).%GetWorksheetListArray(.tParms,.pMetaData,.pData)
+		Quit tSC
+	}
+	elseif $$$R("datasource") = "metrics"
+	{
+		Set tSC = ##class(%DeepSee.Utils).%GetMetricListArray(.tParms,.pMetaData,.pData)
+		Quit tSC
+	}
+	Set tSC = ##class(%DeepSee.REST.v1.DataServer).%CreateObjectFromArray(.pData,pMetaData,.tSourceObj)
+	Set tSC = tProvider.%ObjectToJSON(tSourceObj)
+	
+	return st
+}
+
+
 ClassMethod GetDataSource() As %Status
 {
 	return ##class(MDX2JSON.Utils).GetDataSource($$$R("DataSource"))