From d4d8b338103c06320c25b611e982236da21f54e6 Mon Sep 17 00:00:00 2001 From: larshp Date: Thu, 8 Sep 2016 11:13:32 +0000 Subject: [PATCH] background mode, fix dump --- src/zabapgit.prog.abap | 6 +++--- src/zabapgit_object.prog.abap | 12 ++++++++---- src/zabapgit_objects.prog.abap | 4 ++-- src/zabapgit_repo.prog.abap | 3 ++- 4 files changed, 15 insertions(+), 10 deletions(-) diff --git a/src/zabapgit.prog.abap b/src/zabapgit.prog.abap index d75ad836b..f74915c1a 100644 --- a/src/zabapgit.prog.abap +++ b/src/zabapgit.prog.abap @@ -3,7 +3,7 @@ REPORT zabapgit LINE-SIZE 100. * See http://www.abapgit.org CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT - gc_abap_version TYPE string VALUE 'v1.17.9'. "#EC NOTEXT + gc_abap_version TYPE string VALUE 'v1.17.10'. "#EC NOTEXT ******************************************************************************** * The MIT License (MIT) @@ -132,7 +132,7 @@ START-OF-SELECTION. * Hide Execute button from screen AT SELECTION-SCREEN OUTPUT. - IF sy-dynnr = lcl_password_dialog=>DYNNR. + IF sy-dynnr = lcl_password_dialog=>dynnr. lcl_password_dialog=>on_screen_output( ). ELSE. PERFORM output. @@ -143,6 +143,6 @@ AT SELECTION-SCREEN ON EXIT-COMMAND. PERFORM exit. AT SELECTION-SCREEN. - IF sy-dynnr = lcl_password_dialog=>DYNNR. + IF sy-dynnr = lcl_password_dialog=>dynnr. lcl_password_dialog=>on_screen_event( sscrfields-ucomm ). ENDIF. \ No newline at end of file diff --git a/src/zabapgit_object.prog.abap b/src/zabapgit_object.prog.abap index 97581478e..afca7e156 100644 --- a/src/zabapgit_object.prog.abap +++ b/src/zabapgit_object.prog.abap @@ -291,10 +291,14 @@ CLASS lcl_objects IMPLEMENTATION. DATA: li_obj TYPE REF TO lif_object. - li_obj = create_object( is_item = is_item - iv_language = gc_english ). - - rv_user = li_obj->changed_by( ). + IF is_item IS INITIAL. +* eg. ".abapgit.xml" file + rv_user = lcl_objects_super=>c_user_unknown. + ELSE. + li_obj = create_object( is_item = is_item + iv_language = gc_english ). + rv_user = li_obj->changed_by( ). + ENDIF. ASSERT NOT rv_user IS INITIAL. diff --git a/src/zabapgit_objects.prog.abap b/src/zabapgit_objects.prog.abap index 1032af602..d4c687a2e 100644 --- a/src/zabapgit_objects.prog.abap +++ b/src/zabapgit_objects.prog.abap @@ -441,10 +441,10 @@ CLASS lcl_objects_super DEFINITION ABSTRACT. is_item TYPE ty_item iv_language TYPE spras. - PROTECTED SECTION. - CONSTANTS: c_user_unknown TYPE xubname VALUE 'UNKNOWN'. + PROTECTED SECTION. + DATA: ms_item TYPE ty_item, mv_language TYPE spras. diff --git a/src/zabapgit_repo.prog.abap b/src/zabapgit_repo.prog.abap index 79c66ece0..482e06f94 100644 --- a/src/zabapgit_repo.prog.abap +++ b/src/zabapgit_repo.prog.abap @@ -86,7 +86,8 @@ CLASS lcl_repo_online DEFINITION INHERITING FROM lcl_repo FINAL. get_head_branch_name RETURNING VALUE(rv_name) TYPE lcl_persistence_repo=>ty_repo-head_branch, get_branches - RETURNING VALUE(ro_branches) TYPE REF TO lcl_git_branch_list, + RETURNING VALUE(ro_branches) TYPE REF TO lcl_git_branch_list + RAISING lcx_exception, set_url IMPORTING iv_url TYPE lcl_persistence_repo=>ty_repo-url RAISING lcx_exception,