anchor.diff:  %% Notes    :
   %%======================================================================
   makeSceduleReport(User) ->
  -    Opts        = [{width, "25%"}, {align, center}],
  -    Opts2       = [{width, "20%"}, {align, center}],
  -    Alarms      = getAlarmList(User),
  -    ETodos      = getTodoInfo(User),
  +    Opts = [{width, "25%"}, {align, center}],
  +    Opts2 = [{width, "20%"}, {align, center}],
  +    Alarms = getAlarmList(User),
  +    ETodos = getTodoInfo(User),
       TimeMarkers = getTimeMarkers(),
       Events = lists:reverse(lists:keysort(1, TimeMarkers ++ Alarms ++ ETodos)),
       tableTag([trTag([{bgcolor, "black"}],
                       [tdTag([{width, "35%"}], heading("Description")),
  -                     tdTag(Opts,  heading("Next alarm")),
  +                     tdTag(Opts, heading("Next alarm")),
                        tdTag(Opts2, heading("Due date")),
  -                     tdTag(Opts2, heading("Time left(h)"))])|
  +                     tdTag(Opts2, heading("Time left(h)"))]) |
                 makeSceduleReport2(Events, [])]).
   
   getTodoInfo(User) ->
  -    TodoList  = eTodoDB:getTodos(User, ?defTaskList),
  +    TodoList = eTodoDB:getTodos(User, ?defTaskList),
       getTodoInfo(TodoList, date(), []).
   
   getTodoInfo([], _Now, Acc) ->
       Acc;
  -getTodoInfo([#todo{status = done}|Rest], Now, Acc) ->
  +getTodoInfo([#todo{status = done} | Rest], Now, Acc) ->
       getTodoInfo(Rest, Now, Acc);
  -getTodoInfo([#todo{dueTime = undefined}|Rest], Now, Acc) ->
  +getTodoInfo([#todo{dueTime = undefined} | Rest], Now, Acc) ->
       getTodoInfo(Rest, Now, Acc);
  -getTodoInfo([#todo{uid = Uid, dueTime = DueDate}|Rest], Now, Acc) ->
  +getTodoInfo([#todo{uid = Uid, dueTime = DueDate} | Rest], Now, Acc) ->
       NextAlarm = {DueDate, {0, 0, 0}},
       {Desc, DueDate, UidStr, RemTime} = doSaveAlarmInfo(Uid),
       getTodoInfo(Rest, Now, [{NextAlarm, "", DueDate,
                                UidStr, Desc, RemTime} | Acc]);
  -getTodoInfo([_Todo|Rest], Now, Acc) ->
  +getTodoInfo([_Todo | Rest], Now, Acc) ->
       getTodoInfo(Rest, Now, Acc).
   
   getAlarmList(User) ->
  -    AlarmList  = eTodoDB:getReminders(User),
  +    AlarmList = eTodoDB:getReminders(User),
       getAlarmInfo(AlarmList, date(), []).
   
   getAlarmInfo([], _Now, Acc) ->
       Acc;
   %% New alarm
  -getAlarmInfo([#alarmCfg{startDate  = StartDate,
  -                        startTime  = StartTime,
  -                        uid        = Uid,
  -                        nextAlarm  = undefined}|Rest], Now, Acc)
  +getAlarmInfo([#alarmCfg{startDate = StartDate,
  +                        startTime = StartTime,
  +                        uid = Uid,
  +                        nextAlarm = undefined} | Rest], Now, Acc)
     when Now =< StartDate ->
       NextAlarm = {StartDate, repairTime(StartTime)},
       saveAlarmInfo(Uid, Rest, Now, NextAlarm, Acc);
   %% Alarm that never will be activated
  -getAlarmInfo([#alarmCfg{nextAlarm = never}|Rest], Now, Acc) ->
  +getAlarmInfo([#alarmCfg{nextAlarm = never} | Rest], Now, Acc) ->
       getAlarmInfo(Rest, Now, Acc);
  -getAlarmInfo([#alarmCfg{uid = Uid, nextAlarm  = {Date, Time}}|Rest], Now, Acc)
  -        when Now =< Date ->
  +getAlarmInfo([#alarmCfg{uid = Uid, nextAlarm = {Date, Time}} | Rest], Now, Acc)
  +  when Now =< Date ->
       saveAlarmInfo(Uid, Rest, Now, {Date, Time}, Acc);
  -getAlarmInfo([_Alarm|Rest], Now, Acc) ->
  +getAlarmInfo([_Alarm | Rest], Now, Acc) ->
       getAlarmInfo(Rest, Now, Acc).
   
   saveAlarmInfo(Uid, Rest, Now, NextAlarm, Acc) ->
  
positive.code:                      tdTag(Opts, heading(RemainingSum))
                      ])]).
  
  makeTimeLogReport2([Uid|Rest], Acc) ->
      {Estimate, Remaining} = eTodoDB:getTime(Uid),
      AllLogged = eTodoDB:getAllLoggedWork(Uid),
      Todo      = eTodoDB:getTodo(tryInt(Uid)),
      Desc1     = eTodoDB:getWorkDesc(Uid),
      Desc2     = eGuiFunctions:getWorkDesc(Desc1, Todo#todo.description),
      Odd       = ((length(Acc) rem 2) =/= 0),
      Opts2     = [{width, "20%"}, {align, center}],
      Opts3     = [{width, "20%"}],
      UidInt    = tryInt(Uid),
      UidStr    = eTodoUtils:convertUid(UidInt),
      Date      = date(),
  
      Link1  = aTag([{href, convertUid(UidInt, Date)}], time(Estimate) ++ ":00"),
      Link2  = aTag([{href, convertUid(UidInt, incDate(Date, 1))}], AllLogged),
      Link3  = aTag([{href, convertUid(UidInt, incDate(Date, 2))}], time(Remaining) ++ ":00"),
  
      makeTimeLogReport2(Rest,
          [trTag(bgColor(Odd),
              [tdTag(Opts3, [aTag([{href, UidStr}], Desc2)]),
                  tdTag(Opts2, Link1),
                  tdTag(Opts2, Link2),
                          tdTag(Opts2, Link3)]) | Acc]);
  makeTimeLogReport2([], Result) ->
      Opts = [{width, "20%"}, {align, center}],
      [trTag([{bgcolor, "black"}],
  
negative.code:     Uids3 = removeEmptyAndDone(Uids2),
      {EstimateSum, SpentSum, RemainingSum} = sum(Uids3),
      tableTag([showTimeReport2(Uids3, []),
                trTag([{class, "timeReportTable"}],
                      [tdTag([{class, "timeReportDesc timeReportSum"}], "Total"),
                       tdTag([{class, "timeReportSum timeReportColumn"}], EstimateSum),
                       tdTag([{class, "timeReportSum timeReportColumn"}], SpentSum),
                       tdTag([{class, "timeReportSum timeReportColumn"}], RemainingSum)
                      ])]).
  
  removeEmptyAndDone(Uids) ->
      removeEmptyAndDone(Uids, []).
  
  removeEmptyAndDone([], Acc) ->
      lists:reverse(Acc);
  removeEmptyAndDone([Uid | Rest], Acc) ->
      {Estimate, Remaining} = eTodoDB:getTime(Uid),
      AllLogged = eTodoDB:getAllLoggedWork(Uid),
      {ok, _Desc, _ShowInWL, ShowInTL} = eTodoDB:getWorkDescAll(Uid),
  