Index: openacs-4/packages/general-comments/www/delete-attachment.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/delete-attachment.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/general-comments/www/delete-attachment.tcl	5 May 2007 15:54:47 -0000	1.5
+++ openacs-4/packages/general-comments/www/delete-attachment.tcl	27 Oct 2014 16:41:43 -0000	1.6
@@ -11,8 +11,8 @@
     @creation-date 2000-10-12
     @cvs-id $Id$
 } {
-    attach_id:integer,notnull
-    parent_id:integer,notnull
+    attach_id:naturalnum,notnull
+    parent_id:naturalnum,notnull
     { return_url {} }
 } -properties {
     page_title:onevalue
@@ -23,7 +23,7 @@
 }
 
 # check for permissions
-ad_require_permission $attach_id delete
+permission::require_permission -object_id $attach_id -privilege delete
 
 # set template variables
 set page_title "[_ general-comments.Delete_attachment]"