anchor.diff:      XML = xmerl:export_simple([{status, [item_to_xml(Status)]}], xmerl_xml),
       {XML, ReqData, State}.
   
  -item_to_xml(S) ->
  -    {state_change, [{id, S#status.id}, {'when', S#status.timestamp},
  -                    {what, S#status.status}], []}.
  +item_to_xml(#status{id=Id, timestamp=TS, status=S}) ->
  +    {state_change, [{id, Id}, {'when', TS}, {what, S}], []}.
   
   
   %% Common conversion functions
  
positive.code: to_csv(ReqData, {_, Status} = State) ->
      {item_to_csv(Status), ReqData, State}.
  
  item_to_csv(Status) ->
      [Status#status.id, $;, Status#status.timestamp, $;,
       Status#status.status, $\n].
  
  
  %% TXT
  
negative.code: to_json(ReqData, {status, Status} = State) ->
      {mochijson2:encode(item_to_json(Status)), ReqData, State}.
  
  item_to_json(#status{id=Id, timestamp=TS, status=S}) ->
      [{id, Id}, {timestamp, TS}, {status, S == ?STATUS_OPEN}].
  
  
  %% CSV
  