diff --git a/src/zabapgit_git.prog.abap b/src/zabapgit_git.prog.abap index a903ad17e..1b67a9c3a 100644 --- a/src/zabapgit_git.prog.abap +++ b/src/zabapgit_git.prog.abap @@ -307,8 +307,12 @@ CLASS lcl_git_transport IMPLEMENTATION. METHOD acquire_login_details. DATA: - lv_user TYPE string, - lv_pass TYPE string. + lv_default_user TYPE string, + lv_user TYPE string, + lv_pass TYPE string. + +* lv_default_user = lcl_app=>user( )->get_repo_username( iv_key = ). +* lv_user = lv_default_user. lcl_password_dialog=>popup( EXPORTING @@ -321,6 +325,10 @@ CLASS lcl_git_transport IMPLEMENTATION. lcx_exception=>raise( 'HTTP 401, unauthorized' ). ENDIF. + IF lv_user <> lv_default_user. +* lcl_app=>user( )->get_repo_username( iv_key = iv_username = lv_user ). + ENDIF. + ii_client->authenticate( username = lv_user password = lv_pass ).