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

Merge remote-tracking branch 'refs/remotes/larshp/master'

Browse Source
This commit is contained in:
EduardoCopat 2017-01-19 09:44:15 +01:00
commit 19d1b6a443
4 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/zabapgit_background.prog.abap
View File

@ -97,6 +97,9 @@ CLASS lcl_background IMPLEMENTATION.
APPEND lv_str TO lt_objects. APPEND lv_str TO lt_objects.
ENDLOOP. ENDLOOP.
SORT lt_objects AS TEXT.
DELETE ADJACENT DUPLICATES FROM lt_objects.
IF lines( lt_objects ) = 1. IF lines( lt_objects ) = 1.
rv_comment = |BG: { lv_str }|. rv_comment = |BG: { lv_str }|.
ELSE. ELSE.

4
src/zabapgit_html_action_utils.prog.abap
View File

@ -271,8 +271,8 @@ CLASS lcl_html_action_utils IMPLEMENTATION.
get_field( EXPORTING name = 'XMLDATA' it = lt_fields CHANGING cv = rs_content-data_str ). get_field( EXPORTING name = 'XMLDATA' it = lt_fields CHANGING cv = rs_content-data_str ).
IF rs_content-data_str(1) <> '<' AND rs_content-data_str+1(1) = '<'. " Hmmm ??? IF rs_content-data_str(1) <> '<' AND rs_content-data_str+1(1) = '<'. " Hmmm ???
rs_content-data_str = rs_content-data_str+1. rs_content-data_str = rs_content-data_str+1.
ELSE. * ELSE.
CLEAR rs_content-data_str. * CLEAR rs_content-data_str.
ENDIF. ENDIF.
ENDMETHOD. "dbcontent_decode ENDMETHOD. "dbcontent_decode

6
src/zabapgit_object_susc.prog.abap
View File

@ -61,9 +61,9 @@ CLASS lcl_object_susc IMPLEMENTATION.
SELECT SINGLE * FROM tobct INTO ls_tobct SELECT SINGLE * FROM tobct INTO ls_tobct
WHERE oclss = ms_item-obj_name WHERE oclss = ms_item-obj_name
AND langu = mv_language. AND langu = mv_language.
IF sy-subrc <> 0. * IF sy-subrc <> 0.
lcx_exception=>raise( 'TOBCT no english description' ). * lcx_exception=>raise( 'TOBCT no english description' ).
ENDIF. * ENDIF.
io_xml->add( iv_name = 'TOBC' io_xml->add( iv_name = 'TOBC'
ig_data = ls_tobc ). ig_data = ls_tobc ).

10
src/zabapgit_view_repo.prog.abap
View File

@ -110,6 +110,7 @@ CLASS lcl_gui_view_repo_content IMPLEMENTATION.
lx_error TYPE REF TO lcx_exception, lx_error TYPE REF TO lcx_exception,
lv_lstate TYPE char1, lv_lstate TYPE char1,
lv_rstate TYPE char1, lv_rstate TYPE char1,
lv_max TYPE abap_bool,
lo_log TYPE REF TO lcl_log. lo_log TYPE REF TO lcl_log.
FIELD-SYMBOLS <ls_item> LIKE LINE OF lt_repo_items. FIELD-SYMBOLS <ls_item> LIKE LINE OF lt_repo_items.
@ -159,11 +160,20 @@ CLASS lcl_gui_view_repo_content IMPLEMENTATION.
ro_html->add( render_empty_package( ) ). ro_html->add( render_empty_package( ) ).
ELSE. ELSE.
LOOP AT lt_repo_items ASSIGNING <ls_item>. LOOP AT lt_repo_items ASSIGNING <ls_item>.
IF sy-tabix > 500.
lv_max = abap_true.
EXIT. " current loop
ENDIF.
ro_html->add( render_item( <ls_item> ) ). ro_html->add( render_item( <ls_item> ) ).
ENDLOOP. ENDLOOP.
ENDIF. ENDIF.
ro_html->add( '</table>' ). ro_html->add( '</table>' ).
IF lv_max = abap_true.
ro_html->add( 'Only first 500 objects shown in list' ).
ENDIF.
ro_html->add( '</div>' ). ro_html->add( '</div>' ).
CATCH lcx_exception INTO lx_error. CATCH lcx_exception INTO lx_error.