diff --git a/src/zabapgit.prog.abap b/src/zabapgit.prog.abap index 6c17708f8..5feb664ec 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.16.0'. "#EC NOTEXT + gc_abap_version TYPE string VALUE 'v1.16.1'. "#EC NOTEXT ******************************************************************************** * The MIT License (MIT) diff --git a/src/zabapgit_file_status.prog.abap b/src/zabapgit_file_status.prog.abap index 6a7d2e265..a8d3a122c 100644 --- a/src/zabapgit_file_status.prog.abap +++ b/src/zabapgit_file_status.prog.abap @@ -135,6 +135,14 @@ CLASS lcl_file_status IMPLEMENTATION. ENDIF. ENDLOOP. +* add path information for files + LOOP AT lt_remote ASSIGNING . + READ TABLE rt_results ASSIGNING WITH KEY filename = -filename. + IF sy-subrc = 0. + -path = -path. + ENDIF. + ENDLOOP. + * find objects only existing locally lt_tadir = lcl_tadir=>read( io_repo->get_package( ) ). LOOP AT lt_tadir ASSIGNING . @@ -155,14 +163,14 @@ CLASS lcl_file_status IMPLEMENTATION. ls_result-obj_name = -obj_name. APPEND ls_result TO rt_results. ENDIF. - ENDLOOP. -* add path information for files - LOOP AT lt_remote ASSIGNING . - READ TABLE rt_results ASSIGNING WITH KEY filename = -filename. - IF sy-subrc = 0. - -path = -path. - ENDIF. + LOOP AT rt_results ASSIGNING + WHERE obj_type = -object + AND obj_name = -obj_name + AND path IS INITIAL. +* new file added locally to existing object + -path = io_repo->get_dot_abapgit( )->get_starting_folder( ) && -path. + ENDLOOP. ENDLOOP. * add package information