Index: openacs-4/packages/assessment/tcl/as-item-choice-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-choice-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/assessment/tcl/as-item-choice-procs.tcl	12 Jun 2006 02:49:50 -0000	1.8
+++ openacs-4/packages/assessment/tcl/as-item-choice-procs.tcl	7 Oct 2007 22:36:54 -0000	1.9
@@ -92,6 +92,7 @@
 ad_proc -public as::item_choice::copy {
     -choice_id:required
     -mc_id:required
+    {-copy_correct_answer_p "t"}
 } {
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2004-12-07
@@ -104,7 +105,9 @@
     # Insert as_item_choice in the CR (and as_item_choices table) getting the revision_id (as_item_choice_id)
     db_transaction {
 	db_1row choice_data {}
-
+	if {![string is true $copy_correct_answer_p]} {
+	    set correct_answer_p ""
+	}
 	set new_choice_id [new -title $title \
 			       -mc_id $mc_id \
 			       -data_type $data_type \