anchor.diff:  makeForm(User, Default) ->
       [tableTag([{id, "tableHeader"}],
                 [trTag([tdTag([{id, "toolbar"}],
  -                            [aTag([{id,   "createTodo"},
  +                            [aTag([{id, "createTodo"},
                                      {href, "/eTodo/eWeb:createTodo"}],
                                     [imgTag([{src, "/priv/Icons/createNew.png"},
                                              {alt, "Create new"}])]),
  -                             aTag([{id,   "message"},
  +                             aTag([{id, "message"},
                                      {href, "/eTodo/eWeb:message"}],
                                     [imgTag([{src, "/priv/Icons/message.png"},
                                              {alt, "Messages"}])])]),
  
positive.code:                        createTime  = CreateTime,
                         doneTime    = DoneTime,
                         progress    = Progress,
                         owner       = Owner,
                         hasSubTodo  = HasSubTodo}) ->
      ProgStr = toStr(Progress),
      {Estimate, Remaining} = eTodoDB:getTime(Uid),
      [makeTableHeader(Uid, HasSubTodo), "<tr>",
       headerCellCSS(?status), createStatusDataCell(Status, Uid),
       headerCellCSS(?prio),   createPriorityDataCell(Priority, Uid),
       "</tr><tr>",
       headerCellCSS(?sharedWith), dataCellCSS(SharedWith, ""),
       headerCellCSS(?owner),      dataCellCSS(Owner,      ""),
       "</tr><tr class='hideRow'>",
       headerCellCSS(?createTime), dataCellCSS2(CreateTime, ""),
       headerCellCSS(?dueTime),    dataCellCSS2(DueTime,    ""),
       "</tr><tr class='hideRow'>",
       headerCellCSS(?doneTimestamp), dataCellCSS(DoneTime, ""),
       headerCellCSS("Progress(%)"),  dataCellCSS2(ProgStr, ""),
       "</tr><tr class='hideRow'>",
       headerCellCSS("Estimate(h)"),  dataCellCSS(toStr(Estimate),   ""),
       headerCellCSS("Remaining(h)"), dataCellCSS2(toStr(Remaining), ""),
       "</tr><tr>",
       headerCellCSS(?description), dataCellCSS(Description, "colspan=3"),
  
negative.code: %%======================================================================
  printTaskList(User, List, Filter, SearchText, Cfg) ->
      ETodos = eTodoDB:getETodos(User, List, Filter, SearchText, Cfg),
      Body = [[makePrintTaskList(ETodo), pTag()] || ETodo <- ETodos],
      ["<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Transitional//EN' ",
       "'http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd'>",
       htmlTag([{"xmlns", "http://www.w3.org/1999/xhtml"},
                {"xml:lang", "en"},
                {"lang", "en"}],
               [headTag([metaTag([{"http-equiv", "Content-Type"},
                                  {content, "text/html; charset=UTF-8"}]),
                         titleTag("eTodo - " ++ User)]),
                bodyTag(Body)])].
  
  