Index: openacs-4/packages/assessment/www/asm-admin/item-copy.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-copy.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/assessment/www/asm-admin/item-copy.tcl	15 May 2007 20:14:18 -0000	1.5
+++ openacs-4/packages/assessment/www/asm-admin/item-copy.tcl	27 Oct 2014 16:41:01 -0000	1.6
@@ -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
 } -properties {
     context_bar:onevalue
@@ -42,7 +42,7 @@
 } -edit_request {
     db_1row item_data {}
 } -on_submit {
-    if {[exists_and_not_null submit_ok]} {
+    if {([info exists submit_ok] && $submit_ok ne "")} {
 	db_transaction {
 	    set new_assessment_rev_id [as::assessment::new_revision -assessment_id $assessment_id]
 	    set section_id [as::section::latest -section_id $section_id -assessment_rev_id $new_assessment_rev_id]