Return only namespaces that potentially contain actual DeepSee dashboards

Author: eduard93

MDX2JSON/AbstractREST.cls.xml

@@ -305,15 +305,16 @@ Returns OK if namespace both exists and contains MDX2JSON package.<br>
 		return $$$OK
 	}
 
-	return:('##class(%SYS.Namespace).Exists(Namespace)) $$$ERROR($$$NamespaceUnavailable,Namespace)
-
-	if Namespace'=$Namespace {
-		set oldNS = $Namespace
-		zn Namespace
-		set exists = ##class(%Dictionary.CompiledClass).%ExistsId("MDX2JSON.Utils")
-		zn oldNS
-		return:(exists=0) $$$ERROR($$$GeneralError, "MDX2JSON package is not mapped to " _ Namespace)
-	}
+	return:('##class(%SYS.Namespace).Exists(Namespace)) $$$ERROR($$$NamespaceUnavailable, Namespace)
+	new $Namespace
+	set $Namespace = Namespace
+	
+	set exists = ##class(%Dictionary.CompiledClass).%ExistsId("MDX2JSON.Utils")
+	return:(exists=$$$NO) $$$ERROR($$$GeneralError, "MDX2JSON package is not mapped to " _ Namespace)
+	
+	// Strictly speaking this can be a false-positive check
+	set exists = ($data(@##class(MDX2JSON.DashboardRS).#global)>0)
+	return:(exists=$$$NO) $$$ERROR($$$GeneralError, "No dashboards exist in " _ Namespace)
 
 	return $$$OK
 ]]></Implementation>

MDX2JSON/Tests.cls.xml

@@ -8,12 +8,12 @@ Classes with support methods for testing MDX2JSON</Description>
 
 <Parameter name="LastCommit">
 <Type>%String</Type>
-<Default>18872dc518d8009bdc105425f541953d2c9d461e</Default>
+<Default>1be674a6a470c42bf148cae9b91a7b1c1b8973c0</Default>
 </Parameter>
 
 <Parameter name="LastCommitTS">
 <Type>%TimeStamp</Type>
-<Default>2017-05-26 16:20:17.307</Default>
+<Default>2017-08-10 17:27:32.707</Default>
 </Parameter>
 
 <Method name="ProjectLength">