From d23fdfd23345d62c826aeb46ab3ce04765883576 Mon Sep 17 00:00:00 2001
From: Marc Bernard <59966492+mbtools@users.noreply.github.com>
Date: Sat, 22 Apr 2023 13:17:49 +0200
Subject: [PATCH] Add debug option to show href-links on hover (#6239)

---
 src/ui/core/zcl_abapgit_html.clas.abap | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/ui/core/zcl_abapgit_html.clas.abap b/src/ui/core/zcl_abapgit_html.clas.abap
index a569e50ba..becfb5e49 100644
--- a/src/ui/core/zcl_abapgit_html.clas.abap
+++ b/src/ui/core/zcl_abapgit_html.clas.abap
@@ -289,6 +289,7 @@ CLASS zcl_abapgit_html IMPLEMENTATION.
           lv_act   TYPE string,
           lv_style TYPE string,
           lv_title TYPE string.
+    DATA lv_mode TYPE tabname.
 
     lv_class = iv_class.
 
@@ -341,6 +342,14 @@ CLASS zcl_abapgit_html IMPLEMENTATION.
       lv_title = | title="{ iv_title }"|.
     ENDIF.
 
+    " Debug option to display href-link on hover
+    GET PARAMETER ID 'DBT' FIELD lv_mode.
+    IF lv_mode = 'HREF'.
+      lv_title = | title="{ escape(
+        val    = lv_href
+        format = cl_abap_format=>e_html_attr ) }"|.
+    ENDIF.
+
     rv_str = |<a{ lv_id }{ lv_class }{ lv_href }{ lv_click }{ lv_style }{ lv_title }>|
           && |{ iv_txt }</a>|.