@@ -62,6 +62,9 @@ Property warnInstanceWideUncommitted As %Boolean [ InitialExpression = {##class(
6262/// The name of the environment (DEVELOPMENT, TEST, LIVE)
6363Property environmentName As %String (MAXLEN = " " ) [ InitialExpression = {##class (SourceControl.Git.Utils ).EnvironmentName ()} ];
6464
65+ /// Whether the branch should or should not be locked down from changing namespaces
66+ Property lockBranch As %Boolean [ InitialExpression = {##class (SourceControl.Git.Utils ).LockBranch ()} ];
67+
6568Property Mappings [ MultiDimensional ];
6669
6770Property favoriteNamespaces As %DynamicArray ;
@@ -153,6 +156,7 @@ Method %Save() As %Status
153156 set @storage @(" settings" , " warnInstanceWideUncommitted" ) = ..warnInstanceWideUncommitted
154157 set @storage @(" settings" , " basicMode" ) = ..systemBasicMode
155158 set @storage @(" settings" , " environmentName" ) = ..environmentName
159+ set @storage @(" settings" , " lockBranch" ) = ..lockBranch
156160 if ..basicMode = " system" {
157161 kill @storage @(" settings" , " user" , $username , " basicMode" )
158162 } else {
@@ -506,7 +510,7 @@ Method RetrieveDefaults() As %Boolean
506510Method SaveDefaults () As %Boolean
507511{
508512 set defaults = {}
509- set items = $lb (" gitBinPath" , " pullEventClass" , " percentClassReplace" , " environmentName" , " systemBasicMode" , " defaultMergeBranch" , " mappedItemsReadOnly" , " compileOnImport" )
513+ set items = $lb (" gitBinPath" , " pullEventClass" , " percentClassReplace" , " environmentName" , " systemBasicMode" , " defaultMergeBranch" , " mappedItemsReadOnly" , " compileOnImport" , " lockBranch " )
510514 for i =1 :1 :$LISTLENGTH (items ) {
511515 set property = $listget (items ,i )
512516 do defaults .%Set (property , $property ($this , property ))
0 commit comments