Index: openacs-4/packages/assessment/www/asm-admin/item-add-swcat.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-add-swcat.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/assessment/www/asm-admin/item-add-swcat.tcl	19 Dec 2007 11:55:07 -0000	1.3
+++ openacs-4/packages/assessment/www/asm-admin/item-add-swcat.tcl	27 Oct 2014 16:41:01 -0000	1.4
@@ -9,9 +9,9 @@
     @arch-tag: 1aaf171d-3d71-4e10-86e8-66731a80a1a5
     @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
 } -properties {
     context:onevalue
@@ -49,7 +49,7 @@
     set display_type "sb"
 } -edit_data {
     db_transaction {
-	if {![db_0or1row item_type {}] || $object_type != "as_item_type_swcat"} {
+	if {![db_0or1row item_type {}] || $object_type ne "as_item_type_swcat"} {
 	    set as_item_type_id [as::item_type_sa::new \
                                      -tree_id $tree_id]