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

Only show first 500 objects in list #537

Browse Source 
Render only the first 500 objects, as it takes a lot of time to render the html if there are _many_ objects
This commit is contained in:
larshp 2017-01-18 15:24:57 +00:00
parent 68c51626a3
commit e9c6b5a3d6
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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.