Settings -> App now case-insensitive (stores ucase)

Author: eduard93

MDX2JSON/Tests.cls.xml

@@ -8,12 +8,12 @@ Classes with support methods for testing MDX2JSON</Description>
 
 <Parameter name="LastCommit">
 <Type>%String</Type>
-<Default>2c52c0c4eb9b5c36067647e91c97909f7a59c8fb</Default>
+<Default>4dd1d0e9693fcdd7e5e3a59a87634ac65d018baf</Default>
 </Parameter>
 
 <Parameter name="LastCommitTS">
 <Type>%TimeStamp</Type>
-<Default>2017-02-14 10:40:46.472</Default>
+<Default>2017-03-01 16:36:01.224</Default>
 </Parameter>
 
 <Method name="ProjectLength">

MDX2JSON/Users.cls.xml

@@ -14,6 +14,7 @@ Get <b>App</b> configuration for <b>User</b>]]></Description>
 <FormalSpec>App:%String,User:%String=$Username</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	set App = $zcvt(App, "U")
 	set config = $g($$$Global($$$Settings, User, App))
 	set:((config="")||($Roles[$$$DefaultSettingsRole)) config = $g($$$Global($$$Settings, $$$DefaultUser, App))
 	return config
@@ -27,6 +28,7 @@ Set <b>App</b> configuration for <b>User</b> equal to <b>Config</b>]]></Descript
 <FormalSpec>App:%String,Config:%String="",User:%String=$Username</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	set App = $zcvt(App, "U")
 	if ($Roles[$$$DefaultSettingsRole) {
 		set $$$Global($$$Settings, $$$DefaultUser, App) = Config
 	} else {