// Use WebError.nui
//
// In charge of doing something sensible with error messages now that we
// are (intending to) diable standard web error handling.
Use ErrorHnd.nui // cErrorHandlerRedirector class and oErrorHandlerQuiet object (No User Interface)

desktop_section
  object oWebErrorHandler is a cErrorHandlerRedirector NO_IMAGE
    item_property_list
      item_property integer piError.i
      item_property string  psErrorText.i
      item_property integer piErrorLine.i
    end_item_property_list
    procedure OnError integer liError string lsErrorText integer liErrorLine
      integer liRow
      get row_count to liRow
      set piError.i     liRow to liError
      set psErrorText.i liRow to lsErrorText
      set piErrorLine.i liRow to liErrorLine
    end_procedure
    // Define receiving procedure like this:
    //  procedure handle_error integer liError integer liErrorLine string lsErrorText
    procedure CallBack integer lhMsg integer lhObj
      integer liMax liRow liError liErrorLine
      string lsErrorText
      get row_count to liMax
      decrement liMax
      for liRow from 0 to liMax
        get piError.i     liRow to liError
        get piErrorLine.i liRow to liErrorLine
        get psErrorText.i liRow to lsErrorText
        send lhMsg of lhObj liError liErrorLine lsErrorText
      loop
    end_procedure
    function ErrorCount returns integer
      function_return (row_count(self))
    end_function
  end_object // oWebErrorHandler
end_desktop_section