anchor.diff:      Body = case Base of
           "submit" ->
               handle_submit(wrq:disp_path(ReqData)), "OK";
  -        "history.csv" -> csv_history();
  -        "history.xml" -> xml_history();
  -        "history" -> html_history();
  +        "history.csv" -> csv_history(get_history());
  +        "history.xml" -> xml_history(get_history());
  +        "history" -> html_history(get_history());
           "status.csv" -> format_csv(get_status());
           "status.txt" -> format_human(txt, get_status());
           "status.xml" -> format_xml(get_status());
  
positive.code: 
  home_page() -> {ok, Content} = home_dtl:render([]), Content.
  
  html_history() ->
      Events = [{S#hacksense_status.id, timestamp_to_isofmt(S), status_to_open_closed(S)}
                || S <- get_date_ordered_statuses(ascending, all_remaining)],
      {ok, Content} = history_html_dtl:render([{events, Events}]),
      Content.
  
  csv_history() ->
      lists:map(fun format_csv/1, get_date_ordered_statuses(ascending, all_remaining)).
  
  format_human(Format, Status) ->
      OpenClosed = status_to_open_closed(Status),
  
negative.code:          Error -> Error
      end.
  
  get_history() -> get_date_ordered_statuses(ascending, all_remaining).
  
  get_date_ordered_statuses(OrderDir, Number) ->
      {atomic, Rows} = mnesia:transaction(fun() ->
          TH = mnesia:table(hacksense_status),
  