From 6076e8acbe63d0d85af0f1b2de615ff79ae48e15 Mon Sep 17 00:00:00 2001
From: larshp <larshp@hotmail.com>
Date: Mon, 5 Jun 2017 09:03:25 +0000
Subject: [PATCH] WDYN: fix package popup

---
 src/zabapgit_object_wdyn.prog.abap | 20 ++++++++++++++------
 1 file changed, 14 insertions(+), 6 deletions(-)

diff --git a/src/zabapgit_object_wdyn.prog.abap b/src/zabapgit_object_wdyn.prog.abap
index 959d9bcd3..363aed4b0 100644
--- a/src/zabapgit_object_wdyn.prog.abap
+++ b/src/zabapgit_object_wdyn.prog.abap
@@ -42,6 +42,7 @@ CLASS lcl_object_wdyn DEFINITION INHERITING FROM lcl_objects_super FINAL.
         RAISING   lcx_exception,
       recover_definition
         IMPORTING is_definition TYPE wdy_md_component_meta_data
+                  iv_package    TYPE devclass
         RAISING   lcx_exception,
       recover_view
         IMPORTING is_view TYPE wdy_md_view_meta_data
@@ -51,8 +52,9 @@ CLASS lcl_object_wdyn DEFINITION INHERITING FROM lcl_objects_super FINAL.
         RETURNING VALUE(rs_delta) TYPE svrs2_xversionable_object
         RAISING   lcx_exception,
       delta_definition
-        IMPORTING is_definition   TYPE wdy_md_component_meta_data
-        RETURNING VALUE(rs_delta) TYPE svrs2_xversionable_object
+        IMPORTING is_definition     TYPE wdy_md_component_meta_data
+                  VALUE(iv_package) TYPE devclass
+        RETURNING VALUE(rs_delta)   TYPE svrs2_xversionable_object
         RAISING   lcx_exception,
       delta_view
         IMPORTING is_view         TYPE wdy_md_view_meta_data
@@ -123,7 +125,9 @@ CLASS lcl_object_wdyn IMPLEMENTATION.
             EXPORTING
               name      = ls_key-component_name
             IMPORTING
-              component = li_component ).
+              component = li_component
+            CHANGING
+              devclass  = iv_package ).
           li_component->save_to_database( ).
           li_component->unlock( ).
         CATCH cx_wdy_md_exception.
@@ -333,7 +337,10 @@ CLASS lcl_object_wdyn IMPLEMENTATION.
           ls_delta  TYPE svrs2_xversionable_object.
 
 
-    ls_delta = delta_definition( is_definition ).
+    ls_delta = delta_definition(
+      is_definition = is_definition
+      iv_package    = iv_package ).
+
     ls_key-component_name = is_definition-definition-component_name.
 
     cl_wdy_md_component=>recover_version(
@@ -745,11 +752,12 @@ CLASS lcl_object_wdyn IMPLEMENTATION.
     io_xml->read( EXPORTING iv_name  = 'SOURCES'
                   CHANGING cg_data = mt_sources ).
 
-    tadir_insert( iv_package ).
+*    tadir_insert( iv_package ).
 
     ls_component-comp_metadata-definition-author = sy-uname.
     ls_component-comp_metadata-definition-createdon = sy-datum.
-    recover_definition( ls_component-comp_metadata ).
+    recover_definition( is_definition = ls_component-comp_metadata
+                        iv_package    = iv_package ).
 
     LOOP AT ls_component-ctlr_metadata ASSIGNING <ls_controller>.
       <ls_controller>-definition-author = sy-uname.