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 -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