From 9cfd9ea0ed312ee00e4221163f304ba82666e541 Mon Sep 17 00:00:00 2001
From: larshp <larshp@hotmail.com>
Date: Thu, 9 Feb 2017 13:54:35 +0000
Subject: [PATCH] TOBJ: fix changed_by

---
 src/zabapgit_object_tobj.prog.abap | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/src/zabapgit_object_tobj.prog.abap b/src/zabapgit_object_tobj.prog.abap
index 408c2dd6e..63e83801b 100644
--- a/src/zabapgit_object_tobj.prog.abap
+++ b/src/zabapgit_object_tobj.prog.abap
@@ -27,7 +27,18 @@ CLASS lcl_object_tobj IMPLEMENTATION.
   ENDMETHOD.  "lif_object~has_changed_since
 
   METHOD lif_object~changed_by.
-    rv_user = c_user_unknown. " todo
+
+    DATA: lv_type_pos TYPE i.
+
+    lv_type_pos = strlen( ms_item-obj_name ) - 1.
+
+    SELECT SINGLE luser FROM objh INTO rv_user
+      WHERE objectname = ms_item-obj_name(lv_type_pos)
+      AND objecttype = ms_item-obj_name+lv_type_pos.    "#EC CI_GENBUFF
+    IF sy-subrc <> 0.
+      rv_user = c_user_unknown.
+    ENDIF.
+
   ENDMETHOD.
 
   METHOD lif_object~get_metadata.