diff --git a/zabapgit.prog.abap b/zabapgit.prog.abap index 8429e0fb9..44c906066 100644 --- a/zabapgit.prog.abap +++ b/zabapgit.prog.abap @@ -2371,7 +2371,7 @@ CLASS lcl_objects_super DEFINITION ABSTRACT. PROTECTED SECTION. TYPES: BEGIN OF ty_tpool. - INCLUDE TYPE textpool. + INCLUDE TYPE textpool. TYPES: split TYPE c LENGTH 8. TYPES: END OF ty_tpool. @@ -14652,13 +14652,15 @@ CLASS lcl_gui IMPLEMENTATION. METHOD render_diff. - DATA: lv_html TYPE string, - lv_local TYPE string, - lv_remote TYPE string, - lv_clocal TYPE string, - lv_cremote TYPE string, - ls_count TYPE lcl_diff=>ty_count, - lt_diffs TYPE lcl_diff=>ty_diffs_tt. + DATA: lv_html TYPE string, + lv_local TYPE string, + lv_remote TYPE string, + lv_clocal TYPE string, + lv_cremote TYPE string, + ls_count TYPE lcl_diff=>ty_count, + lt_diffs TYPE lcl_diff=>ty_diffs_tt, + lv_anchor_count LIKE sy-tabix, + lv_anchor_name TYPE string. FIELD-SYMBOLS: LIKE LINE OF lt_diffs. @@ -14694,14 +14696,15 @@ CLASS lcl_gui IMPLEMENTATION. '
' && gc_newline. lv_html = lv_html && - '' && gc_newline && - '' && gc_newline && - '' && gc_newline && - '' && gc_newline && - '' && gc_newline && + '

Local

Remote

' && gc_newline && + '' && gc_newline && + '' && gc_newline && + || && gc_newline && "Type of change & Navigation to next difference + '' && gc_newline && ''. lt_diffs = io_diff->get( ). + LOOP AT lt_diffs ASSIGNING . lv_local = escape( val = -local format = cl_abap_format=>e_html_attr ). lv_remote = escape( val = -remote format = cl_abap_format=>e_html_attr ). @@ -14721,11 +14724,20 @@ CLASS lcl_gui IMPLEMENTATION. lv_cremote = ''. ENDCASE. + IF -result EQ lcl_diff=>c_diff-delete + OR -result EQ lcl_diff=>c_diff-insert + OR -result EQ lcl_diff=>c_diff-update. + ADD 1 TO lv_anchor_count. + lv_anchor_name = | name="diff_{ lv_anchor_count }"|. + ELSE. + CLEAR lv_anchor_name. + ENDIF. + lv_html = lv_html && - '' && gc_newline && + || && gc_newline && '
' && lv_local && '
' && gc_newline && - '
' && + '' && gc_newline && '
' && lv_remote && '
' && gc_newline &&

Local

>

Remote

 ' && -result && '  ' && |{ -result }| && '