From b4f2912a04c57345174f3e90d15884fc97537b53 Mon Sep 17 00:00:00 2001
From: TheWirtschaftsmann <b.petrushchak@gmail.com>
Date: Thu, 9 Feb 2017 19:05:31 +0200
Subject: [PATCH] Deserializing of textpool

This commit delivers the fixes and fine-tuning to the deserializing of textpools for a program.
---
 src/zabapgit_object_prog.prog.abap | 18 ++++++------------
 src/zabapgit_objects.prog.abap     |  3 +--
 2 files changed, 7 insertions(+), 14 deletions(-)

diff --git a/src/zabapgit_object_prog.prog.abap b/src/zabapgit_object_prog.prog.abap
index ea8ac200b..dc85ede9b 100644
--- a/src/zabapgit_object_prog.prog.abap
+++ b/src/zabapgit_object_prog.prog.abap
@@ -203,25 +203,19 @@ CLASS lcl_object_prog IMPLEMENTATION.
   ENDMETHOD.                    "serialize_texts
 
   METHOD deserialize_texts.
-    DATA:
-      lt_tpool_i18n   TYPE tt_tpool_i18n,
-      ls_tpool_i18n   LIKE LINE OF lt_tpool_i18n,
-      lt_langs_i18n   TYPE STANDARD TABLE OF langu.
 
-    FIELD-SYMBOLS:  <lang>  LIKE LINE OF lt_langs_i18n.
-
-    io_xml->read( EXPORTING iv_name = 'I18N_LANGS'
-                  CHANGING  cg_data = lt_langs_i18n ).
+    DATA lt_tpool_i18n  TYPE tt_tpool_i18n.
+    FIELD-SYMBOLS <tpool> LIKE LINE OF lt_tpool_i18n.
 
     io_xml->read( EXPORTING iv_name = 'I18N_TPOOL'
                   CHANGING  cg_data = lt_tpool_i18n ).
 
-    LOOP AT lt_langs_i18n ASSIGNING <lang>.
-      READ TABLE lt_tpool_i18n INTO ls_tpool_i18n WITH KEY langu = <lang>.
+    LOOP AT lt_tpool_i18n ASSIGNING <tpool>.
       deserialize_textpool( iv_program  = ms_item-obj_name
-                            iv_language = <lang>
-                            it_tpool    = ls_tpool_i18n-textpool ).
+                            iv_language = <tpool>-langu
+                            it_tpool    = <tpool>-textpool ).
     ENDLOOP.
+
   ENDMETHOD.                    "deserialize_texts
 
 ENDCLASS.                    "lcl_object_prog IMPLEMENTATION
diff --git a/src/zabapgit_objects.prog.abap b/src/zabapgit_objects.prog.abap
index 1adbad923..9235cf313 100644
--- a/src/zabapgit_objects.prog.abap
+++ b/src/zabapgit_objects.prog.abap
@@ -1426,8 +1426,7 @@ CLASS lcl_objects_program IMPLEMENTATION.
 
     INSERT TEXTPOOL iv_program
       FROM it_tpool
-      LANGUAGE lv_language
-      STATE 'I'.
+      LANGUAGE lv_language.
     IF sy-subrc <> 0.
       lcx_exception=>raise( 'error from INSERT TEXTPOOL' ).
     ENDIF.