Index: openacs-4/packages/general-comments/www/comment-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/comment-edit-2.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/general-comments/www/comment-edit-2.tcl	7 Nov 2002 08:32:49 -0000	1.6
+++ openacs-4/packages/general-comments/www/comment-edit-2.tcl	27 Oct 2014 16:41:42 -0000	1.7
@@ -14,8 +14,8 @@
     @creation-date 2000-10-12
     @cvs-id $Id$
 } {
-    comment_id:integer,notnull
-    object_id:integer,notnull
+    comment_id:naturalnum,notnull
+    object_id:naturalnum,notnull
     title:notnull
     content:notnull,html
     comment_mime_type
@@ -30,7 +30,7 @@
 }
 
 # check to see if the user can edit this comment
-ad_require_permission $comment_id write
+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]\""