Anubis / Xlib

jq_datatable_server_side.anubis 1.39 KB
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 
/*
 * Created by PyramIDE.
 * User: Totoro
 * Date: 03/05/2014
 * Time: 17:46
 *
 */

read xlib/web/jQuery/CXM_jquery_datatable_types.anubis
read tools/basis.anubis
read xlib/web/CXM_common.anubis
read xlib/web/CXM_web_arg_utils.anubis

public define Maybe(JQuery_datatable_server_side_type)
  get_datatable_server_side_query
  (
    List(Web_arg) lwa
  )=
  
  if get_String(lwa, "sEcho")          is {failure then println("can't read sEcho");          failure, success(secho) then
  if get_Int(lwa,    "iColumns")       is {failure then println("can't read iColumns");       failure, success(icolumns) then
  if get_String(lwa, "sColumns")       is {failure then println("can't read sColumns");       failure, success(scolumns) then
  if get_Int(lwa,    "iDisplayStart")  is {failure then println("can't read iDisplayStart");  failure, success(idisplaystart) then 
  if get_Int(lwa,    "iDisplayLength") is {failure then println("can't read iDisplayLength"); failure, success(idisplaylength) then                                                               
  if get_String(lwa, "sSearch")        is {failure then println("can't read sSearch");        failure, success(sSearch) then
//  if get_String(lwa, "sSortDir") is {failure then failure, success(sSortDir) then
    success(dt_ss(secho, icolumns, scolumns, idisplaystart, idisplaylength, if sSearch = "" then failure else success(sSearch)))
  }}}}}}.