anchor.diff:  
     PRIVATE SECTION.
       DATA: ms_key TYPE lcl_persistence_db=>ty_content.
  -
  -    METHODS: save
  -      IMPORTING it_postdata TYPE cnht_post_data_tab
  -      RAISING   lcx_exception.
   
   ENDCLASS.
   
  
positive.code:     ro_html->add( '<b>Value:</b><br>' ).
      ro_html->add( ms_key-value && '<br><br>' ).
      ro_html->add( '<b>Data:</b><br>' ).
      ro_html->add( '<form method="post" action="sapevent:post">' ).
      ro_html->add( '<input type="hidden" name="type" value="' && ms_key-type && '">' ).
      ro_html->add( '<input type="hidden" name="value" value="' && ms_key-value && '">' ).
      ro_html->add( '<textarea rows="20" cols="100" name="xmldata">' ).
  
negative.code: 
    ENDMETHOD.
  
    METHOD db_save.
  
      DATA: lv_string  TYPE string,
            ls_content TYPE lcl_persistence_db=>ty_content,
            lo_db      TYPE REF TO lcl_persistence_db,
            lt_fields  TYPE tihttpnvp.
  
      FIELD-SYMBOLS: <ls_field> LIKE LINE OF lt_fields.
  
  
      CONCATENATE LINES OF it_postdata INTO lv_string.
  
      lt_fields = cl_http_utility=>if_http_utility~string_to_fields( lv_string ).
  
      READ TABLE lt_fields ASSIGNING <ls_field> WITH KEY name = 'type' ##NO_TEXT.
      ASSERT sy-subrc = 0.
      ls_content-type = <ls_field>-value.
  
      READ TABLE lt_fields ASSIGNING <ls_field> WITH KEY name = 'value' ##NO_TEXT.
      ASSERT sy-subrc = 0.
      ls_content-value = <ls_field>-value.
  
      READ TABLE lt_fields ASSIGNING <ls_field> WITH KEY name = 'xmldata' ##NO_TEXT.
      ASSERT sy-subrc = 0.
      ls_content-data_str = <ls_field>-value+1. " hmm
  
      CREATE OBJECT lo_db.
  
      lo_db->update(
        iv_type  = ls_content-type
        iv_value = ls_content-value
        iv_data  = ls_content-data_str ).
  
      COMMIT WORK.
  
    ENDMETHOD.
  
  ENDCLASS.           " lcl_gui_router
  
  
  