From 127d338119b4f2df201f875ecd5c5e6a09059f3b Mon Sep 17 00:00:00 2001 From: sbcgua Date: Sun, 4 Sep 2016 10:55:29 +0300 Subject: [PATCH] #310 default user in login, DRAFT --- src/zabapgit_git.prog.abap | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) 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 ).