Index: openacs-4/packages/dotlrn/www/admin/guest-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/guest-toggle.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/www/admin/guest-toggle.tcl	8 Aug 2006 21:26:28 -0000	1.4
+++ openacs-4/packages/dotlrn/www/admin/guest-toggle.tcl	7 Aug 2017 23:48:09 -0000	1.5
@@ -21,8 +21,8 @@
     @creation-date November 19, 2002
     @version $Id$
 } -query {
-    user_id
-    guest_p
+    user_id:naturalnum,notnull
+    guest_p:boolean
     {referer "users"}
 }
 
@@ -39,3 +39,9 @@
 ad_returnredirect $referer
 
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: