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

move HEAD branch to the top, fix #594

Browse Source
This commit is contained in:
sbcgua 2017-02-01 11:18:23 +02:00
parent 15249221a6
commit 35339a9152
1 changed files with 31 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
src/zabapgit_popups.prog.abap
View File

@ -285,9 +285,10 @@ CLASS lcl_popups IMPLEMENTATION.
DATA: lo_branches TYPE REF TO lcl_git_branch_list, DATA: lo_branches TYPE REF TO lcl_git_branch_list,
lt_branches TYPE lcl_git_branch_list=>ty_git_branch_list_tt, lt_branches TYPE lcl_git_branch_list=>ty_git_branch_list_tt,
lv_head_suffix TYPE string,
lv_answer TYPE c LENGTH 1, lv_answer TYPE c LENGTH 1,
lv_default TYPE i VALUE 1, "Default cursor position lv_default TYPE i,
lv_head_suffix TYPE string,
lv_head_symref TYPE string,
lt_selection TYPE TABLE OF spopli. lt_selection TYPE TABLE OF spopli.
FIELD-SYMBOLS: <ls_sel> LIKE LINE OF lt_selection, FIELD-SYMBOLS: <ls_sel> LIKE LINE OF lt_selection,
@ -297,28 +298,43 @@ CLASS lcl_popups IMPLEMENTATION.
lo_branches = lcl_git_transport=>branches( iv_url ). lo_branches = lcl_git_transport=>branches( iv_url ).
lt_branches = lo_branches->get_branches_only( ). lt_branches = lo_branches->get_branches_only( ).
lv_head_suffix = | ({ lcl_git_branch_list=>c_head_name })|. lv_head_suffix = | ({ lcl_git_branch_list=>c_head_name })|.
lv_head_symref = lo_branches->get_head_symref( ).
LOOP AT lt_branches ASSIGNING <ls_branch>. LOOP AT lt_branches ASSIGNING <ls_branch>.
IF <ls_branch>-name = lcl_git_branch_list=>c_head_name CHECK <ls_branch>-name IS NOT INITIAL. " To ensure some below ifs
AND <ls_branch>-name <> lo_branches->get_head_symref( ).
" HEAD but other HEAD symref exist
CONTINUE.
ENDIF.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>. IF <ls_branch>-is_head = abap_true.
IF iv_default_branch IS NOT INITIAL AND iv_default_branch = <ls_branch>-name.
lv_default = sy-tabix.
ENDIF.
IF <ls_branch>-name = lo_branches->get_head_symref( ) IF <ls_branch>-name = lcl_git_branch_list=>c_head_name. " HEAD
AND <ls_branch>-name <> lcl_git_branch_list=>c_head_name. IF <ls_branch>-name <> lv_head_symref AND lv_head_symref IS NOT INITIAL.
" HEAD symref but not HEAD itself " HEAD but other HEAD symref exists - ignore
<ls_sel>-varoption = <ls_branch>-display_name && lv_head_suffix. CONTINUE.
ELSE.
INSERT INITIAL LINE INTO lt_selection INDEX 1 ASSIGNING <ls_sel>.
<ls_sel>-varoption = <ls_branch>-name.
ENDIF.
ELSE.
INSERT INITIAL LINE INTO lt_selection INDEX 1 ASSIGNING <ls_sel>.
<ls_sel>-varoption = <ls_branch>-display_name && lv_head_suffix.
ENDIF.
IF lv_default > 0. " Shift down default if set
lv_default = lv_default + 1.
ENDIF.
ELSE. ELSE.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-varoption = <ls_branch>-display_name. <ls_sel>-varoption = <ls_branch>-display_name.
ENDIF. ENDIF.
IF <ls_branch>-name = iv_default_branch.
IF <ls_branch>-is_head = abap_true.
lv_default = 1.
ELSE.
lv_default = sy-tabix.
ENDIF.
ENDIF.
ENDLOOP. ENDLOOP.
IF iv_show_new_option = abap_true. IF iv_show_new_option = abap_true.
@ -362,7 +378,6 @@ CLASS lcl_popups IMPLEMENTATION.
rs_branch = lo_branches->find_by_name( <ls_branch>-name ). rs_branch = lo_branches->find_by_name( <ls_branch>-name ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.
METHOD repo_popup. METHOD repo_popup.