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

new feature, hide repository, close #207

Browse Source
This commit is contained in:
larshp 2016-05-06 12:18:54 +00:00
parent e6dcd16e66
commit 6575f9834f
1 changed files with 305 additions and 211 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

276
zabapgit.prog.abap
View File

@ -3,7 +3,7 @@ REPORT zabapgit.
* See http://www.abapgit.org
CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT
gc_abap_version TYPE string VALUE 'v1.4.14'. "#EC NOTEXT
gc_abap_version TYPE string VALUE 'v1.5.0'. "#EC NOTEXT
********************************************************************************
* The MIT License (MIT)
@ -16815,12 +16815,81 @@ CLASS lcl_gui IMPLEMENTATION.
ENDCLASS. "lcl_gui IMPLEMENTATION
CLASS lcl_persistence_user DEFINITION FINAL.
PUBLIC SECTION.
METHODS constructor
IMPORTING iv_user TYPE xubname DEFAULT sy-uname.
METHODS set_username
IMPORTING iv_username TYPE string
RAISING lcx_exception.
METHODS get_username
RETURNING VALUE(rv_username) TYPE string
RAISING lcx_exception.
METHODS set_email
IMPORTING iv_email TYPE string
RAISING lcx_exception.
METHODS get_email
RETURNING VALUE(rv_email) TYPE string
RAISING lcx_exception.
METHODS is_hidden
IMPORTING iv_key TYPE lcl_persistence_repo=>ty_repo-key
RETURNING VALUE(rv_hidden) TYPE abap_bool
RAISING lcx_exception.
METHODS hide
IMPORTING iv_key TYPE lcl_persistence_repo=>ty_repo-key
RAISING lcx_exception.
METHODS unhide
IMPORTING iv_key TYPE lcl_persistence_repo=>ty_repo-key
RAISING lcx_exception.
PRIVATE SECTION.
CONSTANTS c_type_user TYPE lcl_persistence_db=>ty_type VALUE 'USER'.
DATA: mv_user TYPE xubname.
TYPES: ty_repo_hidden_tt TYPE STANDARD TABLE OF lcl_persistence_repo=>ty_repo-key WITH DEFAULT KEY.
TYPES: BEGIN OF ty_user,
username TYPE string,
email TYPE string,
repo_hidden TYPE ty_repo_hidden_tt,
END OF ty_user.
METHODS from_xml
IMPORTING iv_xml TYPE string
RETURNING VALUE(rs_user) TYPE ty_user
RAISING lcx_exception.
METHODS to_xml
IMPORTING is_user TYPE ty_user
RETURNING VALUE(rv_xml) TYPE string.
METHODS read
RETURNING VALUE(rs_user) TYPE ty_user
RAISING lcx_exception.
METHODS update
IMPORTING is_user TYPE ty_user
RAISING lcx_exception.
ENDCLASS.
CLASS lcl_gui_page_main DEFINITION FINAL.
PUBLIC SECTION.
INTERFACES lif_gui_page.
PRIVATE SECTION.
CLASS-DATA: go_user TYPE REF TO lcl_persistence_user.
CLASS-METHODS render_repo_online
IMPORTING io_repo TYPE REF TO lcl_repo_online
RETURNING VALUE(rv_html) TYPE string
@ -16843,6 +16912,11 @@ CLASS lcl_gui_page_main DEFINITION FINAL.
RETURNING VALUE(rv_html) TYPE string
RAISING lcx_exception.
CLASS-METHODS render_repo_menu
IMPORTING io_repo TYPE REF TO lcl_repo
RETURNING VALUE(rv_html) TYPE string
RAISING lcx_exception.
CLASS-METHODS install
IMPORTING iv_url TYPE string
RAISING lcx_exception.
@ -17059,57 +17133,6 @@ CLASS lcl_gui_page_diff IMPLEMENTATION.
ENDCLASS.
CLASS lcl_persistence_user DEFINITION FINAL.
PUBLIC SECTION.
METHODS constructor
IMPORTING iv_user TYPE xubname DEFAULT sy-uname.
METHODS set_username
IMPORTING iv_username TYPE string
RAISING lcx_exception.
METHODS get_username
RETURNING VALUE(rv_username) TYPE string
RAISING lcx_exception.
METHODS set_email
IMPORTING iv_email TYPE string
RAISING lcx_exception.
METHODS get_email
RETURNING VALUE(rv_email) TYPE string
RAISING lcx_exception.
PRIVATE SECTION.
CONSTANTS c_type_user TYPE lcl_persistence_db=>ty_type VALUE 'USER'.
DATA: mv_user TYPE xubname.
TYPES: BEGIN OF ty_user,
username TYPE string,
email TYPE string,
END OF ty_user.
METHODS from_xml
IMPORTING iv_xml TYPE string
RETURNING VALUE(rs_user) TYPE ty_user
RAISING lcx_exception.
METHODS to_xml
IMPORTING is_user TYPE ty_user
RETURNING VALUE(rv_xml) TYPE string.
METHODS read
RETURNING VALUE(rs_user) TYPE ty_user
RAISING lcx_exception.
METHODS update
IMPORTING is_user TYPE ty_user
RAISING lcx_exception.
ENDCLASS.
CLASS lcl_gui_page_db DEFINITION FINAL.
PUBLIC SECTION.
@ -17747,17 +17770,11 @@ CLASS lcl_gui_page_main IMPLEMENTATION.
'<a id="' && io_repo->get_name( ) && '"></a>' && gc_newline &&
'<h2>' && io_repo->get_name( ) && '</h2>&nbsp;' && gc_newline &&
'<h3>' && io_repo->get_package( ) && '</h3>' && gc_newline &&
'<br>' && gc_newline &&
'<a href="sapevent:remove?' &&
io_repo->get_key( ) &&
'" class="grey">' &&
'remove' &&
'</a>&nbsp;' && gc_newline &&
'<a href="sapevent:uninstall?' &&
io_repo->get_key( ) &&
'" class="grey">' &&
'uninstall' &&
'</a><br><br>' && gc_newline &&
render_repo_menu( io_repo ).
IF go_user->is_hidden( io_repo->get_key( ) ) = abap_false.
rv_html = rv_html &&
'<table border="1">' && gc_newline &&
'<tr>' && gc_newline &&
'<th><u>Local object</u></th>' && gc_newline &&
@ -17787,11 +17804,50 @@ CLASS lcl_gui_page_main IMPLEMENTATION.
'<a href="sapevent:files_commit?' &&
io_repo->get_key( ) &&
'">' && 'Export files and commit' &&
'</a>' && gc_newline &&
'</div>'. "#EC NOTEXT
'</a>' && gc_newline.
ENDIF.
rv_html = rv_html && '</div>'. "#EC NOTEXT
ENDMETHOD. "render_repo_offline
METHOD render_repo_menu.
IF go_user->is_hidden( io_repo->get_key( ) ) = abap_true.
rv_html = '<br>' &&
'<a href="sapevent:unhide?' &&
io_repo->get_key( ) &&
'" class="grey">' &&
'unhide' &&
'</a>&nbsp;'.
ELSE.
rv_html = '<br>' &&
'<a href="sapevent:remove?' &&
io_repo->get_key( ) &&
'" class="grey">' &&
'remove' &&
'</a>&nbsp;' && gc_newline &&
'<a href="sapevent:uninstall?' &&
io_repo->get_key( ) &&
'" class="grey">' &&
'uninstall' &&
'</a>&nbsp;' && gc_newline &&
'<a href="sapevent:refresh_single?' &&
io_repo->get_key( ) &&
'" class="grey">' &&
'refresh' &&
'</a>&nbsp;' && gc_newline &&
'<a href="sapevent:hide?' &&
io_repo->get_key( ) &&
'" class="grey">' &&
'hide' &&
'</a>&nbsp;' &&
'<br>' &&
'<br>' ##NO_TEXT.
ENDIF.
ENDMETHOD.
METHOD render_repo_online.
DATA: lv_link TYPE string,
@ -17817,25 +17873,10 @@ CLASS lcl_gui_page_main IMPLEMENTATION.
'<h3>' && io_repo->get_url( ) && '</h3>&nbsp;&nbsp;' &&
'<h3>' && io_repo->get_branch_name( ) && '</h3>&nbsp;&nbsp;' &&
'<h3>' && io_repo->get_package( ) && '</h3>&nbsp;&nbsp;' &&
'<br>' &&
'<a href="sapevent:remove?' &&
io_repo->get_key( ) &&
'" class="grey">' &&
'remove' &&
'</a>&nbsp;' && gc_newline &&
'<a href="sapevent:uninstall?' &&
io_repo->get_key( ) &&
'" class="grey">' &&
'uninstall' &&
'</a>&nbsp;' && gc_newline &&
'<a href="sapevent:refresh_single?' &&
io_repo->get_key( ) &&
'" class="grey">' &&
'refresh' &&
'</a>&nbsp;' &&
'<br>' &&
'<br>' ##NO_TEXT.
render_repo_menu( io_repo ).
IF go_user->is_hidden( io_repo->get_key( ) ) = abap_false.
TRY.
lt_results = io_repo->status( ).
IF io_repo->get_sha1_remote( ) <> io_repo->get_sha1_local( ).
@ -17849,7 +17890,8 @@ CLASS lcl_gui_page_main IMPLEMENTATION.
ENDIF.
ENDIF.
rv_html = rv_html && '<table border="1">' && gc_newline &&
rv_html = rv_html &&
'<table border="1">' && gc_newline &&
'<tr>' && gc_newline &&
'<th><u>Local object</u></th>' && gc_newline &&
'<th><u>Package</u></th>' && gc_newline &&
@ -17933,21 +17975,28 @@ CLASS lcl_gui_page_main IMPLEMENTATION.
CASE lv_status.
WHEN 'commit'.
rv_html = rv_html && '<a href="sapevent:commit?'
&& io_repo->get_key( ) && '">commit</a>'.
rv_html = rv_html &&
'<a href="sapevent:commit?' &&
io_repo->get_key( ) &&
'">commit</a>'.
WHEN 'pull'.
rv_html = rv_html && '<a href="sapevent:pull?'
&& io_repo->get_key( ) && '">pull</a>'.
rv_html = rv_html &&
'<a href="sapevent:pull?' &&
io_repo->get_key( ) &&
'">pull</a>'.
ENDCASE.
lv_status = lcl_sap_package=>check( it_results = lt_results
lv_status = lcl_sap_package=>check(
it_results = lt_results
iv_top = io_repo->get_package( ) ).
rv_html = rv_html &&
lv_status.
CATCH lcx_exception INTO lx_error.
rv_html = rv_html && render_error( lx_error ).
ENDTRY.
ENDIF.
rv_html = rv_html &&
'</div>' && gc_newline.
@ -18099,6 +18148,14 @@ CLASS lcl_gui_page_main IMPLEMENTATION.
lv_key = iv_getdata.
lcl_repo_srv=>get( lv_key )->refresh( ).
lcl_gui=>render( ).
WHEN 'hide'.
lv_key = iv_getdata.
go_user->hide( lv_key ).
lcl_gui=>render( ).
WHEN 'unhide'.
lv_key = iv_getdata.
go_user->unhide( lv_key ).
lcl_gui=>render( ).
WHEN 'commit'.
lv_key = iv_getdata.
commit( lv_key ).
@ -18212,6 +18269,8 @@ CLASS lcl_gui_page_main IMPLEMENTATION.
lo_repo LIKE LINE OF lt_repos.
CREATE OBJECT go_user.
rv_html = lcl_gui=>header( ) &&
render_menu( ).
@ -19449,15 +19508,50 @@ CLASS lcl_persistence_user IMPLEMENTATION.
ENDMETHOD.
METHOD is_hidden.
DATA: lt_hidden TYPE ty_repo_hidden_tt.
lt_hidden = read( )-repo_hidden.
READ TABLE lt_hidden FROM iv_key TRANSPORTING NO FIELDS.
IF sy-subrc = 0.
rv_hidden = abap_true.
ELSE.
rv_hidden = abap_false.
ENDIF.
ENDMETHOD.
METHOD hide.
DATA: ls_user TYPE ty_user.
ls_user = read( ).
APPEND iv_key TO ls_user-repo_hidden.
update( ls_user ).
ENDMETHOD.
METHOD unhide.
DATA: ls_user TYPE ty_user.
ls_user = read( ).
DELETE TABLE ls_user-repo_hidden FROM iv_key.
update( ls_user ).
ENDMETHOD.
METHOD set_email.
DATA: ls_user TYPE ty_user.
ls_user = read( ).
ls_user-email = iv_email.
update( ls_user ).
ENDMETHOD.