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

Add master language setting to new repo popups (#3409)

Browse Source 
Co-authored-by: Lars Hvam <larshp@hotmail.com>
This commit is contained in:
Frederik Hudák 2020-05-26 06:29:31 +02:00 committed by GitHub
parent caf7c92eaf
commit 657405433d
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
5 changed files with 95 additions and 62 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

100
src/ui/zcl_abapgit_popups.clas.abap
View File

@ -57,29 +57,30 @@ CLASS zcl_abapgit_popups DEFINITION
EXPORTING EXPORTING
!et_list TYPE INDEX TABLE . !et_list TYPE INDEX TABLE .
METHODS on_select_list_link_click METHODS on_select_list_link_click
FOR EVENT link_click OF cl_salv_events_table FOR EVENT link_click OF cl_salv_events_table
IMPORTING IMPORTING
!row !row
!column . !column .
METHODS on_select_list_function_click METHODS on_select_list_function_click
FOR EVENT added_function OF cl_salv_events_table FOR EVENT added_function OF cl_salv_events_table
IMPORTING IMPORTING
!e_salv_function . !e_salv_function .
METHODS on_double_click METHODS on_double_click
FOR EVENT double_click OF cl_salv_events_table FOR EVENT double_click OF cl_salv_events_table
IMPORTING IMPORTING
!row !row
!column . !column .
METHODS extract_field_values METHODS extract_field_values
IMPORTING IMPORTING
it_fields TYPE ty_sval_tt it_fields TYPE ty_sval_tt
EXPORTING EXPORTING
ev_url TYPE abaptxt255-line ev_url TYPE abaptxt255-line
ev_package TYPE tdevc-devclass ev_package TYPE tdevc-devclass
ev_branch TYPE textl-line ev_branch TYPE textl-line
ev_display_name TYPE trm255-text ev_display_name TYPE trm255-text
ev_folder_logic TYPE string ev_folder_logic TYPE string
ev_ign_subpkg TYPE abap_bool. ev_ign_subpkg TYPE abap_bool
ev_master_lang_only TYPE abap_bool.
TYPES: TYPES:
ty_lt_fields TYPE STANDARD TABLE OF sval WITH DEFAULT KEY. ty_lt_fields TYPE STANDARD TABLE OF sval WITH DEFAULT KEY.
METHODS _popup_3_get_values METHODS _popup_3_get_values
@ -200,6 +201,10 @@ CLASS zcl_abapgit_popups IMPLEMENTATION.
ev_ign_subpkg = <ls_field>-value. ev_ign_subpkg = <ls_field>-value.
TRANSLATE ev_ign_subpkg TO UPPER CASE. TRANSLATE ev_ign_subpkg TO UPPER CASE.
READ TABLE it_fields INDEX 7 ASSIGNING <ls_field>.
ASSERT sy-subrc = 0.
ev_master_lang_only = <ls_field>-value.
ENDMETHOD. ENDMETHOD.
@ -1037,6 +1042,12 @@ CLASS zcl_abapgit_popups IMPLEMENTATION.
iv_value = zif_abapgit_dot_abapgit=>c_folder_logic-prefix iv_value = zif_abapgit_dot_abapgit=>c_folder_logic-prefix
CHANGING ct_fields = lt_fields ). CHANGING ct_fields = lt_fields ).
add_field( EXPORTING iv_tabname = 'DOKIL'
iv_fieldname = 'MASTERLANG'
iv_fieldtext = 'Master language only'
iv_value = abap_true
CHANGING ct_fields = lt_fields ).
WHILE lv_finished = abap_false. WHILE lv_finished = abap_false.
lv_icon_ok = icon_okay. lv_icon_ok = icon_okay.
@ -1084,6 +1095,10 @@ CLASS zcl_abapgit_popups IMPLEMENTATION.
TRANSLATE <ls_field>-value TO UPPER CASE. TRANSLATE <ls_field>-value TO UPPER CASE.
rs_popup-folder_logic = <ls_field>-value. rs_popup-folder_logic = <ls_field>-value.
READ TABLE lt_fields INDEX 4 ASSIGNING <ls_field>.
ASSERT sy-subrc = 0.
rs_popup-master_lang_only = <ls_field>-value.
lv_finished = abap_true. lv_finished = abap_true.
TRY. TRY.
@ -1103,22 +1118,23 @@ CLASS zcl_abapgit_popups IMPLEMENTATION.
METHOD zif_abapgit_popups~repo_popup. METHOD zif_abapgit_popups~repo_popup.
DATA: lv_returncode TYPE c, DATA: lv_returncode TYPE c,
lv_icon_ok TYPE icon-name, lv_icon_ok TYPE icon-name,
lv_icon_br TYPE icon-name, lv_icon_br TYPE icon-name,
lt_fields TYPE TABLE OF sval, lt_fields TYPE TABLE OF sval,
lv_uattr TYPE spo_fattr, lv_uattr TYPE spo_fattr,
lv_pattr TYPE spo_fattr, lv_pattr TYPE spo_fattr,
lv_button2 TYPE svalbutton-buttontext, lv_button2 TYPE svalbutton-buttontext,
lv_icon2 TYPE icon-name, lv_icon2 TYPE icon-name,
lv_package TYPE tdevc-devclass, lv_package TYPE tdevc-devclass,
lv_url TYPE abaptxt255-line, lv_url TYPE abaptxt255-line,
lv_branch TYPE textl-line, lv_branch TYPE textl-line,
lv_display_name TYPE trm255-text, lv_display_name TYPE trm255-text,
lv_folder_logic TYPE string, lv_folder_logic TYPE string,
lv_ign_subpkg TYPE abap_bool, lv_ign_subpkg TYPE abap_bool,
lv_finished TYPE abap_bool, lv_finished TYPE abap_bool,
lx_error TYPE REF TO zcx_abapgit_exception. lv_master_lang_only TYPE abap_bool,
lx_error TYPE REF TO zcx_abapgit_exception.
IF iv_freeze_url = abap_true. IF iv_freeze_url = abap_true.
lv_uattr = '05'. lv_uattr = '05'.
@ -1182,6 +1198,12 @@ CLASS zcl_abapgit_popups IMPLEMENTATION.
iv_value = abap_false iv_value = abap_false
CHANGING ct_fields = lt_fields ). CHANGING ct_fields = lt_fields ).
add_field( EXPORTING iv_tabname = 'DOKIL'
iv_fieldname = 'MASTERLANG'
iv_fieldtext = 'Master language only'
iv_value = abap_true
CHANGING ct_fields = lt_fields ).
lv_icon_ok = icon_okay. lv_icon_ok = icon_okay.
lv_icon_br = icon_workflow_fork. lv_icon_br = icon_workflow_fork.
@ -1222,7 +1244,8 @@ CLASS zcl_abapgit_popups IMPLEMENTATION.
ev_branch = lv_branch ev_branch = lv_branch
ev_display_name = lv_display_name ev_display_name = lv_display_name
ev_folder_logic = lv_folder_logic ev_folder_logic = lv_folder_logic
ev_ign_subpkg = lv_ign_subpkg ). ev_ign_subpkg = lv_ign_subpkg
ev_master_lang_only = lv_master_lang_only ).
lv_finished = abap_true. lv_finished = abap_true.
@ -1241,12 +1264,13 @@ CLASS zcl_abapgit_popups IMPLEMENTATION.
ENDWHILE. ENDWHILE.
rs_popup-url = lv_url. rs_popup-url = lv_url.
rs_popup-package = lv_package. rs_popup-package = lv_package.
rs_popup-branch_name = lv_branch. rs_popup-branch_name = lv_branch.
rs_popup-display_name = lv_display_name. rs_popup-display_name = lv_display_name.
rs_popup-folder_logic = lv_folder_logic. rs_popup-folder_logic = lv_folder_logic.
rs_popup-ign_subpkg = lv_ign_subpkg. rs_popup-ign_subpkg = lv_ign_subpkg.
rs_popup-master_lang_only = lv_master_lang_only.
ENDMETHOD. ENDMETHOD.

17
src/ui/zcl_abapgit_services_repo.clas.abap
View File

@ -145,7 +145,9 @@ CLASS zcl_abapgit_services_repo IMPLEMENTATION.
lo_repo = zcl_abapgit_repo_srv=>get_instance( )->new_offline( lo_repo = zcl_abapgit_repo_srv=>get_instance( )->new_offline(
iv_url = ls_popup-url iv_url = ls_popup-url
iv_package = ls_popup-package iv_package = ls_popup-package
iv_folder_logic = ls_popup-folder_logic ). iv_folder_logic = ls_popup-folder_logic
iv_master_lang_only = ls_popup-master_lang_only ).
lo_repo->rebuild_local_checksums( ). lo_repo->rebuild_local_checksums( ).
zcl_abapgit_persistence_user=>get_instance( )->set_repo_show( lo_repo->get_key( ) ). " Set default repo for user zcl_abapgit_persistence_user=>get_instance( )->set_repo_show( lo_repo->get_key( ) ). " Set default repo for user
@ -166,12 +168,13 @@ CLASS zcl_abapgit_services_repo IMPLEMENTATION.
ENDIF. ENDIF.
ro_repo = zcl_abapgit_repo_srv=>get_instance( )->new_online( ro_repo = zcl_abapgit_repo_srv=>get_instance( )->new_online(
iv_url = ls_popup-url iv_url = ls_popup-url
iv_branch_name = ls_popup-branch_name iv_branch_name = ls_popup-branch_name
iv_package = ls_popup-package iv_package = ls_popup-package
iv_display_name = ls_popup-display_name iv_display_name = ls_popup-display_name
iv_folder_logic = ls_popup-folder_logic iv_folder_logic = ls_popup-folder_logic
iv_ign_subpkg = ls_popup-ign_subpkg ). iv_ign_subpkg = ls_popup-ign_subpkg
iv_master_lang_only = ls_popup-master_lang_only ).
toggle_favorite( ro_repo->get_key( ) ). toggle_favorite( ro_repo->get_key( ) ).

15
src/ui/zif_abapgit_popups.intf.abap
View File

@ -4,13 +4,14 @@ INTERFACE zif_abapgit_popups
TYPES: TYPES:
BEGIN OF ty_popup, BEGIN OF ty_popup,
url TYPE string, url TYPE string,
package TYPE devclass, package TYPE devclass,
branch_name TYPE string, branch_name TYPE string,
display_name TYPE string, display_name TYPE string,
folder_logic TYPE string, folder_logic TYPE string,
ign_subpkg TYPE abap_bool, ign_subpkg TYPE abap_bool,
cancel TYPE abap_bool, master_lang_only TYPE abap_bool,
cancel TYPE abap_bool,
END OF ty_popup . END OF ty_popup .
CONSTANTS c_new_branch_label TYPE string VALUE '+ create new ...' ##NO_TEXT. CONSTANTS c_new_branch_label TYPE string VALUE '+ create new ...' ##NO_TEXT.

7
src/zcl_abapgit_repo_srv.clas.abap
View File

@ -330,6 +330,9 @@ CLASS zcl_abapgit_repo_srv IMPLEMENTATION.
ro_repo ?= instantiate_and_add( ls_repo ). ro_repo ?= instantiate_and_add( ls_repo ).
ls_repo-local_settings-serialize_master_lang_only = iv_master_lang_only.
ro_repo->set_local_settings( ls_repo-local_settings ).
ENDMETHOD. ENDMETHOD.
@ -369,13 +372,13 @@ CLASS zcl_abapgit_repo_srv IMPLEMENTATION.
zcx_abapgit_exception=>raise( 'new_online not found' ). zcx_abapgit_exception=>raise( 'new_online not found' ).
ENDTRY. ENDTRY.
ro_repo ?= instantiate_and_add( ls_repo ). ro_repo ?= instantiate_and_add( ls_repo ).
IF ls_repo-local_settings-ignore_subpackages <> iv_ign_subpkg. IF ls_repo-local_settings-ignore_subpackages <> iv_ign_subpkg.
ls_repo-local_settings-ignore_subpackages = iv_ign_subpkg. ls_repo-local_settings-ignore_subpackages = iv_ign_subpkg.
ro_repo->set_local_settings( ls_repo-local_settings ).
ENDIF. ENDIF.
ls_repo-local_settings-serialize_master_lang_only = iv_master_lang_only.
ro_repo->set_local_settings( ls_repo-local_settings ).
ro_repo->refresh( ). ro_repo->refresh( ).
ro_repo->find_remote_dot_abapgit( ). ro_repo->find_remote_dot_abapgit( ).

18
src/zif_abapgit_repo_srv.intf.abap
View File

@ -31,21 +31,23 @@ INTERFACE zif_abapgit_repo_srv
IMPORTING IMPORTING
!iv_url TYPE string !iv_url TYPE string
!iv_package TYPE devclass !iv_package TYPE devclass
iv_folder_logic TYPE string DEFAULT zif_abapgit_dot_abapgit=>c_folder_logic-full !iv_folder_logic TYPE string DEFAULT zif_abapgit_dot_abapgit=>c_folder_logic-full
!iv_master_lang_only TYPE abap_bool DEFAULT abap_false
RETURNING RETURNING
VALUE(ro_repo) TYPE REF TO zcl_abapgit_repo_offline VALUE(ro_repo) TYPE REF TO zcl_abapgit_repo_offline
RAISING RAISING
zcx_abapgit_exception . zcx_abapgit_exception .
METHODS new_online METHODS new_online
IMPORTING IMPORTING
!iv_url TYPE string !iv_url TYPE string
!iv_branch_name TYPE string !iv_branch_name TYPE string
iv_display_name TYPE string OPTIONAL iv_display_name TYPE string OPTIONAL
!iv_package TYPE devclass !iv_package TYPE devclass
!iv_folder_logic TYPE string DEFAULT 'PREFIX' !iv_folder_logic TYPE string DEFAULT 'PREFIX'
!iv_ign_subpkg TYPE abap_bool DEFAULT abap_false !iv_ign_subpkg TYPE abap_bool DEFAULT abap_false
!iv_master_lang_only TYPE abap_bool DEFAULT abap_false
RETURNING RETURNING
VALUE(ro_repo) TYPE REF TO zcl_abapgit_repo_online VALUE(ro_repo) TYPE REF TO zcl_abapgit_repo_online
RAISING RAISING
zcx_abapgit_exception . zcx_abapgit_exception .
METHODS purge METHODS purge