Translate form names

intersystems-community · Apr 14, 2017 · a72921c · a72921c
1 parent 85a0d81
commit a72921c
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/Form/Generators.cls.xml b/Form/Generators.cls.xml
@@ -93,6 +93,8 @@ Fill ^CacheMsg global for further translation</Description>
 	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
@@ -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")