Index: openacs-4/packages/assessment/tcl/assessment-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/Attic/assessment-procs.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/assessment/tcl/assessment-procs.tcl	24 Sep 2004 11:20:44 -0000	1.14
+++ openacs-4/packages/assessment/tcl/assessment-procs.tcl	28 Sep 2004 14:42:42 -0000	1.15
@@ -116,7 +116,8 @@
     {-required_p ""}
     {-data_type ""}
     {-max_time_to_complete ""}
-    {-feedback_text ""}
+    {-feedback_right ""}
+    {-feedback_wrong ""}
 } {
     @author Eduardo Perez (eperez@it.uc3m.es)
     @creation-date 2004-07-26
@@ -128,7 +129,7 @@
 
     # Insert as_item in the CR (and as_items table) getting the revision_id (as_item_id)
     set item_item_id [content::item::new -parent_id $folder_id -content_type {as_items} -name $name -title $title ]
-    set as_item_id [content::revision::new -item_id $item_item_id -content_type {as_items} -title $title -attributes [list [list subtext $subtext] [list field_code $field_code] [list definition $definition] [list required_p $required_p] [list data_type $data_type] [list max_time_to_complete $max_time_to_complete] [list feedback_text $feedback_text] ] ]
+    set as_item_id [content::revision::new -item_id $item_item_id -content_type {as_items} -title $title -attributes [list [list subtext $subtext] [list field_code $field_code] [list definition $definition] [list required_p $required_p] [list data_type $data_type] [list max_time_to_complete $max_time_to_complete] [list feedback_right $feedback_right] [list feedback_wrong $feedback_wrong] ] ]
 
     return $as_item_id
 }