SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-04-30 11:46:38 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

fix for explore

Browse Source
This commit is contained in:
Lars Hvam 2014-07-15 14:04:13 +02:00
parent 84b1255993
commit 2557cbfc47
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
zabapgit.abap
View File

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