From a7266751ce2db0ce71e00b281cb0e5dcf969d2ba Mon Sep 17 00:00:00 2001
From: eduard93 <lebeduk93@gmail.com>
Date: Thu, 13 Apr 2017 15:49:36 +0300
Subject: [PATCH 1/2] Alway provide CONTENTTYPE = application/json

---
 Form/REST/Abstract.cls.xml | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Form/REST/Abstract.cls.xml b/Form/REST/Abstract.cls.xml
index d346c05..c57e5c4 100644
--- a/Form/REST/Abstract.cls.xml
+++ b/Form/REST/Abstract.cls.xml
@@ -7,6 +7,10 @@
 <Super>%CSP.REST</Super>
 <TimeCreated>64090,76470.397537</TimeCreated>
 
+<Parameter name="CONTENTTYPE">
+<Default>application/json</Default>
+</Parameter>
+
 <Parameter name="UseSession">
 <Type>Integer</Type>
 <Default>1</Default>

From 2ef797d0b6618e3954e081cde312cb5e6359fee7 Mon Sep 17 00:00:00 2001
From: eduard93 <lebeduk93@gmail.com>
Date: Thu, 13 Apr 2017 15:50:43 +0300
Subject: [PATCH 2/2] Provide translation support

---
 Form.inc.xml                |  3 +++
 Form/Generators.cls.xml     | 27 ++++++++++++++++++++++
 Form/Property.cls.xml       |  1 +
 Form/Util/Translate.cls.xml | 45 +++++++++++++++++++++++++++++++++++++
 4 files changed, 76 insertions(+)
 create mode 100644 Form/Util/Translate.cls.xml

diff --git a/Form.inc.xml b/Form.inc.xml
index 6b325fc..c4cc6fa 100644
--- a/Form.inc.xml
+++ b/Form.inc.xml
@@ -38,5 +38,8 @@
 
 #; Test if object variable is defined and not Null
 #define isDefObject(%obj) ($Data(%obj)#2&&$IsObject(%obj))
+
+#define domain "RESTFORMS"
+#define domainq """"_$$$domain_""""
 ]]></Routine>
 </Export>
diff --git a/Form/Generators.cls.xml b/Form/Generators.cls.xml
index 30e50be..23de223 100644
--- a/Form/Generators.cls.xml
+++ b/Form/Generators.cls.xml
@@ -77,5 +77,32 @@ Validate FORMORDERBY parameter value if present</Description>
 	quit sc
 ]]></Implementation>
 </Method>
+
+<Method name="translate">
+<Description>
+Fill ^CacheMsg global for further translation</Description>
+<Internal>1</Internal>
+<ClassMethod>1</ClassMethod>
+<CodeMode>objectgenerator</CodeMode>
+<GenerateAfter>generateMetadata</GenerateAfter>
+<Implementation><![CDATA[
+	#Include Form
+	#dim sc As %Status = $$$OK
+	set className = %compiledclass.Name
+	set formNameKey = %class.Parameters.FindObjectId(className _ "||" _ $$$formNameParam)
+	set formName = $get(%parameter($$$formNameParam))
+	return:(($$$skipClasses[className)||(formName="")||(formNameKey="")) sc
+	
+	#dim prop As %Dictionary.PropertyDefinition
+	for i = 1:1:%class.Properties.Count() {
+        set prop = %class.Properties.GetAt(i)
+        set displayName = prop.Parameters.GetAt($$$propDisplayNameParam)
+        if prop.Internal || prop.Calculated || prop.ReadOnly || prop.Private || prop.Identity || prop.MultiDimensional || displayName = ""  continue
+		
+		do ##class(Form.Util.Translate).insert(displayName)
+    }
+    quit $$$OK
+]]></Implementation>
+</Method>
 </Class>
 </Export>
diff --git a/Form/Property.cls.xml b/Form/Property.cls.xml
index ef3c4f0..a8ffaf5 100644
--- a/Form/Property.cls.xml
+++ b/Form/Property.cls.xml
@@ -163,6 +163,7 @@ w ##class(Form.Property).getPropertyDisplayName("Form.Test.Simple", "text")</Des
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	set displayName = ..getPropertyParam(className, name, $$$propDisplayNameParam)
+	set displayName = ##class(Form.Util.Translate).get(displayName)
 	set:displayName="" displayName = name
 	return displayName
 ]]></Implementation>
diff --git a/Form/Util/Translate.cls.xml b/Form/Util/Translate.cls.xml
new file mode 100644
index 0000000..5ff67f1
--- /dev/null
+++ b/Form/Util/Translate.cls.xml
@@ -0,0 +1,45 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="25">
+<Class name="Form.Util.Translate">
+<Description>
+Support for metadata translation </Description>
+<IncludeCode>Form</IncludeCode>
+<TimeCreated>64386,54065.171182</TimeCreated>
+
+<Method name="get">
+<Description>
+Get translated value of a text
+w ##class(Form.Util.Translate).get()</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>text:%String</FormalSpec>
+<Implementation><![CDATA[
+	set domain = $$$domain
+	set language=""
+	
+	if $isObject($g(%request)) {
+		set language=$$MatchLanguage^%occMessages(%request.GetCgiEnv("HTTP_ACCEPT_LANGUAGE"))
+	}	
+	
+	set:language="" language = $s($mvv(58)="":"en",1:$mvv(58))
+	
+	set id = $zcrc(text, 7)
+	set text = $$$GetAppMessage(language, domain, id, text)
+	set text = $zcvt(text, "O", "UTF8")
+	quit text
+]]></Implementation>
+</Method>
+
+<Method name="insert">
+<Description>
+Add text to ^CacheMsg
+do ##class(Form.Util.Translate).Insert()</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>text</FormalSpec>
+<Implementation><![CDATA[
+	set text = $$$quote(text)
+	set domain = $$$domainq
+	set a = $$macroText^%occMessages($lb(text, domain))
+]]></Implementation>
+</Method>
+</Class>
+</Export>