Fixes for Import/Export All

Might make sense to consolidate "items" and "TSH" - not clear to me what the distinction is and feels like a duplicate subscript

Author: isc-tleavitt

CHANGELOG.md

@@ -5,11 +5,15 @@ All notable changes to this project will be documented in this file.
 The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/),
 and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0.html).
 
-## [2.0.6] - 2022-12-06
+## [2.0.6] - Unreleased
 
 ### Added
 - Support for Caché/Ensemble 2016.2.3, 2017.1.2, 2017.2.1, 2018.1.0 and later. (Treated as patch version bump because no compatibility impact for existing users.)
 
+### Fixed
+- "Import All" will properly recognize new files
+- "Import All" and "Export All" apply only to the current package manager context and disregard items outside that context
+
 ### Changed
 - Various minor things under the hood to support use without the package manager and/or on older platforms
 

cls/SourceControl/Git/PackageManagerContext.cls

@@ -16,6 +16,7 @@ Property ResourceReference As %RegisteredObject [ InitialExpression = {$$$NULLOR
 
 Method InternalNameSet(InternalName As %String = "") As %Status
 {
+    set InternalName = ##class(SourceControl.Git.Utils).NormalizeInternalName(InternalName)
     if (InternalName '= i%InternalName) {
         set i%InternalName = InternalName
         if '$$$comClassDefined("%ZPM.PackageManager.Developer.Extension.Utils") {
@@ -24,7 +25,7 @@ Method InternalNameSet(InternalName As %String = "") As %Status
         set ..Package = ##class(%ZPM.PackageManager.Developer.Extension.Utils).FindHomeModule(InternalName,,.resourceReference)
         set ..ResourceReference = resourceReference
         set ..IsInGitEnabledPackage = $isobject(..Package) && ##class(%Library.File).DirectoryExists(##class(%Library.File).NormalizeFilename(".git",..Package.Root))
-        set ..IsInDefaultPackage = $isobject(..Package) && (##class(%Library.File).NormalizeDirectory(..Package.Root) = ##class(%Library.File).NormalizeDirectory(##class(SourceControl.Git.Utils).TempFolder()))
+        set ..IsInDefaultPackage = $isobject(..Package) && (##class(%Library.File).NormalizeDirectory(..Package.Root) = ##class(%Library.File).NormalizeDirectory(##class(SourceControl.Git.Utils).DefaultTempFolder()))
     }
     quit $$$OK
 }

cls/SourceControl/Git/Utils.cls

@@ -38,6 +38,11 @@ ClassMethod TempFolder() As %String
     if context.IsInGitEnabledPackage {
         quit context.Package.Root
     }
+    quit ..DefaultTempFolder()
+}
+
+ClassMethod DefaultTempFolder() As %String
+{
     quit $get(@..#Storage@("settings","namespaceTemp"),..DefaultTemp()_$translate($znspace,"%")_..#Slash)
 }
 
@@ -1124,6 +1129,9 @@ ClassMethod ListItemsInFiles(ByRef itemList, ByRef err) As %Status
 
 ClassMethod ImportRoutines(force As %Boolean = 0) As %Status
 {
+    set refContext = ##class(SourceControl.Git.PackageManagerContext).%Get()
+    set refPackage = refContext.Package
+    
     write !, "==import start=="
 
     #dim err, itemList
@@ -1138,9 +1146,8 @@ ClassMethod ImportRoutines(force As %Boolean = 0) As %Status
     for  {
         set internalName = $order(itemList(internalName))
         quit:internalName=""
-        if '..IsInSourceControl(internalName) {
-            continue
-        }
+        set context = ##class(SourceControl.Git.PackageManagerContext).ForInternalName(internalName)
+        continue:context.Package'=refPackage
         #dim sc as %Status = ..ImportItem(internalName, force)
         if $$$ISERR(sc) {
             set ec = $$$ADDSC(ec, sc)
@@ -1152,8 +1159,13 @@ ClassMethod ImportRoutines(force As %Boolean = 0) As %Status
     for  {
         set item = $order(@..#Storage@("TSH", item))
         quit:item=""
-
-        if '##class(%File).Exists(..FullExternalName(item)) {
+        
+        set context = ##class(SourceControl.Git.PackageManagerContext).ForInternalName(item)
+        continue:context.Package'=refPackage
+            
+        set fullExternalName = ..FullExternalName(item)
+        if '##class(%File).Exists(fullExternalName) {
+            write !,fullExternalName," does not exist - deleting ",item
             #dim type as %String = ..Type(item)
             #dim name as %String = ..NameWithoutExtension(item)
             #dim deleted as %Boolean = 1
@@ -1287,11 +1299,16 @@ ClassMethod ImportAll(force As %Boolean = 0) As %Status
 
 ClassMethod ExportRoutines(force As %Boolean = 0) As %Status
 {
+    set refContext = ##class(SourceControl.Git.PackageManagerContext).%Get()
+    set refPackage = refContext.Package
+    
     #dim item as %String = ""
     #dim ec as %Status = $$$OK
     for  {
         set item = $order(@..#Storage@("items",item))
         quit:item=""
+        set context = ##class(SourceControl.Git.PackageManagerContext).ForInternalName(item)
+        continue:context.Package'=refPackage
         set ec = ..ExportItem(item, 1, force)
         quit:'ec
     }
@@ -1398,6 +1415,7 @@ ClassMethod GitStatus(ByRef files, IncludeAllFiles = 0)
         set internalName = ..NameToInternalName(externalName)
         if (internalName '= "") {
             set files(internalName) = $listbuild(operation, externalName)
+            set @..#Storage@("items",..NormalizeInternalName(internalName)) = ""
         } elseif ((IncludeAllFiles) && (externalName '= "")) {
             set externalName = $TRANSLATE(externalName, "\", "/")
             set files($I(files)) = $listbuild(operation, externalName)