Index: openacs-4/packages/assessment/www/asm-admin/add-edit-section-check.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/add-edit-section-check.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/assessment/www/asm-admin/add-edit-section-check.tcl	31 Jan 2008 16:06:26 -0000	1.3
+++ openacs-4/packages/assessment/www/asm-admin/add-edit-section-check.tcl	27 Oct 2014 16:40:59 -0000	1.4
@@ -9,9 +9,9 @@
     @arch-tag: 29e2145c-7bcc-4a3d-b2e7-b43a2e305f7c
     @cvs-id $Id$
 } {
-    assessment_id:integer
-    section_id:integer,optional
-    inter_item_check_id:optional
+    assessment_id:naturalnum,notnull
+    section_id:naturalnum,optional
+    inter_item_check_id:naturalnum,optional
     edit_check:optional
     by_item_p:optional
 } -properties {
@@ -39,10 +39,10 @@
 
 set as_item_id $item_id
 
-if {[exists_and_not_null edit_check]} {
+if {([info exists edit_check] && $edit_check ne "")} {
     set return_url "&check_id=$inter_item_check_id&edit_check=t"
 }
-if {[exists_and_not_null by_item_p]} {
+if {([info exists by_item_p] && $by_item_p ne "")} {
     if {$by_item_p==1} {
 	    append return_url "&item_id=$item_id&by_item_p=$by_item_p"
 	} else  {