mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-01 20:32:26 +08:00
move PERSIST_USER behind interface
move PERSIST_USER behind interface will be moved to instantiate via factory in follow up PR
This commit is contained in:
larshp
Lars Hvam
parent
1dbc2195f8
commit
6044d3e7b2
|
|
@ -59,7 +59,7 @@ ENDCLASS.
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
CLASS zcl_abapgit_persist_migrate IMPLEMENTATION.
|
CLASS ZCL_ABAPGIT_PERSIST_MIGRATE IMPLEMENTATION.
|
||||||
|
|
||||||
|
|
||||||
METHOD distribute_settings_to_users.
|
METHOD distribute_settings_to_users.
|
||||||
|
|
@ -67,7 +67,7 @@ CLASS zcl_abapgit_persist_migrate IMPLEMENTATION.
|
||||||
DATA: lt_abapgit_users TYPE STANDARD TABLE OF char12
|
DATA: lt_abapgit_users TYPE STANDARD TABLE OF char12
|
||||||
WITH NON-UNIQUE DEFAULT KEY,
|
WITH NON-UNIQUE DEFAULT KEY,
|
||||||
ls_user_settings TYPE zif_abapgit_definitions=>ty_s_user_settings,
|
ls_user_settings TYPE zif_abapgit_definitions=>ty_s_user_settings,
|
||||||
lo_user_persistence TYPE REF TO zcl_abapgit_persistence_user.
|
li_user_persistence TYPE REF TO zif_abapgit_persist_user.
|
||||||
|
|
||||||
FIELD-SYMBOLS: <ls_user> LIKE LINE OF lt_abapgit_users,
|
FIELD-SYMBOLS: <ls_user> LIKE LINE OF lt_abapgit_users,
|
||||||
<ls_setting_to_migrate> TYPE zcl_abapgit_persist_migrate=>ty_settings_to_migrate,
|
<ls_setting_to_migrate> TYPE zcl_abapgit_persist_migrate=>ty_settings_to_migrate,
|
||||||
|
|
@ -80,9 +80,9 @@ CLASS zcl_abapgit_persist_migrate IMPLEMENTATION.
|
||||||
|
|
||||||
LOOP AT lt_abapgit_users ASSIGNING <ls_user>.
|
LOOP AT lt_abapgit_users ASSIGNING <ls_user>.
|
||||||
|
|
||||||
lo_user_persistence = zcl_abapgit_persistence_user=>get_instance( <ls_user> ).
|
li_user_persistence = zcl_abapgit_persistence_user=>get_instance( <ls_user> ).
|
||||||
|
|
||||||
ls_user_settings = lo_user_persistence->get_settings( ).
|
ls_user_settings = li_user_persistence->get_settings( ).
|
||||||
|
|
||||||
LOOP AT it_settings_to_migrate ASSIGNING <ls_setting_to_migrate>.
|
LOOP AT it_settings_to_migrate ASSIGNING <ls_setting_to_migrate>.
|
||||||
|
|
||||||
|
|
@ -95,13 +95,24 @@ CLASS zcl_abapgit_persist_migrate IMPLEMENTATION.
|
||||||
|
|
||||||
ENDLOOP.
|
ENDLOOP.
|
||||||
|
|
||||||
lo_user_persistence->set_settings( ls_user_settings ).
|
li_user_persistence->set_settings( ls_user_settings ).
|
||||||
|
|
||||||
ENDLOOP.
|
ENDLOOP.
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD get_global_settings_document.
|
||||||
|
|
||||||
|
DATA: lv_global_settings_xml TYPE string.
|
||||||
|
|
||||||
|
lv_global_settings_xml = read_global_settings_xml( ).
|
||||||
|
|
||||||
|
ri_global_settings_dom = cl_ixml_80_20=>parse_to_document( stream_string = lv_global_settings_xml ).
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD lock_create.
|
METHOD lock_create.
|
||||||
|
|
||||||
DATA: lv_obj_name TYPE tadir-obj_name,
|
DATA: lv_obj_name TYPE tadir-obj_name,
|
||||||
|
|
@ -264,6 +275,15 @@ CLASS zcl_abapgit_persist_migrate IMPLEMENTATION.
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD read_global_settings_xml.
|
||||||
|
|
||||||
|
rv_global_settings_xml = zcl_abapgit_persistence_db=>get_instance( )->read(
|
||||||
|
iv_type = zcl_abapgit_persistence_db=>c_type_settings
|
||||||
|
iv_value = '' ).
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD run.
|
METHOD run.
|
||||||
|
|
||||||
IF table_exists( ) = abap_false.
|
IF table_exists( ) = abap_false.
|
||||||
|
|
@ -409,25 +429,4 @@ CLASS zcl_abapgit_persist_migrate IMPLEMENTATION.
|
||||||
iv_data = lv_settings_xml ).
|
iv_data = lv_settings_xml ).
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD read_global_settings_xml.
|
|
||||||
|
|
||||||
rv_global_settings_xml = zcl_abapgit_persistence_db=>get_instance( )->read(
|
|
||||||
iv_type = zcl_abapgit_persistence_db=>c_type_settings
|
|
||||||
iv_value = '' ).
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
|
|
||||||
METHOD get_global_settings_document.
|
|
||||||
|
|
||||||
DATA: lv_global_settings_xml TYPE string.
|
|
||||||
|
|
||||||
lv_global_settings_xml = read_global_settings_xml( ).
|
|
||||||
|
|
||||||
ri_global_settings_dom = cl_ixml_80_20=>parse_to_document( stream_string = lv_global_settings_xml ).
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
ENDCLASS.
|
ENDCLASS.
|
||||||
|
|
|
||||||
|
|
@ -4,153 +4,17 @@ CLASS zcl_abapgit_persistence_user DEFINITION
|
||||||
|
|
||||||
PUBLIC SECTION.
|
PUBLIC SECTION.
|
||||||
|
|
||||||
|
INTERFACES zif_abapgit_persist_user .
|
||||||
|
|
||||||
TYPES tt_favorites TYPE zif_abapgit_persistence=>tt_repo_keys .
|
TYPES tt_favorites TYPE zif_abapgit_persistence=>tt_repo_keys .
|
||||||
|
|
||||||
CLASS-METHODS get_instance
|
CLASS-METHODS get_instance
|
||||||
IMPORTING
|
IMPORTING
|
||||||
!iv_user TYPE xubname DEFAULT sy-uname
|
!iv_user TYPE xubname DEFAULT sy-uname
|
||||||
RETURNING
|
RETURNING
|
||||||
VALUE(ro_user) TYPE REF TO zcl_abapgit_persistence_user .
|
VALUE(ri_user) TYPE REF TO zif_abapgit_persist_user .
|
||||||
METHODS get_changes_only
|
|
||||||
RETURNING
|
|
||||||
VALUE(rv_changes_only) TYPE abap_bool
|
|
||||||
RAISING
|
|
||||||
zcx_abapgit_exception .
|
|
||||||
METHODS get_default_git_user_email
|
|
||||||
RETURNING
|
|
||||||
VALUE(rv_email) TYPE string
|
|
||||||
RAISING
|
|
||||||
zcx_abapgit_exception .
|
|
||||||
METHODS get_default_git_user_name
|
|
||||||
RETURNING
|
|
||||||
VALUE(rv_username) TYPE string
|
|
||||||
RAISING
|
|
||||||
zcx_abapgit_exception .
|
|
||||||
METHODS get_diff_unified
|
|
||||||
RETURNING
|
|
||||||
VALUE(rv_diff_unified) TYPE abap_bool
|
|
||||||
RAISING
|
|
||||||
zcx_abapgit_exception .
|
|
||||||
METHODS get_favorites
|
|
||||||
RETURNING
|
|
||||||
VALUE(rt_favorites) TYPE tt_favorites
|
|
||||||
RAISING
|
|
||||||
zcx_abapgit_exception .
|
|
||||||
METHODS get_hide_files
|
|
||||||
RETURNING
|
|
||||||
VALUE(rv_hide) TYPE abap_bool
|
|
||||||
RAISING
|
|
||||||
zcx_abapgit_exception .
|
|
||||||
METHODS get_repo_git_user_email
|
|
||||||
IMPORTING
|
|
||||||
!iv_url TYPE zif_abapgit_persistence=>ty_repo-url
|
|
||||||
RETURNING
|
|
||||||
VALUE(rv_email) TYPE string
|
|
||||||
RAISING
|
|
||||||
zcx_abapgit_exception .
|
|
||||||
METHODS get_repo_git_user_name
|
|
||||||
IMPORTING
|
|
||||||
!iv_url TYPE zif_abapgit_persistence=>ty_repo-url
|
|
||||||
RETURNING
|
|
||||||
VALUE(rv_username) TYPE string
|
|
||||||
RAISING
|
|
||||||
zcx_abapgit_exception .
|
|
||||||
METHODS get_repo_last_change_seen
|
|
||||||
IMPORTING
|
|
||||||
!iv_url TYPE zif_abapgit_persistence=>ty_repo-url
|
|
||||||
RETURNING
|
|
||||||
VALUE(rv_version) TYPE string
|
|
||||||
RAISING
|
|
||||||
zcx_abapgit_exception .
|
|
||||||
METHODS get_repo_login
|
|
||||||
IMPORTING
|
|
||||||
!iv_url TYPE zif_abapgit_persistence=>ty_repo-url
|
|
||||||
RETURNING
|
|
||||||
VALUE(rv_login) TYPE string
|
|
||||||
RAISING
|
|
||||||
zcx_abapgit_exception .
|
|
||||||
METHODS get_repo_show
|
|
||||||
RETURNING
|
|
||||||
VALUE(rv_key) TYPE zif_abapgit_persistence=>ty_repo-key
|
|
||||||
RAISING
|
|
||||||
zcx_abapgit_exception .
|
|
||||||
METHODS is_favorite_repo
|
|
||||||
IMPORTING
|
|
||||||
!iv_repo_key TYPE zif_abapgit_persistence=>ty_repo-key
|
|
||||||
RETURNING
|
|
||||||
VALUE(rv_yes) TYPE abap_bool
|
|
||||||
RAISING
|
|
||||||
zcx_abapgit_exception .
|
|
||||||
METHODS set_default_git_user_email
|
|
||||||
IMPORTING
|
|
||||||
!iv_email TYPE string
|
|
||||||
RAISING
|
|
||||||
zcx_abapgit_exception .
|
|
||||||
METHODS set_default_git_user_name
|
|
||||||
IMPORTING
|
|
||||||
!iv_username TYPE string
|
|
||||||
RAISING
|
|
||||||
zcx_abapgit_exception .
|
|
||||||
METHODS set_repo_git_user_email
|
|
||||||
IMPORTING
|
|
||||||
!iv_url TYPE zif_abapgit_persistence=>ty_repo-url
|
|
||||||
!iv_email TYPE string
|
|
||||||
RAISING
|
|
||||||
zcx_abapgit_exception .
|
|
||||||
METHODS set_repo_git_user_name
|
|
||||||
IMPORTING
|
|
||||||
!iv_url TYPE zif_abapgit_persistence=>ty_repo-url
|
|
||||||
!iv_username TYPE string
|
|
||||||
RAISING
|
|
||||||
zcx_abapgit_exception .
|
|
||||||
METHODS set_repo_last_change_seen
|
|
||||||
IMPORTING
|
|
||||||
!iv_url TYPE zif_abapgit_persistence=>ty_repo-url
|
|
||||||
!iv_version TYPE string
|
|
||||||
RAISING
|
|
||||||
zcx_abapgit_exception .
|
|
||||||
METHODS set_repo_login
|
|
||||||
IMPORTING
|
|
||||||
!iv_url TYPE zif_abapgit_persistence=>ty_repo-url
|
|
||||||
!iv_login TYPE string
|
|
||||||
RAISING
|
|
||||||
zcx_abapgit_exception .
|
|
||||||
METHODS set_repo_show
|
|
||||||
IMPORTING
|
|
||||||
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
|
|
||||||
RAISING
|
|
||||||
zcx_abapgit_exception .
|
|
||||||
METHODS toggle_changes_only
|
|
||||||
RETURNING
|
|
||||||
VALUE(rv_changes_only) TYPE abap_bool
|
|
||||||
RAISING
|
|
||||||
zcx_abapgit_exception .
|
|
||||||
METHODS toggle_diff_unified
|
|
||||||
RETURNING
|
|
||||||
VALUE(rv_diff_unified) TYPE abap_bool
|
|
||||||
RAISING
|
|
||||||
zcx_abapgit_exception .
|
|
||||||
METHODS toggle_favorite
|
|
||||||
IMPORTING
|
|
||||||
!iv_repo_key TYPE zif_abapgit_persistence=>ty_repo-key
|
|
||||||
RAISING
|
|
||||||
zcx_abapgit_exception .
|
|
||||||
METHODS toggle_hide_files
|
|
||||||
RETURNING
|
|
||||||
VALUE(rv_hide) TYPE abap_bool
|
|
||||||
RAISING
|
|
||||||
zcx_abapgit_exception .
|
|
||||||
METHODS get_settings
|
|
||||||
RETURNING
|
|
||||||
VALUE(rs_user_settings) TYPE zif_abapgit_definitions=>ty_s_user_settings
|
|
||||||
RAISING
|
|
||||||
zcx_abapgit_exception.
|
|
||||||
METHODS set_settings
|
|
||||||
IMPORTING
|
|
||||||
is_user_settings TYPE zif_abapgit_definitions=>ty_s_user_settings
|
|
||||||
RAISING
|
|
||||||
zcx_abapgit_exception.
|
|
||||||
PRIVATE SECTION.
|
PRIVATE SECTION.
|
||||||
|
|
||||||
TYPES:
|
TYPES:
|
||||||
BEGIN OF ty_repo_config,
|
BEGIN OF ty_repo_config,
|
||||||
url TYPE zif_abapgit_persistence=>ty_repo-url,
|
url TYPE zif_abapgit_persistence=>ty_repo-url,
|
||||||
|
|
@ -173,7 +37,7 @@ CLASS zcl_abapgit_persistence_user DEFINITION
|
||||||
END OF ty_user .
|
END OF ty_user .
|
||||||
|
|
||||||
DATA mv_user TYPE xubname .
|
DATA mv_user TYPE xubname .
|
||||||
CLASS-DATA go_current_user TYPE REF TO zcl_abapgit_persistence_user .
|
CLASS-DATA gi_current_user TYPE REF TO zif_abapgit_persist_user .
|
||||||
|
|
||||||
METHODS constructor
|
METHODS constructor
|
||||||
IMPORTING
|
IMPORTING
|
||||||
|
|
@ -213,12 +77,11 @@ CLASS zcl_abapgit_persistence_user DEFINITION
|
||||||
!is_repo_config TYPE ty_repo_config
|
!is_repo_config TYPE ty_repo_config
|
||||||
RAISING
|
RAISING
|
||||||
zcx_abapgit_exception .
|
zcx_abapgit_exception .
|
||||||
|
|
||||||
ENDCLASS.
|
ENDCLASS.
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
CLASS zcl_abapgit_persistence_user IMPLEMENTATION.
|
CLASS ZCL_ABAPGIT_PERSISTENCE_USER IMPLEMENTATION.
|
||||||
|
|
||||||
|
|
||||||
METHOD constructor.
|
METHOD constructor.
|
||||||
|
|
@ -243,57 +106,15 @@ CLASS zcl_abapgit_persistence_user IMPLEMENTATION.
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD get_changes_only.
|
|
||||||
|
|
||||||
rv_changes_only = read( )-changes_only.
|
|
||||||
|
|
||||||
ENDMETHOD. "get_changes_only
|
|
||||||
|
|
||||||
|
|
||||||
METHOD get_default_git_user_email.
|
|
||||||
|
|
||||||
rv_email = read( )-default_git_user-email.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
|
|
||||||
METHOD get_default_git_user_name.
|
|
||||||
|
|
||||||
rv_username = read( )-default_git_user-name.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
|
|
||||||
METHOD get_diff_unified.
|
|
||||||
|
|
||||||
rv_diff_unified = read( )-diff_unified.
|
|
||||||
|
|
||||||
ENDMETHOD. "get_diff_unified
|
|
||||||
|
|
||||||
|
|
||||||
METHOD get_favorites.
|
|
||||||
|
|
||||||
rt_favorites = read( )-favorites.
|
|
||||||
|
|
||||||
ENDMETHOD. "get_favorites
|
|
||||||
|
|
||||||
|
|
||||||
METHOD get_hide_files.
|
|
||||||
|
|
||||||
rv_hide = read( )-hide_files.
|
|
||||||
|
|
||||||
ENDMETHOD. "get_hide_files
|
|
||||||
|
|
||||||
|
|
||||||
METHOD get_instance.
|
METHOD get_instance.
|
||||||
|
|
||||||
IF iv_user = sy-uname ##USER_OK.
|
IF iv_user = sy-uname ##USER_OK.
|
||||||
IF go_current_user IS NOT BOUND.
|
IF gi_current_user IS NOT BOUND.
|
||||||
CREATE OBJECT go_current_user.
|
CREATE OBJECT gi_current_user TYPE zcl_abapgit_persistence_user.
|
||||||
ENDIF.
|
ENDIF.
|
||||||
ro_user = go_current_user.
|
ri_user = gi_current_user.
|
||||||
ELSE.
|
ELSE.
|
||||||
CREATE OBJECT ro_user
|
CREATE OBJECT ri_user TYPE zcl_abapgit_persistence_user
|
||||||
EXPORTING
|
EXPORTING
|
||||||
iv_user = iv_user.
|
iv_user = iv_user.
|
||||||
ENDIF.
|
ENDIF.
|
||||||
|
|
@ -301,66 +122,6 @@ CLASS zcl_abapgit_persistence_user IMPLEMENTATION.
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD get_repo_git_user_email.
|
|
||||||
|
|
||||||
rv_email = read_repo_config( iv_url )-git_user-email.
|
|
||||||
|
|
||||||
ENDMETHOD. "get_repo_email
|
|
||||||
|
|
||||||
|
|
||||||
METHOD get_repo_git_user_name.
|
|
||||||
|
|
||||||
rv_username = read_repo_config( iv_url )-git_user-name.
|
|
||||||
|
|
||||||
ENDMETHOD. "get_repo_username
|
|
||||||
|
|
||||||
|
|
||||||
METHOD get_repo_last_change_seen.
|
|
||||||
|
|
||||||
rv_version = read_repo_config( iv_url )-last_change_seen.
|
|
||||||
|
|
||||||
ENDMETHOD. "get_last_change_seen
|
|
||||||
|
|
||||||
|
|
||||||
METHOD get_repo_login.
|
|
||||||
|
|
||||||
rv_login = read_repo_config( iv_url )-login.
|
|
||||||
|
|
||||||
ENDMETHOD. "get_repo_login
|
|
||||||
|
|
||||||
|
|
||||||
METHOD get_repo_show.
|
|
||||||
|
|
||||||
rv_key = read( )-repo_show.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
|
|
||||||
METHOD get_settings.
|
|
||||||
|
|
||||||
DATA: ls_user TYPE ty_user.
|
|
||||||
|
|
||||||
ls_user = read( ).
|
|
||||||
|
|
||||||
rs_user_settings = ls_user-settings.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
|
|
||||||
METHOD is_favorite_repo.
|
|
||||||
|
|
||||||
DATA: lt_favorites TYPE tt_favorites.
|
|
||||||
|
|
||||||
lt_favorites = get_favorites( ).
|
|
||||||
|
|
||||||
READ TABLE lt_favorites TRANSPORTING NO FIELDS
|
|
||||||
WITH KEY table_line = iv_repo_key.
|
|
||||||
|
|
||||||
rv_yes = boolc( sy-subrc = 0 ).
|
|
||||||
|
|
||||||
ENDMETHOD. " is_favorite_repo.
|
|
||||||
|
|
||||||
|
|
||||||
METHOD read.
|
METHOD read.
|
||||||
|
|
||||||
DATA: lv_xml TYPE string.
|
DATA: lv_xml TYPE string.
|
||||||
|
|
@ -389,162 +150,6 @@ CLASS zcl_abapgit_persistence_user IMPLEMENTATION.
|
||||||
ENDMETHOD. "read_repo_config
|
ENDMETHOD. "read_repo_config
|
||||||
|
|
||||||
|
|
||||||
METHOD set_default_git_user_email.
|
|
||||||
|
|
||||||
DATA: ls_user TYPE ty_user.
|
|
||||||
|
|
||||||
|
|
||||||
ls_user = read( ).
|
|
||||||
ls_user-default_git_user-email = iv_email.
|
|
||||||
update( ls_user ).
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
|
|
||||||
METHOD set_default_git_user_name.
|
|
||||||
|
|
||||||
DATA: ls_user TYPE ty_user.
|
|
||||||
|
|
||||||
|
|
||||||
ls_user = read( ).
|
|
||||||
|
|
||||||
ls_user-default_git_user-name = iv_username.
|
|
||||||
|
|
||||||
update( ls_user ).
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
|
|
||||||
METHOD set_repo_git_user_email.
|
|
||||||
|
|
||||||
DATA: ls_repo_config TYPE ty_repo_config.
|
|
||||||
|
|
||||||
ls_repo_config = read_repo_config( iv_url ).
|
|
||||||
ls_repo_config-git_user-email = iv_email.
|
|
||||||
update_repo_config( iv_url = iv_url is_repo_config = ls_repo_config ).
|
|
||||||
|
|
||||||
ENDMETHOD. "set_repo_email
|
|
||||||
|
|
||||||
|
|
||||||
METHOD set_repo_git_user_name.
|
|
||||||
|
|
||||||
DATA: ls_repo_config TYPE ty_repo_config.
|
|
||||||
|
|
||||||
ls_repo_config = read_repo_config( iv_url ).
|
|
||||||
ls_repo_config-git_user-name = iv_username.
|
|
||||||
update_repo_config( iv_url = iv_url is_repo_config = ls_repo_config ).
|
|
||||||
|
|
||||||
ENDMETHOD. "set_repo_username
|
|
||||||
|
|
||||||
|
|
||||||
METHOD set_repo_last_change_seen.
|
|
||||||
|
|
||||||
DATA: ls_repo_config TYPE ty_repo_config.
|
|
||||||
|
|
||||||
ls_repo_config = read_repo_config( iv_url ).
|
|
||||||
ls_repo_config-last_change_seen = iv_version.
|
|
||||||
update_repo_config( iv_url = iv_url is_repo_config = ls_repo_config ).
|
|
||||||
|
|
||||||
ENDMETHOD. "set_last_change_seen
|
|
||||||
|
|
||||||
|
|
||||||
METHOD set_repo_login.
|
|
||||||
|
|
||||||
DATA: ls_repo_config TYPE ty_repo_config.
|
|
||||||
|
|
||||||
ls_repo_config = read_repo_config( iv_url ).
|
|
||||||
ls_repo_config-login = iv_login.
|
|
||||||
update_repo_config( iv_url = iv_url is_repo_config = ls_repo_config ).
|
|
||||||
|
|
||||||
ENDMETHOD. "set_repo_login
|
|
||||||
|
|
||||||
|
|
||||||
METHOD set_repo_show.
|
|
||||||
|
|
||||||
DATA: ls_user TYPE ty_user.
|
|
||||||
|
|
||||||
|
|
||||||
ls_user = read( ).
|
|
||||||
ls_user-repo_show = iv_key.
|
|
||||||
update( ls_user ).
|
|
||||||
|
|
||||||
COMMIT WORK AND WAIT.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
|
|
||||||
METHOD set_settings.
|
|
||||||
|
|
||||||
DATA: ls_user TYPE ty_user.
|
|
||||||
|
|
||||||
ls_user = read( ).
|
|
||||||
ls_user-settings = is_user_settings.
|
|
||||||
update( ls_user ).
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
|
|
||||||
METHOD toggle_changes_only.
|
|
||||||
|
|
||||||
DATA ls_user TYPE ty_user.
|
|
||||||
|
|
||||||
ls_user = read( ).
|
|
||||||
ls_user-changes_only = boolc( ls_user-changes_only = abap_false ).
|
|
||||||
update( ls_user ).
|
|
||||||
|
|
||||||
rv_changes_only = ls_user-changes_only.
|
|
||||||
|
|
||||||
ENDMETHOD. "toggle_changes_only
|
|
||||||
|
|
||||||
|
|
||||||
METHOD toggle_diff_unified.
|
|
||||||
|
|
||||||
DATA ls_user TYPE ty_user.
|
|
||||||
|
|
||||||
ls_user = read( ).
|
|
||||||
ls_user-diff_unified = boolc( ls_user-diff_unified = abap_false ).
|
|
||||||
update( ls_user ).
|
|
||||||
|
|
||||||
rv_diff_unified = ls_user-diff_unified.
|
|
||||||
|
|
||||||
ENDMETHOD. "toggle_diff_unified
|
|
||||||
|
|
||||||
|
|
||||||
METHOD toggle_favorite.
|
|
||||||
|
|
||||||
DATA: ls_user TYPE ty_user.
|
|
||||||
|
|
||||||
ls_user = read( ).
|
|
||||||
|
|
||||||
READ TABLE ls_user-favorites TRANSPORTING NO FIELDS
|
|
||||||
WITH KEY table_line = iv_repo_key.
|
|
||||||
|
|
||||||
IF sy-subrc = 0.
|
|
||||||
DELETE ls_user-favorites INDEX sy-tabix.
|
|
||||||
ELSE.
|
|
||||||
APPEND iv_repo_key TO ls_user-favorites.
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
update( ls_user ).
|
|
||||||
|
|
||||||
COMMIT WORK AND WAIT.
|
|
||||||
|
|
||||||
ENDMETHOD. " toggle_favorite.
|
|
||||||
|
|
||||||
|
|
||||||
METHOD toggle_hide_files.
|
|
||||||
|
|
||||||
DATA ls_user TYPE ty_user.
|
|
||||||
|
|
||||||
ls_user = read( ).
|
|
||||||
ls_user-hide_files = boolc( ls_user-hide_files = abap_false ).
|
|
||||||
update( ls_user ).
|
|
||||||
|
|
||||||
rv_hide = ls_user-hide_files.
|
|
||||||
|
|
||||||
ENDMETHOD. "toggle_hide_files
|
|
||||||
|
|
||||||
|
|
||||||
METHOD to_xml.
|
METHOD to_xml.
|
||||||
CALL TRANSFORMATION id
|
CALL TRANSFORMATION id
|
||||||
SOURCE user = is_user
|
SOURCE user = is_user
|
||||||
|
|
@ -589,4 +194,262 @@ CLASS zcl_abapgit_persistence_user IMPLEMENTATION.
|
||||||
COMMIT WORK AND WAIT.
|
COMMIT WORK AND WAIT.
|
||||||
|
|
||||||
ENDMETHOD. "update_repo_config
|
ENDMETHOD. "update_repo_config
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_persist_user~get_changes_only.
|
||||||
|
|
||||||
|
rv_changes_only = read( )-changes_only.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_persist_user~get_default_git_user_email.
|
||||||
|
|
||||||
|
rv_email = read( )-default_git_user-email.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_persist_user~get_default_git_user_name.
|
||||||
|
|
||||||
|
rv_username = read( )-default_git_user-name.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_persist_user~get_diff_unified.
|
||||||
|
|
||||||
|
rv_diff_unified = read( )-diff_unified.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_persist_user~get_favorites.
|
||||||
|
|
||||||
|
rt_favorites = read( )-favorites.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_persist_user~get_hide_files.
|
||||||
|
|
||||||
|
rv_hide = read( )-hide_files.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_persist_user~get_repo_git_user_email.
|
||||||
|
|
||||||
|
rv_email = read_repo_config( iv_url )-git_user-email.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_persist_user~get_repo_git_user_name.
|
||||||
|
|
||||||
|
rv_username = read_repo_config( iv_url )-git_user-name.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_persist_user~get_repo_last_change_seen.
|
||||||
|
|
||||||
|
rv_version = read_repo_config( iv_url )-last_change_seen.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_persist_user~get_repo_login.
|
||||||
|
|
||||||
|
rv_login = read_repo_config( iv_url )-login.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_persist_user~get_repo_show.
|
||||||
|
|
||||||
|
rv_key = read( )-repo_show.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_persist_user~get_settings.
|
||||||
|
|
||||||
|
DATA: ls_user TYPE ty_user.
|
||||||
|
|
||||||
|
ls_user = read( ).
|
||||||
|
|
||||||
|
rs_user_settings = ls_user-settings.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_persist_user~is_favorite_repo.
|
||||||
|
|
||||||
|
DATA: lt_favorites TYPE tt_favorites.
|
||||||
|
|
||||||
|
lt_favorites = zif_abapgit_persist_user~get_favorites( ).
|
||||||
|
|
||||||
|
READ TABLE lt_favorites TRANSPORTING NO FIELDS
|
||||||
|
WITH KEY table_line = iv_repo_key.
|
||||||
|
|
||||||
|
rv_yes = boolc( sy-subrc = 0 ).
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_persist_user~set_default_git_user_email.
|
||||||
|
|
||||||
|
DATA: ls_user TYPE ty_user.
|
||||||
|
|
||||||
|
|
||||||
|
ls_user = read( ).
|
||||||
|
ls_user-default_git_user-email = iv_email.
|
||||||
|
update( ls_user ).
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_persist_user~set_default_git_user_name.
|
||||||
|
|
||||||
|
DATA: ls_user TYPE ty_user.
|
||||||
|
|
||||||
|
|
||||||
|
ls_user = read( ).
|
||||||
|
|
||||||
|
ls_user-default_git_user-name = iv_username.
|
||||||
|
|
||||||
|
update( ls_user ).
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_persist_user~set_repo_git_user_email.
|
||||||
|
|
||||||
|
DATA: ls_repo_config TYPE ty_repo_config.
|
||||||
|
|
||||||
|
ls_repo_config = read_repo_config( iv_url ).
|
||||||
|
ls_repo_config-git_user-email = iv_email.
|
||||||
|
update_repo_config( iv_url = iv_url is_repo_config = ls_repo_config ).
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_persist_user~set_repo_git_user_name.
|
||||||
|
|
||||||
|
DATA: ls_repo_config TYPE ty_repo_config.
|
||||||
|
|
||||||
|
ls_repo_config = read_repo_config( iv_url ).
|
||||||
|
ls_repo_config-git_user-name = iv_username.
|
||||||
|
update_repo_config( iv_url = iv_url is_repo_config = ls_repo_config ).
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_persist_user~set_repo_last_change_seen.
|
||||||
|
|
||||||
|
DATA: ls_repo_config TYPE ty_repo_config.
|
||||||
|
|
||||||
|
ls_repo_config = read_repo_config( iv_url ).
|
||||||
|
ls_repo_config-last_change_seen = iv_version.
|
||||||
|
update_repo_config( iv_url = iv_url is_repo_config = ls_repo_config ).
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_persist_user~set_repo_login.
|
||||||
|
|
||||||
|
DATA: ls_repo_config TYPE ty_repo_config.
|
||||||
|
|
||||||
|
ls_repo_config = read_repo_config( iv_url ).
|
||||||
|
ls_repo_config-login = iv_login.
|
||||||
|
update_repo_config( iv_url = iv_url is_repo_config = ls_repo_config ).
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_persist_user~set_repo_show.
|
||||||
|
|
||||||
|
DATA: ls_user TYPE ty_user.
|
||||||
|
|
||||||
|
|
||||||
|
ls_user = read( ).
|
||||||
|
ls_user-repo_show = iv_key.
|
||||||
|
update( ls_user ).
|
||||||
|
|
||||||
|
COMMIT WORK AND WAIT.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_persist_user~set_settings.
|
||||||
|
|
||||||
|
DATA: ls_user TYPE ty_user.
|
||||||
|
|
||||||
|
ls_user = read( ).
|
||||||
|
ls_user-settings = is_user_settings.
|
||||||
|
update( ls_user ).
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_persist_user~toggle_changes_only.
|
||||||
|
|
||||||
|
DATA ls_user TYPE ty_user.
|
||||||
|
|
||||||
|
ls_user = read( ).
|
||||||
|
ls_user-changes_only = boolc( ls_user-changes_only = abap_false ).
|
||||||
|
update( ls_user ).
|
||||||
|
|
||||||
|
rv_changes_only = ls_user-changes_only.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_persist_user~toggle_diff_unified.
|
||||||
|
|
||||||
|
DATA ls_user TYPE ty_user.
|
||||||
|
|
||||||
|
ls_user = read( ).
|
||||||
|
ls_user-diff_unified = boolc( ls_user-diff_unified = abap_false ).
|
||||||
|
update( ls_user ).
|
||||||
|
|
||||||
|
rv_diff_unified = ls_user-diff_unified.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_persist_user~toggle_favorite.
|
||||||
|
|
||||||
|
DATA: ls_user TYPE ty_user.
|
||||||
|
|
||||||
|
ls_user = read( ).
|
||||||
|
|
||||||
|
READ TABLE ls_user-favorites TRANSPORTING NO FIELDS
|
||||||
|
WITH KEY table_line = iv_repo_key.
|
||||||
|
|
||||||
|
IF sy-subrc = 0.
|
||||||
|
DELETE ls_user-favorites INDEX sy-tabix.
|
||||||
|
ELSE.
|
||||||
|
APPEND iv_repo_key TO ls_user-favorites.
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
update( ls_user ).
|
||||||
|
|
||||||
|
COMMIT WORK AND WAIT.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_persist_user~toggle_hide_files.
|
||||||
|
|
||||||
|
DATA ls_user TYPE ty_user.
|
||||||
|
|
||||||
|
ls_user = read( ).
|
||||||
|
ls_user-hide_files = boolc( ls_user-hide_files = abap_false ).
|
||||||
|
update( ls_user ).
|
||||||
|
|
||||||
|
rv_hide = ls_user-hide_files.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
ENDCLASS.
|
ENDCLASS.
|
||||||
|
|
|
||||||
|
|
@ -12,14 +12,6 @@
|
||||||
<FIXPT>X</FIXPT>
|
<FIXPT>X</FIXPT>
|
||||||
<UNICODE>X</UNICODE>
|
<UNICODE>X</UNICODE>
|
||||||
</VSEOCLASS>
|
</VSEOCLASS>
|
||||||
<DESCRIPTIONS>
|
|
||||||
<SEOCOMPOTX>
|
|
||||||
<CLSNAME>ZCL_ABAPGIT_PERSISTENCE_USER</CLSNAME>
|
|
||||||
<CMPNAME>GO_CURRENT_USER</CMPNAME>
|
|
||||||
<LANGU>E</LANGU>
|
|
||||||
<DESCRIPT>User persistence</DESCRIPT>
|
|
||||||
</SEOCOMPOTX>
|
|
||||||
</DESCRIPTIONS>
|
|
||||||
</asx:values>
|
</asx:values>
|
||||||
</asx:abap>
|
</asx:abap>
|
||||||
</abapGit>
|
</abapGit>
|
||||||
|
|
|
||||||
147
src/persist/zif_abapgit_persist_user.intf.abap
Normal file
147
src/persist/zif_abapgit_persist_user.intf.abap
Normal file
|
|
@ -0,0 +1,147 @@
|
||||||
|
INTERFACE zif_abapgit_persist_user
|
||||||
|
PUBLIC .
|
||||||
|
|
||||||
|
TYPES tt_favorites TYPE zif_abapgit_persistence=>tt_repo_keys .
|
||||||
|
|
||||||
|
METHODS get_changes_only
|
||||||
|
RETURNING
|
||||||
|
VALUE(rv_changes_only) TYPE abap_bool
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception .
|
||||||
|
METHODS get_default_git_user_email
|
||||||
|
RETURNING
|
||||||
|
VALUE(rv_email) TYPE string
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception .
|
||||||
|
METHODS get_default_git_user_name
|
||||||
|
RETURNING
|
||||||
|
VALUE(rv_username) TYPE string
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception .
|
||||||
|
METHODS get_diff_unified
|
||||||
|
RETURNING
|
||||||
|
VALUE(rv_diff_unified) TYPE abap_bool
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception .
|
||||||
|
METHODS get_favorites
|
||||||
|
RETURNING
|
||||||
|
VALUE(rt_favorites) TYPE tt_favorites
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception .
|
||||||
|
METHODS get_hide_files
|
||||||
|
RETURNING
|
||||||
|
VALUE(rv_hide) TYPE abap_bool
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception .
|
||||||
|
METHODS get_repo_git_user_email
|
||||||
|
IMPORTING
|
||||||
|
!iv_url TYPE zif_abapgit_persistence=>ty_repo-url
|
||||||
|
RETURNING
|
||||||
|
VALUE(rv_email) TYPE string
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception .
|
||||||
|
METHODS get_repo_git_user_name
|
||||||
|
IMPORTING
|
||||||
|
!iv_url TYPE zif_abapgit_persistence=>ty_repo-url
|
||||||
|
RETURNING
|
||||||
|
VALUE(rv_username) TYPE string
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception .
|
||||||
|
METHODS get_repo_last_change_seen
|
||||||
|
IMPORTING
|
||||||
|
!iv_url TYPE zif_abapgit_persistence=>ty_repo-url
|
||||||
|
RETURNING
|
||||||
|
VALUE(rv_version) TYPE string
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception .
|
||||||
|
METHODS get_repo_login
|
||||||
|
IMPORTING
|
||||||
|
!iv_url TYPE zif_abapgit_persistence=>ty_repo-url
|
||||||
|
RETURNING
|
||||||
|
VALUE(rv_login) TYPE string
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception .
|
||||||
|
METHODS get_repo_show
|
||||||
|
RETURNING
|
||||||
|
VALUE(rv_key) TYPE zif_abapgit_persistence=>ty_repo-key
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception .
|
||||||
|
METHODS is_favorite_repo
|
||||||
|
IMPORTING
|
||||||
|
!iv_repo_key TYPE zif_abapgit_persistence=>ty_repo-key
|
||||||
|
RETURNING
|
||||||
|
VALUE(rv_yes) TYPE abap_bool
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception .
|
||||||
|
METHODS set_default_git_user_email
|
||||||
|
IMPORTING
|
||||||
|
!iv_email TYPE string
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception .
|
||||||
|
METHODS set_default_git_user_name
|
||||||
|
IMPORTING
|
||||||
|
!iv_username TYPE string
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception .
|
||||||
|
METHODS set_repo_git_user_email
|
||||||
|
IMPORTING
|
||||||
|
!iv_url TYPE zif_abapgit_persistence=>ty_repo-url
|
||||||
|
!iv_email TYPE string
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception .
|
||||||
|
METHODS set_repo_git_user_name
|
||||||
|
IMPORTING
|
||||||
|
!iv_url TYPE zif_abapgit_persistence=>ty_repo-url
|
||||||
|
!iv_username TYPE string
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception .
|
||||||
|
METHODS set_repo_last_change_seen
|
||||||
|
IMPORTING
|
||||||
|
!iv_url TYPE zif_abapgit_persistence=>ty_repo-url
|
||||||
|
!iv_version TYPE string
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception .
|
||||||
|
METHODS set_repo_login
|
||||||
|
IMPORTING
|
||||||
|
!iv_url TYPE zif_abapgit_persistence=>ty_repo-url
|
||||||
|
!iv_login TYPE string
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception .
|
||||||
|
METHODS set_repo_show
|
||||||
|
IMPORTING
|
||||||
|
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception .
|
||||||
|
METHODS toggle_changes_only
|
||||||
|
RETURNING
|
||||||
|
VALUE(rv_changes_only) TYPE abap_bool
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception .
|
||||||
|
METHODS toggle_diff_unified
|
||||||
|
RETURNING
|
||||||
|
VALUE(rv_diff_unified) TYPE abap_bool
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception .
|
||||||
|
METHODS toggle_favorite
|
||||||
|
IMPORTING
|
||||||
|
!iv_repo_key TYPE zif_abapgit_persistence=>ty_repo-key
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception .
|
||||||
|
METHODS toggle_hide_files
|
||||||
|
RETURNING
|
||||||
|
VALUE(rv_hide) TYPE abap_bool
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception .
|
||||||
|
METHODS get_settings
|
||||||
|
RETURNING
|
||||||
|
VALUE(rs_user_settings) TYPE zif_abapgit_definitions=>ty_s_user_settings
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception.
|
||||||
|
METHODS set_settings
|
||||||
|
IMPORTING
|
||||||
|
is_user_settings TYPE zif_abapgit_definitions=>ty_s_user_settings
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception.
|
||||||
|
|
||||||
|
|
||||||
|
ENDINTERFACE.
|
||||||
16
src/persist/zif_abapgit_persist_user.intf.xml
Normal file
16
src/persist/zif_abapgit_persist_user.intf.xml
Normal file
|
|
@ -0,0 +1,16 @@
|
||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<abapGit version="v1.0.0" serializer="LCL_OBJECT_INTF" serializer_version="v1.0.0">
|
||||||
|
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
||||||
|
<asx:values>
|
||||||
|
<VSEOINTERF>
|
||||||
|
<CLSNAME>ZIF_ABAPGIT_PERSIST_USER</CLSNAME>
|
||||||
|
<VERSION>1</VERSION>
|
||||||
|
<LANGU>E</LANGU>
|
||||||
|
<DESCRIPT>User persistence</DESCRIPT>
|
||||||
|
<EXPOSURE>2</EXPOSURE>
|
||||||
|
<STATE>1</STATE>
|
||||||
|
<UNICODE>X</UNICODE>
|
||||||
|
</VSEOINTERF>
|
||||||
|
</asx:values>
|
||||||
|
</asx:abap>
|
||||||
|
</abapGit>
|
||||||
|
|
@ -152,7 +152,7 @@ CLASS ZCL_ABAPGIT_GUI_PAGE_COMMIT IMPLEMENTATION.
|
||||||
|
|
||||||
CONSTANTS: lc_body_col_max TYPE i VALUE 150.
|
CONSTANTS: lc_body_col_max TYPE i VALUE 150.
|
||||||
|
|
||||||
DATA: lo_user TYPE REF TO zcl_abapgit_persistence_user.
|
DATA: li_user TYPE REF TO zif_abapgit_persist_user.
|
||||||
DATA: lv_user TYPE string.
|
DATA: lv_user TYPE string.
|
||||||
DATA: lv_email TYPE string.
|
DATA: lv_email TYPE string.
|
||||||
DATA: lv_s_param TYPE string.
|
DATA: lv_s_param TYPE string.
|
||||||
|
|
@ -163,20 +163,20 @@ CLASS ZCL_ABAPGIT_GUI_PAGE_COMMIT IMPLEMENTATION.
|
||||||
* commit messages should be max 50 characters
|
* commit messages should be max 50 characters
|
||||||
* body should wrap at 72 characters
|
* body should wrap at 72 characters
|
||||||
|
|
||||||
lo_user = zcl_abapgit_persistence_user=>get_instance( ).
|
li_user = zcl_abapgit_persistence_user=>get_instance( ).
|
||||||
|
|
||||||
lv_user = lo_user->get_repo_git_user_name( mo_repo->get_url( ) ).
|
lv_user = li_user->get_repo_git_user_name( mo_repo->get_url( ) ).
|
||||||
IF lv_user IS INITIAL.
|
IF lv_user IS INITIAL.
|
||||||
lv_user = lo_user->get_default_git_user_name( ).
|
lv_user = li_user->get_default_git_user_name( ).
|
||||||
ENDIF.
|
ENDIF.
|
||||||
IF lv_user IS INITIAL.
|
IF lv_user IS INITIAL.
|
||||||
" get default from user master record
|
" get default from user master record
|
||||||
lv_user = zcl_abapgit_user_master_record=>get_instance( sy-uname )->get_name( ).
|
lv_user = zcl_abapgit_user_master_record=>get_instance( sy-uname )->get_name( ).
|
||||||
ENDIF.
|
ENDIF.
|
||||||
|
|
||||||
lv_email = lo_user->get_repo_git_user_email( mo_repo->get_url( ) ).
|
lv_email = li_user->get_repo_git_user_email( mo_repo->get_url( ) ).
|
||||||
IF lv_email IS INITIAL.
|
IF lv_email IS INITIAL.
|
||||||
lv_email = lo_user->get_default_git_user_email( ).
|
lv_email = li_user->get_default_git_user_email( ).
|
||||||
ENDIF.
|
ENDIF.
|
||||||
IF lv_email IS INITIAL.
|
IF lv_email IS INITIAL.
|
||||||
" get default from user master record
|
" get default from user master record
|
||||||
|
|
|
||||||
|
|
@ -215,20 +215,19 @@ CLASS ZCL_ABAPGIT_GUI_PAGE_REPO_OVER IMPLEMENTATION.
|
||||||
|
|
||||||
DATA: ls_overview LIKE LINE OF rt_overview,
|
DATA: ls_overview LIKE LINE OF rt_overview,
|
||||||
lo_repo_srv TYPE REF TO zcl_abapgit_repo,
|
lo_repo_srv TYPE REF TO zcl_abapgit_repo,
|
||||||
lo_user TYPE REF TO zcl_abapgit_persistence_user,
|
|
||||||
lv_date TYPE d,
|
lv_date TYPE d,
|
||||||
lv_time TYPE t.
|
lv_time TYPE t.
|
||||||
|
|
||||||
FIELD-SYMBOLS: <ls_repo> LIKE LINE OF it_repo_list.
|
FIELD-SYMBOLS: <ls_repo> LIKE LINE OF it_repo_list.
|
||||||
|
|
||||||
lo_user = zcl_abapgit_persistence_user=>get_instance( ).
|
|
||||||
|
|
||||||
LOOP AT it_repo_list ASSIGNING <ls_repo>.
|
LOOP AT it_repo_list ASSIGNING <ls_repo>.
|
||||||
|
|
||||||
CLEAR: ls_overview.
|
CLEAR: ls_overview.
|
||||||
lo_repo_srv = zcl_abapgit_repo_srv=>get_instance( )->get( <ls_repo>-key ).
|
lo_repo_srv = zcl_abapgit_repo_srv=>get_instance( )->get( <ls_repo>-key ).
|
||||||
|
|
||||||
ls_overview-favorite = lo_user->is_favorite_repo( <ls_repo>-key ).
|
ls_overview-favorite = zcl_abapgit_persistence_user=>get_instance(
|
||||||
|
)->is_favorite_repo( <ls_repo>-key ).
|
||||||
ls_overview-type = <ls_repo>-offline.
|
ls_overview-type = <ls_repo>-offline.
|
||||||
ls_overview-key = <ls_repo>-key.
|
ls_overview-key = <ls_repo>-key.
|
||||||
ls_overview-name = lo_repo_srv->get_name( ).
|
ls_overview-name = lo_repo_srv->get_name( ).
|
||||||
|
|
|
||||||
|
|
@ -60,7 +60,7 @@ ENDCLASS.
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
CLASS zcl_abapgit_gui_page_tag IMPLEMENTATION.
|
CLASS ZCL_ABAPGIT_GUI_PAGE_TAG IMPLEMENTATION.
|
||||||
|
|
||||||
|
|
||||||
METHOD constructor.
|
METHOD constructor.
|
||||||
|
|
@ -201,7 +201,7 @@ CLASS zcl_abapgit_gui_page_tag IMPLEMENTATION.
|
||||||
|
|
||||||
CONSTANTS: lc_body_col_max TYPE i VALUE 150.
|
CONSTANTS: lc_body_col_max TYPE i VALUE 150.
|
||||||
|
|
||||||
DATA: lo_user TYPE REF TO zcl_abapgit_persistence_user,
|
DATA: li_user TYPE REF TO zif_abapgit_persist_user,
|
||||||
lv_user TYPE string,
|
lv_user TYPE string,
|
||||||
lv_email TYPE string,
|
lv_email TYPE string,
|
||||||
lv_s_param TYPE string,
|
lv_s_param TYPE string,
|
||||||
|
|
@ -209,22 +209,24 @@ CLASS zcl_abapgit_gui_page_tag IMPLEMENTATION.
|
||||||
lv_body_size TYPE i,
|
lv_body_size TYPE i,
|
||||||
lt_type TYPE stringtab,
|
lt_type TYPE stringtab,
|
||||||
lv_selected TYPE string.
|
lv_selected TYPE string.
|
||||||
|
|
||||||
FIELD-SYMBOLS: <lv_type> LIKE LINE OF lt_type.
|
FIELD-SYMBOLS: <lv_type> LIKE LINE OF lt_type.
|
||||||
|
|
||||||
lo_user = zcl_abapgit_persistence_user=>get_instance( ).
|
|
||||||
|
|
||||||
lv_user = lo_user->get_repo_git_user_name( mo_repo_online->get_url( ) ).
|
li_user = zcl_abapgit_persistence_user=>get_instance( ).
|
||||||
|
|
||||||
|
lv_user = li_user->get_repo_git_user_name( mo_repo_online->get_url( ) ).
|
||||||
IF lv_user IS INITIAL.
|
IF lv_user IS INITIAL.
|
||||||
lv_user = lo_user->get_default_git_user_name( ).
|
lv_user = li_user->get_default_git_user_name( ).
|
||||||
ENDIF.
|
ENDIF.
|
||||||
IF lv_user IS INITIAL.
|
IF lv_user IS INITIAL.
|
||||||
" get default from user master record
|
" get default from user master record
|
||||||
lv_user = zcl_abapgit_user_master_record=>get_instance( sy-uname )->get_name( ).
|
lv_user = zcl_abapgit_user_master_record=>get_instance( sy-uname )->get_name( ).
|
||||||
ENDIF.
|
ENDIF.
|
||||||
|
|
||||||
lv_email = lo_user->get_repo_git_user_email( mo_repo_online->get_url( ) ).
|
lv_email = li_user->get_repo_git_user_email( mo_repo_online->get_url( ) ).
|
||||||
IF lv_email IS INITIAL.
|
IF lv_email IS INITIAL.
|
||||||
lv_email = lo_user->get_default_git_user_email( ).
|
lv_email = li_user->get_default_git_user_email( ).
|
||||||
ENDIF.
|
ENDIF.
|
||||||
IF lv_email IS INITIAL.
|
IF lv_email IS INITIAL.
|
||||||
" get default from user master record
|
" get default from user master record
|
||||||
|
|
|
||||||
|
|
@ -86,12 +86,12 @@ CLASS ZCL_ABAPGIT_SERVICES_GIT IMPLEMENTATION.
|
||||||
METHOD commit.
|
METHOD commit.
|
||||||
|
|
||||||
DATA: ls_comment TYPE zif_abapgit_definitions=>ty_comment,
|
DATA: ls_comment TYPE zif_abapgit_definitions=>ty_comment,
|
||||||
lo_user TYPE REF TO zcl_abapgit_persistence_user.
|
li_user TYPE REF TO zif_abapgit_persist_user.
|
||||||
|
|
||||||
lo_user = zcl_abapgit_persistence_user=>get_instance( ).
|
li_user = zcl_abapgit_persistence_user=>get_instance( ).
|
||||||
lo_user->set_repo_git_user_name( iv_url = io_repo->get_url( )
|
li_user->set_repo_git_user_name( iv_url = io_repo->get_url( )
|
||||||
iv_username = is_commit-committer_name ).
|
iv_username = is_commit-committer_name ).
|
||||||
lo_user->set_repo_git_user_email( iv_url = io_repo->get_url( )
|
li_user->set_repo_git_user_email( iv_url = io_repo->get_url( )
|
||||||
iv_email = is_commit-committer_email ).
|
iv_email = is_commit-committer_email ).
|
||||||
|
|
||||||
IF is_commit-committer_name IS INITIAL.
|
IF is_commit-committer_name IS INITIAL.
|
||||||
|
|
@ -120,7 +120,7 @@ CLASS ZCL_ABAPGIT_SERVICES_GIT IMPLEMENTATION.
|
||||||
|
|
||||||
COMMIT WORK.
|
COMMIT WORK.
|
||||||
|
|
||||||
ENDMETHOD. "commit
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD create_branch.
|
METHOD create_branch.
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user