#310 default user in login, DRAFT

This commit is contained in:
sbcgua 2016-09-04 10:55:29 +03:00
parent b096124be9
commit 127d338119

View File

@ -307,9 +307,13 @@ CLASS lcl_git_transport IMPLEMENTATION.
METHOD acquire_login_details. METHOD acquire_login_details.
DATA: DATA:
lv_default_user TYPE string,
lv_user TYPE string, lv_user TYPE string,
lv_pass 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( lcl_password_dialog=>popup(
EXPORTING EXPORTING
iv_repo_url = iv_url iv_repo_url = iv_url
@ -321,6 +325,10 @@ CLASS lcl_git_transport IMPLEMENTATION.
lcx_exception=>raise( 'HTTP 401, unauthorized' ). lcx_exception=>raise( 'HTTP 401, unauthorized' ).
ENDIF. ENDIF.
IF lv_user <> lv_default_user.
* lcl_app=>user( )->get_repo_username( iv_key = iv_username = lv_user ).
ENDIF.
ii_client->authenticate( ii_client->authenticate(
username = lv_user username = lv_user
password = lv_pass ). password = lv_pass ).