anchor.diff:  	    not_found;
   	_ ->
   	    Now = util:mk_timestamp(),
  -	    F = fun() ->
  -			mnesia:write(#comment{name = Name,
  -					      date = Now,
  -					      text = Text})
  -		end,
  -	    {atomic, _} = mnesia:transaction(F),
  +		C = sql_conns:request_connection(),
  +		pgsql:equery(C,"insert into comments (name, timestamp, comment) values ($1, $2, $3)", [Name, Now, Text]),
  +		sql_conns:release_connection(C),
   	    ok
       end.
   
  
positive.code:     get_comments(list_to_binary(Name));
  
  get_comments(Name) ->
      F = fun() ->
  		mnesia:read({comment, Name})
  	end,
      {atomic, Comments} = mnesia:transaction(F),
      S = lists:foldl(fun(#comment{} = C, S) ->
  			    sorted:insert(S, C)
  		    end, sorted:new(#comment.date, asc, unlimited), Comments),
      sorted:to_list(S).
  
  
  get_comments_count(Name) ->
      length(get_comments(Name)).
  
negative.code: 
  
  init() ->
  	ok.
  
  add(Name, Text) when is_list(Name) ->
      add(list_to_binary(Name), Text);
  