From 6369c57c5646e1e12b39aa69802c48f82cafee72 Mon Sep 17 00:00:00 2001
From: Lars Hvam <larshp@hotmail.com>
Date: Sat, 22 Jul 2023 15:45:12 +0200
Subject: [PATCH] decouple emergency mode from ui core (#6364)

---
 src/ui/core/zcl_abapgit_gui.clas.abap | 17 ++++-------------
 src/zabapgit_forms.prog.abap          | 14 +++++++++++++-
 2 files changed, 17 insertions(+), 14 deletions(-)

diff --git a/src/ui/core/zcl_abapgit_gui.clas.abap b/src/ui/core/zcl_abapgit_gui.clas.abap
index 0a5c845b7..c1b26cd96 100644
--- a/src/ui/core/zcl_abapgit_gui.clas.abap
+++ b/src/ui/core/zcl_abapgit_gui.clas.abap
@@ -17,12 +17,9 @@ CLASS zcl_abapgit_gui DEFINITION
         go_back_to_bookmark TYPE i VALUE 6,
         new_page_replacing  TYPE i VALUE 7,
       END OF c_event_state .
-    CONSTANTS:
-      BEGIN OF c_action,
-        go_home TYPE string VALUE zif_abapgit_definitions=>c_action-go_home,
-        go_db   TYPE string VALUE zif_abapgit_definitions=>c_action-go_db,
-      END OF c_action .
     METHODS go_home
+      IMPORTING
+        iv_action TYPE string
       RAISING
         zcx_abapgit_exception .
     METHODS back
@@ -256,14 +253,8 @@ CLASS ZCL_ABAPGIT_GUI IMPLEMENTATION.
     IF mi_router IS BOUND.
       CLEAR: mt_stack, mt_event_handlers.
       APPEND mi_router TO mt_event_handlers.
-      " on_event doesn't accept strings directly
-      GET PARAMETER ID 'DBT' FIELD lv_mode.
-      CASE lv_mode.
-        WHEN 'ZABAPGIT'.
-          on_event( action = |{ c_action-go_db }| ).
-        WHEN OTHERS.
-          on_event( action = |{ c_action-go_home }| ).
-      ENDCASE.
+
+      on_event( action = |{ iv_action }| ).
     ELSE.
       IF lines( mt_stack ) > 0.
         READ TABLE mt_stack INTO ls_stack INDEX 1.
diff --git a/src/zabapgit_forms.prog.abap b/src/zabapgit_forms.prog.abap
index ccedc204c..1e162bd03 100644
--- a/src/zabapgit_forms.prog.abap
+++ b/src/zabapgit_forms.prog.abap
@@ -24,12 +24,24 @@ ENDFORM.                    "run
 
 FORM open_gui RAISING zcx_abapgit_exception.
 
+  DATA lv_action TYPE string.
+  DATA lv_mode   TYPE tabname.
+
   IF sy-batch = abap_true.
     zcl_abapgit_background=>run( ).
   ELSE.
 
+* https://docs.abapgit.org/user-guide/reference/database-util.html#emergency-mode
+    GET PARAMETER ID 'DBT' FIELD lv_mode.
+    CASE lv_mode.
+      WHEN 'ZABAPGIT'.
+        lv_action = zif_abapgit_definitions=>c_action-go_db.
+      WHEN OTHERS.
+        lv_action = zif_abapgit_definitions=>c_action-go_home.
+    ENDCASE.
+
     zcl_abapgit_services_abapgit=>prepare_gui_startup( ).
-    zcl_abapgit_ui_factory=>get_gui( )->go_home( ).
+    zcl_abapgit_ui_factory=>get_gui( )->go_home( lv_action ).
     CALL SELECTION-SCREEN 1001. " trigger screen
 
   ENDIF.