Index: openacs-4/packages/assessment/www/admin/asm-action-param-admin.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/asm-action-param-admin.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/assessment/www/admin/asm-action-param-admin.tcl	12 Jun 2006 02:49:51 -0000	1.7
+++ openacs-4/packages/assessment/www/admin/asm-action-param-admin.tcl	27 Oct 2014 16:40:59 -0000	1.8
@@ -4,8 +4,8 @@
     @date 07-01-2005
     @cvs-id $Id:
 } {
-    action_id
-    parameter_id:optional
+    action_id:naturalnum,notnull
+    parameter_id:naturalnum,optional
 }
 
 if { ![ad_form_new_p -key parameter_id] } {
@@ -46,7 +46,7 @@
 } -edit_request {
     db_1row get_param_info {}
 } -new_data {
-    if { $type == "q" } {
+    if { $type eq "q" } {
 	
 	set user_id [ad_conn user_id]	
 	set count_query_record [db_list_of_lists get_records "$query" ]
@@ -61,7 +61,7 @@
     }
 } -edit_data {
 
-    if { $type == "q" } {
+    if { $type eq "q" } {
 	set user_id [ad_conn user_id]	
 	set count_query_record [db_list_of_lists get_records "$query" ]