From 4ee2d511d6eafae9b19038bbd15a05855e2c5a3f Mon Sep 17 00:00:00 2001
From: Pravin Barton <9560941+isc-pbarton@users.noreply.github.com>
Date: Mon, 11 May 2026 13:54:24 -0400
Subject: [PATCH] feat: user-friendly display of pull event handler name

---
 CHANGELOG.md               | 1 +
 csp/gitprojectsettings.csp | 9 ++++++++-
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index 3ae64c38..a7f30105 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -11,6 +11,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 - Import of decomposed production items now has a brief timeout in case another deploy is in progress (#949)
 - Option to view an individual file's history in the source control menu (#960)
 - Change context menu now lists IPM packages from all Git-enabled namespaces, prefixed with the namespace name (#952)
+- Pull event handler option in settings page now displays user-friendly names for options (#908)
 
 ### Fixed
 - Changes to % routines mapped to the current namespace may now be added to source control and committed (#944)
diff --git a/csp/gitprojectsettings.csp b/csp/gitprojectsettings.csp
index 29278570..c70f2e1c 100644
--- a/csp/gitprojectsettings.csp
+++ b/csp/gitprojectsettings.csp
@@ -417,8 +417,15 @@ body {
                         set rs = ##class(%Dictionary.ClassDefinition).SubclassOfFunc("SourceControl.Git.PullEventHandler")
                         while rs.%Next() {
                             set subclass = rs.%GetData(1)
+                            try {
+                                set name = $parameter(subclass,"NAME")
+                                set title = $PIECE(subclass, ".", *-0) _ ": " _ $parameter(subclass,"DESCRIPTION")
+                            } catch err {
+                                // in the unlikely case of an error, fall back to class name
+                                set name = subclass, title = ""
+                            }
                             // create option with subclass, set selected if subclass == current pullEventClass
-                            &html<<option value=#(subclass)# #($CASE(subclass, settings.pullEventClass: "selected", :""))#>#($PIECE(subclass, ".", *-0))# </option>>
+                            &html<<option title="#(..EscapeHTML(title))#" value=#(subclass)# #($CASE(subclass, settings.pullEventClass: "selected", :""))#>#(..EscapeHTML(name))# </option>>
                         }
                     </server>
                 </select>