SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-04-30 20:03:20 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Keep login in staging

Browse Source
This commit is contained in:
Marc Bernard 2025-03-10 18:57:39 +00:00
parent b85fb22772
commit e6d96aacef
2 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/ui/pages/zcl_abapgit_gui_page_stage.clas.abap
View File

@ -137,7 +137,7 @@ ENDCLASS.
CLASS zcl_abapgit_gui_page_stage IMPLEMENTATION. CLASS ZCL_ABAPGIT_GUI_PAGE_STAGE IMPLEMENTATION.
METHOD check_selected. METHOD check_selected.
@ -154,6 +154,7 @@ CLASS zcl_abapgit_gui_page_stage IMPLEMENTATION.
" Check all added files if the exist in different paths (packages) without being removed " Check all added files if the exist in different paths (packages) without being removed
LOOP AT io_files->mt_entries ASSIGNING <ls_item> WHERE v = zif_abapgit_definitions=>c_method-add. LOOP AT io_files->mt_entries ASSIGNING <ls_item> WHERE v = zif_abapgit_definitions=>c_method-add.
" Allow mixed case path, but check filename to lower case
zcl_abapgit_path=>split_file_location( zcl_abapgit_path=>split_file_location(
EXPORTING EXPORTING
iv_fullpath = <ls_item>-k iv_fullpath = <ls_item>-k
@ -161,6 +162,8 @@ CLASS zcl_abapgit_gui_page_stage IMPLEMENTATION.
ev_path = ls_file-path ev_path = ls_file-path
ev_filename = ls_file-filename ). ev_filename = ls_file-filename ).
ls_file-filename = to_lower( ls_file-filename ).
" Skip packages since they all have identical filenames " Skip packages since they all have identical filenames
IF ls_file-filename <> 'package.devc.xml'. IF ls_file-filename <> 'package.devc.xml'.
lv_pattern = '*/' && to_upper( ls_file-filename ). lv_pattern = '*/' && to_upper( ls_file-filename ).
@ -235,11 +238,11 @@ CLASS zcl_abapgit_gui_page_stage IMPLEMENTATION.
CREATE OBJECT lo_component CREATE OBJECT lo_component
EXPORTING EXPORTING
io_repo = io_repo io_repo = io_repo
iv_seed = iv_seed iv_seed = iv_seed
iv_sci_result = iv_sci_result iv_sci_result = iv_sci_result
ii_force_refresh = ii_force_refresh ii_force_refresh = ii_force_refresh
ii_obj_filter = ii_obj_filter. ii_obj_filter = ii_obj_filter.
ri_page = zcl_abapgit_gui_page_hoc=>create( ri_page = zcl_abapgit_gui_page_hoc=>create(
iv_page_title = 'Stage' iv_page_title = 'Stage'
@ -738,6 +741,7 @@ CLASS zcl_abapgit_gui_page_stage IMPLEMENTATION.
"Ignore Files that we don't want to stage, so any errors don't stop the staging process "Ignore Files that we don't want to stage, so any errors don't stop the staging process
WHERE v <> zif_abapgit_definitions=>c_method-skip. WHERE v <> zif_abapgit_definitions=>c_method-skip.
" Allow mixed case path, but check filename to lower case
zcl_abapgit_path=>split_file_location( zcl_abapgit_path=>split_file_location(
EXPORTING EXPORTING
iv_fullpath = <ls_item>-k iv_fullpath = <ls_item>-k
@ -745,6 +749,8 @@ CLASS zcl_abapgit_gui_page_stage IMPLEMENTATION.
ev_path = ls_file-path ev_path = ls_file-path
ev_filename = ls_file-filename ). ev_filename = ls_file-filename ).
ls_file-filename = to_lower( ls_file-filename ).
READ TABLE ms_files-status ASSIGNING <ls_status> READ TABLE ms_files-status ASSIGNING <ls_status>
WITH TABLE KEY WITH TABLE KEY
path = ls_file-path path = ls_file-path

4
src/utils/zcl_abapgit_path.clas.abap
View File

@ -27,6 +27,8 @@ CLASS zcl_abapgit_path DEFINITION
IMPORTING iv_path TYPE string IMPORTING iv_path TYPE string
RETURNING VALUE(rv_filename) TYPE string. RETURNING VALUE(rv_filename) TYPE string.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS. ENDCLASS.
@ -125,7 +127,7 @@ CLASS ZCL_ABAPGIT_PATH IMPLEMENTATION.
ev_filename = iv_fullpath. ev_filename = iv_fullpath.
ENDIF. ENDIF.
ev_filename = cl_http_utility=>unescape_url( escaped = to_lower( ev_filename ) ). ev_filename = cl_http_utility=>unescape_url( escaped = ev_filename ).
ENDMETHOD. ENDMETHOD.
ENDCLASS. ENDCLASS.