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.4 -r1.5
--- openacs-4/packages/assessment/tcl/as-item-choice-procs.tcl	5 Dec 2004 17:17:12 -0000	1.4
+++ openacs-4/packages/assessment/tcl/as-item-choice-procs.tcl	8 Dec 2004 15:30:34 -0000	1.5
@@ -39,7 +39,7 @@
 				-attributes [list [list mc_id $mc_id ] \
 					[list data_type $data_type ] \
 					[list numeric_value $numeric_value ] \
-					[list $text_value text_value] \
+					[list text_value $text_value] \
 					[list boolean_value $boolean_value] \
 					[list content_value $content_value] \
 					[list feedback_text $feedback_text] \
@@ -53,3 +53,68 @@
 
     return $as_item_choice_id
 }
+
+ad_proc -public as::item_choice::new_revision {
+    -choice_id:required
+    -mc_id:required
+} {
+    @author Timo Hentschel (timo@timohentschel.de)
+    @creation-date 2004-12-07
+
+    New item choice revision
+} {
+    # New revision of 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 {}
+        set as_item_choice_id [content::revision::new \
+				-item_id $item_choice_id \
+				-content_type {as_item_choices} \
+				-title $title \
+				-attributes [list [list mc_id $mc_id ] \
+					[list data_type $data_type ] \
+					[list numeric_value $numeric_value ] \
+					[list text_value $text_value] \
+					[list boolean_value $boolean_value] \
+					[list content_value $content_value] \
+					[list feedback_text $feedback_text] \
+					[list selected_p $selected_p] \
+					[list correct_answer_p $correct_answer_p] \
+					[list sort_order $sort_order] \
+					[list percent_score $percent_score] ] ]
+    }
+
+    return $as_item_choice_id
+}
+
+ad_proc -public as::item_choice::copy {
+    -choice_id:required
+    -mc_id:required
+} {
+    @author Timo Hentschel (timo@timohentschel.de)
+    @creation-date 2004-12-07
+
+    Copy a Multiple Choice
+} {
+    set package_id [ad_conn package_id]
+    set folder_id [db_string get_folder_id "select folder_id from cr_folders where package_id=:package_id"]
+
+    # 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 {}
+
+	set new_choice_id [new -title $title \
+			       -mc_id $mc_id \
+			       -data_type $data_type \
+			       -numeric_value $numeric_value \
+			       -text_value $text_value \
+			       -boolean_value $boolean_value \
+			       -content_value $content_value \
+			       -feedback_text $feedback_text \
+			       -selected_p $selected_p \
+			       -correct_answer_p $correct_answer_p \
+			       -sort_order $sort_order \
+			       -percent_score $percent_score]
+    }
+
+    return $new_choice_id
+}