Index: openacs-4/packages/assessment/www/asm-admin/section-select.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/section-select.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/assessment/www/asm-admin/section-select.tcl	7 Apr 2005 23:10:50 -0000	1.4
+++ openacs-4/packages/assessment/www/asm-admin/section-select.tcl	27 Oct 2014 16:41:04 -0000	1.5
@@ -5,11 +5,11 @@
     
     This page allows to add branches or actions to the question and its choices.    
 } {
-    assessment_id:integer
-    inter_item_check_id:integer
-    section_id:integer
+    assessment_id:naturalnum,notnull
+    inter_item_check_id:naturalnum,notnull
+    section_id:naturalnum,notnull
     by_item_p:optional
-    item_id:optional
+    item_id:naturalnum,optional
 } -properties {
     context:onevalue
     title:onevalue
@@ -27,7 +27,7 @@
 
 set return_url "one-a?assessment_id=$assessment_id"
 
-if { [exists_and_not_null  by_item_p] } {
+if { ([info exists by_item_p] && $by_item_p ne "") } {
     if { $by_item_p == 1} {
 	set return_url "checks-admin?assessment_id=$assessment_id&section_id=$section_id&item_id=$item_id"
     } else {