diff --git a/src/zabapgit_page_settings.prog.abap b/src/zabapgit_page_settings.prog.abap index 5fc857fb7..797f4fa56 100644 --- a/src/zabapgit_page_settings.prog.abap +++ b/src/zabapgit_page_settings.prog.abap @@ -15,6 +15,8 @@ CLASS lcl_gui_page_settings DEFINITION FINAL INHERITING FROM lcl_gui_page_super. RETURNING VALUE(ro_html) TYPE REF TO lcl_html_helper. METHODS render_proxy RETURNING VALUE(ro_html) TYPE REF TO lcl_html_helper. + METHODS render_development_internals + RETURNING VALUE(ro_html) TYPE REF TO lcl_html_helper. METHODS render_form_begin RETURNING VALUE(ro_html) TYPE REF TO lcl_html_helper. METHODS render_form_end @@ -49,6 +51,8 @@ CLASS lcl_gui_page_settings IMPLEMENTATION. ro_html->add( render_form_begin( ) ). ro_html->add( render_proxy( ) ). + ro_html->add( |
| ). + ro_html->add( render_development_internals( ) ). ro_html->add( render_form_end( ) ). ENDMETHOD. @@ -86,7 +90,6 @@ CLASS lcl_gui_page_settings IMPLEMENTATION. lt_post_fields = parse_post( it_postdata ). build_settings( lt_post_fields ). - validate_settings( ). IF mv_error = abap_true. @@ -115,6 +118,13 @@ CLASS lcl_gui_page_settings IMPLEMENTATION. mv_error = abap_true. ENDIF. mo_settings->set_proxy_port( ls_post_field-value ). + + READ TABLE it_post_fields INTO ls_post_field WITH KEY name = 'critical_tests'. + IF sy-subrc = 0. + mo_settings->set_run_critical_tests( abap_true ). + ELSE. + mo_settings->set_run_critical_tests( abap_false ). + ENDIF. ENDMETHOD. @@ -159,11 +169,22 @@ CLASS lcl_gui_page_settings IMPLEMENTATION. METHOD read_settings. - DATA lo_settings_persistence TYPE REF TO lcl_persistence_settings. lo_settings_persistence = lcl_app=>settings( ). mo_settings = lo_settings_persistence->read( ). + ENDMETHOD. + METHOD render_development_internals. + DATA lv_checked TYPE string. + IF mo_settings->get_run_critical_tests( ) = abap_true. + lv_checked = 'checked'. + ENDIF. + CREATE OBJECT ro_html. + ro_html->add( |

abapGit Development Internals settings

| ). + ro_html->add( ` Enable critical unit tests (see LTCL_DANGEROUS)` ). + ro_html->add( |
| ). + ro_html->add( |
| ). ENDMETHOD. ENDCLASS. \ No newline at end of file