Fixes #655

CHANGELOG.md

@@ -12,6 +12,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 - Partial support for production decomposition with the new interoperability editors
 
 ### Fixed
+- Changing system mode (environment name) in setting spersists after instance restart (#655)
 - Popping from stash is more responsive (#687)
 - Favorites links for Git pages now works on recent IRIS versions (#734)
 

cls/SourceControl/Git/Settings.cls

@@ -159,7 +159,7 @@ Method %Save() As %Status
         set @storage@("settings", "user", $username, "basicMode") = ..basicMode
     } 
     try {
-        do $SYSTEM.Version.SystemMode(..environmentName)
+        do ##class(%zpkg.isc.sc.git.SystemMode).SetSystemMode(..environmentName)
     } catch e {
         // no-op; user might not have privileges.
     }

cls/_zpkg/isc/sc/git/SystemMode.cls

@@ -0,0 +1,23 @@
+Class %zpkg.isc.sc.git.SystemMode
+{
+    ClassMethod SetEnvironment(environment As %String) As %Status [ NotInheritable, Private ]
+{
+    $$$AddAllRoleTemporary
+    do $SYSTEM.Version.SystemMode(environment)
+    new $namespace
+    set $namespace = "%SYS"
+    set obj = ##class(Config.Startup).Open()
+    set obj.SystemMode = environment
+    return obj.%Save()
+}
+
+ClassMethod SetSystemMode(environment As %String) As %Status [ NotInheritable ]
+{
+    try {
+        do ..SetEnvironment(environment)
+    } catch e {
+        return e.AsStatus()
+    }
+    return $$$OK
+}
+}

module.xml

@@ -3,7 +3,7 @@
   <Document name="git-source-control.ZPM">
     <Module>
       <Name>git-source-control</Name>
-      <Version>2.10.0</Version>
+      <Version>2.11.0</Version>
       <Description>Server-side source control extension for use of Git on InterSystems platforms</Description>
       <Keywords>git source control studio vscode</Keywords>
       <Packaging>module</Packaging>