comment-edit-2.tcl
Confirms a comment for an object_id
- Location:
- /packages/general-comments/www/comment-edit-2.tcl
- Authors:
- Phong Nguyen
- Pascal Scheffers <pascal@scheffers.net>
- Created:
- 2000-10-12
- CVS ID:
$Id: comment-edit-2.tcl,v 1.8.2.4 2023/03/23 15:41:37 antoniop Exp $
Related Files
[ hide source ] | [ make this the default ]
File Contents
# /packages/general-comments/www/comment-edit-2.tcl ad_page_contract { Confirms a comment for an object_id @param comment_id The id of the comment to edit @param object_name The name of the object this comment refers to @param title The title of the comment @param content The actual comment @param mime_type The type of format for the comment @author Phong Nguyen <phong@arsdigita.com> @author Pascal Scheffers (pascal@scheffers.net) @creation-date 2000-10-12 @cvs-id $Id: comment-edit-2.tcl,v 1.8.2.4 2023/03/23 15:41:37 antoniop Exp $ } { comment_id:naturalnum,notnull object_id:naturalnum,notnull title:notnull,printable,string_length(max|200) content:notnull,html comment_mime_type:oneof(text/plain|text/html),notnull { return_url:localurl {} } } -properties { page_title:onevalue context:onevalue mime_type:onevalue title:onevalue content:onevalue target:onevalue } -validate { no_js_in_content { # # We do not allow any javascript in the content, including # event handlers. # if {![ad_dom_sanitize_html \ -allowed_tags * \ -allowed_attributes * \ -allowed_protocols * \ -html $content \ -no_js \ -validate]} { ad_complain [_ acs-tcl.lt_name_contains_invalid \ [list name [_ general-comments.Comment]]] } } } # check to see if the user can edit this comment permission::require_permission -object_id $comment_id -privilege write set page_title "[_ general-comments.Confirm_comment_on]: [acs_object_name $object_id]" set context "\"[_ general-comments.Confirm_comment]\"" set target "comment-edit-3" set html_content [ad_html_text_convert -from $comment_mime_type -- $content] ad_return_template "comment-ae-2" # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: