Fix environment

Author: isc-etamarch

CHANGELOG.md

@@ -11,6 +11,9 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 - Pull event handler that does an IPM uninstall and load to handle deletes (#631)
 - Partial support for production decomposition with the new interoperability editors
 
+### Fixed
+- Changing system mode (environment name) in setting spersists after instance restart (#655)
+
 ## [2.10.0] - 2025-02-10
 
 ### Added

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,26 @@
+Class %zpkg.isc.sc.git.SystemMode
+{
+    ClassMethod SetEnvironment(environment As %String) As %Status [ NotInheritable, Private ]
+{
+    $$$AddAllRoleTemporary
+    do $SYSTEM.Version.SystemMode(environment)
+    set nm = $NAMESPACE
+    zn "%SYS"
+    set obj = ##class(Config.Startup).Open()
+    set obj.SystemMode = environment
+    do obj.%Save()
+    zn nm
+
+    return $$$OK
+}
+
+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>