anchor.diff:  dataCellCSS4(Type, Text, Extra, "done", Uid) ->
       Id = Type ++ toStr(Uid),
       tdTag(
  -        [{class, "data done"},
  -            {id,    Id},
  -            "contenteditable",
  -            {onclick, "event.cancelBubble = true;"},
  -            {onblur,  "saveChanges('" ++ Type ++ "', '"++ toStr(Uid) ++  "');\""}]
  -        ++ Extra, [makeHtml(Text, "/priv")]);
  +      [{class, "data done"},
  +       {id,    Id},
  +       "contenteditable",
  +       {onclick, "event.cancelBubble = true;"},
  +       {onblur,  "saveChanges('" ++ Type ++ "', '"++ toStr(Uid) ++  "');\""}]
  +      ++ Extra, [makeHtml(Text, "/priv")]);
   dataCellCSS4(Type, Text, Extra, _StStr, Uid) ->
       Id = Type ++ toStr(Uid),
       tdTag(
  
positive.code: sortETodos(User, ETodos) ->
      UserCfg  = eTodoDB:readUserCfg(User),
      Settings = default(UserCfg#userCfg.webSettings, []),
      Sorting  = proplists:get_value("sortOrder", Settings, ?descDef),
      ETodos2  = doSortETodos(?comment, ETodos), %% Secondary sort order
      doSortETodos(Sorting, ETodos2).
  
  %% Sorting alternatives
  %% ?descDef, ?status, ?prio, ?description, ?createTime
  
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),
      DefSortOrder2 = proplists:get_value("sortOrderSec", WebSettings, ?descDef),
  
      StatusList = [?descDef, ?descPlanning, ?descInProgress,
                    ?descDone, ?descNA, ?descAll],
  