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

added a host name to password popup title

Browse Source 
added a host name to password popup title
This commit is contained in:
Alexander Geppart 2018-03-11 19:28:46 +00:00
parent dd862b7a95
commit d460c3b285
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/zabapgit_password_dialog.prog.abap
View File

@ -45,6 +45,9 @@ CLASS lcl_password_dialog DEFINITION FINAL.
PRIVATE SECTION. PRIVATE SECTION.
CLASS-DATA gv_confirm TYPE abap_bool. CLASS-DATA gv_confirm TYPE abap_bool.
CLASS-METHODS enrich_title_by_hostname
IMPORTING
iv_repo_url TYPE string.
ENDCLASS. "lcl_password_dialog DEFINITION ENDCLASS. "lcl_password_dialog DEFINITION
@ -57,6 +60,9 @@ CLASS lcl_password_dialog IMPLEMENTATION.
p_user = cv_user. p_user = cv_user.
gv_confirm = abap_false. gv_confirm = abap_false.
enrich_title_by_hostname( iv_repo_url ).
CALL SELECTION-SCREEN c_dynnr STARTING AT 5 5 ENDING AT 60 8. CALL SELECTION-SCREEN c_dynnr STARTING AT 5 5 ENDING AT 60 8.
IF gv_confirm = abap_true. IF gv_confirm = abap_true.
@ -132,4 +138,17 @@ CLASS lcl_password_dialog IMPLEMENTATION.
ENDMETHOD. "on_screen_event ENDMETHOD. "on_screen_event
METHOD enrich_title_by_hostname.
DATA lv_host TYPE string.
FIND REGEX 'https?://([^/^:]*)' IN iv_repo_url SUBMATCHES lv_host.
IF lv_host IS NOT INITIAL AND lv_host NE space.
CLEAR: s_title.
CONCATENATE 'Login:' lv_host INTO s_title IN CHARACTER MODE SEPARATED BY space.
ENDIF.
ENDMETHOD.
ENDCLASS. " lcl_password_dialog IMPLEMENTATION ENDCLASS. " lcl_password_dialog IMPLEMENTATION