Index: openacs-4/packages/assessment/tcl/as-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-procs.tcl,v
diff -u -r1.14.2.2 -r1.14.2.3
--- openacs-4/packages/assessment/tcl/as-item-procs.tcl	9 Aug 2005 00:31:14 -0000	1.14.2.2
+++ openacs-4/packages/assessment/tcl/as-item-procs.tcl	27 Jan 2006 09:41:09 -0000	1.14.2.3
@@ -20,6 +20,7 @@
     {-feedback_wrong ""}
     {-points ""}
     {-package_id ""}
+    {-validate_block ""}
 } {
     @author Eduardo Perez (eperez@it.uc3m.es)
     @creation-date 2004-07-26
@@ -53,7 +54,8 @@
 					     [list max_time_to_complete $max_time_to_complete] \
 					     [list feedback_right $feedback_right] \
 					     [list feedback_wrong $feedback_wrong] \
-					     [list points $points] ] ]
+					     [list points $points] \
+					     [list validate_block $validate_block] ] ]
     }
 
     return $as_item_id
@@ -72,6 +74,7 @@
     {-feedback_right ""}
     {-feedback_wrong ""}
     {-points ""}
+    {-validate_block ""}
 } {
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2004-12-07
@@ -94,7 +97,8 @@
 					      [list max_time_to_complete $max_time_to_complete] \
 					      [list feedback_right $feedback_right] \
 					      [list feedback_wrong $feedback_wrong] \
-					      [list points $points] ] ]
+					      [list points $points] \
+					      [list validate_block $validate_block] ] ]
 
 	copy_types -as_item_id $as_item_id -new_item_id $new_item_id
     }
@@ -126,7 +130,8 @@
 					      [list max_time_to_complete $max_time_to_complete] \
 					      [list feedback_right $feedback_right] \
 					      [list feedback_wrong $feedback_wrong] \
-					      [list points $points] ] ]
+					      [list points $points] \
+					      [list validate_block $validate_block] ] ]
 
 	copy_types -as_item_id $as_item_id -new_item_id $new_item_id
 	as::assessment::copy_categories -from_id $as_item_id -to_id $new_item_id
@@ -189,7 +194,8 @@
 					      [list max_time_to_complete $max_time_to_complete] \
 					      [list feedback_right $feedback_right] \
 					      [list feedback_wrong $feedback_wrong] \
-					      [list points $points] ] ]
+					      [list points $points] \
+					      [list validate_block $validate_block] ] ]
 
 	as::assessment::copy_categories -from_id $as_item_id -to_id $new_item_id