From aefaa9f730970a1633023e511a3bc797042efe7a Mon Sep 17 00:00:00 2001 From: larshp Date: Wed, 7 Jun 2017 18:32:29 +0000 Subject: [PATCH] move auth definitions to interface --- src/zabapgit_authorizations.prog.abap | 14 +++++++------- src/zabapgit_view_repo.prog.abap | 2 +- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/src/zabapgit_authorizations.prog.abap b/src/zabapgit_authorizations.prog.abap index 0e69d39ba..b9cdce214 100644 --- a/src/zabapgit_authorizations.prog.abap +++ b/src/zabapgit_authorizations.prog.abap @@ -2,13 +2,13 @@ *& Include ZABAPGIT_AUTHORIZATIONS *&---------------------------------------------------------------------* -TYPES: ty_authorization TYPE string. - -CONSTANTS: BEGIN OF gc_authorization, - uninstall TYPE ty_authorization VALUE 'UNINSTALL', - END OF gc_authorization. - INTERFACE lif_auth. + TYPES: ty_authorization TYPE string. + + CONSTANTS: BEGIN OF gc_authorization, + uninstall TYPE ty_authorization VALUE 'UNINSTALL', + END OF gc_authorization. + METHODS: is_allowed IMPORTING iv_authorization TYPE ty_authorization @@ -27,7 +27,7 @@ CLASS lcl_auth DEFINITION FINAL. PUBLIC SECTION. CLASS-METHODS: is_allowed - IMPORTING iv_authorization TYPE ty_authorization + IMPORTING iv_authorization TYPE lif_auth=>ty_authorization iv_param TYPE string OPTIONAL RETURNING VALUE(rv_allowed) TYPE abap_bool. diff --git a/src/zabapgit_view_repo.prog.abap b/src/zabapgit_view_repo.prog.abap index c7820ca55..700a58823 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_authorization-uninstall ) = abap_false. + OR lcl_auth=>is_allowed( lif_auth=>gc_authorization-uninstall ) = abap_false. lv_crossout = lif_defs=>gc_html_opt-crossout. ENDIF. lo_tb_advanced->add( iv_txt = 'Uninstall'