diff --git a/src/zabapgit.prog.abap b/src/zabapgit.prog.abap index 256ad32db..8f31ad331 100644 --- a/src/zabapgit.prog.abap +++ b/src/zabapgit.prog.abap @@ -3,7 +3,7 @@ REPORT zabapgit LINE-SIZE 100. * See http://www.abapgit.org CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT - gc_abap_version TYPE string VALUE 'v1.21.5'. "#EC NOTEXT + gc_abap_version TYPE string VALUE 'v1.21.6'. "#EC NOTEXT ******************************************************************************** * The MIT License (MIT) @@ -30,7 +30,7 @@ CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT ******************************************************************************** SELECTION-SCREEN BEGIN OF SCREEN 1001. -* dummy for triggering screen +* dummy for triggering screen on Java SAP GUI SELECTION-SCREEN END OF SCREEN 1001. INCLUDE zabapgit_password_dialog. " !!! Contains SELECTION SCREEN diff --git a/src/zabapgit_http.prog.abap b/src/zabapgit_http.prog.abap index b0f8e8572..ba2f36952 100644 --- a/src/zabapgit_http.prog.abap +++ b/src/zabapgit_http.prog.abap @@ -233,8 +233,7 @@ CLASS lcl_http_digest IMPLEMENTATION. METHOD run. - DATA: lv_value TYPE string, - lv_response TYPE string, + DATA: lv_response TYPE string, lv_method TYPE string, lv_cnonce TYPE string, lv_uri TYPE string, diff --git a/src/zabapgit_object_doma.prog.abap b/src/zabapgit_object_doma.prog.abap index 5d723e48d..ab38f2049 100644 --- a/src/zabapgit_object_doma.prog.abap +++ b/src/zabapgit_object_doma.prog.abap @@ -52,9 +52,9 @@ CLASS lcl_object_doma IMPLEMENTATION. METHOD lif_object~has_changed_since. - DATA: lv_date TYPE dats, - lv_time TYPE tims, - lv_ts TYPE timestamp. + DATA: lv_date TYPE dats, + lv_time TYPE tims, + lv_ts TYPE timestamp. SELECT SINGLE as4date as4time FROM dd01l INTO (lv_date, lv_time) @@ -212,13 +212,13 @@ CLASS lcl_object_doma IMPLEMENTATION. METHOD serialize_texts. - DATA: lv_name TYPE ddobjname, - lv_index TYPE i, - ls_dd01v TYPE dd01v, - lt_dd07v TYPE TABLE OF dd07v, - lt_i18n_langs TYPE TABLE OF langu, - lt_dd01_texts TYPE tt_dd01_texts, - lt_dd07_texts TYPE tt_dd07_texts. + DATA: lv_name TYPE ddobjname, + lv_index TYPE i, + ls_dd01v TYPE dd01v, + lt_dd07v TYPE TABLE OF dd07v, + lt_i18n_langs TYPE TABLE OF langu, + lt_dd01_texts TYPE tt_dd01_texts, + lt_dd07_texts TYPE tt_dd07_texts. FIELD-SYMBOLS: LIKE LINE OF lt_i18n_langs, LIKE LINE OF lt_dd07v, @@ -228,7 +228,7 @@ CLASS lcl_object_doma IMPLEMENTATION. lv_name = ms_item-obj_name. " Collect additional languages - SELECT DISTINCT ddlanguage as langu INTO TABLE lt_i18n_langs + SELECT DISTINCT ddlanguage AS langu INTO TABLE lt_i18n_langs FROM dd01v WHERE domname = lv_name AND ddlanguage <> mv_language. " Skip master lang - it was serialized already @@ -277,12 +277,12 @@ CLASS lcl_object_doma IMPLEMENTATION. METHOD deserialize_texts. - DATA: lv_name TYPE ddobjname, - ls_dd01v_tmp TYPE dd01v, - lt_dd07v_tmp TYPE TABLE OF dd07v, - lt_i18n_langs TYPE TABLE OF langu, - lt_dd01_texts TYPE tt_dd01_texts, - lt_dd07_texts TYPE tt_dd07_texts. + DATA: lv_name TYPE ddobjname, + ls_dd01v_tmp TYPE dd01v, + lt_dd07v_tmp TYPE TABLE OF dd07v, + lt_i18n_langs TYPE TABLE OF langu, + lt_dd01_texts TYPE tt_dd01_texts, + lt_dd07_texts TYPE tt_dd07_texts. FIELD-SYMBOLS: LIKE LINE OF lt_i18n_langs, LIKE LINE OF it_dd07v, @@ -300,7 +300,8 @@ CLASS lcl_object_doma IMPLEMENTATION. io_xml->read( EXPORTING iv_name = 'DD07_TEXTS' CHANGING cg_data = lt_dd07_texts ). - SORT: lt_i18n_langs, lt_dd07_texts BY ddlanguage. " Optimization + SORT lt_i18n_langs. + SORT lt_dd07_texts BY ddlanguage. " Optimization LOOP AT lt_i18n_langs ASSIGNING . diff --git a/src/zabapgit_object_dtel.prog.abap b/src/zabapgit_object_dtel.prog.abap index 2af768331..9554ff97f 100644 --- a/src/zabapgit_object_dtel.prog.abap +++ b/src/zabapgit_object_dtel.prog.abap @@ -207,12 +207,12 @@ CLASS lcl_object_dtel IMPLEMENTATION. METHOD serialize_texts. - DATA: lv_name TYPE ddobjname, - lv_index TYPE i, - ls_dd04v TYPE dd04v, - ls_tpara TYPE tpara, - lt_dd04_texts TYPE tt_dd04_texts, - lt_i18n_langs TYPE TABLE OF langu. + DATA: lv_name TYPE ddobjname, + lv_index TYPE i, + ls_dd04v TYPE dd04v, + ls_tpara TYPE tpara, + lt_dd04_texts TYPE tt_dd04_texts, + lt_i18n_langs TYPE TABLE OF langu. FIELD-SYMBOLS: LIKE LINE OF lt_i18n_langs, TYPE ty_dd04_texts. @@ -258,10 +258,10 @@ CLASS lcl_object_dtel IMPLEMENTATION. METHOD deserialize_texts. - DATA: lv_name TYPE ddobjname, - ls_dd04v_tmp TYPE dd04v, - lt_i18n_langs TYPE TABLE OF langu, - lt_dd04_texts TYPE tt_dd04_texts. + DATA: lv_name TYPE ddobjname, + ls_dd04v_tmp TYPE dd04v, + lt_i18n_langs TYPE TABLE OF langu, + lt_dd04_texts TYPE tt_dd04_texts. FIELD-SYMBOLS: LIKE LINE OF lt_i18n_langs, TYPE ty_dd04_texts. @@ -273,7 +273,9 @@ CLASS lcl_object_dtel IMPLEMENTATION. io_xml->read( EXPORTING iv_name = 'DD04_TEXTS' CHANGING cg_data = lt_dd04_texts ). - SORT: lt_i18n_langs, lt_dd04_texts BY ddlanguage. " Optimization + SORT lt_i18n_langs. + SORT lt_dd04_texts BY ddlanguage. " Optimization + LOOP AT lt_i18n_langs ASSIGNING . " Data element description diff --git a/src/zabapgit_object_enhs.prog.abap b/src/zabapgit_object_enhs.prog.abap index 31a624b15..4ff8fcec2 100644 --- a/src/zabapgit_object_enhs.prog.abap +++ b/src/zabapgit_object_enhs.prog.abap @@ -171,7 +171,6 @@ CLASS lcl_object_enhs IMPLEMENTATION. METHOD lif_object~delete. DATA: lv_spot_name TYPE enhspotname, - lv_message TYPE string, lx_root TYPE REF TO cx_root, li_spot_ref TYPE REF TO if_enh_spot_tool, lo_badidef_tool TYPE REF TO cl_enh_tool_badi_def. diff --git a/src/zabapgit_objects.prog.abap b/src/zabapgit_objects.prog.abap index dd0d30e81..d3e465352 100644 --- a/src/zabapgit_objects.prog.abap +++ b/src/zabapgit_objects.prog.abap @@ -339,8 +339,6 @@ CLASS lcl_objects_files IMPLEMENTATION. lv_data TYPE xstring, lv_abap TYPE string. - FIELD-SYMBOLS: LIKE LINE OF mt_files. - lv_filename = filename( iv_extra = iv_extra iv_ext = 'abap' ). "#EC NOTEXT @@ -1124,6 +1122,13 @@ CLASS lcl_objects_program IMPLEMENTATION. lcx_exception=>raise( 'PROG, error inserting' ). ENDIF. + IF is_progdir-varcl = space AND ls_progdir_new = abap_true. +* function module UPDATE_PROGDIR does not update VARCL + UPDATE progdir SET varcl = is_progdir-varcl + WHERE name = ls_progdir_new-name + AND state = ls_progdir_new-state. + ENDIF. + lcl_objects_activation=>add( iv_type = 'REPS' iv_name = is_progdir-name ). diff --git a/src/zabapgit_unit_test.prog.abap b/src/zabapgit_unit_test.prog.abap index 7d3bd6663..21eb041bc 100644 --- a/src/zabapgit_unit_test.prog.abap +++ b/src/zabapgit_unit_test.prog.abap @@ -1806,8 +1806,7 @@ CLASS ltcl_file_status IMPLEMENTATION. FIELD-SYMBOLS: LIKE LINE OF lt_local, LIKE LINE OF lt_remote, LIKE LINE OF lt_results, - LIKE LINE OF lt_state, - LIKE LINE OF lt_tadir. + LIKE LINE OF lt_state. "STATE FILE SHA1 _append_state 'zclass1.clas.xml' 'C1_F1'. diff --git a/src/zabapgit_view_repo.prog.abap b/src/zabapgit_view_repo.prog.abap index d9fd32ff0..e599565df 100644 --- a/src/zabapgit_view_repo.prog.abap +++ b/src/zabapgit_view_repo.prog.abap @@ -611,8 +611,8 @@ CLASS lcl_gui_view_repo_content IMPLEMENTATION. ENDMETHOD. "get_item_icon METHOD render_item. - DATA: lv_link TYPE string, - ls_file LIKE LINE OF is_item-files. + + DATA: lv_link TYPE string. CREATE OBJECT ro_html. @@ -674,7 +674,6 @@ CLASS lcl_gui_view_repo_content IMPLEMENTATION. METHOD render_item_command. DATA: lv_difflink TYPE string, - lv_text TYPE string, ls_file LIKE LINE OF is_item-files. CREATE OBJECT ro_html.