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

Merge pull request #1262 from gepparta/master

Browse Source 
added a host name to password popup title #1261
This commit is contained in:
Lars Hvam 2018-03-22 12:42:05 +01:00 committed by GitHub
commit 97ba2b6ef9
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
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.
CLASS-DATA gv_confirm TYPE abap_bool.
CLASS-METHODS enrich_title_by_hostname
IMPORTING
iv_repo_url TYPE string.
ENDCLASS. "lcl_password_dialog DEFINITION
@ -57,6 +60,9 @@ CLASS lcl_password_dialog IMPLEMENTATION.
p_user = cv_user.
gv_confirm = abap_false.
enrich_title_by_hostname( iv_repo_url ).
CALL SELECTION-SCREEN c_dynnr STARTING AT 5 5 ENDING AT 60 8.
IF gv_confirm = abap_true.
@ -132,4 +138,17 @@ CLASS lcl_password_dialog IMPLEMENTATION.
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