diff --git a/src/zabapgit_page_branch_overview.prog.abap b/src/zabapgit_page_branch_overview.prog.abap index 4ea1a3a75..2c29a6d57 100644 --- a/src/zabapgit_page_branch_overview.prog.abap +++ b/src/zabapgit_page_branch_overview.prog.abap @@ -40,6 +40,8 @@ CLASS lcl_branch_overview DEFINITION FINAL. RAISING lcx_exception, determine_merges RAISING lcx_exception, + fixes + RAISING lcx_exception, get_git_objects IMPORTING io_repo TYPE REF TO lcl_repo_online RETURNING VALUE(rt_objects) TYPE ty_objects_tt @@ -67,6 +69,7 @@ CLASS lcl_branch_overview IMPLEMENTATION. determine_branch( ). determine_merges( ). + fixes( ). SORT gt_commits BY time ASCENDING. @@ -86,6 +89,10 @@ CLASS lcl_branch_overview IMPLEMENTATION. gt_branches = lcl_git_transport=>branches( io_repo->get_url( ) ). + DELETE gt_branches WHERE name = 'refs/heads/gh-pages'. + DELETE gt_branches WHERE name CP 'refs/tags/*'. + DELETE gt_branches WHERE name CP 'refs/pull/*'. + lcl_git_transport=>upload_pack( EXPORTING io_repo = io_repo iv_deepen = abap_false it_branches = gt_branches @@ -127,6 +134,20 @@ CLASS lcl_branch_overview IMPLEMENTATION. ENDMETHOD. + METHOD fixes. + + FIELD-SYMBOLS: LIKE LINE OF gt_commits. + + + LOOP AT gt_commits ASSIGNING WHERE NOT merge IS INITIAL. +* commits from old branches + IF -branch = -merge. + CLEAR -merge. + ENDIF. + ENDLOOP. + + ENDMETHOD. + METHOD determine_merges. FIELD-SYMBOLS: LIKE LINE OF gt_commits,