Index: openacs-4/packages/general-comments/www/admin/toggle-approval.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/admin/toggle-approval.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/general-comments/www/admin/toggle-approval.tcl	14 Jun 2001 19:52:22 -0000	1.2
+++ openacs-4/packages/general-comments/www/admin/toggle-approval.tcl	27 Oct 2014 16:41:44 -0000	1.3
@@ -10,8 +10,8 @@
     @creation-date 2000-10-12
     @cvs-id $Id$
 } {
-    comment_id:integer,notnull
-    {revision_id {}}
+    comment_id:naturalnum,notnull
+    {revision_id:naturalnum {}}
     {return_url {}}
 }
 
@@ -22,7 +22,7 @@
 # if the user did not pass in a revision_id, then
 # assume that the user wishes to toggle the approval
 # state of the latest revision
-if { [empty_string_p $revision_id] } {
+if { $revision_id eq "" } {
     set revision_id [db_string get_latest_revision \
         "select content_item.get_latest_revision(:comment_id) from dual"]
 }