From a72921c9bc591312a5ba144b3fe31aba20414c44 Mon Sep 17 00:00:00 2001 From: eduard93 Date: Fri, 14 Apr 2017 17:35:46 +0300 Subject: [PATCH] Translate form names --- Form/Generators.cls.xml | 2 ++ Form/Info.cls.xml | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/Form/Generators.cls.xml b/Form/Generators.cls.xml index 23de223..d13da45 100644 --- a/Form/Generators.cls.xml +++ b/Form/Generators.cls.xml @@ -93,6 +93,8 @@ Fill ^CacheMsg global for further translation set formName = $get(%parameter($$$formNameParam)) return:(($$$skipClasses[className)||(formName="")||(formNameKey="")) sc + do ##class(Form.Util.Translate).insert(formName) + #dim prop As %Dictionary.PropertyDefinition for i = 1:1:%class.Properties.Count() { set prop = %class.Properties.GetAt(i) diff --git a/Form/Info.cls.xml b/Form/Info.cls.xml index 4a5279c..119a2d6 100644 --- a/Form/Info.cls.xml +++ b/Form/Info.cls.xml @@ -96,7 +96,7 @@ For results see: set formName = $parameter(className, $$$formNameParam) set metadata = {} - set metadata.name = formName + set metadata.name = ##class(Form.Util.Translate).get(formName) set metadata.class = className set metadata.displayProperty = $parameter(className, $$$displayProp) set metadata.objpermissions = $parameter(className, "OBJPERMISSIONS")