Index: openacs-4/packages/assessment/www/asm-admin/item-add-display-sb.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-add-display-sb.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/assessment/www/asm-admin/item-add-display-sb.tcl	15 May 2007 20:14:17 -0000	1.8
+++ openacs-4/packages/assessment/www/asm-admin/item-add-display-sb.tcl	27 Oct 2014 16:41:01 -0000	1.9
@@ -4,9 +4,9 @@
     @author Timo Hentschel (timo@timohentschel.de)
     @cvs-id $Id:
 } {
-    assessment_id:integer
-    section_id:integer
-    as_item_id:integer
+    assessment_id:naturalnum,notnull
+    section_id:naturalnum,notnull
+    as_item_id:naturalnum,notnull
     after:integer
     {type ""}
 } -properties {
@@ -49,7 +49,7 @@
                 -new_assessment_rev_id $new_assessment_rev_id
 	set old_item_id $as_item_id
 
-	if {![db_0or1row item_display {}] || $object_type != "as_item_display_sb"} {
+	if {![db_0or1row item_display {}] || $object_type ne "as_item_display_sb"} {
 	    set as_item_display_id [as::item_display_sb::new \
 					-html_display_options $html_options \
 					-multiple_p $multiple_p \
@@ -133,7 +133,7 @@
                 -new_assessment_rev_id $new_assessment_rev_id
 	set old_item_id $as_item_id
 
-	if {![db_0or1row item_display {}] || $object_type != "as_item_display_sb"} {
+	if {![db_0or1row item_display {}] || $object_type ne "as_item_display_sb"} {
 	    set as_item_display_id [as::item_display_sb::new \
 					-html_display_options $html_options \
 					-multiple_p $multiple_p \