From 58d866c3a663ddaef4c158ccbd4442c773c8a1b1 Mon Sep 17 00:00:00 2001
From: eduard93 <lebeduk93@gmail.com>
Date: Mon, 11 Sep 2017 16:34:40 +0300
Subject: [PATCH] =?UTF-8?q?Added=20new=20visited=20setting.=20Set=20it=20e?=
 =?UTF-8?q?qual=20to=20valid=20Cach=C3=A9=20ObjectScript=20code=20and=20re?=
 =?UTF-8?q?compile=20Form.JSON.OBJ=20class=20to=20modify=20SetVisited=20me?=
 =?UTF-8?q?thod=20code.=20SetVisited=20method=20allows=20you=20to=20define?=
 =?UTF-8?q?=20what=20object=20can=20be=20output=20any=20number=20of=20time?=
 =?UTF-8?q?s=20(by=20default=20object=20can=20be=20written=20once=20to=20p?=
 =?UTF-8?q?revent=20write=20loops).?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Form/JSON/OBJ.cls.xml | 17 ++++++++++++++++-
 Form/Settings.cls.xml |  2 ++
 2 files changed, 18 insertions(+), 1 deletion(-)

diff --git a/Form/JSON/OBJ.cls.xml b/Form/JSON/OBJ.cls.xml
index b8d0adb..692dc47 100644
--- a/Form/JSON/OBJ.cls.xml
+++ b/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)
 		
diff --git a/Form/Settings.cls.xml b/Form/Settings.cls.xml
index fac283c..bda38e2 100644
--- a/Form/Settings.cls.xml
+++ b/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")
 	}