Index: openacs-4/packages/general-comments/www/comment-edit-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/comment-edit-3.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/general-comments/www/comment-edit-3.tcl	1 Mar 2005 00:01:37 -0000	1.4
+++ openacs-4/packages/general-comments/www/comment-edit-3.tcl	27 Oct 2014 16:41:42 -0000	1.5
@@ -8,21 +8,21 @@
     @creation-date 2000-10-12
     @cvs-id $Id$
 } {
-    comment_id:integer,notnull
+    comment_id:naturalnum,notnull
     title
     content:html
     comment_mime_type
     { return_url {} }
 }
 
 # 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
 
 # authenticate the user
 set user_id [ad_conn user_id]
 
 # insert the revision into the database
-set is_live [ad_parameter AutoApproveCommentsP {general-comments} {t}]
+set is_live [parameter::get -parameter AutoApproveCommentsP -default {t}]
 set creation_ip [ad_conn peeraddr]
 db_transaction {
   db_exec_plsql insert_comment {
@@ -53,5 +53,5 @@
 
 }
 
-ad_returnredirect "view-comment?[export_url_vars comment_id return_url]"
+ad_returnredirect "view-comment?[export_vars -url {comment_id return_url}]"