DATA:
event TYPE REF TO cl_htmlb_event,
button_event TYPE REF TO cl_htmlb_event_button.
IF event_id = cl_htmlb_manager=>event_id.
event ?= cl_htmlb_manager=>get_event(
runtime->server->request ).
IF event->name = 'button' AND event->event_type = 'click'.
button_event ?= event.
ENDIF.
ENDIF.
IF button_event IS BOUND.
CASE button_event->id.
WHEN 'Find'.
application->bapisfldat_tab = application->get_flightlist(
datelow = datelow
datehigh = datehigh
cityfrom = cityfrom
cityto = cityto ).
cl_bsp_server_side_cookie=>set_server_cookie(
name = 'HALLO'
application_name = runtime->application_name
application_namespace = runtime->application_namespace
username = sy-uname
session_id = runtime->session_id
data_value = application->bapisfldat_tab
data_name = 'application->bapisfldat_tab'
expiry_time_rel = 3600 ).
navigation->goto_page( 'ResultPage.htm').
WHEN 'Exit'.
navigation->exit( 'http://www.fh-wedel.de').
ENDCASE.
ENDIF.
