CLASS cl_htmlb_manager DEFINITION LOAD.

DATA:
  event TYPE REF TO cl_htmlb_event,
  tabstrip_event TYPE REF TO cl_htmlb_event_tabstrip.

event = cl_htmlb_manager=>get_event( request ).

IF event->name EQ htmlb_events=>tabstrip AND event->id EQ 'myTabStrip1'.
  tabstrip_event ?= event.
  selection = tabstrip_event->selection.
ENDIF.
*
DATA:
  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.
    CASE button_event->id.
      WHEN 'Zurueck'.
        navigation->goto_page( 'login.htm' ) .
      WHEN 'exit'.
        navigation->exit( 'http://www.fh-augsburg.de' ) .
    ENDCASE.
  ENDIF.
ENDIF.
*
