SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-05-02 04:36:49 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Merge pull request #513 from larshp/issue500

Browse Source 
fix issue #500
This commit is contained in:
Lars Hvam 2016-12-30 14:08:15 +01:00 committed by GitHub
commit ae80cec1f5
1 changed files with 24 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/zabapgit_objects_impl.prog.abap
View File

@ -238,27 +238,30 @@ CLASS lcl_objects IMPLEMENTATION.
METHOD path_to_package. METHOD path_to_package.
DATA: lv_length TYPE i, DATA: lv_length TYPE i,
lv_parent TYPE devclass,
lv_new TYPE string,
lv_path TYPE string. lv_path TYPE string.
lv_length = strlen( iv_start ) - 1. lv_length = strlen( iv_start ).
lv_path = iv_path+lv_length. lv_path = iv_path+lv_length.
lv_parent = iv_top.
rv_package = iv_top.
CONCATENATE iv_top lv_path INTO rv_package. WHILE lv_path CA '/'.
SPLIT lv_path AT '/' INTO lv_new lv_path.
TRANSLATE rv_package USING '/_'.
lv_length = strlen( rv_package ) - 1.
rv_package = rv_package(lv_length).
CONCATENATE rv_package '_' lv_new INTO rv_package.
TRANSLATE rv_package TO UPPER CASE. TRANSLATE rv_package TO UPPER CASE.
IF lcl_sap_package=>exists( rv_package ) = abap_false. IF lcl_sap_package=>exists( rv_package ) = abap_false.
lcl_sap_package=>create_child( iv_parent = iv_top lcl_sap_package=>create_child( iv_parent = lv_parent
iv_child = rv_package ). iv_child = rv_package ).
ENDIF. ENDIF.
lv_parent = rv_package.
ENDWHILE.
ENDMETHOD. ENDMETHOD.
METHOD class_name. METHOD class_name.