Merge pull request #485 from intersystems/v1-enable-globally

Support enabling IPM instance-wide
intersystems · Oct 10, 2024 · 72fb28e · 72fb28e
2 parents 6a9dd01 + 327eb17
commit 72fb28e
Show file tree

Hide file tree

Showing 5 changed files with 355 additions and 27 deletions.
diff --git a/module.xml b/module.xml
@@ -19,6 +19,7 @@
   <UnitTest Name="/tests/integration_tests/" Package="Test.PM.Integration" Phase="verify"/>
   <Resource Name="/doc/README.txt"/>
   <Invoke Class="IPM.Installer" Method="Map" Phase="Reload" When="Before" />
+  <Invoke Class="IPM.Installer" Method="MapIfLegacy" Phase="Compile" When="After" />
   <Invoke Class="%IPM.Main" Method="UpdateLanguageExtensions" />
   <Invoke Class="%IPM.Utils.Migration" Method="RunAll">
     <Arg>${verbose}</Arg>

diff --git a/preload/cls/IPM/Installer.cls b/preload/cls/IPM/Installer.cls
@@ -118,6 +118,14 @@ ClassMethod ZPMCompile()
   Quit ##class(%IPM.Main).Shell("ZPM compile")
 }
 
+ClassMethod MapIfLegacy()
+{
+  If ##class(%IPM.Utils.Migration).HasLegacyZPMPackage() {
+    Quit ##class(%IPM.Main).Shell("enable -globally -map")
+  }
+  Quit $$$OK
+}
+
 ClassMethod EndCompile(qstruct) As %Status
 {
   #; Behave as simple installer