From 2557cbfc47f646dbbefad70b0fa0fc0343184d8c Mon Sep 17 00:00:00 2001
From: Lars Hvam <larshp@hotmail.com>
Date: Tue, 15 Jul 2014 14:04:13 +0200
Subject: [PATCH] fix for explore

---
 zabapgit.abap | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/zabapgit.abap b/zabapgit.abap
index dbaa6f450..1e3a3a4e8 100644
--- a/zabapgit.abap
+++ b/zabapgit.abap
@@ -4235,6 +4235,7 @@ CLASS lcl_gui DEFINITION FINAL.
                       RETURNING value(rv_html) TYPE string.
 
     CLASS-METHODS: install
+                      IMPORTING iv_url TYPE string
                       RAISING lcx_exception.
 
     CLASS-METHODS: add
@@ -4567,13 +4568,15 @@ CLASS lcl_gui IMPLEMENTATION.
 
     DATA: lx_exception TYPE REF TO lcx_exception,
           ls_result    TYPE st_result,
+          lv_url       type string,
           ls_repo      TYPE st_repo.
 
 
     TRY.
         CASE action.
           WHEN 'install'.
-            install( ).
+            lv_url = getdata.
+            install( lv_url ).
           WHEN 'explore'.
             go_html_viewer->show_url( 'http://larshp.github.io/abapGit/explore.html' ).
           WHEN 'abapgithome'.
@@ -4715,9 +4718,10 @@ CLASS lcl_gui IMPLEMENTATION.
 
 
     APPEND INITIAL LINE TO lt_fields ASSIGNING <ls_field>.
-    <ls_field>-tabname = 'ABAPTXT255'.
+    <ls_field>-tabname   = 'ABAPTXT255'.
     <ls_field>-fieldname = 'LINE'.
     <ls_field>-fieldtext = 'Url'.                           "#EC NOTEXT
+    <ls_field>-value     = iv_url.
 
     CALL FUNCTION 'POPUP_GET_VALUES'
       EXPORTING