anchor.diff:  
   
   %% @doc Handle the submit event of a new comment
  -event({submit, {newcomment, Args}, _TriggerId, _TargetId}, Context) ->
  +event({submit, {newcomment, Args}, TriggerId, _TargetId}, Context) ->
       {id, Id} = proplists:lookup(id, Args),
       case z_auth:is_auth(Context) of
           false ->
  
positive.code:     Message = z_context:get_q_validated("message", Context),
      case m_comment:insert(Id, Name, Email, Message, Context) of
          {ok, CommentId} ->
              Comment = m_comment:get(CommentId, Context),
              Props = [
                  {id, Id},
  
negative.code:                 {creator, m_rsc:p(Id, creator_id, Context)},
                  {hidden, true}
              ],
              Html = z_template:render(CommentTemplate, Props, Context),
              Context1 = z_render:insert_bottom(CommentsListElt, Html, Context),
              Context2 = z_render:wire([
                              {set_value, [{selector, "#"++TriggerId++" input[name=\"message\"]"}, {value, ""}]},
                              {slide_down, [{target, "comment-"++integer_to_list(CommentId)}]}
                          ], Context1),
              case z_convert:to_bool(proplists:get_value(do_redirect, Args, true)) of
                  true -> z_render:wire({redirect, [{location, "#comment-"++integer_to_list(CommentId)}]}, Context2);
                  false -> Context2
              end;
          {error, _} ->
              Context
      end.
  