diff --git a/src/ui/core/zcl_abapgit_html.clas.abap b/src/ui/core/zcl_abapgit_html.clas.abap index 633e34d8f..5bfd46294 100644 --- a/src/ui/core/zcl_abapgit_html.clas.abap +++ b/src/ui/core/zcl_abapgit_html.clas.abap @@ -34,6 +34,9 @@ CLASS zcl_abapgit_html DEFINITION iv_str TYPE string OPTIONAL RETURNING VALUE(rs_data_attr) TYPE zif_abapgit_html=>ty_data_attr . + CLASS-METHODS set_debug_mode + IMPORTING + iv_mode TYPE abap_bool. PROTECTED SECTION. PRIVATE SECTION. @@ -105,8 +108,6 @@ CLASS ZCL_ABAPGIT_HTML IMPLEMENTATION. METHOD class_constructor. - DATA lv_mode TYPE tabname. - CREATE OBJECT go_single_tags_re EXPORTING pattern = '<(AREA|BASE|BR|COL|COMMAND|EMBED|HR|IMG|INPUT|LINK|META|PARAM|SOURCE|!)' @@ -116,12 +117,13 @@ CLASS ZCL_ABAPGIT_HTML IMPLEMENTATION. val = ` ` occ = c_max_indent ). - GET PARAMETER ID 'DBT' FIELD lv_mode. - gv_debug_mode = boolc( lv_mode = 'HREF' ). - ENDMETHOD. + METHOD set_debug_mode. + gv_debug_mode = iv_mode. + ENDMETHOD. + METHOD create. CREATE OBJECT ri_instance TYPE zcl_abapgit_html. IF iv_initial_chunk IS NOT INITIAL. diff --git a/src/zabapgit_forms.prog.abap b/src/zabapgit_forms.prog.abap index 951c79151..5b1b241af 100644 --- a/src/zabapgit_forms.prog.abap +++ b/src/zabapgit_forms.prog.abap @@ -246,6 +246,8 @@ FORM open_gui RAISING zcx_abapgit_exception. lv_action = zif_abapgit_definitions=>c_action-go_home. ENDCASE. + zcl_abapgit_html=>set_debug_mode( boolc( lv_mode = 'HREF' ) ). + lcl_startup=>prepare_gui_startup( ). zcl_abapgit_ui_factory=>get_gui( )->go_home( lv_action ). CALL SELECTION-SCREEN 1001. " trigger screen