<%@page language="abap" %>

<%@extension name="htmlb" prefix="htmlb"   %>

<%@extension name="xhtmlb"   prefix="xhtmlb" %>

<%@extension name="thtmlb" prefix="thtmlb"   %>

<%@extension name="crm_bsp_ic"   prefix="crmic" %>

<%@extension name="bsp" prefix="bsp"   %>

<%

  DATA  lr_ss_wrapper        TYPE REF TO cl_bsp_wd_collection_wrapper.

  DATA  lr_ss                TYPE REF TO cl_crm_bol_entity.

%>

<thtmlb:overflowContainerverticalScrollbar="NEVER" >

  <%

  data:   lv_search_id    type string.

  data:   lv_search_name     type string.

  lr_ss_wrapper  = savedsearches->get_collection_wrapper( ).

  lr_ss ?= lr_ss_wrapper->get_first( ).

  If lr_ss  is not bound.

  %>

   <img  class="th-clr-img" src="<%= CL_THTMLB_UTIL=>GET_DYN_ICON_URL(   EXPORTING iv_icon_name =   CL_THTMLB_UTIL=>GC_ICON_INFOMESSAGE iv_icon_type  = CL_THTMLB_UTIL=>GC_BUTTON_ICON ) %>" />&nbsp;

   <thtmlb:textView text = "<%= otr(CRM_UIU_BT/NORESULT)   %>" />

  <%

  Endif.

  while  lr_ss is bound.

  lv_search_id  = lr_ss->get_property_as_string(iv_attr_name = 'GUID' ).

  lv_search_name  = lr_ss->get_property_as_string(iv_attr_name = 'DESCRIPTION' ).

  %>

  <thtmlb:link id        = "<%= lv_search_id %>"

               onClick = "GO"

               onClientClick  = "thAdvSearchRegisterEvent('GO')"

               text    = "<%= lv_search_name  %>"

               tooltip = "<%= lv_search_name %>" />

  <%

  lr_ss ?= lr_ss_wrapper->get_next(  ).

  %>

  <br>

    <!-- -->

  <script language="javascript" type="text/javascript">

   thtmlbAJAXCall.callBackend("<%= controller->create_ajax_url(   iv_ss = lv_search_id )   %>",UpdateSavedSearchCallback);

  </script>

<!--   -->

  <%

  endwhile.

  %>

</thtmlb:overflowContainer>

  methodcreate_ajax_url.
 
      data: lv_query     type string.
      data: lv_url       type string.
 
      " Build Query
      concatenate lv_query 'crm_controller=' me->component_id into lv_query.
 
      ifiv_ssis not initial.
        concatenatelv_query'&saved_search=' iv_ssinto lv_query.
      endif.
 
      " Create State - Less URL
      call method cl_crm_web_utility=>create_url
        exporting
          iv_bsp_application= me->application_name
          iv_bsp_page        = 'counter.do'
          iv_query           = lv_query
          iv_in_same_session= abap_false
          iv_no_cookie       = space
          iv_cache_busting   = 'X'
        receiving
          ev_url             = lv_url.
 
      splitlv_urlat '?' into lv_urllv_query.
 
      call method runtime->get_url_stateless
        exporting
          application_name= me->application_name
          page_name        = 'counter.do'
        receiving
          url              = lv_url.
 
      concatenatelv_url'?' lv_queryinto rv_url.
 
    endmethod.

  methoddo_request.
 
      call method super->do_request.
 
      " Data
      data: lv_controller_id    type string.
      data: lv_saved_search     type string.
      data: lv_key              type guid_32.
      data: lr_core             type ref to cl_crm_bol_core.
      data: lr_shortcut_man     type ref to cl_crm_shortcut_manager.
      data: lr_shortcut         type ref to cl_crm_bol_entity.
      data: lt_field_list       type table of crmt_rtd_string_pair.
      data: ls_field_list       type crmt_rtd_string_pair.
      data: ls_count            type string.
 
      " Containers
      data: lr_writer           type ref to cl_sxml_string_writer.
      data: lv_json             type xstring.
 
      " Get URL parameters
      lv_controller_id  = request->get_form_field( 'crm_controller' ).
      lv_saved_search   = request->get_form_field('saved_search' ).
 
 
      " Get Shortcut Data
      lr_core= cl_crm_bol_core=>get_instance( ).
      "lr_core->start_up('SO2').                                        " Needed to avoid ABAP dumps
      lr_core->start_up('ALL').
 
      lr_shortcut_man= cl_crm_shortcut_manager=>get_instance( ).
 
      iflv_saved_search  is not initial and
         lv_controller_idis not initial.
        lv_key= lv_saved_search.
        lr_shortcut = lr_shortcut_man->get_shortcut_by_key(iv_key = lv_key ).
 
        iflr_shortcutis bound.
 
          " Get the name
          concatenate lv_controller_id lv_saved_search into ls_field_list-name separated by '_'.
          translatels_field_list-name to upper case.
 
          " Get the value
          ls_field_list-value = lr_shortcut->get_property_as_string( 'DESCRIPTION' ).
 
          ls_count= get_count(lr_shortcut).
          ifls_countis initial.
            ls_count= '?'.
          endif.
          concatenate'(' ls_count')' into ls_count.
          condensels_countno-gaps.
 
          concatenatels_field_list-value space ls_count
                 into ls_field_list-value respecting blanks.
 
        else.
          ls_field_list-name  ='ERROR_IN_SAVED_SEARCH_'.
          ls_field_list-value= 'NO_OBJECT_'.
        endif.
      else.
        ls_field_list-name  ='ERROR_IN_SAVED_SEARCH_'.
        ls_field_list-value= 'NO_GUID_'.
      endif.
 
 
      " Collect Response
      append ls_field_listto lt_field_list.
 
      "ABAP to JSON
      lr_writer = cl_sxml_string_writer=>create(type = if_sxml=>co_xt_json ).
      calltransformation id source text = lt_field_list[] result xml lr_writer.
      lv_json= lr_writer->get_output( ).
 
 
      " Send response
      response->set_header_field( name = 'content-type'  value = 'text/xml' ).
      response->set_header_field( name = 'charset'       value = 'utf-8' ).
      response->set_header_field( name = 'Pragma'        value = 'no-cache' ).
      response->set_header_field( name = 'Expires'       value = '0' ).
      response->set_header_field( name = 'Cache-Control' value = 'max-age=0' ).
 
      response->set_data( lv_json).
 
    endmethod.

  methodget_count.
 
      data: lr_dquery            type ref to cl_crm_bol_dquery_service.
      data: id_of_query_templatetype genil_dquery_handle.
      data: lr_res_col           type ref to if_bol_entity_col.
 
      rv_count= ''.
 
      check: ir_shortcutis bound.
 
      try.
          id_of_query_template = ir_shortcut->get_property_as_string('PARAMETER_' ).
          lr_dquery = cl_crm_bol_dquery_service=>load_query_template( iv_query_id=

                                                                     id_of_query_template ).
 
          lr_res_col= lr_dquery->get_query_result( ).
          rv_count= lr_res_col->get_iterator( )->size( ).
 
        catchcx_crm_genil_not_ready.
        catchcx_sy_no_handler.
        catchcx_crm_bol_not_ready.
        catchcx_bol_exception.
      endtry.
 
    endmethod.

function UpdateSavedSearchCallback(reqObj)

  {

   varresponseText = reqObj.request.responseText;

   varobj = JSON.parse(responseText);

   varfnum = obj.TEXT.length;

   for (vari = 0; i< fnum; i++) {

    varelem = document.getElementById(obj.TEXT[i].NAME);

     if (elem){

      elem.title = obj.TEXT[i].VALUE;

      elem.innerHTML  = obj.TEXT[i].VALUE;

     }

   }

  }