Index: openacs-4/packages/acs-admin/www/auth/authority-parameters.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/auth/authority-parameters.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-admin/www/auth/authority-parameters.tcl	8 Oct 2003 09:58:01 -0000	1.4
+++ openacs-4/packages/acs-admin/www/auth/authority-parameters.tcl	27 Oct 2014 16:38:55 -0000	1.5
@@ -4,7 +4,7 @@
 
     @author Peter Marklund
 } {
-    authority_id:integer
+    authority_id:naturalnum,notnull
 }
 
 auth::authority::get -authority_id $authority_id -array authority
@@ -39,7 +39,7 @@
     
 }
 
-set has_parameters_p [expr [llength [array names parameters]] > 0]
+set has_parameters_p [expr {[array size parameters] > 0}]
 
 set first_param_name ""
 if { $has_parameters_p } {