anchor.diff:  %%% Either we generate one html page per app/suite/tc,
   %%% or we have one yatsy.yaws page + query arguments.
   %%%
  -mk_link(F, _Key, Name) when function(F) ->
  -    {a, [{href, F(Name)}], Name};
  -mk_link(Url, Key, Aname) ->
  +mk_link(F, _Key, Name, Error) when function(F) ->
  +    {a, [{href, F(Name)},{class,yatsy_eclass(Error)}], Name};
  +mk_link(Url, Key, Aname, Error) ->
       case qargs_p(Url) of
  -	true -> {a, [{href, Url++"&"++Key++"="++Aname}], Aname};
  -	_    -> {a, [{href, Url++"?"++Key++"="++Aname}], Aname}
  +	true -> {a, [{href, Url++"&"++Key++"="++Aname},
  +		     {class,yatsy_eclass(Error)}], Aname};
  +	_    -> {a, [{href, Url++"?"++Key++"="++Aname},
  +		     {class,yatsy_eclass(Error)}], Aname}
       end.
  +
  +yatsy_eclass(true) -> "yatsy_error";
  +yatsy_eclass(_)    -> "yatsy_no_error".
   
   %%% Do the Url contain any '?' , i.e query args ?
   qargs_p(Url) ->
  
positive.code: 	{ok, A} ->
  	    case get_suite(Suite, A#app.finished) of
  		{ok, S} ->
  		    TDs = [[mk_link(Url, "tc", a2l(Tname)), a2l(RC), 
  			    f2s(Time/1000), Doc] || 
  			      #tc{name = Tname, doc = Doc, 
  				  rc = RC, time = Time} <- S#suite.finished],
  		    {'div', [{id, "yatsy_suite"}],
  		     yatsy_ehtml:table(["Test case","Result",
  					"Time (ms)", "Description"],TDs)};
  
negative.code: 
  style() ->
      {style, [],
       ["\n#yatsy_output {margin-left: 20px; margin-top: 40px}\n"
        "#yatsy_output table {border-collapse: collapse}\n"
        "#yatsy_output td {border: 1px solid black; padding: 3px 6px 3px 6px}\n"
        "#yatsy_output th {border: 1px solid black; text-align: left; padding: 3px 6px 3px 6px}\n"
        "#yatsy_output h1 {font-size: x-large; padding-bottom: 10px}\n"
        "#yatsy_error {background-color: #996666}\n"
        ]}.
  
  
  