Package manager awareness for web UI

Surprisingly easy!

Author: isc-tleavitt

cls/SourceControl/Git/Utils.cls

@@ -157,7 +157,7 @@ ClassMethod UserAction(InternalName As %String, MenuName As %String, ByRef Targe
             }
         } elseif (menuItemName = "%GitWebUI") {
             set Action = 2
-            set Target = "/isc/studio/usertemplates/gitsourcecontrol/webuidriver.csp/"_$namespace
+            set Target = "/isc/studio/usertemplates/gitsourcecontrol/webuidriver.csp/"_$namespace_"/"_$ZConvert(InternalName,"O","URL")
         } elseif (menuItemName = "%Export") || (menuItemName = "%ExportForce") {
             write "==export start==",!
             set ec = ..ExportAll($case(menuItemName="%ExportForce",1:$$$Force,:0))

cls/SourceControl/Git/WebUIDriver.cls

@@ -1,8 +1,9 @@
 Class SourceControl.Git.WebUIDriver
 {
 
-ClassMethod HandleRequest(pagePath As %String, Output handled As %Boolean = 0, Output %data As %Stream.Object)
+ClassMethod HandleRequest(pagePath As %String, InternalName As %String = "", Output handled As %Boolean = 0, Output %data As %Stream.Object)
 {
+    set context = ##class(SourceControl.Git.PackageManagerContext).ForInternalName(InternalName)
     kill %data
     #dim %response As %CSP.Response
     #dim %request As %CSP.Request

csp/webuidriver.csp

@@ -2,8 +2,9 @@
 	set url = $Piece($Get(%request.CgiEnvs("REQUEST_URI"),$Get(%request.CgiEnvs("HTTP_URL"))),"?")
 	set pagePath = $Piece(url,..#CSPURL,2,*)
     set namespace = $Piece(pagePath,"/",2)
-    set resource = $Piece(pagePath,"/",3,*)
-    set %base = $Piece(url,..#CSPURL,1)_..#CSPURL_"/"_namespace_"/"
+    set internalName = $ZConvert($Piece(pagePath,"/",3),"I","URL")
+    set resource = $Piece(pagePath,"/",4,*)
+    set %base = $Piece(url,..#CSPURL,1)_..#CSPURL_"/"_namespace_"/"_$ZConvert(internalName,"O","URL")_"/"
 
     new $NAMESPACE
     set $NAMESPACE = namespace
@@ -39,7 +40,7 @@
     }
 
 	// Handles HTTP requests to /api/ (everything new) plus things previously sent to the Python backend
-	do ##class(SourceControl.Git.WebUIDriver).HandleRequest("/"_resource, .handled, .%data)
+	do ##class(SourceControl.Git.WebUIDriver).HandleRequest("/"_resource, internalName, .handled, .%data)
 	if handled {
 		kill %base
 		quit 1