From 0961429903fd19e5334975ce1a4afe6ea0e15bd5 Mon Sep 17 00:00:00 2001
From: Alexander Tsybulsky <sbcgua@users.noreply.github.com>
Date: Thu, 20 Feb 2020 09:28:12 +0200
Subject: [PATCH] #3209 DOCU master lang only (#3217)

---
 src/objects/zcl_abapgit_longtexts.clas.abap | 70 +++++++++++----------
 1 file changed, 38 insertions(+), 32 deletions(-)

diff --git a/src/objects/zcl_abapgit_longtexts.clas.abap b/src/objects/zcl_abapgit_longtexts.clas.abap
index 79ad554a8..71dfad6aa 100644
--- a/src/objects/zcl_abapgit_longtexts.clas.abap
+++ b/src/objects/zcl_abapgit_longtexts.clas.abap
@@ -42,6 +42,7 @@ CLASS zcl_abapgit_longtexts DEFINITION
         RAISING
           zcx_abapgit_exception.
 
+  PROTECTED SECTION.
   PRIVATE SECTION.
     TYPES:
       BEGIN OF ty_longtext,
@@ -74,7 +75,24 @@ ENDCLASS.
 
 
 
-CLASS zcl_abapgit_longtexts IMPLEMENTATION.
+CLASS ZCL_ABAPGIT_LONGTEXTS IMPLEMENTATION.
+
+
+  METHOD changed_by.
+
+    DATA: lt_longtexts TYPE tty_longtexts.
+    FIELD-SYMBOLS: <ls_longtext> TYPE ty_longtext.
+
+    lt_longtexts = read( iv_object_name = iv_object_name
+                         iv_longtext_id = iv_longtext_id
+                         it_dokil       = it_dokil ).
+
+    READ TABLE lt_longtexts INDEX 1 ASSIGNING <ls_longtext>.
+    IF sy-subrc = 0.
+      rv_user = <ls_longtext>-head-tdluser.
+    ENDIF.
+
+  ENDMETHOD.
 
 
   METHOD constructor.
@@ -150,37 +168,6 @@ CLASS zcl_abapgit_longtexts IMPLEMENTATION.
   ENDMETHOD.
 
 
-  METHOD serialize.
-
-    DATA: lt_longtexts TYPE tty_longtexts.
-
-    lt_longtexts = read( iv_object_name = iv_object_name
-                         iv_longtext_id = iv_longtext_id
-                         it_dokil       = it_dokil ).
-
-    io_xml->add( iv_name = mv_longtexts_name
-                 ig_data = lt_longtexts ).
-
-  ENDMETHOD.
-
-
-  METHOD changed_by.
-
-    DATA: lt_longtexts TYPE tty_longtexts.
-    FIELD-SYMBOLS: <ls_longtext> TYPE ty_longtext.
-
-    lt_longtexts = read( iv_object_name = iv_object_name
-                         iv_longtext_id = iv_longtext_id
-                         it_dokil       = it_dokil ).
-
-    READ TABLE lt_longtexts INDEX 1 ASSIGNING <ls_longtext>.
-    IF sy-subrc = 0.
-      rv_user = <ls_longtext>-head-tdluser.
-    ENDIF.
-
-  ENDMETHOD.
-
-
   METHOD read.
 
     DATA: ls_longtext TYPE ty_longtext,
@@ -240,4 +227,23 @@ CLASS zcl_abapgit_longtexts IMPLEMENTATION.
 
   ENDMETHOD.
 
+
+  METHOD serialize.
+
+    DATA lt_longtexts TYPE tty_longtexts.
+    DATA lt_dokil LIKE it_dokil.
+
+    lt_dokil = it_dokil.
+    IF io_xml->i18n_params( )-serialize_master_lang_only = abap_true.
+      DELETE lt_dokil WHERE masterlang <> abap_true.
+    ENDIF.
+
+    lt_longtexts = read( iv_object_name = iv_object_name
+                         iv_longtext_id = iv_longtext_id
+                         it_dokil       = lt_dokil ).
+
+    io_xml->add( iv_name = mv_longtexts_name
+                 ig_data = lt_longtexts ).
+
+  ENDMETHOD.
 ENDCLASS.