Index: openacs-4/packages/attachments/www/toggle-approved.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/toggle-approved.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/attachments/www/toggle-approved.tcl	27 Oct 2014 16:41:05 -0000	1.3
+++ openacs-4/packages/attachments/www/toggle-approved.tcl	7 Aug 2017 23:48:04 -0000	1.4
@@ -7,10 +7,16 @@
 } -query {
     {object_id:naturalnum,notnull}
     {item_id:naturalnum,notnull}
-    {approved_p ""}
-    {return_url:notnull}
+    {approved_p:boolean ""}
+    {return_url:localurl,notnull}
 }
 
 attachments::toggle_approved -object_id $object_id -item_id $item_id -approved_p $approved_p
 
 ad_returnredirect $return_url
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: