Add Business Processess if they are not in source control

Author: isc-etamarch

CHANGELOG.md

@@ -5,6 +5,11 @@ 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.9.1] - Unreleased
+
+### Fixed
+- Fixed business processes not being added to source control automatically (#676)
+
 ## [2.9.0] - 2025-01-09
 
 ### Added

cls/SourceControl/Git/Extension.cls

@@ -59,6 +59,16 @@ Method UserAction(Type As %Integer, Name As %String, InternalName As %String, Se
         set filename = ##class(SourceControl.Git.Utils).FullExternalName(.InternalName)
         do ##class(SourceControl.Git.Change).GetUncommitted(filename,.tAction)
         do ..GetStatus(.InternalName, .isInSourceControl, .isEditable,.isCheckedOut,.userCheckedOut)
+
+        // Deal with Business Processes
+        if (('isInSourceControl) && (##class(SourceControl.Git.Utils).Type(InternalName) = "cls")) {
+            set name = $piece(InternalName,".CLS",1)
+            set exists = ##class(%Dictionary.CompiledClass).%ExistsId(name)
+            if (exists && $classmethod(name,"%Extends","Ens.BusinessProcess")) {
+                do ..AddToSourceControl(InternalName)
+            }
+        }
+
         if '$data(tAction) {
             set user = "", inNamespace = ""
             if 'isEditable || ##class(SourceControl.Git.Utils).Locked() {

module.xml

@@ -3,7 +3,7 @@
   <Document name="git-source-control.ZPM">
     <Module>
       <Name>git-source-control</Name>
-      <Version>2.9.0</Version>
+      <Version>2.9.1</Version>
       <Description>Server-side source control extension for use of Git on InterSystems platforms</Description>
       <Keywords>git source control studio vscode</Keywords>
       <Packaging>module</Packaging>