Added new visited setting. Set it equal to valid Caché ObjectScript c…

…ode and recompile Form.JSON.OBJ class to modify SetVisited method code. SetVisited method allows you to define what object can be output any number of times (by default object can be written once to prevent write loops).

Form/JSON/OBJ.cls.xml

@@ -7,6 +7,21 @@
 <Super>%ZEN.Auxiliary.jsonProvider</Super>
 <TimeCreated>64099,77101.820492</TimeCreated>
 
+<Method name="SetVisited">
+<ClassMethod>1</ClassMethod>
+<CodeMode>objectgenerator</CodeMode>
+<FormalSpec><![CDATA[&pVisited,pObject:%RegisteredObject,pLevel:%Integer]]></FormalSpec>
+<Implementation><![CDATA[
+	#include %occCPTJSgen
+	set code = ##class(Form.Settings).getSetting("visited")
+	if code'="" {
+		do %code.WriteLine($$$TAB _ code)
+	} else {
+		do %code.WriteLine($$$TAB _ "set pVisited(pObject) = """"")
+	}
+]]></Implementation>
+</Method>
+
 <Method name="%ObjectToJSON">
 <Description><![CDATA[
 Write out the contents of object instance <var>pObject</var> to
@@ -44,7 +59,7 @@ w - Windows-style cr/lf newline<br/>]]></Description>
 			Quit
 		}
 		
-		set pVisited(pObject) = ""
+		do ..SetVisited(.pVisited, pObject, pLevel)
 		
 		Set tClass = $classname(pObject)
 		

Form/Settings.cls.xml

@@ -43,6 +43,8 @@ Set setting "name" value</Description>
 		if ((value'="utc") && (value'="ignore")) {
 			set sc = $$$ERROR($$$GeneralError, "Value '" _value _ "' is not a valid timezone setting. Valid values are: ignore, utc")
 		}
+	} elseif name = "visited" {
+		/// TODO add check	
 	} else {
 		set sc = $$$ERROR($$$GeneralError, "Setting '" _ name _ "' does not exist")
 	}