Translate form names

Author: eduard93

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)

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")