Added favorite namespaces setting for a user

Author: isc-akadoo

CHANGELOG.md

@@ -11,6 +11,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 - Added 'git push --force' in expert mode (#527)
 - Add remote repository to settings page (#448)
 - Added change context option to pull page (#468)
+- Added favorite namespaces setting for a user (#468, #510) 
 
 ### Fixed
 - Fixed display of other users' username in workspace view on Unix (#530)

cls/SourceControl/Git/Settings.cls

@@ -55,6 +55,8 @@ Property warnInstanceWideUncommitted As %Boolean [ InitialExpression = {##class(
 
 Property Mappings [ MultiDimensional ];
 
+Property favoriteNamespaces As %String [ InitialExpression = {##class(SourceControl.Git.Utils).FavoriteNamespaces()} ];
+
 Method %OnNew() As %Status
 {
     set mappingsNode = ##class(SourceControl.Git.Utils).MappingsNode()
@@ -66,6 +68,10 @@ Method %OnNew() As %Status
     if ('isDefault) {
         set ..gitBinPath = gitBinPath
     }
+    if ..favoriteNamespaces= "" {
+        set namespaces = ##class(SourceControl.Git.Utils).GetContexts(1)
+        set ..favoriteNamespaces = namespaces.%ToJSON()
+    }
     quit $$$OK
 }
 
@@ -119,9 +125,11 @@ Method %Save() As %Status
     // update value of basicUserMode to reflect the updated setting for basicMode
     set ..userBasicMode = ##class(SourceControl.Git.Utils).UserBasicMode()
 
-
     kill @##class(SourceControl.Git.Utils).MappingsNode()
     merge @##class(SourceControl.Git.Utils).MappingsNode() = ..Mappings
+    
+    do ##class(SourceControl.Git.Utils).ConfigureFavoriteNamespaces($username, ..favoriteNamespaces)
+
     quit $$$OK
 }
 
@@ -152,6 +160,7 @@ ClassMethod Configure() As %Boolean [ CodeMode = objectgenerator ]
         set sequence = $order(orderedProperties(sequence),1,property)
         quit:sequence=""
         continue:property="userBasicMode"
+        continue:property="favoriteNamespaces"
         do %code.WriteLine(" set value = inst."_property)
         set prompt = $$$comMemberKeyGet(%class.Name,$$$cCLASSproperty,property,$$$cPROPdescription)
         set promptQuoted = $$$QUOTE(prompt_":")

cls/SourceControl/Git/Utils.cls

@@ -72,6 +72,11 @@ ClassMethod SettingsUIReadOnly() As %Status [ CodeMode = expression ]
 $Get(@..#Storage@("settings","settingsUIReadOnly"), 0)
 }
 
+ClassMethod FavoriteNamespaces() As %String
+{
+    quit $get(@..#Storage@("settings", "user", $username, "favNamespaces"),"")
+}
+
 /// Returns the current (or previous) value of the flag.
 ClassMethod Locked(newFlagValue As %Boolean) As %Boolean
 {
@@ -2826,4 +2831,45 @@ ClassMethod SetConfiguredRemote(url) As %String
     quit output
 }
 
+ClassMethod ConfigureFavoriteNamespaces(username As %String, favNamespaces As %String)
+{
+    set newNamespaces = [].%FromJSON(favNamespaces)
+    set namespaces = ..GetContexts(1)
+
+    set iterator = namespaces.%GetIterator()
+    while iterator.%GetNext(.key, .value) {
+        new $Namespace
+        set $Namespace = value
+        kill @..#Storage@("settings", "user", $username, "favNamespaces")
+        set @..#Storage@("settings", "user", $username, "favNamespaces") = favNamespaces
+    }
+
+    // Delete all the GIT favorite links for the user
+    set iterator = newNamespaces.%GetIterator()
+    while iterator.%GetNext(.key, .value) {
+        set sql = "delete from %SYS_Portal.Users where Username='"_username_"' and Page like '%Git%'"
+        set statement = ##class(%SQL.Statement).%New()
+        do ##class(%SQL.Statement).%ExecDirect(statement,sql)
+    }
+
+    set iterator = newNamespaces.%GetIterator()
+    while iterator.%GetNext(.key, .value) {
+        set installNamespace = value
+        new $Namespace
+        set $Namespace = "%SYS"
+        set sql = "insert or update into %SYS_Portal.Users (Username, Page, Data) "_
+            "select ID,?,? from Security.Users where ID='"_username_"'"
+        set caption = "Git: "_installNamespace
+        set link = "/isc/studio/usertemplates/gitsourcecontrol/webuidriver.csp/"_installNamespace_"/"
+        set statement = ##class(%SQL.Statement).%New()
+        set statement.%SelectMode = 0
+        do ##class(%SQL.Statement).%ExecDirect(statement,sql,caption,link)
+        set caption = "Git Pull: "_installNamespace
+        set link = "/isc/studio/usertemplates/gitsourcecontrol/pull.csp?$NAMESPACE="_installNamespace
+        do ##class(%SQL.Statement).%ExecDirect(statement,sql,caption,link)
+        set sql = "update Security.Applications set GroupById='%ISCMgtPortal' where ID = '/isc/studio/usertemplates'"
+        do ##class(%SQL.Statement).%ExecDirect(statement,sql)
+    }
+}
+
 }

csp/gitprojectsettings.csp

@@ -550,6 +550,35 @@ body {
             </div> -->
         </div>
 
+        <div class="form-group row mb-3">
+            <label for="addToFav" class="offset-sm-1 col-sm-3 col-form-label"  data-toggle="tooltip" data-placement="top" title="Favorite namespaces for user. For Windows/Mac: Hold down the control(ctrl)/command(cmd) button to select multiple options.">Favorite Namespaces</label>
+            <div class="col-sm-7">
+                <select multiple class="form-control" id="addToFav" name="favNamespace">
+                <server>
+                    set contextList = ##class(SourceControl.Git.Utils).GetContexts(1)
+                    set selectedNamespaces = [].%FromJSON(settings.favoriteNamespaces)
+                    set iterator = selectedNamespaces.%GetIterator()
+                    while iterator.%GetNext(.key, .value) {
+                        &html<<option selected value=#(value)#>#(value)#</option>>
+                        set k = -1
+                        set citerator = contextList.%GetIterator()
+                        while citerator.%GetNext(.ckey, .cvalue) {
+                            if (cvalue = value) {
+                                set k = ckey
+                            }
+                        }
+                        if (k > -1) {
+                            do contextList.%Remove(k)
+                        }
+                    }
+                    set iterator = contextList.%GetIterator()
+                    while iterator.%GetNext(.key, .value) {   
+                        &html<<option value=#(value)#>#(value)#</option>>
+                    }
+                </server>
+                </select>
+            </div>
+        </div>
         <br/>
         </fieldset>