anchor.diff:      escape_check(B);
   escape_value_check(V) -> 
       V.
  -
   
   
   %% @doc Escape a string so that it is valid within HTML/ XML.
  
positive.code: escape_check([]) ->
      <<>>;
  escape_check(L) when is_list(L) ->
      escape(list_to_binary(L));
  escape_check(B) when is_binary(B) ->
      escape_check1(B, <<>>).
  
  escape_check1(<<>>, Acc) -> 
      Acc;
  
negative.code: %% @doc Escape all properties used for an update statement. Only leaves the body property intact.
  -spec escape_props(list()) -> list().
  escape_props(Props) ->
      escape_props(Props, []).
  
  -spec escape_props(list(), Options::list()|context()) -> list().
  escape_props(Props, OptionsOrContext) ->
      [ escape_props1(P, OptionsOrContext) || P <- Props ].
  
  escape_props1({_K,V} = Prop, _Options) when is_float(V); is_integer(V); is_atom(V) -> 
      Prop;
  escape_props1({body, V}, Options) ->
      {body, sanitize(V, Options)};
  escape_props1({body_extra, V}, Options) ->
      {body_extra, sanitize(V, Options)};
  escape_props1({summary, Summary}, _Options) ->
      {summary, nl2br(escape_value(Summary))};
  escape_props1({blocks, V}, Options) when is_list(V) ->
      V1 = [ escape_props1(L, Options) || L <- V ],
      {blocks, V1};
  escape_props1({website, V}, _Options) ->
      V1 = escape_value(sanitize_uri(V)),
      {website, V1};
  escape_props1({K, V}, Options) ->
      EscapeFun = case lists:reverse(z_convert:to_list(K)) of
                      "lmth_" ++ _ -> fun(A) -> sanitize(A, Options) end; %% prop ends in '_html'
                      "iru_" ++ _ -> fun(A) -> escape_value(sanitize_uri(A)) end; %% prop ends in '_uri'
                      "lru_" ++ _ -> fun(A) -> escape_value(sanitize_uri(A)) end; %% prop ends in '_url'
                      _ -> fun escape_value/1
                  end,
      {K, EscapeFun(V)};
  escape_props1(P, _Options) ->
      P.
  
  escape_value({trans, _Ts} = Tr) ->
      escape(Tr);
  escape_value(V) when is_list(V) ->
      try
          escape_value(iolist_to_binary(V))
  