From 80c73724f8b9807426b70c39eb2e31176472b942 Mon Sep 17 00:00:00 2001
From: oblomov <102328295+oblomov-dev@users.noreply.github.com>
Date: Mon, 3 Jul 2023 16:08:35 +0200
Subject: [PATCH] update home and reload (#335)
---
src/z2ui5_cl_http_handler.clas.abap | 10 +-
...z2ui5_cl_http_handler.clas.locals_imp.abap | 121 +++++++++++-------
src/z2ui5_if_client.intf.abap | 10 +-
3 files changed, 79 insertions(+), 62 deletions(-)
diff --git a/src/z2ui5_cl_http_handler.clas.abap b/src/z2ui5_cl_http_handler.clas.abap
index 84be56aa..55eb029a 100644
--- a/src/z2ui5_cl_http_handler.clas.abap
+++ b/src/z2ui5_cl_http_handler.clas.abap
@@ -190,14 +190,8 @@ CLASS z2ui5_cl_http_handler IMPLEMENTATION.
` onEventFrontend: function (oEvent) {` && |\n| &&
|\n| &&
` switch (oEvent.EVENT) {` && |\n| &&
- |\n| &&
- ` case 'LEAVE_HOME':` && |\n| &&
- ` if (sap.z2ui5.oResponse.PARAMS.PATH != '') {` && |\n| &&
- ` window.location = window.location.href.split(sap.z2ui5.oResponse.PARAMS.PATH)[0];` && |\n| &&
- ` } else { window.location.reload(); }` && |\n| &&
- ` break;` && |\n| &&
- ` case 'LEAVE_RESTART':` && |\n| &&
- ` window.location.reload();` && |\n| &&
+ ` case 'LOCATION_RELOAD':` && |\n| &&
+ ` window.location = arguments[ 1 ];` && |\n| &&
` break;` && |\n| &&
` case 'POPUP_CLOSE':` && |\n| &&
` sap.z2ui5.oController.PopupClose();` && |\n| &&
diff --git a/src/z2ui5_cl_http_handler.clas.locals_imp.abap b/src/z2ui5_cl_http_handler.clas.locals_imp.abap
index 669f9011..335a4acc 100644
--- a/src/z2ui5_cl_http_handler.clas.locals_imp.abap
+++ b/src/z2ui5_cl_http_handler.clas.locals_imp.abap
@@ -942,6 +942,12 @@ CLASS z2ui5_lcl_fw_app IMPLEMENTATION.
DATA(lv_source) = `Source: web
`.
DATA(lv_descr) = escape( val = lv_txt && lv_source format = cl_abap_format=>e_xml_attr ).
+ DATA(ls_get) = client->get( ).
+ DATA(lv_url_app) = ls_get-s_config-origin && ls_get-s_config-pathname.
+ DATA(lv_url) = lv_url_app.
+ SHIFT lv_url RIGHT DELETING TRAILING ls_get-s_config-path_info.
+ SHIFT lv_url LEFT DELETING LEADING ` `.
+
DATA(lv_xml) = ` ` &&
`` &&
``.
@@ -1251,12 +1257,57 @@ CLASS z2ui5_lcl_fw_handler IMPLEMENTATION.
TRY.
DATA(lv_id_prev) = so_body->get_attribute( `ID` )->get_val( ).
+ result = set_app_client( lv_id_prev ).
+ result->ms_actual-check_on_navigated = abap_false.
CATCH cx_root.
result = set_app_start( ).
- RETURN.
+ result->ms_actual-check_on_navigated = abap_true.
+* RETURN.
ENDTRY.
- result = set_app_client( lv_id_prev ).
+
+ TRY.
+ result->ms_actual-check_launchpad_active = so_body->get_attribute( `CHECKLAUNCHPADACTIVE` )->get_val( ).
+ CATCH cx_root.
+ ENDTRY.
+
+ TRY.
+ DATA(lo_arg) = so_body->get_attribute( `ARGUMENTS` ).
+ result->ms_actual-event = lo_arg->get_attribute( `0` )->get_attribute( `EVENT` )->get_val( ).
+ DO.
+ DATA(lv_val) = lo_arg->get_attribute( CONV string( sy-index ) )->get_val( ).
+ INSERT lv_val INTO TABLE result->ms_actual-t_event_arg.
+ ENDDO.
+ CATCH cx_root.
+ ENDTRY.
+
+ TRY.
+ DATA(lo_scroll) = so_body->get_attribute( `OSCROLL` ).
+ z2ui5_lcl_utility=>trans_ref_tab_2_tab( EXPORTING ir_tab_from = lo_scroll->mr_actual
+ IMPORTING t_result = result->ms_actual-t_scroll_pos ).
+ CATCH cx_root.
+ ENDTRY.
+
+ TRY.
+ DATA(lo_cursor) = so_body->get_attribute( `OCURSOR` ).
+ result->ms_actual-s_cursor-id = lo_cursor->get_attribute( `ID` )->get_val( ).
+ result->ms_actual-s_cursor-cursorpos = lo_cursor->get_attribute( `CURSORPOS` )->get_val( ).
+ result->ms_actual-s_cursor-selectionend = lo_cursor->get_attribute( `SELECTIONEND` )->get_val( ).
+ result->ms_actual-s_cursor-selectionstart = lo_cursor->get_attribute( `SELECTIONSTART` )->get_val( ).
+ CATCH cx_root.
+ ENDTRY.
+
+ TRY.
+ DATA(lo_location) = so_body->get_attribute( `OLOCATION` ).
+ ss_config-origin = lo_location->get_attribute( `ORIGIN` )->get_val( ).
+ ss_config-pathname = lo_location->get_attribute( `PATHNAME` )->get_val( ).
+ ss_config-search = lo_location->get_attribute( `SEARCH` )->get_val( ).
+ ss_config-version = lo_location->get_attribute( `VERSION` )->get_val( ).
+ ss_config-controller_name = `z2ui5_controller`.
+ CATCH cx_root.
+ ENDTRY.
+
+
ENDMETHOD.
METHOD request_end.
@@ -1390,47 +1441,6 @@ CLASS z2ui5_lcl_fw_handler IMPLEMENTATION.
result->ms_db-id = z2ui5_lcl_utility=>get_uuid( ).
result->ms_db-id_prev = id_prev.
- TRY.
- result->ms_actual-check_launchpad_active = so_body->get_attribute( `CHECKLAUNCHPADACTIVE` )->get_val( ).
- CATCH cx_root.
- ENDTRY.
-
- TRY.
- DATA(lo_arg) = so_body->get_attribute( `ARGUMENTS` ).
- result->ms_actual-event = lo_arg->get_attribute( `0` )->get_attribute( `EVENT` )->get_val( ).
- DO.
- DATA(lv_val) = lo_arg->get_attribute( CONV string( sy-index ) )->get_val( ).
- INSERT lv_val INTO TABLE result->ms_actual-t_event_arg.
- ENDDO.
- CATCH cx_root.
- ENDTRY.
-
- TRY.
- DATA(lo_scroll) = so_body->get_attribute( `OSCROLL` ).
- z2ui5_lcl_utility=>trans_ref_tab_2_tab( EXPORTING ir_tab_from = lo_scroll->mr_actual
- IMPORTING t_result = result->ms_actual-t_scroll_pos ).
- CATCH cx_root.
- ENDTRY.
-
- TRY.
- DATA(lo_cursor) = so_body->get_attribute( `OCURSOR` ).
- result->ms_actual-s_cursor-id = lo_cursor->get_attribute( `ID` )->get_val( ).
- result->ms_actual-s_cursor-cursorpos = lo_cursor->get_attribute( `CURSORPOS` )->get_val( ).
- result->ms_actual-s_cursor-selectionend = lo_cursor->get_attribute( `SELECTIONEND` )->get_val( ).
- result->ms_actual-s_cursor-selectionstart = lo_cursor->get_attribute( `SELECTIONSTART` )->get_val( ).
- CATCH cx_root.
- ENDTRY.
-
- TRY.
- DATA(lo_location) = so_body->get_attribute( `OLOCATION` ).
- ss_config-origin = lo_location->get_attribute( `ORIGIN` )->get_val( ).
- ss_config-pathname = lo_location->get_attribute( `PATHNAME` )->get_val( ).
- ss_config-search = lo_location->get_attribute( `SEARCH` )->get_val( ).
- ss_config-version = lo_location->get_attribute( `VERSION` )->get_val( ).
- ss_config-controller_name = `z2ui5_controller`.
- CATCH cx_root.
- ENDTRY.
-
TRY.
model_set_backend( model = so_body->get_attribute( `OUPDATE` )->mr_actual
app = result->ms_db-o_app
@@ -1438,7 +1448,10 @@ CLASS z2ui5_lcl_fw_handler IMPLEMENTATION.
CATCH cx_root.
ENDTRY.
- result->ms_actual-check_on_navigated = abap_false.
+
+
+
+
ENDMETHOD.
@@ -1467,13 +1480,15 @@ CLASS z2ui5_lcl_fw_handler IMPLEMENTATION.
ENDTRY.
result->ms_db-o_app->id = result->ms_db-id.
result->ms_db-t_attri = z2ui5_lcl_utility=>get_t_attri_by_ref( result->ms_db-o_app ).
- result->ms_actual-check_on_navigated = abap_true.
+* result->ms_actual-check_on_navigated = abap_true.
RETURN.
CATCH cx_root.
result = result->set_app_system( error_text = `App with name ` && lv_classname && ` not found...` ).
RETURN.
ENDTRY.
+
+
ENDMETHOD.
METHOD set_app_leave.
@@ -1611,9 +1626,11 @@ CLASS z2ui5_lcl_fw_handler IMPLEMENTATION.
r_result->ms_db-t_attri = z2ui5_lcl_utility=>get_t_attri_by_ref( app ).
r_result->ms_actual-check_launchpad_active = ms_actual-check_launchpad_active.
- r_result->ms_next-s_Set = ms_next-s_set.
+ r_result->ms_actual-s_config = ms_actual-s_config.
r_result->ms_actual-check_on_navigated = abap_true.
+ r_result->ms_next-s_Set = ms_next-s_set.
+
ENDMETHOD.
ENDCLASS.
@@ -1699,7 +1716,13 @@ CLASS z2ui5_lcl_fw_client IMPLEMENTATION.
METHOD z2ui5_if_client~_event_client.
- result = `onEventFrontend( { 'EVENT' : '` && val && `' } )`.
+ result = `onEventFrontend( { 'EVENT' : '` && action && `' }`.
+
+ LOOP AT t_arg REFERENCE INTO DATA(lr_arg).
+ result = result && `, '` && lr_arg->* && `'`.
+ ENDLOOP.
+
+ result = result && ` )`.
ENDMETHOD.
diff --git a/src/z2ui5_if_client.intf.abap b/src/z2ui5_if_client.intf.abap
index ac4e8b3f..711191ee 100644
--- a/src/z2ui5_if_client.intf.abap
+++ b/src/z2ui5_if_client.intf.abap
@@ -3,10 +3,9 @@ INTERFACE z2ui5_if_client
CONSTANTS:
BEGIN OF cs_event,
- popup_close TYPE string VALUE `POPUP_CLOSE`,
- popover_close TYPE string VALUE `POPOVER_CLOSE`,
- leave_home TYPE string VALUE `LEAVE_HOME`,
- leave_restart TYPE string VALUE `LEAVE_RESTART`,
+ popup_close TYPE string VALUE `POPUP_CLOSE`,
+ popover_close TYPE string VALUE `POPOVER_CLOSE`,
+ location_reload TYPE string VALUE `LOCATION_RELOAD`,
END OF cs_event.
TYPES:
@@ -134,7 +133,8 @@ INTERFACE z2ui5_if_client
METHODS _event_client
IMPORTING
- val TYPE clike
+ action TYPE clike
+ t_arg TYPE string_table optional
RETURNING
VALUE(result) TYPE string.