SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-05-02 04:36:49 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

#241, lcl_app=>repo_srv()

Browse Source
This commit is contained in:
atsy 2016-06-09 18:41:13 +03:00
parent 0f62d4cee6
commit 5e3ea6798e
1 changed files with 97 additions and 84 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

181
zabapgit.prog.abap
View File

@ -16493,30 +16493,6 @@ CLASS lcl_gui DEFINITION FINAL CREATE PRIVATE FRIENDS lcl_app.
ENDCLASS. "lcl_gui DEFINITION ENDCLASS. "lcl_gui DEFINITION
*----------------------------------------------------------------------*
* CLASS lcl_app DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_app DEFINITION FINAL.
PUBLIC SECTION.
CLASS-METHODS run
RAISING lcx_exception.
CLASS-METHODS gui
RETURNING VALUE(ro_gui) TYPE REF TO lcl_gui
RAISING lcx_exception.
CLASS-METHODS user
IMPORTING iv_user TYPE xubname DEFAULT sy-uname
RETURNING VALUE(ro_user) TYPE REF TO lcl_persistence_user
RAISING lcx_exception.
PRIVATE SECTION.
CLASS-DATA: go_gui TYPE REF TO lcl_gui,
go_current_user TYPE REF TO lcl_persistence_user.
ENDCLASS. "lcl_app
*----------------------------------------------------------------------* *----------------------------------------------------------------------*
* CLASS lcl_repo_offline IMPLEMENTATION * CLASS lcl_repo_offline IMPLEMENTATION
*----------------------------------------------------------------------* *----------------------------------------------------------------------*
@ -16535,44 +16511,42 @@ ENDCLASS. "lcl_repo_offline IMPLEMENTATION
*----------------------------------------------------------------------* *----------------------------------------------------------------------*
* CLASS lcl_repo_srv DEFINITION * CLASS lcl_repo_srv DEFINITION
*----------------------------------------------------------------------* *----------------------------------------------------------------------*
CLASS lcl_repo_srv DEFINITION FINAL. CLASS lcl_repo_srv DEFINITION FINAL CREATE PRIVATE FRIENDS lcl_app.
PUBLIC SECTION. PUBLIC SECTION.
TYPES: ty_repo_tt TYPE STANDARD TABLE OF REF TO lcl_repo WITH DEFAULT KEY. TYPES: ty_repo_tt TYPE STANDARD TABLE OF REF TO lcl_repo WITH DEFAULT KEY.
CLASS-METHODS class_constructor. METHODS list
CLASS-METHODS list
RETURNING VALUE(rt_list) TYPE ty_repo_tt RETURNING VALUE(rt_list) TYPE ty_repo_tt
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS refresh METHODS refresh
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS new_online METHODS new_online
IMPORTING iv_url TYPE string IMPORTING iv_url TYPE string
iv_branch_name TYPE string iv_branch_name TYPE string
iv_package TYPE devclass iv_package TYPE devclass
RETURNING VALUE(ro_repo) TYPE REF TO lcl_repo_online RETURNING VALUE(ro_repo) TYPE REF TO lcl_repo_online
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS new_offline METHODS new_offline
IMPORTING iv_url TYPE string IMPORTING iv_url TYPE string
iv_package TYPE devclass iv_package TYPE devclass
RETURNING VALUE(ro_repo) TYPE REF TO lcl_repo_offline RETURNING VALUE(ro_repo) TYPE REF TO lcl_repo_offline
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS delete METHODS delete
IMPORTING io_repo TYPE REF TO lcl_repo IMPORTING io_repo TYPE REF TO lcl_repo
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS get METHODS get
IMPORTING iv_key TYPE lcl_persistence_db=>ty_value IMPORTING iv_key TYPE lcl_persistence_db=>ty_value
RETURNING VALUE(ro_repo) TYPE REF TO lcl_repo RETURNING VALUE(ro_repo) TYPE REF TO lcl_repo
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS is_repo_installed METHODS is_repo_installed
IMPORTING iv_url TYPE string IMPORTING iv_url TYPE string
iv_target_package TYPE devclass OPTIONAL iv_target_package TYPE devclass OPTIONAL
RETURNING VALUE(rv_installed) TYPE abap_bool RETURNING VALUE(rv_installed) TYPE abap_bool
@ -16580,20 +16554,50 @@ CLASS lcl_repo_srv DEFINITION FINAL.
PRIVATE SECTION. PRIVATE SECTION.
CLASS-DATA: gv_init TYPE abap_bool VALUE abap_false, METHODS constructor.
go_persistence TYPE REF TO lcl_persistence_repo,
gt_list TYPE ty_repo_tt.
CLASS-METHODS add DATA: mv_init TYPE abap_bool VALUE abap_false,
mo_persistence TYPE REF TO lcl_persistence_repo,
mt_list TYPE ty_repo_tt.
METHODS add
IMPORTING io_repo TYPE REF TO lcl_repo IMPORTING io_repo TYPE REF TO lcl_repo
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS validate_package METHODS validate_package
IMPORTING iv_package TYPE devclass IMPORTING iv_package TYPE devclass
RAISING lcx_exception. RAISING lcx_exception.
ENDCLASS. "lcl_repo_srv DEFINITION ENDCLASS. "lcl_repo_srv DEFINITION
*----------------------------------------------------------------------*
* CLASS lcl_app DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_app DEFINITION FINAL.
PUBLIC SECTION.
CLASS-METHODS run
RAISING lcx_exception.
CLASS-METHODS gui
RETURNING VALUE(ro_gui) TYPE REF TO lcl_gui
RAISING lcx_exception.
CLASS-METHODS user
IMPORTING iv_user TYPE xubname DEFAULT sy-uname
RETURNING VALUE(ro_user) TYPE REF TO lcl_persistence_user
RAISING lcx_exception.
CLASS-METHODS repo_srv
RETURNING VALUE(ro_repo_srv) TYPE REF TO lcl_repo_srv.
PRIVATE SECTION.
CLASS-DATA: go_gui TYPE REF TO lcl_gui,
go_current_user TYPE REF TO lcl_persistence_user,
go_repo_srv TYPE REF TO lcl_repo_srv.
ENDCLASS. "lcl_app
*----------------------------------------------------------------------* *----------------------------------------------------------------------*
* CLASS lcl_repo_online IMPLEMENTATION * CLASS lcl_repo_online IMPLEMENTATION
*----------------------------------------------------------------------* *----------------------------------------------------------------------*
@ -16954,30 +16958,30 @@ ENDCLASS. "lcl_repo IMPLEMENTATION
*----------------------------------------------------------------------* *----------------------------------------------------------------------*
CLASS lcl_repo_srv IMPLEMENTATION. CLASS lcl_repo_srv IMPLEMENTATION.
METHOD class_constructor. METHOD constructor.
CREATE OBJECT go_persistence. CREATE OBJECT mo_persistence.
ENDMETHOD. "class_constructor ENDMETHOD. "class_constructor
METHOD list. METHOD list.
IF gv_init = abap_false. IF mv_init = abap_false.
refresh( ). refresh( ).
ENDIF. ENDIF.
rt_list = gt_list. rt_list = mt_list.
ENDMETHOD. "list ENDMETHOD. "list
METHOD get. METHOD get.
FIELD-SYMBOLS: <lo_list> LIKE LINE OF gt_list. FIELD-SYMBOLS: <lo_list> LIKE LINE OF mt_list.
IF gv_init = abap_false. IF mv_init = abap_false.
refresh( ). refresh( ).
ENDIF. ENDIF.
LOOP AT gt_list ASSIGNING <lo_list>. LOOP AT mt_list ASSIGNING <lo_list>.
IF <lo_list>->get_key( ) = iv_key. IF <lo_list>->get_key( ) = iv_key.
ro_repo = <lo_list>. ro_repo = <lo_list>.
RETURN. RETURN.
@ -16997,24 +17001,24 @@ CLASS lcl_repo_srv IMPLEMENTATION.
FIELD-SYMBOLS: <ls_list> LIKE LINE OF lt_list. FIELD-SYMBOLS: <ls_list> LIKE LINE OF lt_list.
CLEAR gt_list. CLEAR mt_list.
lt_list = go_persistence->list( ). lt_list = mo_persistence->list( ).
LOOP AT lt_list ASSIGNING <ls_list>. LOOP AT lt_list ASSIGNING <ls_list>.
IF <ls_list>-offline = abap_false. IF <ls_list>-offline = abap_false.
CREATE OBJECT lo_online CREATE OBJECT lo_online
EXPORTING EXPORTING
is_data = <ls_list>. is_data = <ls_list>.
APPEND lo_online TO gt_list. APPEND lo_online TO mt_list.
ELSE. ELSE.
CREATE OBJECT lo_offline CREATE OBJECT lo_offline
EXPORTING EXPORTING
is_data = <ls_list>. is_data = <ls_list>.
APPEND lo_offline TO gt_list. APPEND lo_offline TO mt_list.
ENDIF. ENDIF.
ENDLOOP. ENDLOOP.
gv_init = abap_true. mv_init = abap_true.
ENDMETHOD. "refresh ENDMETHOD. "refresh
@ -17026,13 +17030,13 @@ CLASS lcl_repo_srv IMPLEMENTATION.
validate_package( iv_package ). validate_package( iv_package ).
lv_key = go_persistence->add( lv_key = mo_persistence->add(
iv_url = iv_url iv_url = iv_url
iv_branch_name = iv_branch_name iv_branch_name = iv_branch_name
iv_package = iv_package ). iv_package = iv_package ).
TRY. TRY.
ls_repo = go_persistence->read( lv_key ). ls_repo = mo_persistence->read( lv_key ).
CATCH lcx_not_found. CATCH lcx_not_found.
_raise 'new_online not found'. _raise 'new_online not found'.
ENDTRY. ENDTRY.
@ -17053,14 +17057,14 @@ CLASS lcl_repo_srv IMPLEMENTATION.
validate_package( iv_package ). validate_package( iv_package ).
lv_key = go_persistence->add( lv_key = mo_persistence->add(
iv_url = iv_url iv_url = iv_url
iv_branch_name = '' iv_branch_name = ''
iv_package = iv_package iv_package = iv_package
iv_offline = abap_true ). iv_offline = abap_true ).
TRY. TRY.
ls_repo = go_persistence->read( lv_key ). ls_repo = mo_persistence->read( lv_key ).
CATCH lcx_not_found. CATCH lcx_not_found.
_raise 'new_offline not found'. _raise 'new_offline not found'.
ENDTRY. ENDTRY.
@ -17075,10 +17079,10 @@ CLASS lcl_repo_srv IMPLEMENTATION.
METHOD add. METHOD add.
DATA: lo_repo LIKE LINE OF gt_list. DATA: lo_repo LIKE LINE OF mt_list.
LOOP AT gt_list INTO lo_repo. LOOP AT mt_list INTO lo_repo.
IF lo_repo->get_key( ) = io_repo->get_key( ). IF lo_repo->get_key( ) = io_repo->get_key( ).
IF lo_repo = io_repo. IF lo_repo = io_repo.
RETURN. RETURN.
@ -17087,7 +17091,7 @@ CLASS lcl_repo_srv IMPLEMENTATION.
ENDIF. ENDIF.
ENDLOOP. ENDLOOP.
APPEND io_repo TO gt_list. APPEND io_repo TO mt_list.
ENDMETHOD. "add ENDMETHOD. "add
@ -17112,8 +17116,8 @@ CLASS lcl_repo_srv IMPLEMENTATION.
_raise 'package not found or not allowed'. _raise 'package not found or not allowed'.
ENDIF. ENDIF.
* make sure its not already in use for a different repository " make sure its not already in use for a different repository
lt_repos = go_persistence->list( ). lt_repos = mo_persistence->list( ).
READ TABLE lt_repos WITH KEY package = iv_package TRANSPORTING NO FIELDS. READ TABLE lt_repos WITH KEY package = iv_package TRANSPORTING NO FIELDS.
IF sy-subrc = 0. IF sy-subrc = 0.
_raise 'Package already in use'. _raise 'Package already in use'.
@ -17125,7 +17129,7 @@ CLASS lcl_repo_srv IMPLEMENTATION.
io_repo->delete( ). io_repo->delete( ).
DELETE TABLE gt_list FROM io_repo. DELETE TABLE mt_list FROM io_repo.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
ENDMETHOD. "delete ENDMETHOD. "delete
@ -18172,7 +18176,7 @@ CLASS lcl_zip IMPLEMENTATION.
DATA: lo_repo TYPE REF TO lcl_repo_offline. DATA: lo_repo TYPE REF TO lcl_repo_offline.
lo_repo ?= lcl_repo_srv=>get( iv_key ). lo_repo ?= lcl_app=>repo_srv( )->get( iv_key ).
lo_repo->set_files_remote( unzip_file( file_upload( ) ) ). lo_repo->set_files_remote( unzip_file( file_upload( ) ) ).
lo_repo->deserialize( ). lo_repo->deserialize( ).
@ -19725,7 +19729,7 @@ CLASS lcl_gui_page_background IMPLEMENTATION.
CREATE OBJECT lo_per. CREATE OBJECT lo_per.
lt_per = lo_per->list( ). lt_per = lo_per->list( ).
lt_list = lcl_repo_srv=>list( ). lt_list = lcl_app=>repo_srv( )->list( ).
LOOP AT lt_list INTO lo_repo. LOOP AT lt_list INTO lo_repo.
IF lo_repo->is_offline( ) = abap_false. IF lo_repo->is_offline( ) = abap_false.
@ -20711,8 +20715,8 @@ CLASS lcl_gui_page_main IMPLEMENTATION.
lc_plugins TYPE string VALUE 'https://github.com/larshp/abapGit-plugins.git' ##NO_TEXT. lc_plugins TYPE string VALUE 'https://github.com/larshp/abapGit-plugins.git' ##NO_TEXT.
TRY. TRY.
IF lcl_repo_srv=>is_repo_installed( lc_abapgit ) = abap_false IF lcl_app=>repo_srv( )->is_repo_installed( lc_abapgit ) = abap_false
OR lcl_repo_srv=>is_repo_installed( lc_plugins ) = abap_false. OR lcl_app=>repo_srv( )->is_repo_installed( lc_plugins ) = abap_false.
rv_not_completely_installed = abap_true. rv_not_completely_installed = abap_true.
ENDIF. ENDIF.
CATCH lcx_exception. CATCH lcx_exception.
@ -20730,9 +20734,9 @@ CLASS lcl_gui_page_main IMPLEMENTATION.
WHEN 'refresh'. WHEN 'refresh'.
lv_key = iv_getdata. lv_key = iv_getdata.
IF lv_key IS INITIAL. " Refresh all or single IF lv_key IS INITIAL. " Refresh all or single
lcl_repo_srv=>refresh( ). lcl_app=>repo_srv( )->refresh( ).
ELSE. ELSE.
lcl_repo_srv=>get( lv_key )->refresh( ). lcl_app=>repo_srv( )->get( lv_key )->refresh( ).
ENDIF. ENDIF.
rv_state = gc_event_state-re_render. rv_state = gc_event_state-re_render.
ENDCASE. ENDCASE.
@ -20802,7 +20806,7 @@ CLASS lcl_gui_page_main IMPLEMENTATION.
ro_html->add( title( iv_page_title = 'HOME' io_menu = build_main_menu( ) ) ). ro_html->add( title( iv_page_title = 'HOME' io_menu = build_main_menu( ) ) ).
TRY. TRY.
lt_repos = lcl_repo_srv=>list( ). lt_repos = lcl_app=>repo_srv( )->list( ).
CATCH lcx_exception INTO lx_error. CATCH lcx_exception INTO lx_error.
ro_html->add( render_error( lx_error ) ). ro_html->add( render_error( lx_error ) ).
ENDTRY. ENDTRY.
@ -20987,7 +20991,7 @@ CLASS lcl_background IMPLEMENTATION.
WRITE: / 'Background mode'. WRITE: / 'Background mode'.
LOOP AT lt_list ASSIGNING <ls_list>. LOOP AT lt_list ASSIGNING <ls_list>.
lo_repo ?= lcl_repo_srv=>get( <ls_list>-key ). lo_repo ?= lcl_app=>repo_srv( )->get( <ls_list>-key ).
lv_repo_name = lo_repo->get_name( ). lv_repo_name = lo_repo->get_name( ).
WRITE: / <ls_list>-method, lv_repo_name. WRITE: / <ls_list>-method, lv_repo_name.
@ -21047,6 +21051,15 @@ CLASS lcl_app IMPLEMENTATION.
ENDMETHOD. "user ENDMETHOD. "user
METHOD repo_srv.
IF go_repo_srv IS NOT BOUND.
CREATE OBJECT go_repo_srv.
ENDIF.
ro_repo_srv = go_repo_srv.
ENDMETHOD. "repo_srv
ENDCLASS. "lcl_app ENDCLASS. "lcl_app
@ -22305,7 +22318,7 @@ CLASS ltcl_dangerous IMPLEMENTATION.
lt_types = lcl_objects=>supported_list( ). lt_types = lcl_objects=>supported_list( ).
lo_repo = lcl_repo_srv=>new_online( lo_repo = lcl_app=>repo_srv( )->new_online(
iv_url = 'https://github.com/larshp/abapGit-Unit-Test.git' iv_url = 'https://github.com/larshp/abapGit-Unit-Test.git'
iv_branch_name = 'refs/heads/master' iv_branch_name = 'refs/heads/master'
iv_package = c_package ). iv_package = c_package ).
@ -22341,7 +22354,7 @@ CLASS ltcl_dangerous IMPLEMENTATION.
quit = if_aunit_constants=>no ). quit = if_aunit_constants=>no ).
ENDLOOP. ENDLOOP.
lcl_repo_srv=>delete( lo_repo ). lcl_app=>repo_srv( )->delete( lo_repo ).
COMMIT WORK. COMMIT WORK.
@ -23456,14 +23469,14 @@ CLASS lcl_gui_router IMPLEMENTATION.
ev_state = gc_event_state-re_render. ev_state = gc_event_state-re_render.
WHEN 'zipexport'. WHEN 'zipexport'.
lv_key = iv_getdata. lv_key = iv_getdata.
lcl_zip=>export( lcl_repo_srv=>get( lv_key ) ). lcl_zip=>export( lcl_app=>repo_srv( )->get( lv_key ) ).
ev_state = gc_event_state-no_more_act. ev_state = gc_event_state-no_more_act.
WHEN 'newoffline'. WHEN 'newoffline'.
repo_new_offline( ). repo_new_offline( ).
ev_state = gc_event_state-re_render. ev_state = gc_event_state-re_render.
WHEN 'files_commit'. "TODO refactor name ? WHEN 'files_commit'. "TODO refactor name ?
lv_key = iv_getdata. lv_key = iv_getdata.
lcl_zip=>export( io_repo = lcl_repo_srv=>get( lv_key ) lcl_zip=>export( io_repo = lcl_app=>repo_srv( )->get( lv_key )
iv_zip = abap_false ). iv_zip = abap_false ).
ev_state = gc_event_state-no_more_act. ev_state = gc_event_state-no_more_act.
WHEN 'packagezip'. "TODO refactor name ? WHEN 'packagezip'. "TODO refactor name ?
@ -23546,7 +23559,7 @@ CLASS lcl_gui_router IMPLEMENTATION.
IMPORTING ev_key = lv_key IMPORTING ev_key = lv_key
es_file = ls_file ). es_file = ls_file ).
lo_repo ?= lcl_repo_srv=>get( lv_key ). lo_repo ?= lcl_app=>repo_srv( )->get( lv_key ).
lt_remote = lo_repo->get_files_remote( ). lt_remote = lo_repo->get_files_remote( ).
lt_local = lo_repo->get_files_local( ). lt_local = lo_repo->get_files_local( ).
@ -23611,13 +23624,13 @@ CLASS lcl_gui_router IMPLEMENTATION.
lv_target_package = lc_package_plugins. lv_target_package = lc_package_plugins.
ENDCASE. ENDCASE.
IF abap_false = lcl_repo_srv=>is_repo_installed( IF abap_false = lcl_app=>repo_srv( )->is_repo_installed(
iv_url = lv_url iv_url = lv_url
iv_target_package = lv_target_package ). iv_target_package = lv_target_package ).
lcl_sap_package=>create_local( lv_target_package ). lcl_sap_package=>create_local( lv_target_package ).
lo_repo = lcl_repo_srv=>new_online( lo_repo = lcl_app=>repo_srv( )->new_online(
iv_url = lv_url iv_url = lv_url
iv_branch_name = 'refs/heads/master' iv_branch_name = 'refs/heads/master'
iv_package = lv_target_package ) ##NO_TEXT. iv_package = lv_target_package ) ##NO_TEXT.
@ -23693,7 +23706,7 @@ CLASS lcl_gui_router IMPLEMENTATION.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
lv_branch_name = <ls_field>-value. lv_branch_name = <ls_field>-value.
lo_repo = lcl_repo_srv=>new_online( lo_repo = lcl_app=>repo_srv( )->new_online(
iv_url = lv_url iv_url = lv_url
iv_branch_name = lv_branch_name iv_branch_name = lv_branch_name
iv_package = lv_package ). iv_package = lv_package ).
@ -23714,7 +23727,7 @@ CLASS lcl_gui_router IMPLEMENTATION.
lv_question TYPE c LENGTH 100. lv_question TYPE c LENGTH 100.
lo_repo = lcl_repo_srv=>get( iv_key ). lo_repo = lcl_app=>repo_srv( )->get( iv_key ).
lv_package = lo_repo->get_package( ). lv_package = lo_repo->get_package( ).
lt_tadir = lcl_tadir=>read( lv_package ). lt_tadir = lcl_tadir=>read( lv_package ).
@ -23757,7 +23770,7 @@ CLASS lcl_gui_router IMPLEMENTATION.
ENDIF. ENDIF.
lcl_repo_srv=>delete( lo_repo ). lcl_app=>repo_srv( )->delete( lo_repo ).
COMMIT WORK. COMMIT WORK.
@ -23771,7 +23784,7 @@ CLASS lcl_gui_router IMPLEMENTATION.
lv_question TYPE c LENGTH 100. lv_question TYPE c LENGTH 100.
lo_repo = lcl_repo_srv=>get( iv_key ). lo_repo = lcl_app=>repo_srv( )->get( iv_key ).
lv_package = lo_repo->get_package( ). lv_package = lo_repo->get_package( ).
CONCATENATE 'This will remove the repository reference to the package' CONCATENATE 'This will remove the repository reference to the package'
@ -23802,7 +23815,7 @@ CLASS lcl_gui_router IMPLEMENTATION.
RETURN. RETURN.
ENDIF. ENDIF.
lcl_repo_srv=>delete( lo_repo ). lcl_app=>repo_srv( )->delete( lo_repo ).
COMMIT WORK. COMMIT WORK.
@ -23848,7 +23861,7 @@ CLASS lcl_gui_router IMPLEMENTATION.
lv_package = <ls_field>-value. lv_package = <ls_field>-value.
TRANSLATE lv_package TO UPPER CASE. TRANSLATE lv_package TO UPPER CASE.
lcl_repo_srv=>new_offline( lcl_app=>repo_srv( )->new_offline(
iv_url = lv_url iv_url = lv_url
iv_package = lv_package ). iv_package = lv_package ).
@ -23906,7 +23919,7 @@ CLASS lcl_gui_router IMPLEMENTATION.
DATA: lo_repo TYPE REF TO lcl_repo_online. DATA: lo_repo TYPE REF TO lcl_repo_online.
lo_repo ?= lcl_repo_srv=>get( iv_key ). lo_repo ?= lcl_app=>repo_srv( )->get( iv_key ).
lo_repo->refresh( ). lo_repo->refresh( ).
lo_repo->deserialize( ). lo_repo->deserialize( ).
@ -23920,7 +23933,7 @@ CLASS lcl_gui_router IMPLEMENTATION.
lo_stage TYPE REF TO lcl_gui_page_stage. lo_stage TYPE REF TO lcl_gui_page_stage.
lo_repo ?= lcl_repo_srv=>get( iv_key ). lo_repo ?= lcl_app=>repo_srv( )->get( iv_key ).
" force refresh on stage, to make sure the latest local and remote files are used " force refresh on stage, to make sure the latest local and remote files are used
lo_repo->refresh( ). lo_repo->refresh( ).