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

decode object name #2504 (#2507)

Browse Source 
* decode object name #2504

* fix

* fix
This commit is contained in:
Lars Hvam 2019-03-14 00:21:02 -07:00 committed by GitHub
parent 22fbd9cdfe
commit 13213e2f2f
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 21 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
src/ui/zcl_abapgit_html_action_utils.clas.abap
View File

@ -16,10 +16,11 @@ CLASS zcl_abapgit_html_action_utils DEFINITION
VALUE(rt_fields) TYPE tihttpnvp . VALUE(rt_fields) TYPE tihttpnvp .
CLASS-METHODS get_field CLASS-METHODS get_field
IMPORTING IMPORTING
!iv_name TYPE string !iv_name TYPE string
!it_field TYPE tihttpnvp !it_field TYPE tihttpnvp
!iv_decode TYPE abap_bool DEFAULT abap_false
CHANGING CHANGING
!cg_field TYPE any . !cg_field TYPE any .
CLASS-METHODS jump_encode CLASS-METHODS jump_encode
IMPORTING IMPORTING
!iv_obj_type TYPE tadir-object !iv_obj_type TYPE tadir-object
@ -49,13 +50,13 @@ CLASS zcl_abapgit_html_action_utils DEFINITION
CLASS-METHODS file_encode CLASS-METHODS file_encode
IMPORTING IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key !iv_key TYPE zif_abapgit_persistence=>ty_repo-key
!ig_file TYPE any "assuming ty_file !ig_file TYPE any
RETURNING RETURNING
VALUE(rv_string) TYPE string . VALUE(rv_string) TYPE string .
CLASS-METHODS obj_encode CLASS-METHODS obj_encode
IMPORTING IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key !iv_key TYPE zif_abapgit_persistence=>ty_repo-key
!ig_object TYPE any "assuming ty_item !ig_object TYPE any
RETURNING RETURNING
VALUE(rv_string) TYPE string . VALUE(rv_string) TYPE string .
CLASS-METHODS file_obj_decode CLASS-METHODS file_obj_decode
@ -63,8 +64,8 @@ CLASS zcl_abapgit_html_action_utils DEFINITION
!iv_string TYPE clike !iv_string TYPE clike
EXPORTING EXPORTING
!ev_key TYPE zif_abapgit_persistence=>ty_repo-key !ev_key TYPE zif_abapgit_persistence=>ty_repo-key
!eg_file TYPE any "assuming ty_file !eg_file TYPE any "assuming ty_file
!eg_object TYPE any "assuming ty_item !eg_object TYPE any "assuming ty_item
RAISING RAISING
zcx_abapgit_exception . zcx_abapgit_exception .
CLASS-METHODS dbkey_encode CLASS-METHODS dbkey_encode
@ -219,7 +220,8 @@ CLASS ZCL_ABAPGIT_HTML_ACTION_UTILS IMPLEMENTATION.
IF eg_object IS SUPPLIED. IF eg_object IS SUPPLIED.
get_field( EXPORTING iv_name = 'OBJ_TYPE' it_field = lt_fields CHANGING cg_field = eg_object ). get_field( EXPORTING iv_name = 'OBJ_TYPE' it_field = lt_fields CHANGING cg_field = eg_object ).
get_field( EXPORTING iv_name = 'OBJ_NAME' it_field = lt_fields CHANGING cg_field = eg_object ). get_field( EXPORTING iv_name = 'OBJ_NAME' it_field = lt_fields iv_decode = abap_true
CHANGING cg_field = eg_object ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.
@ -227,6 +229,8 @@ CLASS ZCL_ABAPGIT_HTML_ACTION_UTILS IMPLEMENTATION.
METHOD get_field. METHOD get_field.
DATA: lv_value TYPE string.
FIELD-SYMBOLS: <ls_field> LIKE LINE OF it_field, FIELD-SYMBOLS: <ls_field> LIKE LINE OF it_field,
<lg_dest> TYPE any. <lg_dest> TYPE any.
@ -236,13 +240,20 @@ CLASS ZCL_ABAPGIT_HTML_ACTION_UTILS IMPLEMENTATION.
RETURN. RETURN.
ENDIF. ENDIF.
lv_value = <ls_field>-value.
IF iv_decode = abap_true.
* URL decode, not sure why some are decoded automatically
REPLACE ALL OCCURRENCES OF '%3d' IN lv_value WITH '='.
ENDIF.
CASE cl_abap_typedescr=>describe_by_data( cg_field )->kind. CASE cl_abap_typedescr=>describe_by_data( cg_field )->kind.
WHEN cl_abap_typedescr=>kind_elem. WHEN cl_abap_typedescr=>kind_elem.
cg_field = <ls_field>-value. cg_field = lv_value.
WHEN cl_abap_typedescr=>kind_struct. WHEN cl_abap_typedescr=>kind_struct.
ASSIGN COMPONENT iv_name OF STRUCTURE cg_field TO <lg_dest>. ASSIGN COMPONENT iv_name OF STRUCTURE cg_field TO <lg_dest>.
ASSERT <lg_dest> IS ASSIGNED. ASSERT <lg_dest> IS ASSIGNED.
<lg_dest> = <ls_field>-value. <lg_dest> = lv_value.
WHEN OTHERS. WHEN OTHERS.
ASSERT 0 = 1. ASSERT 0 = 1.
ENDCASE. ENDCASE.