anchor.diff:  %% @doc Return the selected language of the Context
   language(Context) ->
       Context#context.language.
  -    
  -    
  +
  +%% @doc Set the language of the context.
  +%% @spec set_language(atom(), context()) -> context()
  +set_language(Lang, Context) ->
  +    Context#context{language=Lang}.
  +
  +
   %% @doc Add a response header to the request in the context.
   %% @spec add_response_header(Header, Value, Context) -> NewContext
   set_resp_header(Header, Value, Context = #context{wm_reqdata=ReqData}) ->
  
positive.code:             ReqData  = Context#context.wm_reqdata,
              PathDict = wrq:path_info(ReqData),
              PathArgs = lists:map(
                              fun ({T,V}) when is_atom(V) -> {atom_to_list(T),atom_to_list(V)}; 
                                  ({T,V})                 -> {atom_to_list(T),mochiweb_util:unquote(V)}
                              end, 
                              dict:to_list(PathDict)),
              {Body, ContextParsed} = parse_form_urlencoded(Context),
              Query    = wrq:req_qs(ReqData),
  
negative.code:     ensure_visitor_id/1,
      ensure_page_session/1,
      ensure_qs/1,
  
      get_reqdata/1,
      set_reqdata/2,
      get_resource_module/1,
  