Use $SYSTEM.Version.SystemMode

Use $SYSTEM.Version.SystemMode to deal with environment name
Add 'Failover' as an option

Author: isc-etamarch

cls/SourceControl/Git/Settings.cls

@@ -182,8 +182,9 @@ ClassMethod Configure() As %Boolean [ CodeMode = objectgenerator ]
             do %code.WriteLine(" set list(1) = ""DEVELOPMENT""")
             do %code.WriteLine(" set list(2) = ""TEST""")
             do %code.WriteLine(" set list(3) = ""LIVE""")
-            do %code.WriteLine(" set list(4) = """"")
-            do %code.WriteLine(" set value = """"")
+            do %code.WriteLine(" set list(4) = ""FAILOVER""")
+            do %code.WriteLine(" set list(5) = """"")
+            do %code.WriteLine(" set value = inst.property")
             do %code.WriteLine(" set response = ##class(%Library.Prompt).GetArray("_promptQuoted_",.value,.list,,,,"_defaultPromptFlag_")")
         } else {
             do %code.WriteLine(" set response = ##class(%Library.Prompt).GetString("_promptQuoted_",.value,,,,"_defaultPromptFlag_")")

cls/SourceControl/Git/Utils.cls

@@ -165,12 +165,12 @@ ClassMethod WarnInstanceWideUncommitted() As %Boolean
 
 ClassMethod EnvironmentName() As %String
 {
-    quit $get(@..#Storage@("settings","environmentName"),"")
+    quit $SYSTEM.Version.SystemMode()
 }
 
 ClassMethod IsLIVE() As %Boolean
 {
-    quit $get(@..#Storage@("settings","environmentName"),1)="LIVE"
+    quit ..EnvironmentName()="LIVE"
 }
 
 ClassMethod NeedSettings() As %Boolean [ CodeMode = expression ]

csp/gitprojectsettings.csp

@@ -297,7 +297,7 @@ body {
             <div class="col-sm-7">
                 <select class="form-control" id="environmentName" name="environmentName">
                     <server>
-                        for envName = "TEST","DEVELOPMENT","LIVE","" {
+                        for envName = "TEST","DEVELOPMENT","LIVE","FAILOVER","" {
                             // create option with envName, set selected if envName == current environmentName
                             &html<<option #($CASE(envName, settings.environmentName: "selected", :""))# value=#(envName)#>#(envName)# </option>>
                         }