From e1bd99d134b2e4eb80b88528dd9e473e431d09d4 Mon Sep 17 00:00:00 2001 From: atsy Date: Sat, 4 Jun 2016 12:34:05 +0300 Subject: [PATCH] #238, preparations, redirect page logic for explore --- zabapgit.prog.abap | 50 +++++++++++++++++++++++++++++++++++++++++++--- 1 file changed, 47 insertions(+), 3 deletions(-) diff --git a/zabapgit.prog.abap b/zabapgit.prog.abap index 93cc816ef..15acf0d43 100644 --- a/zabapgit.prog.abap +++ b/zabapgit.prog.abap @@ -18403,6 +18403,10 @@ CLASS lcl_gui_page_super DEFINITION ABSTRACT. io_menu TYPE REF TO lcl_html_toolbar OPTIONAL RETURNING VALUE(ro_html) TYPE REF TO lcl_html_helper. + METHODS redirect + IMPORTING iv_url TYPE string + RETURNING VALUE(ro_html) TYPE REF TO lcl_html_helper. + PRIVATE SECTION. CLASS-METHODS load_images. METHODS styles RETURNING VALUE(ro_html) TYPE REF TO lcl_html_helper. @@ -18655,6 +18659,17 @@ CLASS lcl_gui_page_super IMPLEMENTATION. ENDMETHOD. "render html footer & logo + METHOD redirect. + + CREATE OBJECT ro_html. + + ro_html->add( '' ). "#EC NOTEXT + ro_html->add( '' ). "#EC NOTEXT + ro_html->add( || )."#EC NOTEXT + ro_html->add( ''). "#EC NOTEXT + + ENDMETHOD. + METHOD styles. CREATE OBJECT ro_html. @@ -18799,6 +18814,31 @@ CLASS lcl_gui_page_super IMPLEMENTATION. ENDCLASS. +CLASS lcl_gui_page_explore DEFINITION FINAL INHERITING FROM lcl_gui_page_super. + PUBLIC SECTION. + METHODS lif_gui_page~on_event REDEFINITION. + METHODS lif_gui_page~render REDEFINITION. +ENDCLASS. "lcl_gui_page_explore DEFINITION + +CLASS lcl_gui_page_explore IMPLEMENTATION. + METHOD lif_gui_page~on_event. + + CASE iv_action. + WHEN OTHERS. + _raise 'Unknown action'. "#EC NOTEXT + ENDCASE. + + ENDMETHOD. + + METHOD lif_gui_page~render. + + CREATE OBJECT ro_html. + ro_html->add( redirect( 'http://larshp.github.io/abapGit/explore.html' ) ). + + ENDMETHOD. + +ENDCLASS. "lcl_gui_page_explore IMPLEMENTATION + CLASS lcl_gui_page_main DEFINITION FINAL INHERITING FROM lcl_gui_page_super. @@ -20956,13 +20996,15 @@ CLASS lcl_gui_page_main IMPLEMENTATION. ls_item TYPE ty_item, lo_db TYPE REF TO lcl_gui_page_db. + DATA lo_page_explore TYPE REF TO lcl_gui_page_explore. CASE iv_action. WHEN 'install'. lv_url = iv_getdata. install( lv_url ). WHEN 'explore'. - lcl_gui=>show_url( 'http://larshp.github.io/abapGit/explore.html' ). + CREATE OBJECT lo_page_explore. + lcl_gui=>call_page( lo_page_explore ). WHEN 'abapgithome'. cl_gui_frontend_services=>execute( document = 'http://www.abapgit.org' ). WHEN 'uninstall'. @@ -21183,7 +21225,9 @@ CLASS lcl_background IMPLEMENTATION. LOOP AT lt_list ASSIGNING . lo_repo ?= lcl_repo_srv=>get( -key ). - WRITE: / -method, lo_repo->get_name( ). + DATA lv_repo_name TYPE string. + lv_repo_name = lo_repo->get_name( ). + WRITE: / -method, lv_repo_name. lcl_login_manager=>set( iv_uri = lo_repo->get_url( ) @@ -23737,4 +23781,4 @@ AT SELECTION-SCREEN ON EXIT-COMMAND. IF lcl_gui=>back( ) IS INITIAL. LEAVE TO SCREEN 1001. ENDIF. - ENDCASE. + ENDCASE. \ No newline at end of file