From 07c95d1242171971a80ecdffff1e2906d99d5394 Mon Sep 17 00:00:00 2001
From: Lars Hvam <larshp@hotmail.com>
Date: Tue, 1 Sep 2015 20:27:00 +0200
Subject: [PATCH] skip package popup for PROG objects

---
 zabapgit.abap | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

diff --git a/zabapgit.abap b/zabapgit.abap
index 3ab672d85..c19b95ee0 100644
--- a/zabapgit.abap
+++ b/zabapgit.abap
@@ -3,7 +3,7 @@ REPORT zabapgit.
 * See https://github.com/larshp/abapGit/
 
 CONSTANTS: gc_xml_version  TYPE string VALUE 'v0.2-alpha',  "#EC NOTEXT
-           gc_abap_version TYPE string VALUE 'v0.65'.       "#EC NOTEXT
+           gc_abap_version TYPE string VALUE 'v0.66'.       "#EC NOTEXT
 
 ********************************************************************************
 * The MIT License (MIT)
@@ -1702,6 +1702,24 @@ CLASS lcl_objects_common IMPLEMENTATION.
           ls_progdir_new TYPE progdir.
 
 
+    CALL FUNCTION 'RS_CORR_INSERT'
+      EXPORTING
+        object              = is_progdir-name
+        object_class        = 'ABAP'
+        devclass            = iv_package
+        master_language     = gc_english
+        mode                = 'INSERT'
+      EXCEPTIONS
+        cancelled           = 1
+        permission_failure  = 2
+        unknown_objectclass = 3
+        OTHERS              = 4.
+    IF sy-subrc = 1.
+      _raise 'Cancelled'.
+    ELSEIF sy-subrc <> 0.
+      _raise 'error from RS_CORR_INSERT'.
+    ENDIF.
+
     READ TABLE it_tpool INTO ls_tpool WITH KEY id = 'R'.
     ASSERT sy-subrc = 0.
     lv_title = ls_tpool-entry.