Fix Business Rules as well

Author: isc-etamarch

CHANGELOG.md

@@ -8,7 +8,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 ## [2.9.1] - Unreleased
 
 ### Fixed
-- Fixed business processes not being added to source control automatically (#676)
+- Fixed business processes and rules not being added to source control automatically (#676)
 
 ## [2.9.0] - 2025-01-09
 

cls/SourceControl/Git/Extension.cls

@@ -60,11 +60,11 @@ Method UserAction(Type As %Integer, Name As %String, InternalName As %String, Se
         do ##class(SourceControl.Git.Change).GetUncommitted(filename,.tAction)
         do ..GetStatus(.InternalName, .isInSourceControl, .isEditable,.isCheckedOut,.userCheckedOut)
 
-        // Deal with Business Processes
+        // Deal with Business Processes and Rules
         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")) {
+            if (exists && ($classmethod(name,"%Extends","Ens.BusinessProcess") || $classmethod(name,"%Extends","Ens.BusinessRule"))) {
                 do ..AddToSourceControl(InternalName)
             }
         }