diff --git a/src/zabapgit_authorizations.prog.abap b/src/zabapgit_authorizations.prog.abap index a3b6c0977..0e69d39ba 100644 --- a/src/zabapgit_authorizations.prog.abap +++ b/src/zabapgit_authorizations.prog.abap @@ -2,16 +2,16 @@ *& Include ZABAPGIT_AUTHORIZATIONS *&---------------------------------------------------------------------* -TYPES: ty_activity TYPE string. +TYPES: ty_authorization TYPE string. -CONSTANTS: BEGIN OF gc_activities, - uninstall TYPE ty_activity VALUE 'UNINSTALL', - END OF gc_activities. +CONSTANTS: BEGIN OF gc_authorization, + uninstall TYPE ty_authorization VALUE 'UNINSTALL', + END OF gc_authorization. INTERFACE lif_auth. METHODS: is_allowed - IMPORTING iv_activity TYPE ty_activity + IMPORTING iv_authorization TYPE ty_authorization iv_param TYPE string OPTIONAL RETURNING VALUE(rv_allowed) TYPE abap_bool. ENDINTERFACE. @@ -27,7 +27,7 @@ CLASS lcl_auth DEFINITION FINAL. PUBLIC SECTION. CLASS-METHODS: is_allowed - IMPORTING iv_activity TYPE ty_activity + IMPORTING iv_authorization TYPE ty_authorization iv_param TYPE string OPTIONAL RETURNING VALUE(rv_allowed) TYPE abap_bool. @@ -41,8 +41,8 @@ CLASS lcl_auth IMPLEMENTATION. TRY. CREATE OBJECT li_auth TYPE ('LCL_AUTH_EXIT'). - rv_allowed = li_auth->is_allowed( iv_activity = iv_activity - iv_param = iv_param ). + rv_allowed = li_auth->is_allowed( iv_authorization = iv_authorization + iv_param = iv_param ). CATCH cx_sy_create_object_error. rv_allowed = abap_true. ENDTRY. diff --git a/src/zabapgit_view_repo.prog.abap b/src/zabapgit_view_repo.prog.abap index b7b0668c1..677472278 100644 --- a/src/zabapgit_view_repo.prog.abap +++ b/src/zabapgit_view_repo.prog.abap @@ -321,7 +321,7 @@ CLASS lcl_gui_view_repo_content IMPLEMENTATION. CLEAR lv_crossout. IF mo_repo->is_write_protected( ) = abap_true - OR lcl_auth=>is_allowed( gc_activities-uninstall ) = abap_false. + OR lcl_auth=>is_allowed( gc_authorization-uninstall ) = abap_false. lv_crossout = gc_html_opt-crossout. ENDIF. lo_tb_advanced->add( iv_txt = 'Uninstall'