fix xml_header

open-abap · Aug 7, 2024 · 13266cc · 13266cc
1 parent 717102e
commit 13266cc
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/src/kernel/call_transformation/kernel_call_transformation.clas.abap b/src/kernel/call_transformation/kernel_call_transformation.clas.abap
@@ -104,7 +104,9 @@ CLASS kernel_call_transformation IMPLEMENTATION.
     WRITE '@KERNEL   }'.
     WRITE '@KERNEL }'.
     IF lv_result = abap_true.
-      lv_result = lcl_string_to_string=>run( lv_dummy ).
+      lv_result = lcl_string_to_string=>run(
+        source  = lv_dummy
+        options = ms_options ).
       WRITE '@KERNEL   INPUT.resultXML.set(lv_result);'.
       RETURN.
     ENDIF.

diff --git a/src/kernel/call_transformation/kernel_call_transformation.clas.locals_imp.abap b/src/kernel/call_transformation/kernel_call_transformation.clas.locals_imp.abap
@@ -541,6 +541,7 @@ CLASS lcl_string_to_string DEFINITION.
     CLASS-METHODS run
       IMPORTING
         source        TYPE any
+        options       TYPE kernel_call_transformation=>ty_options
       RETURNING
         VALUE(result) TYPE string.
 ENDCLASS.
@@ -549,5 +550,9 @@ CLASS lcl_string_to_string IMPLEMENTATION.
   METHOD run.
 * this is not right, but works for the unit test
     WRITE '@KERNEL result.set(INPUT.source.get());'.
+
+    IF options-xml_header = 'no'.
+      REPLACE FIRST OCCURRENCE OF REGEX '<?.*?>' IN result WITH ''.
+    ENDIF.
   ENDMETHOD.
 ENDCLASS.