comment-add.tcl

Displays a form for adding a comment to a page

Location:
/packages/general-comments/www/comment-add.tcl
Authors:

Phong Nguyen

Pascal Scheffers <pascal@scheffers.net>

Created:

2000-10-12

CVS ID:

$Id: comment-add.tcl,v 1.8.2.1 2022/03/16 13:09:26 antoniop Exp $

File Contents

# /packages/general-comments/www/comment-add.tcl

ad_page_contract {
    Displays a form for adding a comment to a page

    @author Phong Nguyen <phong@arsdigita.com>
    @author Pascal Scheffers (pascal@scheffers.net)
    @creation-date 2000-10-12
    @cvs-id $Id: comment-add.tcl,v 1.8.2.1 2022/03/16 13:09:26 antoniop Exp $
} { 
    object_id:naturalnum,notnull
    { object_name "[acs_object_name $object_id]" }
    { context_id:naturalnum "$object_id" }
    { category "" }
    { return_url:localurl "" }
}

auth::require_login
# check to see if the user can create comments on this object
permission::require_permission -object_id $object_id -privilege general_comments_create

set page_title "[_ general-comments.Add_a_comment_to]: $object_name"
set context "\"[_ general-comments.Add_comment]\""
set target "comment-add-2"
set title ""
set content ""
set comment_mime_type "text/plain"

ad_return_template "comment-ae"

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End:

comment-add.tcl

Related Files

File Contents