Index: openacs-4/packages/general-comments/www/comment-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/comment-edit.tcl,v diff -u -N -r1.9 -r1.9.2.1 --- openacs-4/packages/general-comments/www/comment-edit.tcl 25 Mar 2018 22:39:35 -0000 1.9 +++ openacs-4/packages/general-comments/www/comment-edit.tcl 16 Mar 2022 13:09:26 -0000 1.9.2.1 @@ -13,51 +13,8 @@ comment_id:naturalnum,notnull { revision_id:naturalnum {} } { return_url:localurl {} } -} -properties { - page_title:onevalue - context:onevalue - target:onevalue - title:onevalue - content:onevalue - comment_mime_type:onevalue - comment_id:onevalue - revision_id:onevalue - return_url:onevalue } -# check to see if the user can edit this comment -permission::require_permission -object_id $comment_id -privilege write - -# if revision_id is not passed in, assume that the user -# wishes to edit the latest revision -if { $revision_id eq "" } { - set revision_id [db_string get_latest_revision \ - "select content_item.get_latest_revision(:comment_id) from dual"] -} - -# get the values from the database -if { ![db_0or1row get_comment { - select g.object_id, - r.title, - r.content, - r.mime_type as comment_mime_type - from general_comments g, - cr_revisions r - where g.comment_id = :comment_id and - r.revision_id = :revision_id -}] } { - ad_return_complaint 1 "The comment_id does not refer to a valid comment." - ad_script_abort -} - -set page_title "[_ general-comments.Edit_comment_on]: [acs_object_name $object_id]" -set context "\"[_ general-comments.Edit_comment]\"" -set target "comment-edit-2" - -ad_return_template "comment-ae" - - - # Local variables: # mode: tcl # tcl-indent-level: 4