background mode: when moving files rm the old

background mode: when moving files rm the old #1162
This commit is contained in:
larshp 2018-01-21 06:58:34 +00:00
parent 2c721d5248
commit ed03da1535

View File

@ -128,6 +128,7 @@ CLASS lcl_background IMPLEMENTATION.
lo_stage TYPE REF TO zcl_abapgit_stage. lo_stage TYPE REF TO zcl_abapgit_stage.
FIELD-SYMBOLS: <ls_changed> LIKE LINE OF lt_changed, FIELD-SYMBOLS: <ls_changed> LIKE LINE OF lt_changed,
<ls_remote> LIKE LINE OF ls_files-remote,
<ls_local> LIKE LINE OF ls_files-local. <ls_local> LIKE LINE OF ls_files-local.
@ -174,6 +175,21 @@ CLASS lcl_background IMPLEMENTATION.
iv_data = <ls_local>-file-data ). iv_data = <ls_local>-file-data ).
APPEND <ls_local> TO ls_user_files-local. APPEND <ls_local> TO ls_user_files-local.
LOOP AT ls_files-remote ASSIGNING <ls_remote>
WHERE filename = <ls_local>-file-filename
AND path <> <ls_local>-file-path
AND filename <> 'package.devc.xml'.
WRITE: / 'rm' ##NO_TEXT,
<ls_remote>-path,
<ls_remote>-filename.
* rm old file when object has moved
lo_stage->rm(
iv_path = <ls_remote>-path
iv_filename = <ls_remote>-filename ).
EXIT. " assumption: only one file
ENDLOOP.
ENDIF. ENDIF.
ENDLOOP. ENDLOOP.