Index: openacs-4/packages/general-comments/www/comment-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/comment-add.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/general-comments/www/comment-add.tcl	7 Nov 2002 08:32:49 -0000	1.5
+++ openacs-4/packages/general-comments/www/comment-add.tcl	27 Oct 2014 16:41:42 -0000	1.6
@@ -8,9 +8,9 @@
     @creation-date 2000-10-12
     @cvs-id $Id$
 } { 
-    object_id:integer,notnull
+    object_id:naturalnum,notnull
     { object_name "[acs_object_name $object_id]" }
-    { context_id "$object_id" }
+    { context_id:naturalnum "$object_id" }
     { category "" }
     { return_url "" }
 } -properties {
@@ -28,12 +28,12 @@
 }
 
 # check to see if the user can create comments on this object
-ad_require_permission $object_id general_comments_create
+permission::require_permission -object_id $object_id -privilege general_comments_create
 
 # ad_page_contract does not set object_name to
 # [acs_object_name $object_id] if object_name is passed
 # in as an empty string.
-if { [empty_string_p $object_name] } {
+if { $object_name eq "" } {
     set object_name [acs_object_name $object_id]
 }