anchor.diff:                                      {class,   "selects"},
                                       {onchange,
                                        "sendSetting('listType')"}],
  -                                   createForm2(ListTypes, DefListType))])])
  +                                   createForm2(ListTypes, DefListType))])]),
  +               trTag(
  +                 [tdTag("Task sort order"),
  +                  tdTag([selectTag([{id,      "sortOrder"},
  +                                    {name,    "sortOrder"},
  +                                    {class,   "selects"},
  +                                    {onchange,
  +                                     "sendSetting('sortOrder')"}],
  +                                   createForm2(SortOrders, DefSortOrder))])])
                 ]),
        inputTag([{type,  "button"},
                  {id,    "doneBtn"},
  
positive.code: %% Notes    :
  %%======================================================================
  makeTaskList(User, List, Filter, SearchText, Cfg) ->
      ETodos = eTodoDB:getETodos(User, List, Filter, SearchText, Cfg),
      [makeHtmlTaskCSS(ETodo, User) || ETodo <- ETodos].
  
  %%======================================================================
  %% Function :
  
negative.code: %%======================================================================
  settingsPage(User, List) ->
      %% Get web settings.
      UserCfg      = eTodoDB:readUserCfg(User),
      WebSettings  = default(UserCfg#userCfg.webSettings, []),
      DefStatus    = proplists:get_value("filterStatus", WebSettings, ?descDef),
      DefPrio      = proplists:get_value("filterPrio",   WebSettings, ?descDef),
      DefListType  = proplists:get_value("listType",     WebSettings, ?descDef),
      DefSortOrder = proplists:get_value("sortOrder",     WebSettings, ?descDef),
  
      StatusList = [?descDef, ?descPlanning, ?descInProgress, ?descDone, ?descNA],
      PrioList   = [?descDef, ?descLow, ?descMedium, ?descHigh, ?descNA],
      ListTypes  = [?descDef, ?descCompact],
      SortOrders = [?descDef, ?status, ?prio, ?description,
                    ?createTime, ?dueTime, ?doneTimestamp],
      [tableTag([{id, "filterSettings"}],
                [trTag(
                   [thTag([{colspan, 2}, {class, "tableHeader"}],
  